paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 15:51:43 +01: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; Program TestList;
Uses classes,legacymem; Uses classes;
const a1 : pchar = '0'; const a1 : pchar = '0';
a2 : pchar = '1'; a2 : pchar = '1';
@ -27,7 +27,7 @@ end;
Procedure DumpMem; Procedure DumpMem;
begin begin
Writeln (' usedbytes : ',getusedbytes,' (=',getusedbytes-StartMem,' Bytes lost).') Writeln (' usedbytes : ',getfpcheapstatus.currheapused,' (=',getfpcheapstatus.currheapused-StartMem,' Bytes lost).')
end; end;
Procedure DumpList; Procedure DumpList;
@ -46,7 +46,7 @@ end;
begin begin
StartMem:=getusedbytes; StartMem:=getfpcheapstatus.currheapused;
Writeln ('Creating List'); Writeln ('Creating List');
List:=TList.Create; List:=TList.Create;
DumpList; DumpList;
@ -97,7 +97,10 @@ begin
List.Free; List.Free;
DumpMem; DumpMem;
end. $Log$ 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. * fixed with legacymem (I hope)
end. end.
end. Revision 1.4 2005/02/14 17:13:18 peter end. Revision 1.4 2005/02/14 17:13:18 peter

11
fcl/tests/stringl.pp
View File

@ -1,6 +1,6 @@
program teststrings; program teststrings;
Uses classes,sysutils,Legacymem; Uses classes,sysutils;
Procedure DoRef (P : Pointer); Procedure DoRef (P : Pointer);
@ -70,14 +70,17 @@ end;
Var Data : longint; Var Data : longint;
t : THeapStatus; t : THeapStatus;
begin begin
Data:=getusedbytes; Data:=getfpcheapstatus.currheapused;
test; test;
Writeln ('Lost ',getusedbytes-data); Writeln ('Lost ',getfpcheapstatus.currheapused-data);
end. end.
{ {
$Log$ $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) * fixed with legacymem (I hope)
Revision 1.4 2005/02/14 17:13:18 peter Revision 1.4 2005/02/14 17:13:18 peter