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

set default type mask in moo_compile() and moo_executefromip().

Browse Source 
changed the main program a little bit
This commit is contained in:
hyung-hwan
2018-02-08 15:04:07 +00:00
parent d78714432a
commit f27ae54982
3 changed files with 41 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/comp.c
View File

@ -2242,16 +2242,20 @@ static HCL_INLINE int emit_set (hcl_t* hcl)
int hcl_compile (hcl_t* hcl, hcl_oop_t obj)
{
hcl_oow_t saved_bc_len, saved_lit_len;
int log_default_type_mask;
HCL_ASSERT (hcl, GET_TOP_CFRAME_INDEX(hcl) < 0);
saved_bc_len = hcl->code.bc.len;
saved_lit_len = hcl->code.lit.len;
log_default_type_mask = hcl->log.default_type_mask;
hcl->log.default_type_mask |= HCL_LOG_COMPILER;
HCL_ASSERT (hcl, hcl->c->tv.size == 0);
HCL_ASSERT (hcl, hcl->c->blk.depth == -1);
/* TODO: in case i implement all global variables as block arguments at the top level... */
/* TODO: in case i implement all global variables as block arguments at the top level...what should i do? */
hcl->c->blk.depth++;
if (store_temporary_variable_count_for_block(hcl, hcl->c->tv.size) <= -1) return -1;
@ -2379,11 +2383,15 @@ int hcl_compile (hcl_t* hcl, hcl_oop_t obj)
HCL_ASSERT (hcl, hcl->c->tv.size == 0);
HCL_ASSERT (hcl, hcl->c->blk.depth == 0);
hcl->c->blk.depth--;
hcl ->log.default_type_mask = log_default_type_mask;
return 0;
oops:
POP_ALL_CFRAMES (hcl);
hcl->log.default_type_mask = log_default_type_mask;
/* rollback any bytecodes or literals emitted so far */
hcl->code.bc.len = saved_bc_len;
hcl->code.lit.len = saved_lit_len;