gpcp/MsilBase.cp

   1 (* ============================================================ *)
   2 (*  MsilBase is the abstract class for MSIL code                *)
   3 (*  emitters. The method Target.Select(mod, <name>) will        *)
   4 (*  allocate a ClassMaker  object of an appropriate kind, and   *)
   5 (*  will call classMaker.Emit()                                 *)
   6 (*  Copyright (c) John Gough 1999, 2000.                        *)
   7 (* ============================================================ *)
   8
   9 MODULE MsilBase;
  10
  11   IMPORT
  12         GPCPcopyright,
  13         Console,
  14         Sy := Symbols,
  15         ClassMaker;
  16
  17
  18 (* ============================================================ *)
  19
  20   TYPE
  21     ClassEmitter* = POINTER TO ABSTRACT
  22                       RECORD (ClassMaker.ClassEmitter) END;
  23
  24 (* ============================================================ *)
  25 (*  Not very elegant, but we need to get at the worklist from   *)
  26 (*  inside static procedures in IlasmUtil.                      *)
  27 (* ============================================================ *)
  28
  29   VAR emitter* : ClassEmitter;
  30
  31   PROCEDURE (list : ClassEmitter)AddNewRecEmitter*(inTp : Sy.Type),NEW,EMPTY;
  32
  33 (* ============================================================ *)
  34 END MsilBase.
  35 (* ============================================================ *)