|
@@ -111,7 +111,9 @@ TYPE
|
|
|
|
|
|
|
|
PROCEDURE FindRoots; (* override *)
|
|
PROCEDURE FindRoots; (* override *)
|
|
|
VAR i: LONGINT; ptr: ANY; false: BOOLEAN;
|
|
VAR i: LONGINT; ptr: ANY; false: BOOLEAN;
|
|
|
|
|
+ VAR name: Name;
|
|
|
BEGIN
|
|
BEGIN
|
|
|
|
|
+ name := SELF.name;
|
|
|
false := FALSE; IF false THEN BEGIN{EXCLUSIVE} END END; (* trick to make a module a protected record ... *)
|
|
false := FALSE; IF false THEN BEGIN{EXCLUSIVE} END END; (* trick to make a module a protected record ... *)
|
|
|
IF published THEN (* mark global pointers *)
|
|
IF published THEN (* mark global pointers *)
|
|
|
FOR i := 0 TO LEN(ptrAdr) - 1 DO
|
|
FOR i := 0 TO LEN(ptrAdr) - 1 DO
|
felixf