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

Allow compilation of ppudump with -dHEAPTRC command line option

Browse Source 
git-svn-id: trunk@22422 -
This commit is contained in:
pierre 2012-09-19 07:08:35 +00:00
parent e2e4634295
commit de2543f2bd
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/finput.pas
View File

@ -166,10 +166,12 @@ implementation
uses
SysUtils,
Comphook,
{$ifndef GENERIC_CPU}
{$ifdef heaptrc}
fmodule,
ppheap,
{$endif heaptrc}
{$endif not GENERIC_CPU}
cfileutl,
Globals,Systems
;
@ -544,9 +546,11 @@ uses
{ update cache }
cacheindex:=last_ref_index;
cacheinputfile:=f;
{$ifndef GENERIC_CPU}
{$ifdef heaptrc}
ppheap_register_file(f.path+f.name,current_module.unit_index*100000+f.ref_index);
{$endif heaptrc}
{$endif not GENERIC_CPU}
end;