From 75b147ba60c158613567dc5b9e4c2c4b7ef7df64 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 15 Jun 2003 16:47:33 +0000
Subject: [PATCH]   * fixed revious commit

---
 compiler/ncal.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/compiler/ncal.pas b/compiler/ncal.pas
index 885636f8f3..fa946454a2 100644
--- a/compiler/ncal.pas
+++ b/compiler/ncal.pas
@@ -2233,6 +2233,7 @@ type
         result := fen_false;
         if (n.nodetype = calln) or
            ((n.nodetype = loadn) and
+            (tloadnode(n).symtableentry.typ = varsym) and
             (vo_is_thread_var in tvarsym(tloadnode(n).symtableentry).varoptions)) then
           { stop when we encounter a call node }
           result := fen_norecurse_true;
@@ -2634,7 +2635,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.170  2003-06-15 15:10:57  jonas
+  Revision 1.171  2003-06-15 16:47:33  jonas
+    * fixed revious commit
+
+  Revision 1.170  2003/06/15 15:10:57  jonas
     * callparatemp fix: if a threadvar is a parameter, that paramter also
       does a call