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);
|
