break;
case '\t':
/* Call a subroutine. */
- *((*rsp)++) = *pc;
- *pc = labels[parse_label(code, pc)];
+ {
+ size_t temp_pc = labels[parse_label(code, pc)];
+ *((*rsp)++) = *pc;
+ *pc = temp_pc;
+ }
break;
case '\n':
/* Jump unconditionally to a label. */
switch (next_code_byte(code,pc)) {
case ' ':
/* Jump to a label if TOS == 0 */
+ /* TODO: Does WS pop or peek the TOS? */
if (stack_peek(sp,0) == 0) *pc = labels[parse_label(code, pc)];
break;
case '\t':
/* Jump to a label if TOS < 0. */
+ /* TODO: Does WS pop or peek the TOS? */
if (stack_peek(sp,0) < 0) *pc = labels[parse_label(code, pc)];
break;
case '\n':