Miguel,
Here is the reduced sample:
//------------------------------------------------//
PROCEDURE Main()
LOCAl cVar := "Test"
CloseAreas( { Upper( cVar ) } )
RETURN
PROCEDURE CloseAreas( aAlias )
AEval( aAlias, {|c| QOut(c) } )
ASize( aAlias, 0 )
RETURN
//------------------------------------------------//
Ron
On Jun 18, 2008, at 4:09 AM, Miguel Angel Marchuet wrote:
> 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
>
-------------------------------------------------------------------------
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
