we make this at errorsys
for j = 1 to LocalCount( n )
cErrorLog += " Local " + Str( j, 3 ) + ": " + ;
ValType( GetLocal( n, j ) ) + ;
" " + cGetInfo( GetLocal( n, j ) ) + CRLF
next
//----------------------------------------------------------------------------//
// returns extended info for a certain variable type
static function cGetInfo( uVal )
local cType := ValType( uVal )
do case
case cType == "C"
return '"' + cValToChar( uVal ) + '"'
case cType == "O"
return "Class: " + uVal:ClassName()
case cType == "A"
return "Len: " + Str( Len( uVal ), 4 )
otherwise
return cValToChar( uVal )
endcase
return nil
//----------------------------------------------------------------------------//
ant it crasesh now
hb_xfree *pointer*
I think because locals are free yet.
Best regards,
Miguel Angel marchuet
Andi Jahja escribió:
> Hi All,
>
> On RTE, xHarbour generates memory leaks.
> The following is a test prg:
>
> ---8<---
> proc main()
> local a
> ? a + 1
> ---8<---
>
> Commenting QUIT in line 999 of errorsys.prg cures this.
>
> This probably because pFunc() in hvm.c (7492) already set the quit flag
> invoked by errorsys.prg(999), so hb_vmSend() never returns to the caller
> (hb_itemDo in errLaunch) to make a clean-up.
>
> ... or is there other area which should be corrected?
>
> Thanks.
> --
> Andi
>
> -------------------------------------------------------------------------
> 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
>
-------------------------------------------------------------------------
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
