23 lines
284 B
Text
23 lines
284 B
Text
|
MODULE M;
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
T = POINTER TO TDesc;
|
||
|
|
TDesc = RECORD
|
||
|
|
x: INTEGER
|
||
|
|
END;
|
||
|
|
|
||
|
|
PROCEDURE New*(): T;
|
||
|
|
VAR t: T;
|
||
|
|
BEGIN
|
||
|
|
NEW(t); t.x := 0;
|
||
|
|
RETURN t
|
||
|
|
END New;
|
||
|
|
|
||
|
|
|
||
|
|
PROCEDURE (t: T) Increment*;
|
||
|
|
BEGIN
|
||
|
|
INC(t.x)
|
||
|
|
END Increment;
|
||
|
|
|
||
|
|
END M.
|