paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* call also optimize_op_const in the generic a_op_const_reg_reg

Browse Source 
git-svn-id: trunk@30658 -
This commit is contained in:
florian 2015-04-19 10:04:57 +00:00
parent 7f1585b99a
commit d598351664
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/cgobj.pas
View File

@ -1761,6 +1761,20 @@ implementation
procedure Tcg.a_op_const_reg_reg(list:TAsmList;op:Topcg;size:Tcgsize; procedure Tcg.a_op_const_reg_reg(list:TAsmList;op:Topcg;size:Tcgsize;
a:tcgint;src,dst:Tregister); a:tcgint;src,dst:Tregister);
begin begin
optimize_op_const(size, op, a);
case op of
OP_NONE:
begin
if src <> dst then
a_load_reg_reg(list, size, size, src, dst);
exit;
end;
OP_MOVE:
begin
a_load_const_reg(list, size, a, dst);
exit;
end;
end;
a_load_reg_reg(list,size,size,src,dst); a_load_reg_reg(list,size,size,src,dst);
a_op_const_reg(list,op,size,a,dst); a_op_const_reg(list,op,size,a,dst);
end; end;