Copyright (C) 1994, Digital Equipment Corp.File: Null.m3 Last Modified On Fri Jun 24 09:43:33 PDT 1994 By kalsow Modified On Fri Feb 9 06:18:44 1990 By muller
MODULE; IMPORT RefType, Constant, Tipe, AddressExpr, TextExpr, M3String, TInt; PROCEDURE Null Initialize () = BEGIN T := RefType.New (NIL, FALSE, TextExpr.New (M3String.Add ("$null$"))); Nil := AddressExpr.New (TInt.Zero); Tipe.Define ("NULL", T, TRUE); Constant.Declare ("NIL", Nil, TRUE); END Initialize; BEGIN END Null.