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

+ when the -vp option is specified, also print the node tree in tree.log right

Browse Source 
before pass 2, since there are now quite a lot of changes to the tree
  happening after pass 1.

git-svn-id: trunk@34606 -
This commit is contained in:
nickysn 2016-10-03 14:15:59 +00:00
parent 59246b402c
commit cc234e7de9
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/psub.pas
View File

@ -1477,6 +1477,10 @@ implementation
code of the ppc (and possibly other processors) } code of the ppc (and possibly other processors) }
procdef.init_paraloc_info(callerside); procdef.init_paraloc_info(callerside);
{ Print the node to tree.log }
if paraprintnodetree=1 then
printproc( 'right before code generation');
{ generate code for the node tree } { generate code for the node tree }
do_secondpass(code); do_secondpass(code);
aktproccode.concatlist(current_asmdata.CurrAsmList); aktproccode.concatlist(current_asmdata.CurrAsmList);