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

* correct last wrong fix for tw2158

Browse Source
This commit is contained in:
pierre 2002-10-31 13:28:32 +00:00
parent cc47536e71
commit f723f73f77
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/i386/aasmcpu.pas
View File

@ -769,7 +769,7 @@ implementation
(oper[1].typ=top_reg) and
{ if the first is ST and the second is also a register
it is necessarily ST1 .. ST7 }
(oper[0].reg in [R_ST..R_ST7])) or
(oper[0].reg in [R_ST..R_ST0])) or
{ ((ops=1) and
(oper[0].typ=top_reg) and
(oper[0].reg in [R_ST1..R_ST7])) or}
@ -1874,7 +1874,10 @@ implementation
end.
{
$Log$
Revision 1.5 2002-10-30 17:10:00 pierre
Revision 1.6 2002-10-31 13:28:32 pierre
* correct last wrong fix for tw2158
Revision 1.5 2002/10/30 17:10:00 pierre
* merge of fix for tw2158 bug
Revision 1.4 2002/08/15 19:10:36 peter

7
compiler/i386/ra386.pas
View File

@ -420,7 +420,7 @@ begin
(operands[2].opr.typ=OPR_REGISTER) and
{ if the first is ST and the second is also a register
it is necessarily ST1 .. ST7 }
(operands[1].opr.reg in [R_ST..R_ST7])) or
(operands[1].opr.reg in [R_ST..R_ST0])) or
(ops=0) then
if opcode=A_FSUBR then
opcode:=A_FSUB
@ -669,7 +669,10 @@ end;
end.
{
$Log$
Revision 1.24 2002-10-30 17:10:00 pierre
Revision 1.25 2002-10-31 13:28:32 pierre
* correct last wrong fix for tw2158
Revision 1.24 2002/10/30 17:10:00 pierre
* merge of fix for tw2158 bug
Revision 1.23 2002/07/26 21:15:44 florian