Counting.Mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Russ Atkinson, March 6, 1985 11:09:11 pm PST
Satterthwaite, November 26, 1985 1:14:55 pm PST
DIRECTORY
CodeDefs: TYPE USING [Lexeme, StoreOptions, VarIndex],
Symbols: TYPE USING [SEIndex],
Tree: TYPE USING [Link];
Counting:
DEFINITIONS = {
OPEN CodeDefs;
Allocate: PROC[zone: Tree.Link, type: Symbols.SEIndex, catch: Tree.Link, pushSize: PROC];
FillCounted: PROC[space, source: VarIndex, options: StoreOptions, type: Symbols.SEIndex];
Free: PROC[var: VarIndex, counted: BOOL, zone, catch: Tree.Link];
LoadLongAddress: PROC[v: VarIndex];
LoadSystemZone: PROC;
VarVarAssignCounted:
PROC[to, from: VarIndex, options: StoreOptions, type: Symbols.SEIndex]
RETURNS[Lexeme];
}.