paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 19:50:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Print unit name, flush output in status messages

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-21 15:57:19 +01:00
parent 065ddfd8d4
commit 1ef1481488
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/comphook.pas
View File

@ -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}