paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 12:10:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix invalid typecast by postponing sym change to after address resolution in 44094dba

Browse Source
This commit is contained in:
Pierre Muller 2022-02-15 09:04:24 +00:00
parent 00a287e77d
commit 2c80b2419e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/rautils.pas
View File

@ -861,7 +861,6 @@ Begin
begin
setvarsize(tabstractvarsym(sym));
size_set_from_absolute:=true;
sym:=plist^.sym;
{ Check if address can be resolved, but only if not an array }
if (tabsolutevarsym(sym).abstyp=toaddr) and not
(assigned(plist^.next) and (plist^.next^.sltype=sl_vec)) then
@ -873,6 +872,7 @@ Begin
exit;
end;
{ resolve the chain of array indexes (if there are any) }
sym:=plist^.sym;
harrdef:=nil;
while assigned(plist^.next) do
begin