m3front/src/builtinTypes/ObjectRef.m3


Copyright (C) 1994, Digital Equipment Corp.
File: ObjectRef.m3 Last Modified On Fri Jun 24 09:44:26 PDT 1994 By kalsow Modified On Fri May 11 11:49:51 1990 By muller

MODULE ObjectRef;

IMPORT M3ID, ObjectType, Tipe, Scope;

PROCEDURE Initialize () =
  VAR s: Scope.T;
  BEGIN
    s := Scope.PushNew (FALSE, M3ID.NoID);
    Scope.PopNew ();
    T := NIL;   (* the value is used by ObjectType.New ! *)
    T := ObjectType.New (NIL, TRUE, NIL, s, s);
    Tipe.Define ("ROOT", T, TRUE);
  END Initialize;

BEGIN
END ObjectRef.

interface M3ID is in: