m3front/src/builtinTypes/CChar.m3


Copyright (C) 1994, Digital Equipment Corp.
File: CChar.m3 Last Modified On Fri Jun 24 09:43:18 PDT 1994 By kalsow Modified On Fri Dec 21 01:27:12 1990 By muller

MODULE CChar;

IMPORT M3, M3ID, EnumType, Tipe, Scope;

PROCEDURE Initialize () =
  VAR elts: Scope.T;  cs := M3.OuterCheckState;
  BEGIN
    elts := Scope.PushNew (FALSE, M3ID.Add ("CHAR"));
    T := EnumType.New (256, elts);
    Scope.PopNew ();
    Scope.TypeCheck (elts, cs);
    Tipe.Define ("CHAR", T, TRUE);
  END Initialize;

BEGIN
END CChar.

interface M3ID is in: