From 126f3fa6cfe83bf78e3ffa361bdac9755aa79a25 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 26 Feb 2005 01:23:29 +0000
Subject: [PATCH]   * fixed loop which could go into neverneverland in case of
 embedded     assembler blocks

---
 compiler/i386/daopt386.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/compiler/i386/daopt386.pas b/compiler/i386/daopt386.pas
index b63e11843e..23228fb3e6 100644
--- a/compiler/i386/daopt386.pas
+++ b/compiler/i386/daopt386.pas
@@ -2123,6 +2123,7 @@ begin
         prev := p;
         p := tai(p.next);
       until not(assigned(p)) or
+            (p = blockend) or
             not(p.typ in (skipinstr - [ait_regalloc]));
     end;
 {$ifdef i386}
@@ -2795,7 +2796,11 @@ end.
 
 {
   $Log$
-  Revision 1.81  2005-02-14 17:13:09  peter
+  Revision 1.82  2005-02-26 01:23:29  jonas
+    * fixed loop which could go into neverneverland in case of embedded
+      assembler blocks
+
+  Revision 1.81  2005/02/14 17:13:09  peter
     * truncate log
 
   Revision 1.80  2005/01/03 14:59:28  jonas