From b899ea54691fe46dd9420ef81dcefe710a2ca46f Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Sat, 26 Apr 2003 20:03:49 +0000
Subject: [PATCH]   * Bug fix in simplify

---
 compiler/rgobj.pas | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/compiler/rgobj.pas b/compiler/rgobj.pas
index b81e40e584..128bb39ce4 100644
--- a/compiler/rgobj.pas
+++ b/compiler/rgobj.pas
@@ -1523,13 +1523,19 @@ unit rgobj;
       for i:=1 to length(simplifyworklist) do
         begin
           adj:=igraph.adjlist[Tsuperregister(simplifyworklist[i])];
-          if (adj<>nil) and (length(adj^)<min) then
+          if adj=nil then
             begin
-              min:=length(adj^);
-              if min=0 then
-                break;  {We won't find smaller ones.}
-              p:=i;
-            end;
+              min:=0;
+              break;  {We won't find smaller ones.}
+            end
+          else
+            if length(adj^)<min then
+              begin
+                min:=length(adj^);
+                if min=0 then
+                  break;  {We won't find smaller ones.}
+                p:=i;
+              end;
         end;
       n:=Tsuperregister(simplifyworklist[p]);
       delete(simplifyworklist,p,1);
@@ -2016,7 +2022,10 @@ end.
 
 {
   $Log$
-  Revision 1.41  2003-04-25 20:59:35  peter
+  Revision 1.42  2003-04-26 20:03:49  daniel
+    * Bug fix in simplify
+
+  Revision 1.41  2003/04/25 20:59:35  peter
     * removed funcretn,funcretsym, function result is now in varsym
       and aliases for result and function name are added using absolutesym
     * vs_hidden parameter for funcret passed in parameter