paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 10:26:04 +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 printnodeindent;
procedure printnodeunindent; procedure printnodeunindent;
procedure printnode(var t:text;n:tnode); procedure printnode(var t:text;n:tnode);
procedure printnode(n:tnode);
function is_constnode(p : tnode) : boolean; function is_constnode(p : tnode) : boolean;
function is_constintnode(p : tnode) : boolean; function is_constintnode(p : tnode) : boolean;
@ -628,6 +629,12 @@ implementation
end; end;
procedure printnode(n:tnode);
begin
printnode(output,n);
end;
function is_constnode(p : tnode) : boolean; function is_constnode(p : tnode) : boolean;
begin begin
is_constnode:=(p.nodetype in [niln,ordconstn,realconstn,stringconstn,setconstn,guidconstn]); is_constnode:=(p.nodetype in [niln,ordconstn,realconstn,stringconstn,setconstn,guidconstn]);