paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix LLVM after r45177

Browse Source 
git-svn-id: trunk@45198 -
This commit is contained in:
florian 2020-04-30 19:42:03 +00:00
parent 95ced4a7f5
commit cfe2d94b25
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ncginl.pas
View File

@ -82,7 +82,8 @@ implementation
cpubase,procinfo,
ncon,ncal,
tgobj,ncgutil,
cgutils,cgobj,hlcgobj
cgutils,cgobj,hlcgobj,
defcmp
{$if not defined(cpu64bitalu) and not defined(cpuhighleveltarget)}
,cg64f32
{$endif not cpu64bitalu and not cpuhighleveltarget}
@ -437,7 +438,7 @@ implementation
else
begin
if not(tcallparanode(tcallparanode(left).right).left.location.loc in [LOC_REGISTER,LOC_CREGISTER,LOC_REFERENCE,LOC_CREFERENCE]) or (addvalue>1) or
(def_cgsize(left.resultdef)<>tcallparanode(tcallparanode(left).right).left.location.size) then
not(equal_defs(left.resultdef,tcallparanode(tcallparanode(left).right).left.resultdef)) then
begin
hlcg.location_force_reg(current_asmdata.CurrAsmList,tcallparanode(tcallparanode(left).right).left.location,tcallparanode(tcallparanode(left).right).left.resultdef,second_incdec_tempregdef,addvalue<=1);
hregister:=tcallparanode(tcallparanode(left).right).left.location.register;