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, Brand, TInt; PROCEDURE Null Initialize () = BEGIN T := RefType.New (NIL, FALSE, Brand.New ("$null$")); Nil := AddressExpr.New (TInt.Zero); Tipe.Define ("NULL", T, TRUE); Constant.Declare ("NIL", Nil, TRUE); END Initialize; BEGIN END Null.