Browse Source

- removed {$ifdef ver0_99_11}'s

Jonas Maebe 27 years ago
parent
commit
30fa4efbd4
1 changed files with 7 additions and 21 deletions
  1. 7 21
      compiler/popt386.pas

+ 7 - 21
compiler/popt386.pas

@@ -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