Преглед изворни кода

* Write interference graphs to the unit output directory.

Yuriy Sydorov пре 3 година
родитељ
комит
d0cc649428
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      compiler/rgobj.pas

+ 1 - 1
compiler/rgobj.pas

@@ -762,7 +762,7 @@ unit rgobj;
     var f:text;
     var f:text;
         i,j:cardinal;
         i,j:cardinal;
     begin
     begin
-      assign(f,current_procinfo.procdef.mangledname+'_igraph'+tostr(loopidx));
+      assign(f,outputunitdir+current_procinfo.procdef.mangledname+'_igraph'+tostr(loopidx));
       rewrite(f);
       rewrite(f);
       writeln(f,'Interference graph of ',current_procinfo.procdef.fullprocname(true));
       writeln(f,'Interference graph of ',current_procinfo.procdef.fullprocname(true));
       writeln(f,'Register type: ',regtype,', First imaginary register is ',first_imaginary,' ($',hexstr(first_imaginary,2),')');
       writeln(f,'Register type: ',regtype,', First imaginary register is ',first_imaginary,' ($',hexstr(first_imaginary,2),')');