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

* more informative printnode* output for temp-related nodes

Browse Source 
git-svn-id: trunk@702 -
This commit is contained in:
Jonas Maebe 2005-07-19 14:59:04 +00:00
parent f6d81823cb
commit 255855b5d9
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/nbas.pas
View File

@ -143,6 +143,7 @@ interface
function det_resulttype : tnode; override;
procedure mark_write;override;
function docompare(p: tnode): boolean; override;
procedure printnodedata(var t:text);override;
protected
tempinfo: ptempinfo;
offset : longint;
@ -165,6 +166,7 @@ interface
function det_resulttype: tnode; override;
function docompare(p: tnode): boolean; override;
destructor destroy; override;
procedure printnodedata(var t:text);override;
protected
tempinfo: ptempinfo;
release_to_normal : boolean;
@ -782,7 +784,7 @@ implementation
procedure ttempcreatenode.printnodedata(var t:text);
begin
inherited printnodedata(t);
writeln(t,printnodeindention,'size = ',size);
writeln(t,printnodeindention,'size = ',size,', temprestype = "',tempinfo^.restype.def.gettypename,'", tempinfo = $',hexstr(ptruint(tempinfo),sizeof(ptruint)*2));
end;
@ -832,6 +834,9 @@ implementation
n.tempinfo := tempinfo;
end;
if not assigned(n.tempinfo) then
internalerror(2005071901);
result := n;
end;
@ -910,6 +915,12 @@ implementation
include(flags,nf_write);
end;
procedure ttemprefnode.printnodedata(var t:text);
begin
inherited printnodedata(t);
writeln(t,printnodeindention,'temprestype = "',tempinfo^.restype.def.gettypename,'", tempinfo = $',hexstr(ptruint(tempinfo),sizeof(ptruint)*2));
end;
{*****************************************************************************
TEMPDELETENODE
@ -1013,6 +1024,12 @@ implementation
dispose(tempinfo);
end;
procedure ttempdeletenode.printnodedata(var t:text);
begin
inherited printnodedata(t);
writeln(t,printnodeindention,'release_to_normal: ',release_to_normal,', temprestype = "',tempinfo^.restype.def.gettypename,'", tempinfo = $',hexstr(ptruint(tempinfo),sizeof(ptruint)*2));
end;
begin
cnothingnode:=tnothingnode;
cerrornode:=terrornode;