hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

writing full oop bootstrapping code
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source
This commit is contained in:
hyung-hwan 2024-02-26 13:34:09 +09:00
parent 2bd510181c
commit 4afb064530
2 changed files with 45 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
lib/gc.c
View File

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

5
lib/hcl.h
View File

@ -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 */