|
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 - metrics - downloadIndex: B T
Length: 693 (0x2b5)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
with Tad_Abstract;
package body Pointer_Level is
type Ptr_Array is array (1 .. 100) of Tad_Abstract.Pobject;
The_Pointer_Array : Ptr_Array;
Index : Natural := 0;
procedure Enter (Pointer : Tad_Abstract.Pobject) is
begin
Index := Index + 1;
The_Pointer_Array (Index) := Pointer;
end Enter;
function Release return Tad_Abstract.Pobject is
Tmp : Tad_Abstract.Pobject;
begin
if Index /= 0 then
begin
Tmp := The_Pointer_Array (Index);
Index := Index - 1;
end;
else
Tmp := null;
end if;
return Tmp;
end Release;
end Pointer_Level;