From 7155808570ed8874870961e0e36203dd701a6a8e Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 1 Apr 2013 19:52:39 +0000
Subject: [PATCH] + ttempcreatenode.printnodedata writes tempinitcode node
git-svn-id: trunk@24116 -
---
compiler/nbas.pas | 2 ++
1 file changed, 2 insertions(+)
diff --git a/compiler/nbas.pas b/compiler/nbas.pas
index 2e20605040..a5f1f304cc 100644
--- a/compiler/nbas.pas
+++ b/compiler/nbas.pas
@@ -950,6 +950,8 @@ implementation
inherited printnodedata(t);
writeln(t,printnodeindention,'size = ',size,', temptypedef = ',tempinfo^.typedef.typesymbolprettyname,' = "',
tempinfo^.typedef.GetTypeName,'", tempinfo = $',hexstr(ptrint(tempinfo),sizeof(ptrint)*2));
+ writeln(t,printnodeindention,'tempinit =');
+ printnode(t,tempinfo^.tempinitcode);
end;
{*****************************************************************************