paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 04:18:31 +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
begin
if status.currentline>0 then
Write(status.currentline,' ');
Write(status.currentmodule,':',status.currentline,' ');
hstatus:=GetFPCHeapStatus;
WriteLn(DStr(hstatus.CurrHeapUsed shr 10),'/',DStr(hstatus.CurrHeapSize shr 10),' Kb Used');
flush(output);
end;
end;
{$ifdef macos}