-- file Counting.Mesa
-- last edited by Russ Atkinson, October 1, 1980  12:02 PM
-- last edited by Satterthwaite,  5-Oct-81 12:00:44

DIRECTORY
  CodeDefs: TYPE USING [Lexeme, StoreOptions, VarIndex],
  Symbols: TYPE USING [SEIndex],
  Tree: TYPE USING [Link];

Counting: DEFINITIONS =
  BEGIN  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: BOOLEAN, zone, catch: Tree.Link];

  LoadLongAddress: PROC [v: VarIndex];

  VarVarAssignCounted: PROC [
	to, from: VarIndex, options: StoreOptions, type: Symbols.SEIndex]
      RETURNS [Lexeme];

  END.