-- CGenDebugSymbols.mesa  Edited by Bruce,  October 14, 1980  5:10 PM

DIRECTORY
  AllocDebugDefs USING [TableBase, TableSize],
  DebugUsefulDefs USING [ShortCopyREAD, ShortREAD],
  STDebugDefs USING [],
  Table USING [Base, Selector];

CGenDebugSymbols: PROGRAM 
  IMPORTS AllocDebugDefs, DebugUsefulDefs
  EXPORTS STDebugDefs =
  BEGIN
  
  LockSymbols: PUBLIC PROCEDURE = BEGIN END;

  UnlockSymbols: PUBLIC PROCEDURE = BEGIN END;

  STRead: PUBLIC PROCEDURE [addr: UNSPECIFIED] RETURNS [UNSPECIFIED] =
    BEGIN
    RETURN [DebugUsefulDefs.ShortREAD[addr]];
    END;

  STCopyRead: PUBLIC PROCEDURE [from: POINTER, nwords: CARDINAL, to: POINTER] =
    BEGIN
    DebugUsefulDefs.ShortCopyREAD[from: from, nwords: nwords, to: to];
    END;

  TableBase: PUBLIC PROCEDURE [table: Table.Selector] RETURNS [Table.Base] =
    BEGIN
    RETURN [AllocDebugDefs.TableBase[table]]; 
    END;

  TableSize: PUBLIC PROCEDURE [table: Table.Selector] RETURNS [CARDINAL] =
    BEGIN
    RETURN [AllocDebugDefs.TableSize[table]]; 
    END;
  END.