reorganized the kernel class table with the index to the superclass slot for bootstrapping of initial class chains

lib/gc.c

@@ -110,57 +110,124 @@ static struct
 struct kernel_class_info_t
 {
 	const hcl_bch_t* name;
+	int superclass_kci;
 	int class_brand;
-	int class_flags;
-	int class_num_classvars;
+	int class_flags; /* class flags for selfspec */
+	int class_ncvars; /* number of class variables */
 
-	int class_spec_named_instvars;
+	int class_spec_nivars; /* number of named instance variables */
 	int class_spec_flags;
 	int class_spec_indexed_type;
 
-	hcl_oow_t  offset;
+	hcl_oow_t  offset; /* offset to the field in hcl_t that stored the class pointer */
 };
 typedef struct kernel_class_info_t kernel_class_info_t;
 
-static kernel_class_info_t kernel_classes[] =
+enum {
+	KCI_APEX = 0,
+	KCI_CLASS,
+	KCI_UNDEFINED_OBJECT,
+	KCI_NIL_OBJECT,
+	KCI_OBJECT,
+	KCI_COLLECTION,
+	KCI_INDEXED_COLLECTION,
+	KCI_FIXED_SIZED_COLLECTION,
+	KCI_STRING,
+	KCI_SYMBOL,
+	KCI_ARRAY,
+	KCI_BYTE_ARRAY,
+	KCI_SYMBOL_TABLE,
+	KCI_DICTIONARY,
+	KCI_CONS,
+	KCI_METHOD_DICTIONARY,
+	KCI_FUNCTION,
+	KCI_COMPILED_BLOCK,
+	KCI_METHOD_CONTEXT,
+	KCI_BLOCK_CONTEXT,
+	KCI_PROCESS,
+	KCI_SEMAPHORE,
+	KCI_SEMAPHORE_GROUP,
+	KCI_PROCESS_SCHEDULER,
+	KCI_ERROR,
+	KCI_TRUE,
+	KCI_FALSE,
+	KCI_MAGNITUDE,
+	KCI_CHARACTER,
+	KCI_NUMBER,
+	KCI_SMALL_INTEGER,
+	KCI_LARGE_POSITIVE_INTEGER,
+	KCI_LARGE_NEGATIVE_INTEGER,
+	KCI_FIXED_POINT_DECIMAL,
+	KCI_SMALL_POINTER,
+	KCI_LARGE_POINTER,
+	KCI_SYSTEM,
+
+	__KCI_MAX__
+};
+#define KCI(x) HCL_AID(x)
+
+static kernel_class_info_t kernel_classes[__KCI_MAX__] =
 {
 	/* --------------------------------------------------------------
 	 * Apex              - proto-object with 1 class variable.
-	 * UndefinedObject - class for the nil object.
+	 *   Class
+	 *   UndefinedObject - class for the undefined state
+     *   NilObject       - class for nil
 	 *   Object          - top of all ordinary objects.
 	 *     String
 	 *       Symbol
 	 *     Array
 	 *     ByteArray
-	 * SymbolSet
 	 *     Character
 	 *     SmallIntger
 	 * -------------------------------------------------------------- */
+	KCI(KCI_APEX) {
+		"Apex",
+		-1, /* no superclass */
+		0, /* brand */
+		0, /* selfspec flags */
+		0, /* ncvars */
+		0, /* nivars */
+		0, /* spec flags */
+		HCL_OBJ_TYPE_OOP, /* indexed type */
+		HCL_OFFSETOF(hcl_t, c_apex)
+	},
 
-	{ "Apex", 0,
-	  0,
-	  0,
-	  0,
-	  0,
-	  HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_apex) },
-
-	{ "UndefinedObject", HCL_BRAND_UNDEF,
-	  0,
-	  0,
-	  0,
-	  0,
-	  HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_undefobj) },
-
-#define KCI_CLASS 2 /* index to the Class entry in this table */
-	{ "Class", HCL_BRAND_CLASS,
+	KCI(KCI_CLASS) {
+		"Class",
+		KCI_APEX,
+		HCL_BRAND_CLASS,
 		HCL_CLASS_SELFSPEC_FLAG_LIMITED,
-	  0,
-	  HCL_CLASS_NAMED_INSTVARS,
+		0, /* ncvars */
+		HCL_CLASS_NAMED_INSTVARS, /* nivars */
 		HCL_CLASS_SPEC_FLAG_INDEXED | HCL_CLASS_SPEC_FLAG_UNCOPYABLE,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_class) },
+		HCL_OFFSETOF(hcl_t, c_class)
+	},
+
+	KCI(KCI_UNDEFINED_OBJECT) {
+		"UndefinedObject",
+		KCI_APEX,
+		HCL_BRAND_UNDEF,
+		0,
+		0,
+		0,
+		0,
+		HCL_OBJ_TYPE_OOP,
+		HCL_OFFSETOF(hcl_t, c_undefobj)
+	},
+
+	KCI(KCI_NIL_OBJECT) {
+		"NilObject",
+		KCI_APEX,
+		HCL_BRAND_NIL,
+		0,
+		0,
+		0,
+		0,
+		HCL_OBJ_TYPE_OOP,
+		HCL_OFFSETOF(hcl_t, c_nilobj)
+	},
 
 #if 0
 	{ "Interface",
@@ -172,72 +239,140 @@ static kernel_class_info_t kernel_classes[] =
 	  HCL_OFFSETOF(hcl_t, _interface) },
 #endif
 
-	{ "Object", 0,
+	KCI(KCI_OBJECT) {
+		"Object",
+		KCI_APEX,
+		0, /* brand */
+		0, /* selfspec flags */
+		0, /* ncvars */
+		0, /* nivars */
+		0, /* spec flags */
+		HCL_OBJ_TYPE_OOP,
+		HCL_OFFSETOF(hcl_t, c_object)
+	},
+
+	KCI(KCI_COLLECTION) {
+		"Collection",
+		KCI_OBJECT,
+		0, /* brand */
 		0,
 		0,
 		0,
 		0,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_object) },
+		HCL_OFFSETOF(hcl_t, c_collection)
+	},
 
-	{ "String", HCL_BRAND_STRING,
+	KCI(KCI_INDEXED_COLLECTION) {
+		"IndexedCollection",
+		KCI_COLLECTION,
+		0, /* brand */
+		0,
+		0,
+		0,
+		0,
+		HCL_OBJ_TYPE_OOP,
+		HCL_OFFSETOF(hcl_t, c_indexed_collection)
+	},
+
+	KCI(KCI_FIXED_SIZED_COLLECTION) {
+		"FixedSizedCollection",
+		KCI_INDEXED_COLLECTION,
+		0, /* brand */
+		0,
+		0,
+		0,
+		0,
+		HCL_OBJ_TYPE_OOP,
+		HCL_OFFSETOF(hcl_t, c_fixed_sized_collection)
+	},
+
+	KCI(KCI_STRING) {
+		"String",
+		KCI_FIXED_SIZED_COLLECTION,
+		HCL_BRAND_STRING,
 		0,
 		0,
 		0,
 		HCL_CLASS_SPEC_FLAG_INDEXED,
 		HCL_OBJ_TYPE_CHAR,
-	  HCL_OFFSETOF(hcl_t, c_string) },
+		HCL_OFFSETOF(hcl_t, c_string)
+	},
 
-	{ "Symbol", HCL_BRAND_SYMBOL,
+	KCI(KCI_SYMBOL) {
+		"Symbol",
+		KCI_STRING,
+		HCL_BRAND_SYMBOL,
 		HCL_CLASS_SELFSPEC_FLAG_FINAL | HCL_CLASS_SELFSPEC_FLAG_LIMITED,
 		0,
 		0,
 		HCL_CLASS_SPEC_FLAG_INDEXED | HCL_CLASS_SPEC_FLAG_IMMUTABLE,
 		HCL_OBJ_TYPE_CHAR,
-	  HCL_OFFSETOF(hcl_t, c_symbol) },
+		HCL_OFFSETOF(hcl_t, c_symbol)
+	},
 
-	{ "Array", HCL_BRAND_ARRAY,
+	KCI(KCI_ARRAY) {
+		"Array",
+		KCI_FIXED_SIZED_COLLECTION,
+		HCL_BRAND_ARRAY,
 		0,
 		0,
 		0,
 		HCL_CLASS_SPEC_FLAG_INDEXED,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_array) },
+		HCL_OFFSETOF(hcl_t, c_array)
+	},
 
-	{ "ByteArray", HCL_BRAND_BYTE_ARRAY,
+	KCI(KCI_BYTE_ARRAY) {
+		"ByteArray",
+		KCI_FIXED_SIZED_COLLECTION,
+		HCL_BRAND_BYTE_ARRAY,
 		0,
 		0,
 		0,
 		HCL_CLASS_SPEC_FLAG_INDEXED,
 		HCL_OBJ_TYPE_BYTE,
-	  HCL_OFFSETOF(hcl_t, c_byte_array) },
+		HCL_OFFSETOF(hcl_t, c_byte_array)
+	},
 
 	/* A special incarnation of a dictionary that allows only a symbol as a value.
 	 * The value in bucket is a symbol while the value in a normal dictionary is a
 	 * pair(cons) that contains a key and a value. */
-	{ "SymbolTable", HCL_BRAND_DIC, /* TODO: make this a special child class of Dictionary?? */
+	KCI(KCI_SYMBOL_TABLE) {
+		"SymbolTable",
+		KCI_COLLECTION,
+		HCL_BRAND_DIC, /* TODO: make this a special child class of Dictionary?? */
 		0,
 		0,
 		HCL_DIC_NAMED_INSTVARS,
 		0,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_symtab) },
+		HCL_OFFSETOF(hcl_t, c_symtab)
+	},
 
-	{ "Dictionary", HCL_BRAND_DIC,
+	KCI(KCI_DICTIONARY) {
+		"Dictionary",
+		KCI_COLLECTION,
+		HCL_BRAND_DIC,
 		0,
 		0,
 		HCL_DIC_NAMED_INSTVARS,
 		0,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_dictionary) },
+		HCL_OFFSETOF(hcl_t, c_dictionary)
+	},
 
-	{ "Cons", HCL_BRAND_CONS,
+	KCI(KCI_CONS) {
+		"Cons",
+		KCI_OBJECT,
+		HCL_BRAND_CONS,
 		0,
 		0,
 		HCL_CONS_NAMED_INSTVARS,
 		0,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_cons) },
+		HCL_OFFSETOF(hcl_t, c_cons)
+	},
 
 #if 0
 	{ "Namespace",
@@ -257,13 +392,17 @@ static kernel_class_info_t kernel_classes[] =
 	  HCL_OFFSETOF(hcl_t, c_pool_dictionary) },
 #endif
 
-	{ "MethodDictionary", 0,
+	KCI(KCI_METHOD_DICTIONARY) {
+		"MethodDictionary",
+		KCI_DICTIONARY,
+		0,
 		0,
 		0,
 		HCL_DIC_NAMED_INSTVARS,
 		0,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_method_dictionary) },
+		HCL_OFFSETOF(hcl_t, c_method_dictionary)
+	},
 
 #if 0
 	{ "CompiledMethod",
@@ -285,13 +424,17 @@ static kernel_class_info_t kernel_classes[] =
 
 	/* special function created with MAKE_FUNCTION in interactive mode
 	 * for execution of code fed and compiled.  */
-	{ "Function", HCL_BRAND_FUNCTION,
+	KCI(KCI_FUNCTION) {
+		"Function",
+		KCI_OBJECT,
+		HCL_BRAND_FUNCTION,
 		0,
 		0,
 		HCL_FUNCTION_NAMED_INSTVARS,
 		HCL_CLASS_SPEC_FLAG_INDEXED,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_function) },
+		HCL_OFFSETOF(hcl_t, c_function)
+	},
 
 #if 0
 	{ "Primitive", HCL_BRAND_PRIM,
@@ -303,152 +446,248 @@ static kernel_class_info_t kernel_classes[] =
 	  HCL_OFFSETOF(hcl_t, c_prim) },
 #endif
 
-	{ "CompiledBlock", HCL_BRAND_BLOCK,
+	KCI(KCI_COMPILED_BLOCK) {
+		"CompiledBlock",
+		KCI_OBJECT,
+		HCL_BRAND_BLOCK,
 		0,
 		0,
 		HCL_BLOCK_NAMED_INSTVARS,
 		0,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_block) },
+		HCL_OFFSETOF(hcl_t, c_block)
+	},
 
-	{ "MethodContext", 0,
+	KCI(KCI_METHOD_CONTEXT) {
+		"MethodContext",
+		KCI_OBJECT,
+		0,
 		HCL_CLASS_SELFSPEC_FLAG_FINAL | HCL_CLASS_SELFSPEC_FLAG_LIMITED,
 		0,
 		HCL_CONTEXT_NAMED_INSTVARS,
 		HCL_CLASS_SPEC_FLAG_INDEXED,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_method_context) },
+		HCL_OFFSETOF(hcl_t, c_method_context)
+	},
 
-	{ "BlockContext", HCL_BRAND_CONTEXT,
+	KCI(KCI_BLOCK_CONTEXT) {
+		"BlockContext",
+		KCI_OBJECT,
+		HCL_BRAND_CONTEXT,
 		HCL_CLASS_SELFSPEC_FLAG_FINAL | HCL_CLASS_SELFSPEC_FLAG_LIMITED,
 		0,
 		HCL_CONTEXT_NAMED_INSTVARS,
 		HCL_CLASS_SPEC_FLAG_INDEXED,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_block_context) },
+		HCL_OFFSETOF(hcl_t, c_block_context)
+	},
 
-	{ "Process", HCL_BRAND_PROCESS,
+	KCI(KCI_PROCESS) {
+		"Process",
+		KCI_OBJECT,
+		HCL_BRAND_PROCESS,
 		HCL_CLASS_SELFSPEC_FLAG_FINAL | HCL_CLASS_SELFSPEC_FLAG_LIMITED,
 		0,
 		HCL_PROCESS_NAMED_INSTVARS,
 		HCL_CLASS_SPEC_FLAG_INDEXED | HCL_CLASS_SPEC_FLAG_UNCOPYABLE,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_process) },
+		HCL_OFFSETOF(hcl_t, c_process)
+	},
 
-	{ "Semaphore", HCL_BRAND_SEMAPHORE,
+	KCI(KCI_SEMAPHORE) {
+		"Semaphore",
+		KCI_OBJECT,
+		HCL_BRAND_SEMAPHORE,
 		0,
 		0,
 		HCL_SEMAPHORE_NAMED_INSTVARS,
 		HCL_CLASS_SPEC_FLAG_UNCOPYABLE,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_semaphore) },
+		HCL_OFFSETOF(hcl_t, c_semaphore)
+	},
 
-	{ "SemaphoreGroup", HCL_BRAND_SEMAPHORE_GROUP,
+	KCI(KCI_SEMAPHORE_GROUP) {
+		"SemaphoreGroup",
+		KCI_OBJECT,
+		HCL_BRAND_SEMAPHORE_GROUP,
 		0,
 		0,
 		HCL_SEMAPHORE_GROUP_NAMED_INSTVARS,
 		HCL_CLASS_SPEC_FLAG_UNCOPYABLE,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_semaphore_group) },
+		HCL_OFFSETOF(hcl_t, c_semaphore_group)
+	},
 
-	{ "ProcessScheduler", HCL_BRAND_PROCESS_SCHEDULER,
+	KCI(KCI_PROCESS_SCHEDULER) {
+		"ProcessScheduler",
+		KCI_OBJECT,
+		HCL_BRAND_PROCESS_SCHEDULER,
 		HCL_CLASS_SELFSPEC_FLAG_FINAL | HCL_CLASS_SELFSPEC_FLAG_LIMITED,
 		0,
 		HCL_PROCESS_SCHEDULER_NAMED_INSTVARS,
 		HCL_CLASS_SPEC_FLAG_UNCOPYABLE,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_process_scheduler) },
+		HCL_OFFSETOF(hcl_t, c_process_scheduler)
+	},
 
-	{ "Error", 0,
+	KCI(KCI_ERROR) {
+		"Error",
+		KCI_OBJECT,
+		0,
 		HCL_CLASS_SELFSPEC_FLAG_LIMITED,
 		0,
 		0,
 		0,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_error) },
+		HCL_OFFSETOF(hcl_t, c_error)
+	},
 
-	{ "True", HCL_BRAND_TRUE,
+	KCI(KCI_TRUE) {
+		"True",
+		KCI_OBJECT,
+		HCL_BRAND_TRUE,
 		HCL_CLASS_SELFSPEC_FLAG_LIMITED | HCL_CLASS_SELFSPEC_FLAG_FINAL,
 		0,
 		0,
 		0,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_true) },
+		HCL_OFFSETOF(hcl_t, c_true)
+	},
 
-	{ "False", HCL_BRAND_FALSE,
+	KCI(KCI_FALSE) {
+		"False",
+		KCI_OBJECT,
+		HCL_BRAND_FALSE,
 		HCL_CLASS_SELFSPEC_FLAG_LIMITED | HCL_CLASS_SELFSPEC_FLAG_FINAL,
 		0,
 		0,
 		0,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_false) },
+		HCL_OFFSETOF(hcl_t, c_false)
+	},
+
+	KCI(KCI_MAGNITUDE) {
+		"Magnitude",
+		KCI_OBJECT,
+		0, /* brand */
+		0,
+		0,
+		0,
+		0,
+		HCL_OBJ_TYPE_OOP,
+		HCL_OFFSETOF(hcl_t, c_magnitude)
+	},
 
 	/* TOOD: what is a proper spec for Character and SmallInteger?
 	 *       If the fixed part is  0, its instance must be an object of 0 payload fields.
 	 *       Does this make sense? */
-	{ "Character", HCL_BRAND_CHARACTER,
+	KCI(KCI_CHARACTER) {
+		"Character",
+		KCI_MAGNITUDE,
+		HCL_BRAND_CHARACTER,
 		HCL_CLASS_SELFSPEC_FLAG_LIMITED,
 		0,
 		0,
 		0,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_character) },
+		HCL_OFFSETOF(hcl_t, c_character)
+	},
 
-	{ "SmallInteger", HCL_BRAND_SMOOI,
+	KCI(KCI_NUMBER) {
+		"Number",
+		KCI_MAGNITUDE,
+		0, /* brand */
+		0,
+		0,
+		0,
+		0,
+		HCL_OBJ_TYPE_OOP,
+		HCL_OFFSETOF(hcl_t, c_number)
+	},
+
+	KCI(KCI_SMALL_INTEGER) {
+		"SmallInteger",
+		KCI_NUMBER,
+		HCL_BRAND_SMOOI,
 		HCL_CLASS_SELFSPEC_FLAG_LIMITED,
 		0,
 		0,
 		0,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_small_integer) },
+		HCL_OFFSETOF(hcl_t, c_small_integer)
+	},
 
-	{ "LargePositiveInteger", 0,
+	KCI(KCI_LARGE_POSITIVE_INTEGER) {
+		"LargePositiveInteger",
+		KCI_NUMBER,
+		0,
 		HCL_CLASS_SELFSPEC_FLAG_LIMITED,
 		0,
 		0,
 		HCL_CLASS_SPEC_FLAG_INDEXED | HCL_CLASS_SPEC_FLAG_IMMUTABLE,
 		HCL_OBJ_TYPE_LIWORD,
-	  HCL_OFFSETOF(hcl_t, c_large_positive_integer) },
+		HCL_OFFSETOF(hcl_t, c_large_positive_integer)
+	},
 
-	{ "LargeNegativeInteger", 0,
+	KCI(KCI_LARGE_NEGATIVE_INTEGER) {
+		"LargeNegativeInteger",
+		KCI_NUMBER,
+		0,
 		HCL_CLASS_SELFSPEC_FLAG_LIMITED,
 		0,
 		0,
 		HCL_CLASS_SPEC_FLAG_INDEXED | HCL_CLASS_SPEC_FLAG_IMMUTABLE,
 		HCL_OBJ_TYPE_LIWORD,
-	  HCL_OFFSETOF(hcl_t, c_large_negative_integer) },
+		HCL_OFFSETOF(hcl_t, c_large_negative_integer)
+	},
 
-	{ "FixedPointDecimal", HCL_BRAND_FPDEC,
+	KCI(KCI_FIXED_POINT_DECIMAL) {
+		"FixedPointDecimal",
+		KCI_NUMBER,
+		HCL_BRAND_FPDEC,
 		HCL_CLASS_SELFSPEC_FLAG_LIMITED,
 		0,
 		HCL_FPDEC_NAMED_INSTVARS,
 		HCL_CLASS_SPEC_FLAG_IMMUTABLE,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_fixed_point_decimal) },
+		HCL_OFFSETOF(hcl_t, c_fixed_point_decimal)
+	},
 
-	{ "SmallPointer", HCL_BRAND_SMPTR,
+	KCI(KCI_SMALL_POINTER) {
+		"SmallPointer",
+		KCI_MAGNITUDE,
+		HCL_BRAND_SMPTR,
 		HCL_CLASS_SELFSPEC_FLAG_LIMITED,
 		0,
 		0,
 		0,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_small_pointer) },
+		HCL_OFFSETOF(hcl_t, c_small_pointer)
+	},
 
-	{ "LargePointer", 0,
+	KCI(KCI_LARGE_POINTER) {
+		"LargePointer",
+		KCI_MAGNITUDE,
+		0,
 		HCL_CLASS_SELFSPEC_FLAG_LIMITED,
 		0,
 		1,  /* #word(1) */
 		HCL_CLASS_SPEC_FLAG_IMMUTABLE | HCL_CLASS_SPEC_FLAG_INDEXED,
 		HCL_OBJ_TYPE_WORD,
-	  HCL_OFFSETOF(hcl_t, c_large_pointer) },
+		HCL_OFFSETOF(hcl_t, c_large_pointer)
+	},
 
-	{ "System", 0,
+	KCI(KCI_SYSTEM) {
+		"System",
+		KCI_OBJECT,
+		0,
 		0,
 		5, /* asyncsg, gcfin_sem, gcfin_should_exit, ossig_pid, shr */
 		0,
 		0,
 		HCL_OBJ_TYPE_OOP,
-	  HCL_OFFSETOF(hcl_t, c_system) }
+		HCL_OFFSETOF(hcl_t, c_system)
+	}
 };
 
 /* ========================================================================= */
@@ -1183,10 +1422,6 @@ static hcl_oop_class_t alloc_kernel_class (hcl_t* hcl, int class_flags, hcl_oow_
 	HCL_OBJ_SET_CLASS (c, (hcl_oop_t)hcl->c_class);
 	c->spec = HCL_SMOOI_TO_OOP(spec);
 	c->selfspec = HCL_SMOOI_TO_OOP(HCL_CLASS_SELFSPEC_MAKE(num_classvars, 0, class_flags));
-
-/* TODO: remove the following two duplicate fields with the spec fields */
-	//c->nivars = HCL_SMOOI_TO_OOP(HCL_CLASS_SPEC_NAMED_INSTVARS(spec));
-	//c->ncvars = HCL_SMOOI_TO_OOP(num_classvars);
 	c->nivars_super = HCL_SMOOI_TO_OOP(0); /* TODO: encode it into spec? */
 	c->ibrand = HCL_SMOOI_TO_OOP(ibrand);
 
@@ -1215,8 +1450,8 @@ static int ignite_1 (hcl_t* hcl)
 		hcl->c_class = alloc_kernel_class(
 			hcl,
 			kernel_classes[KCI_CLASS].class_flags,
-			kernel_classes[KCI_CLASS].class_num_classvars,
-			HCL_CLASS_SPEC_MAKE(kernel_classes[KCI_CLASS].class_spec_named_instvars,
+			kernel_classes[KCI_CLASS].class_ncvars,
+			HCL_CLASS_SPEC_MAKE(kernel_classes[KCI_CLASS].class_spec_nivars,
 			                    kernel_classes[KCI_CLASS].class_spec_flags,
 			                    kernel_classes[KCI_CLASS].class_spec_indexed_type),
 			kernel_classes[KCI_CLASS].class_brand);
@@ -1240,8 +1475,8 @@ static int ignite_1 (hcl_t* hcl)
 		tmp = alloc_kernel_class(
 			hcl,
 			kernel_classes[i].class_flags,
-			kernel_classes[i].class_num_classvars,
-			HCL_CLASS_SPEC_MAKE(kernel_classes[i].class_spec_named_instvars,
+			kernel_classes[i].class_ncvars,
+			HCL_CLASS_SPEC_MAKE(kernel_classes[i].class_spec_nivars,
 			                    kernel_classes[i].class_spec_flags,
 			                    kernel_classes[i].class_spec_indexed_type),
 			kernel_classes[i].class_brand);

lib/hcl.h

@@ -1695,13 +1695,17 @@ struct hcl_t
 	 *  kernel_classes table in gc.c
 	 * ============================================================= */
 	hcl_oop_class_t c_apex; /* Apex */
-	hcl_oop_class_t c_undefobj; /* UndefinedObject */
 	hcl_oop_class_t c_class; /* Class */
+	hcl_oop_class_t c_undefobj; /* UndefinedObject */
+	hcl_oop_class_t c_nilobj; /* NilObject */
 #if 0
 	hcl_oop_class_t c_interface; /* Interface */
 #endif
 	hcl_oop_class_t c_object; /* Object */
 
+	hcl_oop_class_t c_collection; /* Collection */
+	hcl_oop_class_t c_indexed_collection; /* IndexedCollection */
+	hcl_oop_class_t c_fixed_sized_collection; /* FixedSizedCollection */
 	hcl_oop_class_t c_string; /* String */
 	hcl_oop_class_t c_symbol; /* Symbol */
 	hcl_oop_class_t c_array; /* Array */
@@ -1733,7 +1737,9 @@ struct hcl_t
 	hcl_oop_class_t c_error; /* Error */
 	hcl_oop_class_t c_true; /* True */
 	hcl_oop_class_t c_false; /* False */
+	hcl_oop_class_t c_magnitude; /* Magnitude */
 	hcl_oop_class_t c_character; /* Character */
+	hcl_oop_class_t c_number; /* Number */
 	hcl_oop_class_t c_small_integer; /* SmallInteger */
 
 	hcl_oop_class_t c_large_positive_integer; /* LargePositiveInteger */