DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦840301e41⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package V_Stack, seg_03bda5

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

with System;
package V_Stack is

    pragma Suppress (All_Checks);

--   PURPOSE : V_STACK provides stack operations.  A procedure
--             is provided to return the current value of the stack
--             pointer and the lower limit of the stack.
--             Another procedure is provided to extend the current stack.


    procedure Check_Stack (Current : out System.Address;
                           Limit : out System.Address);
    pragma Inline_Only (Check_Stack);

    -- PURPOSE:       To determine the current value of the stack pointer,
    --                and the stack's lower bound.  This information may
    --                be used to determine the amount of space remaining
    --                on the stack.
    --
    -- NOTES:         Under most conditions, the code generated by this
    --                procedure will not use the stack.
    --
    --                However, the compiler may implicitly generate code
    --                which uses the stack to generate a reference to the
    --                parameters.  Disassembly of the inline expansion
    --                may be used to determine if a given call performs
    --                stack allocation.


    procedure Extend_Stack;
    pragma Inline_Only (Extend_Stack);

    -- PURPOSE:       To extend the current stack.  The amount of the
    --                extension is defined by the EXTEND_STACK_SIZE parameter
    --                found in the kernel program's configuration package,
    --                V_KRN_CONF.
    --
    -- NOTES:         This service isn't supported for self-hosted versions.
    --                For cross target versions, only the main subprogram's
    --                stack can be extended.
    --
    --                In any case, if the stack can not be extended,
    --                STORAGE_ERROR exception is raised.

end V_Stack;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1a rec1=00 rec2=01 rec3=014
        [0x01] rec0=16 rec1=00 rec2=02 rec3=000
    tail 0x21739b76c8565743557aa 0x42a00088462060003