[foo-cvs] fooelk/src type.c,1.1.1.1,1.2

[Martin R. <ru...@us...>]

Update of /cvsroot/foo/fooelk/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13383

Modified Files:
	type.c 
Log Message:
with some luck: fixed bug which led to garbage collector crashes

Index: type.c
===================================================================
RCS file: /cvsroot/foo/fooelk/src/type.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** type.c	6 Aug 2004 20:56:42 -0000	1.1.1.1
--- type.c	7 Aug 2004 00:26:42 -0000	1.2
***************
*** 106,110 ****
      char *p;
  
!     Num_Types = (sizeof(builtin_types) - 1) / sizeof(char *);
      Max_Type = Num_Types + TYPE_GROW;
      bytes = Max_Type * sizeof(TYPEDESCR);
--- 106,116 ----
      char *p;
  
!     /* may be the next line led to the GC crash (both sc and gen).
!      * the first Define_Type gets 22, which is T_Broken_Heart
!      * (according to include/object.h).  crashes sc immediately and
!      * gen later, but only if objects of that first defined type are
!      * actually created */
!     /* Num_Types = (sizeof(builtin_types) - 1) / sizeof(char *); */
!     Num_Types = sizeof(builtin_types) / sizeof(char *);
      Max_Type = Num_Types + TYPE_GROW;
      bytes = Max_Type * sizeof(TYPEDESCR);