Răsfoiți Sursa

Fix compilation error with -dHEAPTRC

git-svn-id: trunk@22382 -
pierre 13 ani în urmă
părinte
comite
9c7ea2e5a1
1 a modificat fișierele cu 2 adăugiri și 2 ștergeri
  1. 2 2
      compiler/finput.pas

+ 2 - 2
compiler/finput.pas

@@ -545,7 +545,7 @@ uses
          cacheindex:=last_ref_index;
          cacheindex:=last_ref_index;
          cacheinputfile:=f;
          cacheinputfile:=f;
 {$ifdef heaptrc}
 {$ifdef heaptrc}
-         ppheap_register_file(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}
       end;
       end;
 
 
@@ -642,7 +642,7 @@ uses
            begin
            begin
              exefilename:=p+OutputFileName;
              exefilename:=p+OutputFileName;
              sharedlibfilename:=p+OutputFileName;
              sharedlibfilename:=p+OutputFileName;
-             n:=ChangeFileExt(OutputFileName,''); { for mapfilename and dbgfilename } 
+             n:=ChangeFileExt(OutputFileName,''); { for mapfilename and dbgfilename }
            end
            end
          else
          else
            begin
            begin