paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 19:49:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* write flags in tnode.printnodeinfo

Browse Source 
git-svn-id: trunk@22072 -
This commit is contained in:
florian 2012-08-13 14:50:37 +00:00
parent 1b10dfbc26
commit dd18d0bd4d
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/node.pas
View File

@ -839,6 +839,9 @@ implementation
procedure tnode.printnodeinfo(var t:text);
var
i : tnodeflag;
first : boolean;
begin
write(t,nodetype2str[nodetype]);
if assigned(resultdef) then
@ -847,7 +850,19 @@ implementation
write(t,', resultdef = <nil>');
write(t,', pos = (',fileinfo.line,',',fileinfo.column,')',
', loc = ',tcgloc2str[location.loc],
', expectloc = ',tcgloc2str[expectloc]);
', expectloc = ',tcgloc2str[expectloc],
', flags = [');
first:=true;
for i:=low(tnodeflag) to high(tnodeflag) do
if i in flags then
begin
if not(first) then
write(',')
else
first:=false;
write(i);
end;
write(']');
end;