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

* also process methodpointerinit and methodpointerdone fields

Browse Source 
of calln in foreachnode*()

git-svn-id: trunk@2183 -
This commit is contained in:
Jonas Maebe 2006-01-05 16:49:31 +00:00
parent 5e631df4cc
commit 24c3ec1095
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/nutils.pas
View File

@ -110,7 +110,9 @@ implementation
calln: calln:
begin begin
{ not in one statement, won't work because of b- } { not in one statement, won't work because of b- }
result := foreachnode(tcallnode(n).methodpointerinit,f,arg) or result;
result := foreachnode(tcallnode(n).methodpointer,f,arg) or result; result := foreachnode(tcallnode(n).methodpointer,f,arg) or result;
result := foreachnode(tcallnode(n).methodpointerdone,f,arg) or result;
end; end;
ifn, whilerepeatn, forn: ifn, whilerepeatn, forn:
begin begin
@ -148,7 +150,9 @@ implementation
case n.nodetype of case n.nodetype of
calln: calln:
begin begin
result := foreachnodestatic(procmethod,tcallnode(n).methodpointerinit,f,arg) or result;
result := foreachnodestatic(procmethod,tcallnode(n).methodpointer,f,arg) or result; result := foreachnodestatic(procmethod,tcallnode(n).methodpointer,f,arg) or result;
result := foreachnodestatic(procmethod,tcallnode(n).methodpointerdone,f,arg) or result;
end; end;
ifn, whilerepeatn, forn: ifn, whilerepeatn, forn:
begin begin