paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 04:59:20 +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 (oper[1].typ=top_reg) and
{ if the first is ST and the second is also a register { if the first is ST and the second is also a register
it is necessarily ST1 .. ST7 } 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 { ((ops=1) and
(oper[0].typ=top_reg) and (oper[0].typ=top_reg) and
(oper[0].reg in [R_ST1..R_ST7])) or} (oper[0].reg in [R_ST1..R_ST7])) or}
@ -1874,7 +1874,10 @@ implementation
end. end.
{ {
$Log$ $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 * merge of fix for tw2158 bug
Revision 1.4 2002/08/15 19:10:36 peter 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 (operands[2].opr.typ=OPR_REGISTER) and
{ if the first is ST and the second is also a register { if the first is ST and the second is also a register
it is necessarily ST1 .. ST7 } 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 (ops=0) then
if opcode=A_FSUBR then if opcode=A_FSUBR then
opcode:=A_FSUB opcode:=A_FSUB
@ -669,7 +669,10 @@ end;
end. end.
{ {
$Log$ $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 * merge of fix for tw2158 bug
Revision 1.23 2002/07/26 21:15:44 florian Revision 1.23 2002/07/26 21:15:44 florian