Miguel,
And additional information you should consider is that STRING items
are NOT managed by GC at all.
Ron
On Jun 17, 2008, at 8:45 AM, Ron Pinkas wrote:
> Miguel,
>
> What do you mean by "But in some cases"?
>
> I don't get any memory leak in your example.
>
> Ron
>
> On Jun 17, 2008, at 4:56 AM, Miguel Angel Marchuet wrote:
>
>> With this example hou can see how we lost 2 blocks for each new alias
>> and at the end of aplication vm_quit shows memory leaks.
>>
>> It's normal. But at wm_quit not always free this blocks.
>>
>> When I execute this example shows loosted blocks, that are released
>> normally at wm_Quit. But in some cases :
>>
>> Total 2242174 allocations (36126 reallocation), of which 2241906
>> freed.
>> Highest total allocated 9951471 bytes in 93311 blocks.
>> WARNING! Memory allocated but not released: 1943 bytes (268 blocks)
>> source\vm\fm.c:971: HB_TR_ERROR Block 1 0240FDFC (size 10)
>> CNUEVOALIAS(855), "RMCLCA001."
>> source\vm\fm.c:971: HB_TR_ERROR Block 2 023430D4 (size 4)
>> CNUEVOALIAS(855), "01000000"
>> source\vm\fm.c:971: HB_TR_ERROR Block 3 021D46A4 (size 10)
>> CNUEVOALIAS(855), "RMCLDE001."
>> source\vm\fm.c:971: HB_TR_ERROR Block 4 023A9A5C (size 4)
>> CNUEVOALIAS(855), "01000000"
>> source\vm\fm.c:971: HB_TR_ERROR Block 5 019A155C (size 10)
>> CNUEVOALIAS(855), "RMCLEX001."
>> source\vm\fm.c:971: HB_TR_ERROR Block 6 023A93A4 (size 4)
>> CNUEVOALIAS(855), "01000000"
>> source\vm\fm.c:971: HB_TR_ERROR Block 7 019A09B4 (size 10)
>> CNUEVOALIAS(855), "RMPRCA001."
>> source\vm\fm.c:971: HB_TR_ERROR Block 8 02343684 (size 4)
>> CNUEVOALIAS(855), "01000000"
>> source\vm\fm.c:971: HB_TR_ERROR Block 9 0199C95C (size 10)
>> CNUEVOALIAS(855), "RMPRDE001."
>> source\vm\fm.c:971: HB_TR_ERROR Block 10 024037FC (size 4)
>> CNUEVOALIAS(855), "01000000"
>> source\vm\fm.c:971: HB_TR_ERROR Block 11 0210397C (size 10)
>> CNUEVOALIAS(855), "RMPREX001."
>> source\vm\fm.c:971: HB_TR_ERROR Block 12 023768AC (size 4)
>> CNUEVOALIAS(855), "01000000"
>> source\vm\fm.c:971: HB_TR_ERROR Block 13 02162904 (size 10)
>> CNUEVOALIAS(855), "CLIENT001."
>> source\vm\fm.c:971: HB_TR_ERROR Block 14 0237619C (size 4)
>> CNUEVOALIAS(855), "01000000"
>> source\vm\fm.c:971: HB_TR_ERROR Block 15 0232AFEC (size 10)
>> CNUEVOALIAS(855), "PROVEE001."
>> source\vm\fm.c:971: HB_TR_ERROR Block 16 019B3B0C (size 4)
>> CNUEVOALIAS(855), "01000000"
>> source\vm\fm.c:971: HB_TR_ERROR Block 17 01997074 (size 10)
>> CNUEVOALIAS(855), "ARTICU001."
>>
>>
>> //-------------------------------------------------------------------
>> -
>> ---//
>> // Sample
>> //-------------------------------------------------------------------
>> -
>> ---//
>>
>> #include "hbmemory.ch"
>> PROCEDURE Main()
>> LOCAL n
>>
>> REQUEST HB_GT_WIN
>>
>> DBCREATE( 'TEST', {{'TEST','C',1,0}} )
>>
>> ? 'Used blocks 1 -> ' + AllTrim( Str( Memory( HB_MEM_BLOCKS ) ) )
>> FOR N := 1 TO 100
>> DbUseArea( .T.,, 'TEST', cNuevoAlias( 'ACOUNT' ), .T., .T. )
>> NEXT
>> DbCloseAll()
>> HB_GCALL()
>> ? 'Used blocks 2 -> ' + AllTrim( Str( Memory( HB_MEM_BLOCKS ) ) )
>>
>> RETURN
>>
>>
>> #define WIDTH_SUFIX_ALIAS 3
>>
>> // Alias dinamico unico basado en el nombre del DBF
>> FUNCTION cNuevoAlias( cNomDbf )
>>
>> LOCAL cAlias
>> LOCAL cPref := Left( cFileNoExt( cNomDbf ), 8 )
>> LOCAL nArea := 0
>>
>> WHILE .T.
>> cAlias := cPref + StrZero( ++nArea, WIDTH_SUFIX_ALIAS )
>> IF Select( cAlias ) == 0
>> EXIT
>> ENDIF
>> ENDDO
>>
>> RETURN cAlias
>>
>> function cFileNoExt( cPathMask ) // returns the filename without ext
>>
>> local cName := AllTrim( cFileNoPath( cPathMask ) )
>> local n := At( ".", cName )
>>
>> return AllTrim( If( n > 0, Left( cName, n - 1 ), cName ) )
>>
>> function cFileNoPath( cPathMask ) // returns just the filename no
>> path
>>
>> local n := RAt( "\", cPathMask )
>>
>> return Upper( If( n > 0 .and. n < Len( cPathMask ),;
>> Right( cPathMask, Len( cPathMask ) - n ),;
>> If( ( n := At( ":", cPathMask ) ) > 0,;
>> Right( cPathMask, Len( cPathMask ) - n ),;
>> cPathMask ) ) )
>>
>> ---------------------------------------------------------------------
>> -
>> ---
>> 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
