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 - download
Index: ┃ T V ┃

⟦417dfa935⟧ TextFile

    Length: 1891 (0x763)
    Types: TextFile
    Names: »V«

Derivation

└─⟦516dceb10⟧ Bits:30000751 8mm tape, Rational 1000, RCI_VADS
    └─ ⟦9a14c9417⟧ »DATA« 
        └─⟦this⟧

TextFile

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;