paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:11:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revisions 702 via svnmerge from

Browse Source 
/trunk

git-svn-id: branches/fixes_2_0@703 -
This commit is contained in:
Jonas Maebe 2005-07-19 15:03:00 +00:00
parent ad9e165b0b
commit 7f538af622
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; function det_resulttype : tnode; override;
procedure mark_write;override; procedure mark_write;override;
function docompare(p: tnode): boolean; override; function docompare(p: tnode): boolean; override;
procedure printnodedata(var t:text);override;
protected protected
tempinfo: ptempinfo; tempinfo: ptempinfo;
offset : longint; offset : longint;
@ -165,6 +166,7 @@ interface
function det_resulttype: tnode; override; function det_resulttype: tnode; override;
function docompare(p: tnode): boolean; override; function docompare(p: tnode): boolean; override;
destructor destroy; override; destructor destroy; override;
procedure printnodedata(var t:text);override;
protected protected
tempinfo: ptempinfo; tempinfo: ptempinfo;
release_to_normal : boolean; release_to_normal : boolean;
@ -782,7 +784,7 @@ implementation
procedure ttempcreatenode.printnodedata(var t:text); procedure ttempcreatenode.printnodedata(var t:text);
begin begin
inherited printnodedata(t); 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; end;
@ -832,6 +834,9 @@ implementation
n.tempinfo := tempinfo; n.tempinfo := tempinfo;
end; end;
if not assigned(n.tempinfo) then
internalerror(2005071901);
result := n; result := n;
end; end;
@ -910,6 +915,12 @@ implementation
include(flags,nf_write); include(flags,nf_write);
end; 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 TEMPDELETENODE
@ -1013,6 +1024,12 @@ implementation
dispose(tempinfo); dispose(tempinfo);
end; 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 begin
cnothingnode:=tnothingnode; cnothingnode:=tnothingnode;
cerrornode:=terrornode; cerrornode:=terrornode;