|
@@ -313,25 +313,15 @@ Begin
|
|
End
|
|
End
|
|
End
|
|
End
|
|
End;
|
|
End;
|
|
- A_FSTP
|
|
|
|
-{$IfDef Ver0_99_11}
|
|
|
|
- ,A_FISTP
|
|
|
|
-{$EndIf Ver0_99_11}
|
|
|
|
-
|
|
|
|
- :
|
|
|
|
|
|
+ A_FSTP,A_FISTP:
|
|
Begin
|
|
Begin
|
|
If (Pai386(p)^.op1t = top_ref) And
|
|
If (Pai386(p)^.op1t = top_ref) And
|
|
GetNextInstruction(p, hp1) And
|
|
GetNextInstruction(p, hp1) And
|
|
(Pai(hp1)^.typ = ait_instruction) And
|
|
(Pai(hp1)^.typ = ait_instruction) And
|
|
-{$IfDef Ver0_99_11}
|
|
|
|
- ((
|
|
|
|
-{$EndIf Ver0_99_11}
|
|
|
|
- (Pai386(hp1)^._operator = A_FLD) And
|
|
|
|
-{$IfDef Ver0_99_11}
|
|
|
|
|
|
+ (((Pai386(hp1)^._operator = A_FLD) And
|
|
(Pai386(p)^._operator = A_FSTP)) Or
|
|
(Pai386(p)^._operator = A_FSTP)) Or
|
|
((Pai386(p)^._operator = A_FISTP) And
|
|
((Pai386(p)^._operator = A_FISTP) And
|
|
(Pai386(hp1)^._operator = A_FILD))) And
|
|
(Pai386(hp1)^._operator = A_FILD))) And
|
|
-{$EndIf Ver0_99_11}
|
|
|
|
(Pai386(hp1)^.op1t = top_ref) And
|
|
(Pai386(hp1)^.op1t = top_ref) And
|
|
(Pai386(hp1)^.Size = Pai386(p)^.Size) And
|
|
(Pai386(hp1)^.Size = Pai386(p)^.Size) And
|
|
RefsEqual(TReference(Pai386(p)^.op1^), TReference(Pai386(hp1)^.op1^))
|
|
RefsEqual(TReference(Pai386(p)^.op1^), TReference(Pai386(hp1)^.op1^))
|
|
@@ -357,14 +347,9 @@ Begin
|
|
{fst can't store an extended value!}
|
|
{fst can't store an extended value!}
|
|
If (Pai386(p)^.Size <> S_FX) Then
|
|
If (Pai386(p)^.Size <> S_FX) Then
|
|
Begin
|
|
Begin
|
|
-{$IfDef Ver0_99_11}
|
|
|
|
If (Pai386(p)^._operator = A_FLD) Then
|
|
If (Pai386(p)^._operator = A_FLD) Then
|
|
-{$EndIf Ver0_99_11}
|
|
|
|
Pai386(p)^._operator := A_FST
|
|
Pai386(p)^._operator := A_FST
|
|
-{$IfDef Ver0_99_11}
|
|
|
|
- Else Pai386(p)^._operator := A_FIST
|
|
|
|
-{$EndIf Ver0_99_11}
|
|
|
|
- ;
|
|
|
|
|
|
+ Else Pai386(p)^._operator := A_FIST;
|
|
AsmL^.Remove(hp1);
|
|
AsmL^.Remove(hp1);
|
|
Dispose(hp1, done)
|
|
Dispose(hp1, done)
|
|
End
|
|
End
|
|
@@ -1311,7 +1296,6 @@ Begin
|
|
dispose(hp1, done);
|
|
dispose(hp1, done);
|
|
End;
|
|
End;
|
|
End;
|
|
End;
|
|
-{$IfDef Ver0_99_11}
|
|
|
|
A_SETE..A_SETGE,A_SETC,A_SETNC,A_SETA..A_SETBE,A_SETO..A_SETNLE:
|
|
A_SETE..A_SETGE,A_SETC,A_SETNC,A_SETA..A_SETBE,A_SETO..A_SETNLE:
|
|
Begin
|
|
Begin
|
|
If (Pai386(p)^.Op1t = top_ref) And
|
|
If (Pai386(p)^.Op1t = top_ref) And
|
|
@@ -1336,7 +1320,6 @@ Begin
|
|
Dispose(hp1, Done)
|
|
Dispose(hp1, Done)
|
|
End
|
|
End
|
|
End;
|
|
End;
|
|
-{$EndIf Ver0_99_11}
|
|
|
|
A_SUB:
|
|
A_SUB:
|
|
{change "subl $2, %esp; pushw x" to "pushl x"}
|
|
{change "subl $2, %esp; pushw x" to "pushl x"}
|
|
Begin
|
|
Begin
|
|
@@ -1554,7 +1537,10 @@ End.
|
|
|
|
|
|
{
|
|
{
|
|
$Log$
|
|
$Log$
|
|
- Revision 1.27 1998-12-11 00:03:35 peter
|
|
|
|
|
|
+ Revision 1.28 1998-12-14 22:01:45 jonas
|
|
|
|
+ - removed {$ifdef ver0_99_11}'s
|
|
|
|
+
|
|
|
|
+ Revision 1.27 1998/12/11 00:03:35 peter
|
|
+ globtype,tokens,version unit splitted from globals
|
|
+ globtype,tokens,version unit splitted from globals
|
|
|
|
|
|
Revision 1.26 1998/12/09 18:16:13 jonas
|
|
Revision 1.26 1998/12/09 18:16:13 jonas
|