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

* only call cg64.a_XXX_loc for LOC_(C)REFERENCE and LOC_(C)REGISTER locations in

Browse Source 
tcginlinenode.second_AndOrXorShiftRot_assign

git-svn-id: trunk@45301 -
This commit is contained in:
nickysn 2020-05-06 21:24:19 +00:00
parent 69e8926295
commit 5aaf863d56
1 changed files with 4 additions and 2 deletions

6
compiler/ncginl.pas
View File

@ -579,7 +579,8 @@ implementation
else
maskvalue:=maskvalue and 31;
{$if not defined(cpu64bitalu) and not defined(cpuhighleveltarget)}
if def_cgsize(tcallparanode(left).right.resultdef) in [OS_64,OS_S64] then
if (def_cgsize(tcallparanode(left).right.resultdef) in [OS_64,OS_S64]) and
(tcallparanode(tcallparanode(left).right).left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE,LOC_REGISTER,LOC_CREGISTER]) then
cg64.a_op64_const_loc(current_asmdata.CurrAsmList,andorxorop[inlinenumber],def_cgsize(tcallparanode(left).right.resultdef),maskvalue.svalue,tcallparanode(tcallparanode(left).right).left.location)
else
{$endif not cpu64bitalu and not cpuhighleveltarget}
@ -594,7 +595,8 @@ implementation
else
begin
{$if not defined(cpu64bitalu) and not defined(cpuhighleveltarget)}
if def_cgsize(tcallparanode(left).right.resultdef) in [OS_64,OS_S64] then
if (def_cgsize(tcallparanode(left).right.resultdef) in [OS_64,OS_S64]) and
(tcallparanode(tcallparanode(left).right).left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE,LOC_REGISTER,LOC_CREGISTER]) then
cg64.a_op64_reg_loc(current_asmdata.CurrAsmList,andorxorop[inlinenumber],def_cgsize(tcallparanode(left).right.resultdef),
joinreg64(hregister,hregisterhi),tcallparanode(tcallparanode(left).right).left.location)
else