소스 검색

* added missing firstpass for withrefnode

Jonas Maebe 22 년 전
부모
커밋
df07c64f1f
1개의 변경된 파일16개의 추가작업 그리고 1개의 파일을 삭제
  1. 16 1
      compiler/nmem.pas

+ 16 - 1
compiler/nmem.pas

@@ -862,6 +862,18 @@ implementation
            registersmmx:=left.registersmmx;
            registersmmx:=left.registersmmx;
 {$endif SUPPORT_MMX}
 {$endif SUPPORT_MMX}
          end;
          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;
       end;
 
 
 
 
@@ -885,7 +897,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $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
     * tloadnode does not support objectsymtable,withsymtable anymore
     * withnode cleanup
     * withnode cleanup
     * direct with rewritten to use temprefnode
     * direct with rewritten to use temprefnode