diff --git a/src/voc/OPT.Mod b/src/voc/OPT.Mod index 2239dce0..2270a143 100644 --- a/src/voc/OPT.Mod +++ b/src/voc/OPT.Mod @@ -200,7 +200,7 @@ VAR i: INTEGER; BEGIN (* garbage collection *) CloseScope; i := 0; WHILE i < maxImps DO GlbMod[i] := NIL; INC(i) END ; -i := FirstRef; WHILE i < maxStruct DO impCtxt.ref[i] := NIL; impCtxt.old[i] := NIL; INC(i) END +i := (*FirstRef*)Comp + 1; WHILE i < maxStruct DO impCtxt.ref[i] := NIL; impCtxt.old[i] := NIL; INC(i) END END Close; PROCEDURE FindImport*(mod: Object; VAR res: Object); diff --git a/voc.REMOVED.git-id b/voc.REMOVED.git-id index b1072231..27323f58 100644 --- a/voc.REMOVED.git-id +++ b/voc.REMOVED.git-id @@ -1 +1 @@ -d2c8d82b7f397b66ebf6a08a17c3a4f294942403 \ No newline at end of file +8b5292ff2d9cf79496998d1d70418ee752189589 \ No newline at end of file diff --git a/vocstatic.linux.gcc.x86_64.REMOVED.git-id b/vocstatic.linux.gcc.x86_64.REMOVED.git-id index b1072231..27323f58 100644 --- a/vocstatic.linux.gcc.x86_64.REMOVED.git-id +++ b/vocstatic.linux.gcc.x86_64.REMOVED.git-id @@ -1 +1 @@ -d2c8d82b7f397b66ebf6a08a17c3a4f294942403 \ No newline at end of file +8b5292ff2d9cf79496998d1d70418ee752189589 \ No newline at end of file