|
@@ -1540,8 +1540,8 @@ TYPE
|
|
BEGIN SELF.isProtected := protected
|
|
BEGIN SELF.isProtected := protected
|
|
END SetProtected;
|
|
END SetProtected;
|
|
|
|
|
|
- PROCEDURE Level*():LONGINT;
|
|
|
|
- VAR type: RecordType; res: WORD;
|
|
|
|
|
|
+ PROCEDURE Level*(): LONGINT;
|
|
|
|
+ VAR type: RecordType; res: LONGINT;
|
|
BEGIN
|
|
BEGIN
|
|
type := SELF;
|
|
type := SELF;
|
|
res := 0;
|
|
res := 0;
|