paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 07:38:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ printnode shortcut for lazy people

Browse Source 
git-svn-id: trunk@8501 -
This commit is contained in:
florian 2007-09-16 10:47:28 +00:00
parent abfdda6129
commit b4da246668
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/node.pas
View File

@ -457,6 +457,7 @@ interface
procedure printnodeindent;
procedure printnodeunindent;
procedure printnode(var t:text;n:tnode);
procedure printnode(n:tnode);
function is_constnode(p : tnode) : boolean;
function is_constintnode(p : tnode) : boolean;
@ -628,6 +629,12 @@ implementation
end;
procedure printnode(n:tnode);
begin
printnode(output,n);
end;
function is_constnode(p : tnode) : boolean;
begin
is_constnode:=(p.nodetype in [niln,ordconstn,realconstn,stringconstn,setconstn,guidconstn]);