paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ print addrnodeflags in printnodeinfo

Browse Source 
git-svn-id: trunk@38678 -
This commit is contained in:
nickysn 2018-04-04 12:48:52 +00:00
parent dadd5568db
commit 4a3a64d8f4
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/nmem.pas
View File

@ -87,6 +87,7 @@ interface
procedure mark_write;override;
procedure buildderefimpl;override;
procedure derefimpl;override;
procedure printnodeinfo(var t: text); override;
function docompare(p: tnode): boolean; override;
function dogetcopy : tnode;override;
function pass_1 : tnode;override;
@ -476,6 +477,27 @@ implementation
end;
procedure taddrnode.printnodeinfo(var t: text);
var
first: Boolean;
i: taddrnodeflag;
begin
inherited printnodeinfo(t);
write(t,', addrnodeflags = [');
first:=true;
for i:=low(taddrnodeflag) to high(taddrnodeflag) do
if i in addrnodeflags then
begin
if not first then
write(t,',')
else
first:=false;
write(t,i);
end;
write(t,']');
end;
function taddrnode.docompare(p: tnode): boolean;
begin
result:=