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;