paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 02:30:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix for op_reg_reg_reg in case the destination is the same as the first

Browse Source 
source register
This commit is contained in:
Jonas Maebe 2003-05-01 12:23:46 +00:00
parent eab5d1f7c5
commit 376b1ffa17
1 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/cgobj.pas
View File

@ -1150,9 +1150,26 @@ unit cgobj;
procedure tcg.a_op_reg_reg_reg(list: taasmoutput; op: TOpCg;
size: tcgsize; src1, src2, dst: tregister);
var
tmpreg: tregister;
begin
a_load_reg_reg(list,size,size,src2,dst);
a_op_reg_reg(list,op,size,src1,dst);
if (dst.number <> src1.number) then
begin
a_load_reg_reg(list,size,size,src2,dst);
a_op_reg_reg(list,op,size,src1,dst);
end
else
begin
{$ifdef newra}
tmpreg := rg.getregisterint(list);
a_load_reg_reg(list,size,src2,tmpreg);
a_op_reg_reg(list,op,size,src1,tmpreg);
a_load_reg_reg,tmpreg,dst);
rg.ungetregisterint(list,tmpreg);
{$else newra}
internalerror(200305011);
{$endif newra}
end;
end;
@ -1865,7 +1882,11 @@ finalization
end.
{
$Log$
Revision 1.93 2003-04-29 07:28:52 michael
Revision 1.94 2003-05-01 12:23:46 jonas
* fix for op_reg_reg_reg in case the destination is the same as the first
source register
Revision 1.93 2003/04/29 07:28:52 michael
+ Patch from peter to fix wrong pushing of ansistring function results in open array
Revision 1.92 2003/04/27 11:21:32 peter