DEFINITION MODULE M2Pass3PV;

FROM MCBase IMPORT Stset, Structform, Idset, Idptr, Levrange;
(* Private declarations for Pass3 sub-modules *)
EXPORT QUALIFIED
    scalars, oneword, doubleword, charmax, QualIdent, nestlevel,
    StProcCheck;

  CONST scalars = Stset{enums,bools,chars,ints,cards,subranges};
        oneword = 1;     (* space used for allocation *)
        doubleword = 2 * oneword;
        charmax = 127; (* maximal value for a character *)

  VAR nestlevel : Levrange; (* nesting level *)

  PROCEDURE QualIdent(klset: Idset; errnum: CARDINAL; VAR ip: Idptr);
  PROCEDURE StProcCheck(ip: Idptr);

END M2Pass3PV .
