+ write the inlinenumber of inline nodes in the node tree

git-svn-id: trunk@35764 -

compiler/ninl.pas

@@ -38,6 +38,7 @@ interface
           constructor ppuload(t:tnodetype;ppufile:tcompilerppufile);override;
           procedure ppuwrite(ppufile:tcompilerppufile);override;
           function dogetcopy : tnode;override;
+          procedure printnodeinfo(var t : text);override;
           function pass_1 : tnode;override;
           function pass_typecheck:tnode;override;
           function simplify(forinline : boolean): tnode;override;
@@ -178,6 +179,13 @@ implementation
       end;
 
 
+    procedure tinlinenode.printnodeinfo(var t : text);
+      begin
+        inherited;
+        write(t,', inlinenumber = ',inlinenumber);
+      end;
+
+
     function get_str_int_func(def: tdef): string;
     var
       ordtype: tordtype;