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

* fixed web bug #3378

Browse Source
This commit is contained in:
Jonas Maebe 2004-10-31 15:17:08 +00:00
parent 726ddc2fbf
commit c9eba4e861
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/i386/rropt386.pas
View File

@ -51,8 +51,8 @@ begin
A_IMUL:
canBeFirstSwitch :=
(p.ops >= 2) and
(p.oper[0]^.typ = top_const) and
(getsupreg(p.oper[p.ops-1]^.reg) = supreg) and
(p.oper[0]^.typ <> top_ref) and
(not pTaiprop(p.optinfo)^.FlagsUsed);
A_INC,A_DEC:
canBeFirstSwitch :=
@ -131,8 +131,8 @@ begin
A_IMUL:
begin
p.ops := 3;
p.loadreg(2,p.oper[1]^.reg);
changeOp(p.oper[2]^,reg1,reg2);
p.loadreg(2,newreg(R_INTREGISTER,reg2,R_SUBWHOLE));
changeOp(p.oper[1]^,reg2,reg1);
end;
A_INC,A_DEC:
begin
@ -366,7 +366,10 @@ End.
{
$Log$
Revision 1.29 2004-10-10 15:01:19 jonas
Revision 1.30 2004-10-31 15:17:08 jonas
* fixed web bug 3378
Revision 1.29 2004/10/10 15:01:19 jonas
* several fixes to allocregbetween()
Revision 1.28 2004/08/17 16:34:58 jonas