Browse Source

* fix for web bug1099 (merged from fixes branch)

Jonas Maebe 25 years ago
parent
commit
0f02db341c
1 changed files with 6 additions and 2 deletions
  1. 6 2
      compiler/popt386.pas

+ 6 - 2
compiler/popt386.pas

@@ -285,7 +285,8 @@ Begin
                        Begin
                        Begin
                          AsmL^.Remove(hp1);
                          AsmL^.Remove(hp1);
                          Dispose(hp1, done);
                          Dispose(hp1, done);
-                       End;
+                       End
+                     else break;
                   End;
                   End;
                If GetNextInstruction(p, hp1) then
                If GetNextInstruction(p, hp1) then
                  Begin
                  Begin
@@ -1948,7 +1949,10 @@ End.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.9  2000-08-05 13:33:08  peter
+  Revision 1.10  2000-08-18 10:09:13  jonas
+    * fix for web bug1099 (merged from fixes branch)
+
+  Revision 1.9  2000/08/05 13:33:08  peter
     * $ifdef go32v2 -> target_info.target=go32v2
     * $ifdef go32v2 -> target_info.target=go32v2
 
 
   Revision 1.8  2000/08/05 10:35:51  jonas
   Revision 1.8  2000/08/05 10:35:51  jonas