|
From: Martin R. <ru...@us...> - 2004-08-10 01:05:21
|
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); |