Browse Source

* fixed fistp/fild optimization

Jonas Maebe 27 years ago
parent
commit
f3d215d12d
1 changed files with 5 additions and 2 deletions
  1. 5 2
      compiler/popt386.pas

+ 5 - 2
compiler/popt386.pas

@@ -345,7 +345,7 @@ 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
-                               If (Pai386(p)^._operator = A_FLD) Then
+                               If (Pai386(p)^._operator = A_FSTP) Then
                                  Pai386(p)^._operator := A_FST
                                  Pai386(p)^._operator := A_FST
                                Else Pai386(p)^._operator := A_FIST;
                                Else Pai386(p)^._operator := A_FIST;
                                AsmL^.Remove(hp1);
                                AsmL^.Remove(hp1);
@@ -1577,7 +1577,10 @@ End.
 
 
 {
 {
  $Log$
  $Log$
- Revision 1.31  1998-12-15 22:30:39  jonas
+ Revision 1.32  1998-12-16 12:09:29  jonas
+   * fixed fistp/fild optimization
+
+ Revision 1.31  1998/12/15 22:30:39  jonas
    + change "sub/add const1, reg" or "dec reg" followed by "sub const2, reg" to one
    + change "sub/add const1, reg" or "dec reg" followed by "sub const2, reg" to one
      "sub const3, reg"
      "sub const3, reg"
    * some small cleaning up
    * some small cleaning up