Browse Source

* the on statement has to clear the temp. gen before calling secondpass for
the next on statement

florian 25 years ago
parent
commit
e2eba0de14
1 changed files with 10 additions and 3 deletions
  1. 10 3
      compiler/cg386flw.pas

+ 10 - 3
compiler/cg386flw.pas

@@ -1054,7 +1054,10 @@ do_jmp:
          flowcontrol:=oldflowcontrol+flowcontrol;
          { next on node }
          if assigned(p^.left) then
-           secondpass(p^.left);
+           begin
+              cleartempgen;
+              secondpass(p^.left);
+           end;
       end;
 
 {*****************************************************************************
@@ -1231,7 +1234,11 @@ do_jmp:
 end.
 {
   $Log$
-  Revision 1.74  2000-05-09 19:05:56  florian
+  Revision 1.75  2000-07-06 20:43:44  florian
+    * the on statement has to clear the temp. gen before calling secondpass for
+      the next on statement
+
+  Revision 1.74  2000/05/09 19:05:56  florian
     * fixed a problem when returning int64/qword from a function in -Or: in some
       cases a wrong result was returned
 
@@ -1335,4 +1342,4 @@ end.
 
   Revision 1.47  1999/08/25 11:59:42  jonas
     * changed pai386, paippc and paiapha (same for tai*) to paicpu (taicpu)
-}
+}