Should be fixed after: 2008-06-18 07:27 UTC-0430 Ron Pinkas <ron/at/
xharbour.com>
On Jun 18, 2008, at 4:39 AM, Ron Pinkas wrote:
> 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
>
-------------------------------------------------------------------------
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
