paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 13:30:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do not omit location_force_reg on second operand of sar/ro* if

Browse Source 
it is used to adapt the size of the operand

git-svn-id: trunk@48855 -
This commit is contained in:
florian 2021-03-01 20:21:42 +00:00
parent 01178532e5
commit 316f2429f0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncginl.pas
View File

@ -932,7 +932,8 @@ implementation
else else
{$endif not cpu64bitalu and not cpuhighleveltarget} {$endif not cpu64bitalu and not cpuhighleveltarget}
begin begin
if not(op2.location.loc in [LOC_REGISTER,LOC_CREGISTER]) then if not(op2.location.loc in [LOC_REGISTER,LOC_CREGISTER]) or
not(equal_defs(op2.resultdef,resultdef)) then
hlcg.location_force_reg(current_asmdata.CurrAsmList,op2.location, hlcg.location_force_reg(current_asmdata.CurrAsmList,op2.location,
op2.resultdef,resultdef,true); op2.resultdef,resultdef,true);
hlcg.a_op_reg_reg_reg(current_asmdata.CurrAsmList,op,resultdef, hlcg.a_op_reg_reg_reg(current_asmdata.CurrAsmList,op,resultdef,