more simple test to see the problem:
Harbour looses 38.571 Bytes in 9.25 seconds
xHarbour looses 56.956 Bytes in 4.83 seconds
Why Harbour is more slow ?
Why xHarbour loose more memory ?
Why 2 compilers loose memory ?
Best regards,
Miguel Angel Marchuet
#include "hbmemory.ch"
#include "hbclass.ch"
#define MAXTEST 10000
PROCEDURE MAIN()
LOCAL n, ao, nMem, nTime
REQUEST HB_GT_WIN
nTime := Seconds()
nMem := Memory( HB_MEM_USED )
ao := {}
FOR n := 1 TO MAXTEST
aAdd( ao, GetNew( 20, 20 ) )
// Here harbour have a loose of performance. ????
ao[n] := Nil
hb_gcAll( .T. )
? 'Mem used -> ' + AllTrim( Str( Memory( HB_MEM_USED ) ) )
NEXT
ao := nil
hb_gcAll( .T. )
? "We lost " + AllTrim( Str( Memory( HB_MEM_USED ) - nMem ) ) + " Bytes"
? "Elapsed time " + AllTrim( Str( Seconds() - nTime ) )
RETURN
-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
Don't miss this year's exciting event. There's still time to save $100.
Use priority code J8TL2D2.
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
