paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-03 08:29:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix my last fix for other targets then win32

Browse Source
This commit is contained in:
pierre 2000-04-28 08:53:47 +00:00
parent 695f24d2bd
commit c4f4ac6ae2
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/cgai386.pas
View File

@ -2951,11 +2951,11 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
op_const_reg(A_IMUL,S_L,
parraydef(pvarsym(p)^.vartype.def)^.elesize,R_EDI)));
end;
end;
{$else not NOTARGETWIN32}
exprasmlist^.concat(new(paicpu,
op_reg_reg(A_SUB,S_L,R_EDI,R_ESP)));
end
else
{$endif NOTARGETWIN32}
exprasmlist^.concat(new(paicpu,
op_reg_reg(A_SUB,S_L,R_EDI,R_ESP)));
{ load destination }
exprasmlist^.concat(new(paicpu,
op_reg_reg(A_MOV,S_L,R_ESP,R_EDI)));
@ -3919,7 +3919,10 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
end.
{
$Log$
Revision 1.98 2000-04-26 10:03:45 pierre
Revision 1.99 2000-04-28 08:53:47 pierre
* fix my last fix for other targets then win32
Revision 1.98 2000/04/26 10:03:45 pierre
* correct bugs for ts010026 and ts010029 in win32 mode
in copyvaluparas
+ use SHL instead of IMUL if constant is a power of 2 in copyvalueparas