From df07c64f1fda8cc644bdc934bc6433f49c2e63ab Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 24 May 2003 17:15:24 +0000
Subject: [PATCH]   * added missing firstpass for withrefnode

---
 compiler/nmem.pas | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/compiler/nmem.pas b/compiler/nmem.pas
index 788f455d01..ba8f6b677c 100644
--- a/compiler/nmem.pas
+++ b/compiler/nmem.pas
@@ -862,6 +862,18 @@ implementation
            registersmmx:=left.registersmmx;
 {$endif SUPPORT_MMX}
          end;
+        if assigned(withrefnode) then
+          begin
+            firstpass(withrefnode);
+            if withrefnode.registers32 > registers32 then
+              registers32:=withrefnode.registers32;
+            if withrefnode.registersfpu > registersfpu then
+              registers32:=withrefnode.registersfpu;
+{$ifdef SUPPORT_MMX}
+            if withrefnode.registersmmx > registersmmx then
+              registersmmx:=withrefnode.registersmmx;
+{$endif SUPPORT_MMX}
+          end;
       end;
 
 
@@ -885,7 +897,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.54  2003-05-11 14:45:12  peter
+  Revision 1.55  2003-05-24 17:15:24  jonas
+    * added missing firstpass for withrefnode
+
+  Revision 1.54  2003/05/11 14:45:12  peter
     * tloadnode does not support objectsymtable,withsymtable anymore
     * withnode cleanup
     * direct with rewritten to use temprefnode