[Gambas-devel] BUGS

[Fabien Bodard]

There is a series of segmentation fault snapshot

For the major parts there comme from this loop :

PUBLIC SUB ToolButton2_Click()
  DIM s AS String
  DIM hClass AS class
  DIM o AS Object
  o = hReport.Find(tv.Current.key)

  IF IsNull(o) THEN RETURN
  PRINT Object.Class(o)
  hClass = Classes[Object.Class(o)]

  FOR EACH s IN hClass.Symbols
    IF hClass[s].Kind = Class.Property AND s <> "Parent" THEN
      PRINT s
      PRINT s & Object.GetProperty(o, s)
    ENDIF
  NEXT

CATCH
  Message.Error(Subst("&1\n&2\n&3", error.Code, error.text, error.Where))
END

And more precisely on this line :
 PRINT s & Object.GetProperty(o, s)

I know that my line is not perfect... because properties are strings, integer 
but array and object too...
But normally the catch line is sufficient too block these errors.

Sometime the object.GetProperty say me not enouth arguments... how can i give 
arguments ?

I've a stack overflow on some object... but it's mabe in my code...

Regards,
Fabien Bodard
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Fichier texte
Type: text/x-diff
Size: 5475 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/devel/attachments/20051211/d3610c91/attachment.diff>