paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 18:50:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

* handle non-smallset sets in registers in LLVM like arrays and records

Browse Source 
git-svn-id: trunk@43884 -
This commit is contained in:
Jonas Maebe 2020-01-07 20:22:13 +00:00
parent a75247d9b0
commit 9462d6b1ea
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/llvm/hlcgllvm.pas
View File

@ -695,6 +695,7 @@ implementation
pass via a temp in that case
}
if (fromsize.typ in [arraydef,recorddef]) or
(is_set(fromsize) and not is_smallset(fromsize)) or
(tosize.size in [3,5,6,7]) then
begin
{ store struct/array-in-register to memory }
@ -901,7 +902,9 @@ implementation
else
begin
if ((fromsize.typ in [arraydef,recorddef]) or
(tosize.typ in [arraydef,recorddef])) and
(tosize.typ in [arraydef,recorddef]) or
(is_set(fromsize) and not is_smallset(fromsize)) or
(is_set(tosize) and not is_smallset(tosize))) and
(fromsize<>tosize) then
begin
if handle_agg_load_ref_anyreg(list,fromsize,tosize,sref,register,nil) then