<> <> <> <> <> DIRECTORY Alloc USING [Notifier], CodeDefs USING [Byte, StackIndex, StackLocRec, StackPos, TempAddr, VarComponent], Symbols USING [ContextLevel, lZ]; Stack: DEFINITIONS = { OPEN CodeDefs; <> StackModelingError: SIGNAL; Above: PROC [s: StackIndex, count: CARDINAL_1, nullOk: BOOL_FALSE] RETURNS [StackIndex]; <> Also: PROC [ n: CARDINAL_1, inLink: BOOL_FALSE, tOffset: TempAddr, tLevel: Symbols.ContextLevel_Symbols.lZ]; <> <> <> Check: PROC [b: Byte]; <> <> Clear: PROC; <> Decr: PROC [count: CARDINAL_1]; <> DeleteToMark: PROC; <> Depth: PROC RETURNS [d: StackPos]; <> Dump: PROC; <> Dup: PROC [load: BOOL_FALSE]; <> <> Exchange: PROC; <> Forget: PROC [s: StackIndex, count: CARDINAL_1]; <> Incr: PROC [count: CARDINAL_1]; <> Init: PROC; KeepOnly: PROC [s: StackIndex, count: CARDINAL]; <> Load: PROC [s: StackIndex, count: CARDINAL_1]; <> Loc: PROC [s: StackIndex, count: CARDINAL_1] RETURNS [StackLocRec]; <> Mark: PROC; <> MoveToTemp: PROC [firstIndex: StackIndex, count: CARDINAL_1] RETURNS [VarComponent]; <> New: PROC RETURNS [old: StackIndex]; Off: PROC; On: PROC; Pop: PROC [count: CARDINAL_1]; <> Prefix: PROC [sti: StackIndex]; <> Require: PROC [count: StackPos]; <> <> Reset: PROC; ResetToMark: PROC; <> Restore: PROC [s: StackIndex]; RoomFor: PROC [n: CARDINAL] RETURNS [BOOL]; <> TempStore: PROC [count: CARDINAL_1] RETURNS [VarComponent]; <> Top: PROC [count: CARDINAL_1] RETURNS [StackIndex]; <> UnMark: PROC; <> VDepth: PUBLIC PROC RETURNS [StackPos]; <> VDepthOf: PROC [s: StackIndex] RETURNS [d: StackPos]; <> StackImplNotify: Alloc.Notifier; }.