Hi Miguel,

I confirm this crash. I believe it is not because you added some
functionalities in errorsys. 

But if you remove QUIT, then it will not crash, right?

I doubt that this is due to recent changes in hb_vmQuit (Ron?).
--
Andi

On Thu, 24 Apr 2008 09:38:59 +0200
Miguel Angel Marchuet <[EMAIL PROTECTED]> wrote:

> 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

Reply via email to