DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦a849fdbf8⟧ TextFile

    Length: 1012 (0x3f4)
    Types: TextFile
    Names: »B«

Derivation

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦24d1ddd49⟧ 
                └─⟦this⟧

TextFile

separate (Shared_Code_Generic_Support)
procedure Unchecked_Deallocate (Collection : System.Address;
                                Cell       : Storage_Management.Address_Ref;
                                Desc       : Type_Descriptor;
                                Kind       : Expression_Kind) is
    pragma Routine_Number (Runtime_Ids.Internal);
    pragma Suppress_All;

    -- This routine implements unchecked deallocation for formal private
    -- types.
    Obj_Ref : Expression_Ref := Cnvt (Cell.all);
    Obj     : Expression     := Obj_Ref.all;
    Size    : Integer        := Get_Value_Size (Desc, Obj, Kind);
begin
    Storage_Management.Deallocate_Fixed_Cell (Units => Standard.Integer (Size),
                                              Collection => Collection,
                                              Cell => Cell);
end Unchecked_Deallocate;
pragma Runtime_Unit (Unit_Number         => Runtime_Ids.Runtime_Compunit,
                     Elab_Routine_Number => Runtime_Ids.Internal);