diff options
| -rw-r--r-- | miscutils/bc.c | 16 | ||||
| -rwxr-xr-x | testsuite/bc.tests | 27 |
2 files changed, 32 insertions, 11 deletions
diff --git a/miscutils/bc.c b/miscutils/bc.c index 925950d..af57b3d 100644 --- a/miscutils/bc.c +++ b/miscutils/bc.c @@ -4175,7 +4175,7 @@ static BC_STATUS zbc_parse_while(BcParse *p) BcStatus s; BcInstPtr ip; size_t *label; - size_t n; + size_t cond_idx; s = zbc_lex_next(&p->l); if (s) RETURN_STATUS(s); @@ -4183,10 +4183,10 @@ static BC_STATUS zbc_parse_while(BcParse *p) s = zbc_lex_next(&p->l); if (s) RETURN_STATUS(s); - ip.idx = p->func->labels.len; + cond_idx = p->func->labels.len; bc_vec_push(&p->func->labels, &p->func->code.len); - bc_vec_push(&p->conds, &ip.idx); + bc_vec_push(&p->conds, &cond_idx); ip.idx = p->func->labels.len; ip.func = 1; @@ -4209,15 +4209,9 @@ static BC_STATUS zbc_parse_while(BcParse *p) s = zbc_parse_stmt_fail_if_bare_NLINE(p, false, "while"); if (s) RETURN_STATUS(s); - n = *((size_t *) bc_vec_top(&p->conds)); - bc_parse_push(p, BC_INST_JUMP); - bc_parse_pushIndex(p, n); - - label = bc_vec_top(&p->conds); - - dbg_lex("%s:%d BC_INST_JUMP to %d", __func__, __LINE__, *label); + dbg_lex("%s:%d BC_INST_JUMP to %d", __func__, __LINE__, cond_idx); bc_parse_push(p, BC_INST_JUMP); - bc_parse_pushIndex(p, *label); + bc_parse_pushIndex(p, cond_idx); label = bc_vec_item(&p->func->labels, ip.idx); dbg_lex("%s:%d rewriting label: %d -> %d", __func__, __LINE__, *label, p->func->code.len); diff --git a/testsuite/bc.tests b/testsuite/bc.tests index 987461e..0690e9c 100755 --- a/testsuite/bc.tests +++ b/testsuite/bc.tests @@ -107,6 +107,33 @@ if(1) { 99 " +testing "bc continue in if" \ + "bc" \ + "\ +11 +21 +11 +31 +99 +" \ + "" "\ +i=2 +while(i--) { + 11 + if(i) { + 21 + continue + 22 + } else { + 31 + continue + 32 + } + 12 +} +99 +" + tar xJf bc_large.tar.xz for f in bc*.bc; do |