How to reproduce a memory leak:
but if you comment ASize( aAlias, 0 ), no memory leaks.
I can't reduce it any more. :)
//------------------------------------------------------//
PROCEDURE Main()
REQUEST HB_GT_WIN
DBCREATE( 'TEST', {{'TEST','C',1,0}} )
DbUseArea( .T.,, 'TEST',, .T. )
CloseAreas( { Alias() } )
RETURN
PROCEDURE CloseAreas( aAlias )
AEval( aAlias, {|c| If( Select( c ) = 0, , (c)->( DbCloseArea() ) ) } )
ASize( aAlias, 0 )
RETURN
//------------------------------------------------------//
Best regards,
Miguel Angel Marchuet
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
