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

fcl/tests/list.pp

@@ -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

fcl/tests/stringl.pp

@@ -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