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

meaningless interim commit

Browse Source
This commit is contained in:
hyung-hwan 2022-02-14 01:21:01 +00:00
parent 4b4e6a6385
commit fcfbec6647
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/exec.c
View File

@ -1954,7 +1954,6 @@ static int prepare_new_context (hcl_t* hcl, hcl_oop_block_t op_blk, hcl_ooi_t na
blkctx->ip = op_blk->ip; blkctx->ip = op_blk->ip;
blkctx->req_nrets = HCL_SMOOI_TO_OOP(req_nrvars); blkctx->req_nrets = HCL_SMOOI_TO_OOP(req_nrvars);
blkctx->tmpr_mask = op_blk->tmpr_mask; blkctx->tmpr_mask = op_blk->tmpr_mask;
//blkctx->base = (hcl_oop_t)op_blk;
blkctx->base = op_blk->home->base; blkctx->base = op_blk->home->base;
blkctx->origin = op_blk->home->origin; blkctx->origin = op_blk->home->origin;
@ -1996,15 +1995,15 @@ static int prepare_new_context (hcl_t* hcl, hcl_oop_block_t op_blk, hcl_ooi_t na
return 0; return 0;
} }
static HCL_INLINE int __activate_block (hcl_t* hcl, hcl_oop_block_t op, hcl_ooi_t nargs, hcl_ooi_t nrvars, int is_msgsend, hcl_ooi_t msg_ivaroff, hcl_oop_context_t* pnewctx) static HCL_INLINE int __activate_block (hcl_t* hcl, hcl_oop_block_t op_blk, hcl_ooi_t nargs, hcl_ooi_t nrvars, int is_msgsend, hcl_ooi_t msg_ivaroff, hcl_oop_context_t* pnewctx)
{ {
int x; int x;
HCL_ASSERT (hcl, HCL_IS_BLOCK(hcl, op)); HCL_ASSERT (hcl, HCL_IS_BLOCK(hcl, op_blk));
x = prepare_new_context( x = prepare_new_context(
hcl, hcl,
op, op_blk,
nargs, /* nargs */ nargs, /* nargs */
0, /* nargs_offset */ 0, /* nargs_offset */
nrvars, nrvars,
@ -2237,7 +2236,7 @@ static HCL_INLINE int send_message (hcl_t* hcl, hcl_oop_t rcv, hcl_oop_t msg, in
HCL_ASSERT (hcl, HCL_IS_SYMBOL(hcl, msg)); HCL_ASSERT (hcl, HCL_IS_SYMBOL(hcl, msg));
/* TODO: implement method cache */ /* TODO: implement methods cache */
if (HCL_IS_CLASS(hcl, rcv)) if (HCL_IS_CLASS(hcl, rcv))
{ {
mth = find_cmethod_noseterr(hcl, (hcl_oop_class_t)rcv, msg); mth = find_cmethod_noseterr(hcl, (hcl_oop_class_t)rcv, msg);