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

* fix tree printing

Browse Source
This commit is contained in:
peter 2004-04-11 12:37:30 +00:00
parent 0690fd145a
commit 2824f0b208
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/psub.pas
View File

@ -992,9 +992,6 @@ implementation
{ Finish type checking pass }
do_resulttypepass(code);
{ Print the node to tree.log }
if paraprintnodetree=1 then
printnode_procdef(procdef);
end;
{ store a copy of the original tree for inline, for
@ -1008,6 +1005,10 @@ implementation
else
procdef.inlininginfo^.code:=code;
{ Print the node to tree.log }
if paraprintnodetree=1 then
printnode_procdef(procdef);
{ ... remove symbol tables }
remove_from_symtablestack;
@ -1345,7 +1346,10 @@ implementation
end.
{
$Log$
Revision 1.186 2004-02-19 17:07:42 florian
Revision 1.187 2004-04-11 12:37:30 peter
* fix tree printing
Revision 1.186 2004/02/19 17:07:42 florian
* fixed arg. area calculation
Revision 1.185 2004/02/08 18:08:59 jonas