Miguel, Please provide sources for:
LocaCount() GetLocal() cValToChar() [Miguel, in general it's so much more frustrating trying to review a NON SELF CONTAINED samples. It takes just few seconds to forward a sample that anyone can compile and build, right away, using standatd build files on CVS.] Ron Ron On Apr 24, 2008, at 12:38 AM, Miguel Angel Marchuet 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 >> > > > ---------------------------------------------------------------------- > --- > 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
