فهرست منبع

* Print unit name, flush output in status messages

Michaël Van Canneyt 6 ماه پیش
والد
کامیت
1ef1481488
1فایلهای تغییر یافته به همراه2 افزوده شده و 1 حذف شده
  1. 2 1
      compiler/comphook.pas

+ 2 - 1
compiler/comphook.pas

@@ -250,9 +250,10 @@ begin
         (status.currentline mod 100=0) then
         (status.currentline mod 100=0) then
        begin
        begin
          if status.currentline>0 then
          if status.currentline>0 then
-           Write(status.currentline,' ');
+           Write(status.currentmodule,':',status.currentline,' ');
          hstatus:=GetFPCHeapStatus;
          hstatus:=GetFPCHeapStatus;
          WriteLn(DStr(hstatus.CurrHeapUsed shr 10),'/',DStr(hstatus.CurrHeapSize shr 10),' Kb Used');
          WriteLn(DStr(hstatus.CurrHeapUsed shr 10),'/',DStr(hstatus.CurrHeapSize shr 10),' Kb Used');
+         flush(output);
        end;
        end;
    end;
    end;
 {$ifdef macos}
 {$ifdef macos}