Apple-2gs-SW/ORCA-Pascal
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-Pascal.git synced 2025-02-18 12:30:31 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Kelvin Sherlock 2018-03-13 15:42:58 -04:00
parent cf72a073f8
commit 63839d81a0
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
parser.pas
View File

@ -1003,6 +1003,7 @@ end; {DoConstant}
objlevel := 1; objlevel := 1;
objparent := nil; objparent := nil;
size := ptrsize; size := ptrsize;
hasSFile := false;
end; {with} end; {with}
{handle inheritance} {handle inheritance}