paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:49:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* getheapstatus fix

Browse Source
This commit is contained in:
marco 2004-11-23 09:33:48 +00:00
parent e5e7099892
commit ead19e0780
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
fv/gadgets.pas
View File

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