* fixed subl $2,esp;psuhw bug

compiler/popt386.pas

@@ -1219,7 +1219,7 @@ Begin
                         While Assigned(hp1) And
                               (Pai(hp1)^.typ In [ait_instruction]+SkipInstr) And
                                Not((Pai(hp1)^.typ = ait_instruction) And
-                                   ((Pai386(hp1)^._operator = A_PUSH) or
+                                   ((Pai386(hp1)^._operator in [A_CALL,A_PUSH]) or
                                     ((Pai386(hp1)^._operator = A_MOV) And
                                      (Pai386(hp1)^.op2t = top_ref) And
                                      (TReference(Pai386(hp1)^.op2^).base = R_ESP)))) do
@@ -1382,7 +1382,10 @@ End.
 
 {
  $Log$
- Revision 1.14  1998-09-20 17:11:51  jonas
+ Revision 1.15  1998-09-30 12:18:29  peter
+   * fixed subl $2,esp;psuhw bug
+
+ Revision 1.14  1998/09/20 17:11:51  jonas
    * released REGALLOC
 
  Revision 1.13  1998/09/16 18:00:00  jonas