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

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

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

Modified Files:
	type.c 
Log Message:
correct bugfix, which was more like a workaround

Index: type.c
===================================================================
RCS file: /cvsroot/foo/fooelk/src/type.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** type.c	7 Aug 2004 00:26:42 -0000	1.2
--- type.c	10 Aug 2004 01:05:06 -0000	1.3
***************
*** 44,49 ****
      "0unbound", "0special", "0character", "1symbol", "1pair",
      "1environment", "1string", "1vector", "1primitive", "1compound",
!     "1control-point", "1promise", "1port", "0end-of-file", "1autoload",
!     "1macro", "1!!broken-heart!!",
  #ifdef GENERATIONAL_GC
      "0align_8byte", "0freespace",
--- 44,49 ----
      "0unbound", "0special", "0character", "1symbol", "1pair",
      "1environment", "1string", "1vector", "1primitive", "1compound",
!     "1control-point", "1promise", "1port", "0end-of-file", "0unspecified",
!     "1autoload", "1macro", "1!!broken-heart!!",
  #ifdef GENERATIONAL_GC
      "0align_8byte", "0freespace",
***************
*** 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);
--- 106,110 ----
      char *p;
  
!     Num_Types = (sizeof(builtin_types) - 1) / sizeof(char *);
      Max_Type = Num_Types + TYPE_GROW;
      bytes = Max_Type * sizeof(TYPEDESCR);