paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ more verbose printnode for call nodes

Browse Source 
git-svn-id: trunk@4892 -
This commit is contained in:
florian 2006-10-13 21:19:14 +00:00
parent 70d4e58fd6
commit 9288a2f76d
1 changed files with 31 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/ncal.pas
View File

@ -82,9 +82,9 @@ interface
{ the definition of the procedure to call }
procdefinition : tabstractprocdef;
procdefinitionderef : tderef;
{ tree that contains the pointer to the object for this method }
methodpointerinit,
methodpointerdone : tblocknode;
{ tree that contains the pointer to the object for this method }
methodpointer : tnode;
{ varargs parasyms }
varargsparas : tvarargsparalist;
@ -92,7 +92,6 @@ interface
{ that return their result in a parameter }
property funcretnode: tnode read _funcretnode write setfuncretnode;
{ separately specified resulttype for some compilerprocs (e.g. }
{ you can't have a function with an "array of char" resulttype }
{ the RTL) (JM) }
@ -2681,9 +2680,36 @@ type
else
writeln(t,printnodeindention,'proc = <nil>');
end;
printnode(t,methodpointer);
printnode(t,right);
printnode(t,left);
if assigned(methodpointer) then
begin
writeln(t,printnodeindention,'methodpointer =');
printnode(t,methodpointer);
end;
if assigned(methodpointerinit) then
begin
writeln(t,printnodeindention,'methodpointerinit =');
printnode(t,methodpointerinit);
end;
if assigned(methodpointerdone) then
begin
writeln(t,printnodeindention,'methodpointerdone =');
printnode(t,methodpointerdone);
end;
if assigned(right) then
begin
writeln(t,printnodeindention,'right =');
printnode(t,right);
end;
if assigned(left) then
begin
writeln(t,printnodeindention,'left =');
printnode(t,left);
end;
end;