paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 04:51:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* sb removed legacymem. Fixed with getfpcheapstatus. Now 1.9.9 only

Browse Source
This commit is contained in:
marco 2005-03-20 12:46:55 +00:00
parent 5c047389a6
commit d0582f4d3e
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fcl/tests/list.pp
View File

@ -1,6 +1,6 @@
Program TestList;
Uses classes,legacymem;
Uses classes;
const a1 : pchar = '0';
a2 : pchar = '1';
@ -27,7 +27,7 @@ end;
Procedure DumpMem;
begin
Writeln (' usedbytes : ',getusedbytes,' (=',getusedbytes-StartMem,' Bytes lost).')
Writeln (' usedbytes : ',getfpcheapstatus.currheapused,' (=',getfpcheapstatus.currheapused-StartMem,' Bytes lost).')
end;
Procedure DumpList;
@ -46,7 +46,7 @@ end;
begin
StartMem:=getusedbytes;
StartMem:=getfpcheapstatus.currheapused;
Writeln ('Creating List');
List:=TList.Create;
DumpList;
@ -97,7 +97,10 @@ begin
List.Free;
DumpMem;
end. $Log$
end. Revision 1.5 2005-03-16 13:30:17 marco
end. Revision 1.6 2005-03-20 12:46:55 marco
end. * sb removed legacymem. Fixed with getfpcheapstatus. Now 1.9.9 only
end.
end. Revision 1.5 2005/03/16 13:30:17 marco
end. * fixed with legacymem (I hope)
end.
end. Revision 1.4 2005/02/14 17:13:18 peter

11
fcl/tests/stringl.pp
View File

@ -1,6 +1,6 @@
program teststrings;
Uses classes,sysutils,Legacymem;
Uses classes,sysutils;
Procedure DoRef (P : Pointer);
@ -70,14 +70,17 @@ end;
Var Data : longint;
t : THeapStatus;
begin
Data:=getusedbytes;
Data:=getfpcheapstatus.currheapused;
test;
Writeln ('Lost ',getusedbytes-data);
Writeln ('Lost ',getfpcheapstatus.currheapused-data);
end.
{
$Log$
Revision 1.5 2005-03-16 13:30:17 marco
Revision 1.6 2005-03-20 12:46:55 marco
* sb removed legacymem. Fixed with getfpcheapstatus. Now 1.9.9 only
Revision 1.5 2005/03/16 13:30:17 marco
* fixed with legacymem (I hope)
Revision 1.4 2005/02/14 17:13:18 peter