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

+ write the inlinenumber of inline nodes in the node tree

Browse Source 
git-svn-id: trunk@35764 -
This commit is contained in:
nickysn 2017-04-10 14:54:50 +00:00
parent d8406c4227
commit 8d885ffde6
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ninl.pas
View File

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