|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 952 (0x3b8)
Types: TextFile
Names: »V«
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
└─ ⟦fc9b38f02⟧ »DATA«
└─⟦9b46a407a⟧
└─⟦12c68c704⟧
└─⟦this⟧
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS
└─ ⟦91c658230⟧ »DATA«
└─⟦458657fb6⟧
└─⟦220843204⟧
└─⟦this⟧
package Hash is
-- simple hash functions to integer and long_integer
-- all functions are guaranteed not to raise an exception
generic
type T is limited private;
type Ptr is access T;
function Pointer_To_Integer (P : Ptr) return Integer;
generic
type T is limited private;
type Ptr is access T;
function Pointer_To_Long_Integer (P : Ptr) return Long_Integer;
generic
type T is limited private;
type Ptr is access T;
pragma Segmented_Heap (Ptr);
function Heap_Pointer_To_Integer (P : Ptr) return Integer;
generic
type T is limited private;
type Ptr is access T;
pragma Segmented_Heap (Ptr);
function Heap_Pointer_To_Long_Integer (P : Ptr) return Long_Integer;
function Long_Integer_To_Integer (Value : Long_Integer) return Integer;
pragma Subsystem (Abstract_Types);
pragma Module_Name (4, 731);
end Hash;