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

call hcl_instantiate() with hcl->c_primitive in hcl_makeprim()
Some checks failed
continuous-integration/drone/push Build is failing
Details

Browse Source
This commit is contained in:
hyung-hwan
2024-09-12 00:26:23 +09:00
parent b5c24eb440
commit 8604c6ddf1
5 changed files with 59 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
lib/gc.c
View File

@ -141,8 +141,8 @@ enum {
KCI_CONS,
KCI_METHOD_DICTIONARY,
KCI_FUNCTION,
KCI_PRIMITIVE,
KCI_COMPILED_BLOCK,
KCI_METHOD_CONTEXT,
KCI_BLOCK_CONTEXT,
KCI_PROCESS,
KCI_SEMAPHORE,
@ -448,15 +448,17 @@ static kernel_class_info_t kernel_classes[__KCI_MAX__] =
HCL_OFFSETOF(hcl_t, c_function)
},
#if 0
{ "Primitive", HCL_BRAND_PRIM,
0,
0,
HCL_PRIM_NAMED_INSTVARS,
0,
HCL_OBJ_TYPE_OOP,
HCL_OFFSETOF(hcl_t, c_prim) },
#endif
KCI(KCI_PRIMITIVE) {
"Primitive",
KCI_OBJECT,
HCL_BRAND_PRIM,
0,
0,
HCL_PRIM_NAMED_INSTVARS,
0,
HCL_OBJ_TYPE_WORD,
HCL_OFFSETOF(hcl_t, c_primitive)
},
KCI(KCI_COMPILED_BLOCK) {
"CompiledBlock",
@ -470,18 +472,6 @@ static kernel_class_info_t kernel_classes[__KCI_MAX__] =
HCL_OFFSETOF(hcl_t, c_block)
},
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)
},
KCI(KCI_BLOCK_CONTEXT) {
"BlockContext",
KCI_OBJECT,