paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 05:27:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

* only coerce the type of the leftover bytes of a record if the location

Browse Source 
size doesn't match the number of remaining bytes
   o prevents a second "single" field of a record getting interpreted as a
     "cardinal"

git-svn-id: trunk@40569 -
This commit is contained in:
Jonas Maebe 2018-12-16 20:44:21 +00:00
parent ff002e2664
commit 93e39fb0cd
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/llvm/llvmdef.pas
View File

@ -951,7 +951,7 @@ implementation
retdeflist[i]:=retloc^.def;
dec(sizeleft,retloc^.def.size);
end
else
else if retloc^.def.size<>sizeleft then
begin
case sizeleft of
1:
@ -970,8 +970,10 @@ implementation
retdeflist[i]:=u56inttype;
else
retdeflist[i]:=retloc^.def;
end;
end;
end
end
else
retdeflist[i]:=retloc^.def;
inc(i);
retloc:=retloc^.next;
until not assigned(retloc);