Ron,
The codes are FWH errorsys. Please compile the following in FWH and let
me know if it works (raise an error dialog):
---8<---
#include "fivewin.ch"
procedure main()
msginfo( 1 + {})
---8<---
--
Andi
On Thu, 24 Apr 2008 06:48:52 -0700
Ron Pinkas <[EMAIL PROTECTED]> wrote:
> X-Mailer: Apple Mail (2.753)
> Message-Id: <[EMAIL PROTECTED]>
>
> 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
