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

* print usedheap when getheapstatus is available

Browse Source
This commit is contained in:
peter 2004-11-29 15:28:39 +00:00
parent bc941c52d6
commit 59052a64b9
1 changed files with 12 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
fv/gadgets.pas
View File

@ -180,28 +180,23 @@ end;
{ Update -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 12Nov99 LdB } { Update -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 12Nov99 LdB }
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
PROCEDURE THeapView.Update; PROCEDURE THeapView.Update;
var
{$ifdef HASGETHEAPSTATUS} {$ifdef HASGETHEAPSTATUS}
var
status : THeapStatus; status : THeapStatus;
newmem : ptrint; {$endif HASGETHEAPSTATUS}
{$else}
newmem : longint;
{$endif}
BEGIN BEGIN
{$ifdef HASGETHEAPSTATUS} {$ifdef HASGETHEAPSTATUS}
getheapstatus(status); GetHeapStatus(status);
If (OldMem <> status.CurrHeapFree) Then If (OldMem <> status.CurrHeapUsed) Then Begin { Memory differs }
Begin { Memory differs } OldMem := status.CurrHeapUsed; { Hold memory avail }
OldMem := status.CurrHeapFree; { Hold memory avail } DrawView; { Now redraw }
DrawView; { Now redraw } End;
End; {$else}
{$else}
If (OldMem <> MemAvail) Then Begin { Memory differs } If (OldMem <> MemAvail) Then Begin { Memory differs }
OldMem := MemAvail; { Hold memory avail } OldMem := MemAvail; { Hold memory avail }
DrawView; { Now redraw } DrawView; { Now redraw }
End; End;
{$endif} {$endif}
END; END;
{--THeapView----------------------------------------------------------------} {--THeapView----------------------------------------------------------------}
@ -321,8 +316,8 @@ END;
END. END.
{ {
$Log$ $Log$
Revision 1.8 2004-11-23 09:33:48 marco Revision 1.9 2004-11-29 15:28:39 peter
* getheapstatus fix * print usedheap when getheapstatus is available
Revision 1.7 2004/11/06 17:08:48 peter Revision 1.7 2004/11/06 17:08:48 peter
* drawing of tview merged from old fv code * drawing of tview merged from old fv code