(* Copyright (C) 1992, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

(* File: ObjectAdr.m3                                          *)
(* Last Modified On Mon Mar  2 10:34:55 PST 1992 By kalsow     *)
(*      Modified On Tue Nov 20 20:35:05 1990 By muller         *)

MODULE ObjectAdr;

IMPORT ObjectType, Tipe, Scope;

PROCEDURE Initialize () =
  VAR s: Scope.T;
  BEGIN
    s := Scope.PushNew (FALSE, NIL);
    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.