Posted to tcl by kbk at Tue Sep 21 18:16:06 GMT 2010view pretty
case ASSEM_EVAL: if (bcSize != 2) { Tcl_WrongNumArgs(interp, 1, bcArgs, "script"); goto cleanup; } fprintf(stderr, "compiling: %s\n", operand1); fflush(stderr); savedMaxStackDepth = envPtr->maxStackDepth; savedCurrStackDepth = envPtr->currStackDepth; envPtr->maxStackDepth = 0; envPtr->currStackDepth = 0; TclCompileScript(interp, operand1, operand1Len, envPtr); if (curr_bb->finalStackDepth + envPtr->maxStackDepth > curr_bb->maxStackDepth) { curr_bb->maxStackDepth = curr_bb->finalStackDepth + envPtr->maxStackDepth; } curr_bb->finalStackDepth += envPtr->currStackDepth; envPtr->maxStackDepth = savedMaxStackDepth; envPtr->currStackDepth = savedCurrStackDepth; fprintf(stderr, "compilation returns\n"); fflush(stderr); break;