فهرست منبع

Allow compilation of ppudump with -dHEAPTRC command line option

git-svn-id: trunk@22422 -
pierre 13 سال پیش
والد
کامیت
de2543f2bd
1فایلهای تغییر یافته به همراه4 افزوده شده و 0 حذف شده
  1. 4 0
      compiler/finput.pas

+ 4 - 0
compiler/finput.pas

@@ -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;