paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 19:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* callparatemp fix: if a threadvar is a parameter, that paramter also

Browse Source 
does a call
This commit is contained in:
Jonas Maebe 2003-06-15 15:10:57 +00:00
parent 6c1aa22a89
commit 4e7fac9e7e
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncal.pas
View File

@ -2231,7 +2231,9 @@ type
function tree_contains_function_call(var n: tnode): foreachnoderesult;
begin
result := fen_false;
if n.nodetype = calln then
if (n.nodetype = calln) or
((n.nodetype = loadn) and
(vo_is_thread_var in tvarsym(tloadnode(n).symtableentry).varoptions)) then
{ stop when we encounter a call node }
result := fen_norecurse_true;
end;
@ -2632,7 +2634,11 @@ begin
end.
{
$Log$
Revision 1.169 2003-06-13 21:19:30 peter
Revision 1.170 2003-06-15 15:10:57 jonas
* callparatemp fix: if a threadvar is a parameter, that paramter also
does a call
Revision 1.169 2003/06/13 21:19:30 peter
* current_procdef removed, use current_procinfo.procdef instead
Revision 1.168 2003/06/08 20:01:53 jonas