Posted to tcl by kbk at Tue Sep 21 18:16:06 GMT 2010view raw

  1. case ASSEM_EVAL:
  2. if (bcSize != 2) {
  3. Tcl_WrongNumArgs(interp, 1, bcArgs, "script");
  4. goto cleanup;
  5. }
  6. fprintf(stderr, "compiling: %s\n", operand1); fflush(stderr);
  7. savedMaxStackDepth = envPtr->maxStackDepth;
  8. savedCurrStackDepth = envPtr->currStackDepth;
  9. envPtr->maxStackDepth = 0;
  10. envPtr->currStackDepth = 0;
  11. TclCompileScript(interp, operand1, operand1Len, envPtr);
  12. if (curr_bb->finalStackDepth + envPtr->maxStackDepth
  13. > curr_bb->maxStackDepth) {
  14. curr_bb->maxStackDepth =
  15. curr_bb->finalStackDepth + envPtr->maxStackDepth;
  16. }
  17. curr_bb->finalStackDepth += envPtr->currStackDepth;
  18. envPtr->maxStackDepth = savedMaxStackDepth;
  19. envPtr->currStackDepth = savedCurrStackDepth;
  20. fprintf(stderr, "compilation returns\n"); fflush(stderr);
  21. break;