Browse Source

* fixed pop/push optmization

Jonas Maebe 26 years ago
parent
commit
618547adf0
1 changed files with 4 additions and 2 deletions
  1. 4 2
      compiler/popt386.pas

+ 4 - 2
compiler/popt386.pas

@@ -1137,7 +1137,6 @@ Begin
                          Reset_reference(tmpref^);
                          Reset_reference(tmpref^);
                          TmpRef^.base := R_ESP;
                          TmpRef^.base := R_ESP;
                          Pai386(p)^.LoadRef(0,TmpRef);
                          Pai386(p)^.LoadRef(0,TmpRef);
-                         hp1 := Pai(p^.next);
                          AsmL^.Remove(hp1);
                          AsmL^.Remove(hp1);
                          Dispose(hp1, Done)
                          Dispose(hp1, Done)
                        End;
                        End;
@@ -1569,7 +1568,10 @@ End.
 
 
 {
 {
  $Log$
  $Log$
- Revision 1.62  1999-08-10 12:30:00  pierre
+ Revision 1.63  1999-08-23 10:20:46  jonas
+   * fixed pop/push optmization
+
+ Revision 1.62  1999/08/10 12:30:00  pierre
   * avoid unused locals
   * avoid unused locals
 
 
  Revision 1.61  1999/08/05 15:02:48  jonas
  Revision 1.61  1999/08/05 15:02:48  jonas