adding the class_set instruction

This commit is contained in:
2022-01-29 17:43:11 +00:00
parent a89b83a6fd
commit 84e53e3459
4 changed files with 49 additions and 11 deletions

View File

@ -3534,11 +3534,11 @@ if (do_throw(hcl, hcl->_nil, fetched_instruction_pointer) <= -1)
break;
}
case HCL_CODE_CLASS_PUSH_EXIT:
case HCL_CODE_CLASS_PEXIT:
{
hcl_oop_t c;
LOG_INST_0 (hcl, "class_push_exit");
LOG_INST_0 (hcl, "class_pexit");
if (HCL_CLSTACK_IS_EMPTY(hcl))
{
@ -3551,6 +3551,12 @@ if (do_throw(hcl, hcl->_nil, fetched_instruction_pointer) <= -1)
break;
}
case HCL_CODE_CLASS_SET:
{
FETCH_PARAM_CODE_TO (hcl, b1);
LOG_INST_1 (hcl, "class_set %zu", b1);
}
/* -------------------------------------------------------- */
case HCL_CODE_PUSH_CTXTEMPVAR_X: