Переглянути джерело

* 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;
         i,j:cardinal;
     begin
-      assign(f,current_procinfo.procdef.mangledname+'_igraph'+tostr(loopidx));
+      assign(f,outputunitdir+current_procinfo.procdef.mangledname+'_igraph'+tostr(loopidx));
       rewrite(f);
       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),')');