Branch: Tag:

2017-06-07

2017-06-07 15:22:00 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Compiler: Use modify_stack_depth().

Use modify_stack_depth() instead of accessing current_stack_depth
directly. This simplifies adding of debug probes.

269:    case 1: emit0(F_POP_VALUE); break;    default: emit1(F_POP_N_ELEMS,x); break;    } -  current_stack_depth -= x; +  modify_stack_depth(-x);   }      static void do_pop_mark(void *UNUSED(ignored))
391:    do_jump(F_BRANCH_WHEN_NON_ZERO, label);    else    do_jump(F_BRANCH_WHEN_ZERO, label); -  current_stack_depth--; +  modify_stack_depth(-1);    }else{    if(iftrue)    do_jump(F_LOR, label);
1690:    }else{    emit0(F_CONST0);    emit0(F_CONST0); -  current_stack_depth+=2; +  modify_stack_depth(2);    }       if(CDDR(arr))
1699:    }else{    emit0(F_CONST0);    emit0(F_CONST0); -  current_stack_depth+=2; +  modify_stack_depth(2);    }       PUSH_CLEANUP_FRAME(do_pop, 5);
1764:    }    do_docode(arr,DO_NOT_COPY);    emit0(F_CONST0); -  current_stack_depth++; +  modify_stack_depth(1);    foreach_arg_pushed:    PUSH_CLEANUP_FRAME(do_pop, 4);   
2142:    cases=count_cases(CDR(n));       tmp1=emit1(F_SWITCH,0); -  current_stack_depth--; +  modify_stack_depth(-1);    emit1(F_ALIGN,sizeof(INT32));       current_switch.values_on_stack=0;
2492:    current_switch.jumptable = prev_switch_jumptable;    do_branch (tmp1);    -  current_stack_depth++; +  modify_stack_depth(1);    /* Entry point called via catching_eval_instruction() after    * catching an error.    *