瀏覽代碼

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