Browse Source

* fixed revious commit

Jonas Maebe 22 years ago
parent
commit
75b147ba60
1 changed files with 5 additions and 1 deletions
  1. 5 1
      compiler/ncal.pas

+ 5 - 1
compiler/ncal.pas

@@ -2233,6 +2233,7 @@ type
         result := fen_false;
         result := fen_false;
         if (n.nodetype = calln) or
         if (n.nodetype = calln) or
            ((n.nodetype = loadn) and
            ((n.nodetype = loadn) and
+            (tloadnode(n).symtableentry.typ = varsym) and
             (vo_is_thread_var in tvarsym(tloadnode(n).symtableentry).varoptions)) then
             (vo_is_thread_var in tvarsym(tloadnode(n).symtableentry).varoptions)) then
           { stop when we encounter a call node }
           { stop when we encounter a call node }
           result := fen_norecurse_true;
           result := fen_norecurse_true;
@@ -2634,7 +2635,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $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
     * callparatemp fix: if a threadvar is a parameter, that paramter also
       does a call
       does a call