static int
selfCompile(Tcl_Interp *interp, Tcl_Parse *parsePtr,
CompileEnv *envPtr) {
if (parsePtr->numWords != 1)
return TCL_OUT_LINE_COMPILE;
TclEmitOpcode(instructions[INST_SELF].bytecode, envPtr);
envPtr->maxStackDepth = 0;
return TCL_OK;
}
static int
nextCompile(Tcl_Interp *interp, Tcl_Parse *parsePtr,
CompileEnv *envPtr) {
assert(interp != NULL);
assert(parsePtr != NULL);
assert(envPtr != NULL);
if (parsePtr->numWords != 1) {
return TCL_OUT_LINE_COMPILE;
}
TclEmitOpcode(instructions[INST_NEXT].bytecode, envPtr);
envPtr->maxStackDepth = 0;
return TCL_OK;
}
static int
initProcNsCompile(Tcl_Interp *interp, Tcl_Parse *parsePtr,
CompileEnv *envPtr) {
if (parsePtr->numWords != 1) {
Tcl_ResetResult(interp);
Tcl_AppendToObj(Tcl_GetObjResult(interp),
"wrong # args: should be '::xotcl::initProcNS'", -1);
envPtr->maxStackDepth = 0;
return TCL_ERROR;
}
TclEmitOpcode(instructions[INST_INITPROC].bytecode, envPtr);
envPtr->maxStackDepth = 0;
return TCL_OK;
}
