/*
     * Make sure that the local cache of variable names and initial values has
     * been initialised properly .
     */

    if (localCt) {
	if (!codePtr->localCachePtr) {
	    InitLocalCache(procPtr);
	}
	framePtr->localCachePtr = codePtr->localCachePtr;
	framePtr->localCachePtr->refCount++;
	defPtr = (Var *) (&framePtr->localCachePtr->varName0 + localCt);
    } else {
	defPtr = NULL;
    }

				 * interpreted. */
    register Tcl_Interp *interp,/* Interpreter in which procedure was
				 * invoked. */
    int objc,			/* Count of number of arguments to this
				 * procedure. */
    Tcl_Obj *const objv[])	/* Argument value objects. */
{
    Proc *procPtr = clientData;
    Interp *iPtr = (Interp *) interp;
    int result;
    Tcl_Obj *bodyPtr = procPtr->bodyPtr;
    
    /*
     * Shortcut for empty bodies. Note that this also avoids compiling and
     * shimmering the empty string, as well as pushing/popping a CallFrame and
     * invoking TEBC. 
     */

    if (bodyPtr->bytes && (*bodyPtr->bytes == '\0')) {
	/* empty body ... */
	ByteCode *codePtr = (ByteCode *) bodyPtr->internalRep.twoPtrValue.ptr1;
	if ((bodyPtr->typePtr != &tclByteCodeType) ||
		!(codePtr->flags & TCL_BYTECODE_PRECOMPILED)) {
	    /* ... and not precompiled ... */
	    if (objc == procPtr->numArgs + 1) {
		/* ... and correct number of arguments; we will still be
		 * compiling empty bodies that have default values or args
		 * for simplicity sake - to avoid having to go through the
		 * linked list of compiled locals to determine the nature of
		 * the last formal argument(s). */
		return TCL_OK;
	    }
	}
    }

    result = TclPushProcCallFrame(procPtr, interp, objc, objv,
	    /*isLambda*/ 0);

    if (result != TCL_OK) {
	return TCL_ERROR;
    }
    
    return TclNRInterpProcCore(interp, objv[0], 1, &MakeProcError);
}

/*
 *----------------------------------------------------------------------
 *
 * TclNRInterpProcCore --