paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 18:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed revious commit

Browse Source
This commit is contained in:
Jonas Maebe 2003-06-15 16:47:33 +00:00
parent d3e2da6e89
commit 75b147ba60
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncal.pas
View File

@ -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