瀏覽代碼

* don't firstpass typen

peter 22 年之前
父節點
當前提交
1bfa0a6ba3
共有 1 個文件被更改,包括 6 次插入2 次删除
  1. 6 2
      compiler/ncal.pas

+ 6 - 2
compiler/ncal.pas

@@ -2110,7 +2110,8 @@ type
          { if this is a call to a method calc the registers }
          if (methodpointer<>nil) then
            begin
-              firstpass(methodpointer);
+              if methodpointer.nodetype<>typen then
+                firstpass(methodpointer);
 
               { if we are calling the constructor }
               if procdefinition.proctypeoption in [potype_constructor] then
@@ -2371,7 +2372,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.136  2003-04-11 15:51:04  peter
+  Revision 1.137  2003-04-11 16:02:05  peter
+    * don't firstpass typen
+
+  Revision 1.136  2003/04/11 15:51:04  peter
     * support subscript,vec for setting methodpointer varstate
 
   Revision 1.135  2003/04/10 17:57:52  peter