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

fixed an argument passing handling bug

Browse Source
This commit is contained in:
hyung-hwan
2016-10-06 18:17:52 +00:00
parent dc2b007550
commit a675d56dad
1 changed files with 15 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
hcl/lib/exec.c
View File

@ -947,7 +947,7 @@ static int __activate_context (hcl_t* hcl, hcl_oop_context_t rcv_blkctx, hcl_ooi
/* copy the arguments to the stack */ /* copy the arguments to the stack */
for (i = 0; i < nargs; i++) for (i = 0; i < nargs; i++)
{ {
blkctx->slot[i] = HCL_STACK_GETARG(hcl, nargs, 0); blkctx->slot[i] = HCL_STACK_GETARG(hcl, nargs, i);
} }
HCL_STACK_POPS (hcl, nargs + 1); /* pop arguments and receiver */ HCL_STACK_POPS (hcl, nargs + 1); /* pop arguments and receiver */
@ -1537,21 +1537,28 @@ return -1;
{ {
hcl_oop_t rcv; hcl_oop_t rcv;
handle_call:
b1 = bcode & 0x3; /* low 2 bits */ b1 = bcode & 0x3; /* low 2 bits */
handle_call:
LOG_INST_1 (hcl, "call %zu", b1); LOG_INST_1 (hcl, "call %zu", b1);
rcv = HCL_STACK_GETRCV (hcl, b1); rcv = HCL_STACK_GETRCV (hcl, b1);
if (HCL_IS_CONTEXT(hcl, rcv)) if (HCL_OOP_IS_POINTER(rcv))
{ {
switch (HCL_OBJ_GET_FLAGS_BRAND(rcv))
{
case HCL_BRAND_CONTEXT:
if (activate_context (hcl, b1) <= -1) return -1; if (activate_context (hcl, b1) <= -1) return -1;
} break;
else if (HCL_IS_PRIM(hcl, rcv)) case HCL_BRAND_PRIM:
{
if (call_primitive (hcl, b1) <= -1) return -1; if (call_primitive (hcl, b1) <= -1) return -1;
break;
default:
goto cannot_call;
}
} }
else else
{ {
cannot_call:
/* run time error */ /* run time error */
HCL_LOG1 (hcl, HCL_LOG_IC | HCL_LOG_ERROR, "Error - cannot call %O\n", rcv); HCL_LOG1 (hcl, HCL_LOG_IC | HCL_LOG_ERROR, "Error - cannot call %O\n", rcv);
hcl->errnum = HCL_ECALL; hcl->errnum = HCL_ECALL;