17 lines
262 B
Text
17 lines
262 B
Text
MODULE ObjectNil;
|
|
IMPORT StdLog;
|
|
TYPE
|
|
Object = POINTER TO ObjectDesc;
|
|
ObjectDesc = RECORD
|
|
END;
|
|
VAR
|
|
x: Object; (* default initialization to NIL *)
|
|
|
|
PROCEDURE DoIt*;
|
|
BEGIN
|
|
IF x = NIL THEN
|
|
StdLog.String("x is NIL");StdLog.Ln
|
|
END
|
|
END DoIt;
|
|
|
|
END ObjectNil.
|