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

⟦ace1db213⟧ TextFile

    Length: 1677 (0x68d)
    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 Copy (Type_Desc        : Type_Descriptor;
                Source           : Expression;
                Source_Kind      : Expression_Kind;
                Dest_Address     : System.Address;
                Dest_Kind        : Expression_Kind;
                Dest_Constraints : Constraint_Descriptor;
                Chk              : Copy_Check_Kind) is
    pragma Suppress_All;
    pragma Routine_Number (Runtime_Ids.Internal);

    procedure Copy_Expression is new Copy_Expression_Generic (Get_Value_Size);
    -- pragma Inline (Copy_Expression);
begin  
    if Type_Desc.Dscrmt_Record_Assign_Subp.Code /= Nil_Code then
        -- If there exists a Dscrmt_Record_Assign_Subp, call it to
        -- do the check and assignment
        Asm_Interface.Dscrmt_Record_Assign
           (Subp        => Type_Desc.Dscrmt_Record_Assign_Subp,
            Type_Desc   => Type_Desc,
            Source      => Source,
            Source_Kind => Source_Kind,
            Dest        => Get_Expression (Dest_Address, Dest_Kind),
            Dest_Kind   => Dest_Kind);
    else
        Copy_Expression (Type_Desc        => Type_Desc,
                         Source           => Source,
                         Source_Kind      => Source_Kind,
                         Dest_Address     => Dest_Address,
                         Dest_Kind        => Dest_Kind,  
                         Dest_Constraints => Dest_Constraints,
                         Chk              => Chk);
    end if;
end Copy;
pragma Runtime_Unit (Unit_Number         => Runtime_Ids.Runtime_Compunit,
                     Elab_Routine_Number => Runtime_Ids.Internal);