-- file ComData.Mesa !Debugger version!
-- last modified by Bruce, August 29, 1980  3:12 PM

DIRECTORY
  MachineDefs USING [SHandle],
  Symbols USING [BTIndex, CBTIndex, CSEIndex, CTXIndex, ISEIndex],
  Tree USING [Link];

ComData: PROGRAM  =
 PUBLIC BEGIN OPEN Symbols;

 -- basic types (initialized in Pass1)

  typeINT, typeCARDINAL, typeATOM, typeBOOL, typeCHAR, typeREAL: CSEIndex;
  typeTEXT, typeSTRING, typeStringBody, typeLOCK, typeCONDITION: CSEIndex;

  outerCtx: CTXIndex;		-- predefined identifiers

 -- type identifiers (initialized in Pass1)

  idANY, idINT, idCARDINAL, idCHAR, idBOOL, idREAL: ISEIndex;
  idLOCK, idSTRING, idATOM: ISEIndex;

 -- anonymous entry for undeclared ids

  seAnon: ISEIndex;

 -- symbolic constants

  idTRUE, idFALSE, idUNWIND: ISEIndex;
  tC0, tC1: Tree.Link;

 -- input

  sourceStream: MachineDefs.SHandle;
  sourceTokens: CARDINAL;

 -- variables used for error reporting

  nErrors: CARDINAL;
  bodyIndex: CBTIndex;		-- current body
  textIndex: CARDINAL;		-- start index of line with error

 -- used by debug

  bodyRoot: BTIndex;
  definitionsOnly: BOOLEAN;

 -- type ids (interim Cedar)

  nTypeCodes: CARDINAL;

  END.