m3front/src/builtinTypes/ObjectAdr.m3


Copyright (C) 1994, Digital Equipment Corp.
File: ObjectAdr.m3 Last Modified On Fri Jun 24 09:44:06 PDT 1994 By kalsow Modified On Tue Nov 20 20:35:05 1990 By muller

MODULE ObjectAdr;

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, FALSE, NIL, s, s);
    Tipe.Define ("_UNTRACED_ROOT", T, FALSE);
  END Initialize;

BEGIN
END ObjectAdr.

interface M3ID is in: