Uninitialized field when declaring objects without any data fields causes spurious "assignment of files not allowed" error.

2018-03-13 15:42:58 -04:00 · 2018-03-13 15:42:58 -04:00 · 63839d81a0
parent cf72a073f8
commit 63839d81a0
1 changed files with 1 additions and 0 deletions
--- a/parser.pas
+++ b/parser.pas
@ -1003,6 +1003,7 @@ end; {DoConstant}
          objlevel := 1;
          objparent := nil;
 	  size := ptrsize;
+          hasSFile := false;
 	  end; {with}

        {handle inheritance}