diff --git a/lib/gc.c b/lib/gc.c index aab2215..b9bb48e 100644 --- a/lib/gc.c +++ b/lib/gc.c @@ -757,6 +757,44 @@ hcl_oop_t hcl_shallowcopy (hcl_t* hcl, hcl_oop_t oop) /* ========================================================================= */ +static struct +{ + const char* name; + hcl_oow_t offset; +} ctab[] = { + { "Object", HCL_OFFSETOF(hcl_t, class_object) }, + { "Class", HCL_OFFSETOF(hcl_t, class_class) }, + { "Symbol", HCL_OFFSETOF(hcl_t, class_symbol) }, + { "String", HCL_OFFSETOF(hcl_t, class_string) }, +}; + +static int make_classes (hcl_t* hcl) +{ + hcl_oop_class_t c; + hcl_oow_t i; + +#if 0 + /* create class objects */ + for (i = 0; i < HCL_COUNTOF(ctab); i++) + { + if (*ctab[i].ref) continue; + + c = (hcl_oop_class_t)hcl_makeclass(hcl, hcl->_nil, nivars, ncvars, "ivars_str", "cvars_str"); + if (HCL_UNLIKELY(!c)) return -1; + + *(hcl_oop_class_t*)((hcl_uint8_t*)hcl + ctab[i].offset) = c; + } + + /* update the superclass field */ + for (i = 0; i < HCL_COUNTOF(ctab); i++) + { + c = *(hcl_oop_class_t*)((hcl_uint8_t*)hcl + ctab[i].offset); + //c->superclass = + } +#endif + + return 0; +} int hcl_ignite (hcl_t* hcl, hcl_oow_t heapsize) { @@ -847,6 +885,8 @@ int hcl_ignite (hcl_t* hcl, hcl_oow_t heapsize) hcl->sp = HCL_OOP_TO_SMOOI(hcl->processor->active->sp); } + if (make_classes(hcl) <= -1) return -1; + /* TODO: move this initialization to hcl_init? */ if (hcl_brewcode(hcl, &hcl->code) <= -1) return -1; diff --git a/lib/hcl.h b/lib/hcl.h index 2210e0d..0d1938f 100644 --- a/lib/hcl.h +++ b/lib/hcl.h @@ -1632,6 +1632,11 @@ struct hcl_t hcl_oop_process_scheduler_t processor; /* instance of ProcessScheduler */ hcl_oop_process_t nil_process; /* instance of Process */ + hcl_oop_class_t class_object; /* class 'Object' */ + hcl_oop_class_t class_class; /* class 'Class' */ + hcl_oop_class_t class_symbol; /* class 'Symbol' */ + hcl_oop_class_t class_string; /* class 'String' */ + /* ============================================================================= */ /* pending asynchronous semaphores */