m3front/src/builtinTypes/Null.m3


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 Null;

IMPORT RefType, Constant, Tipe, AddressExpr, TextExpr, M3String, TInt;

PROCEDURE 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.