Fix bug that could cause generation of invalid sym files.

When these invalid sym files were used during subsequent compiles, certain type pointers (for what should be const-qualified struct or union types) could be left uninitialized, or possibly initialized pointing to different types. This could result in spurious errors or potentially in other problems.
This commit is contained in:
Stephen Heumann 2018-09-15 00:10:08 -05:00
parent ef099f4f83
commit 62757acdb1
1 changed files with 1 additions and 0 deletions

View File

@ -3030,6 +3030,7 @@ if isconstant then begin {handle a constant type}
size := typeSpec^.size;
kind := definedType;
dType := typeSpec;
saveDisp := 0;
end; {with}
end {if}
else