whilestmt
(*token == 'w' ? whilestmt : forstmt));
case whilestmt: /* scanned while (...) */
ps.p_stack[++ps.tos] = whilestmt;
ps.p_stack[++ps.tos] = whilestmt;
case whilestmt:
case whilestmt: /* while (...) on top */