From 0fd1e94dbb88ed0d4381261f28521a65d6c4f927 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 16 Apr 2000 08:08:44 +0000
Subject: [PATCH]   * release register used in for-loop before end label (for
 better     optimizations)

---
 compiler/cg386flw.pas | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/compiler/cg386flw.pas b/compiler/cg386flw.pas
index bfdae4f85c..92857ef727 100644
--- a/compiler/cg386flw.pas
+++ b/compiler/cg386flw.pas
@@ -367,12 +367,12 @@ implementation
          emitjmp(C_None,l3);
 
          { this is the break label: }
-         emitlab(aktbreaklabel);
          ungetregister32(cmp32);
-
          if temptovalue then
            ungetiftemp(temp1);
 
+         emitlab(aktbreaklabel);
+
          aktcontinuelabel:=oldclabel;
          aktbreaklabel:=oldblabel;
          { a break/continue in a for block can't be seen outside }
@@ -1206,7 +1206,11 @@ do_jmp:
 end.
 {
   $Log$
-  Revision 1.70  2000-02-29 23:58:19  pierre
+  Revision 1.71  2000-04-16 08:08:44  jonas
+    * release register used in for-loop before end label (for better
+      optimizations)
+
+  Revision 1.70  2000/02/29 23:58:19  pierre
     Use $GOTO ON
 
   Revision 1.69  2000/02/10 23:44:42  florian