Browse Source

+ ttempcreatenode.printnodedata writes tempinitcode node

git-svn-id: trunk@24116 -
florian 12 years ago
parent
commit
7155808570
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/nbas.pas

+ 2 - 0
compiler/nbas.pas

@@ -950,6 +950,8 @@ implementation
         inherited printnodedata(t);
         inherited printnodedata(t);
         writeln(t,printnodeindention,'size = ',size,', temptypedef = ',tempinfo^.typedef.typesymbolprettyname,' = "',
         writeln(t,printnodeindention,'size = ',size,', temptypedef = ',tempinfo^.typedef.typesymbolprettyname,' = "',
           tempinfo^.typedef.GetTypeName,'", tempinfo = $',hexstr(ptrint(tempinfo),sizeof(ptrint)*2));
           tempinfo^.typedef.GetTypeName,'", tempinfo = $',hexstr(ptrint(tempinfo),sizeof(ptrint)*2));
+        writeln(t,printnodeindention,'tempinit =');
+        printnode(t,tempinfo^.tempinitcode);
       end;
       end;
 
 
 {*****************************************************************************
 {*****************************************************************************