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

* fixed with legacymem (I hope)

Browse Source
This commit is contained in:
marco 2005-03-16 13:30:17 +00:00
parent 25b8d4ac98
commit 1ff1277886
2 changed files with 19 additions and 11 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;
Uses classes,legacymem;
const a1 : pchar = '0';
a2 : pchar = '1';
@ -27,7 +27,7 @@ end;
Procedure DumpMem;
begin
Writeln (' Memavail : ',memavail,' (=',StartMem-Memavail,' Bytes lost).')
Writeln (' usedbytes : ',getusedbytes,' (=',getusedbytes-StartMem,' Bytes lost).')
end;
Procedure DumpList;
@ -46,7 +46,7 @@ end;
begin
StartMem:=Memavail;
StartMem:=getusedbytes;
Writeln ('Creating List');
List:=TList.Create;
DumpList;
@ -97,7 +97,10 @@ begin
List.Free;
DumpMem;
end. $Log$
end. Revision 1.4 2005-02-14 17:13:18 peter
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
end. * truncate log
end.
}

19
fcl/tests/stringl.pp
View File

@ -1,6 +1,6 @@
program teststrings;
Uses classes,sysutils;
Uses classes,sysutils,Legacymem;
Procedure DoRef (P : Pointer);
@ -68,13 +68,18 @@ begin
end;
Var Data : longint;
t : THeapStatus;
begin
Data:=memavail;
Data:=getusedbytes;
test;
Writeln ('Lost ',Data-Memavail);
end. $Log$
end. Revision 1.4 2005-02-14 17:13:18 peter
end. * truncate log
Writeln ('Lost ',getusedbytes-data);
end.
{
$Log$
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
* truncate log
}