From 1bfa0a6ba3f1005d090a6893b1f45b51023c571c Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 11 Apr 2003 16:02:05 +0000
Subject: [PATCH]   * don't firstpass typen

---
 compiler/ncal.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/compiler/ncal.pas b/compiler/ncal.pas
index fe0eac4b0d..78c832fc00 100644
--- a/compiler/ncal.pas
+++ b/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