Uninitialized field when declaring objects without any data fields causes spurious "assignment of files not allowed" error.
This commit is contained in:
parent
cf72a073f8
commit
63839d81a0
|
@ -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}
|
||||||
|
|
Loading…
Reference in New Issue