+ printnode shortcut for lazy people

git-svn-id: trunk@8501 -

compiler/node.pas

@@ -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]);