localPtr->flags |= VAR_NAMED_GROUP;
	} else if ((length == 6)
		&& (fieldValues[i][1] == 'v')
		&& (strcmp(fieldValues[i], "-value") == 0)) {

	    /*
	     * Handle '-value value'. Must only be specified inside
	     * a name group and if a default option has already been
	     * a name group.
	     * set.
	     */

	    if (localPtr->defValuePtr == NULL) {
		Tcl_SetObjResult(interp, Tcl_NewStringObj(
			"-default required for -value", -1));
		goto parseError;
	    }
	    if (lastArgSpecPtr == NULL) {
		Tcl_SetObjResult(interp, Tcl_NewStringObj(
			"-name required for -value", -1));
		goto parseError;
	    }
	    if (lastArgSpecPtr->valuePtr != NULL) {
		Tcl_DecrRefCount(lastArgSpecPtr->valuePtr);

    Tcl_Obj *procNameObj,	/* Procedure name for error reporting. */
    Tcl_Obj *const *argObjs,	/* Array of input arguments */
    int argCt)			/* Number of input arguments */
{
    CallFrame *framePtr = ((Interp *)interp)->varFramePtr;
    register Proc *procPtr = framePtr->procPtr;
    register Var *varPtr = framePtr->compiledLocals;
    int numArgs = procPtr->numArgs, i, iLocal, iArg;
    int numArgs = procPtr->numArgs, iLocal, iArg;
    Tcl_Obj *objPtr;
    CompiledLocal *localPtr, *namedLocalPtr;
    ExtendedArgSpec *argSpecPtr;
    int optLength, result;
    const char *optStr;

    for (iLocal = 0, iArg = 0, localPtr = procPtr->firstLocalPtr;

	     * Start of a named argument group. Handle all of them together.
	     */

	    for (; iArg < argCt; iArg++) {
		optStr = TclGetString(argObjs[iArg]);

		if (*optStr != '-') {
		    /* argument without leading dash, end named group */
		    return TCL_ERROR;
		    break;
		}

		optStr++;
		optLength = strlen(optStr);

		if ((optLength == 1) && (optStr[0] == '-')) {
		    /* end-of-option marker (--) */

 *----------------------------------------------------------------------
 */

void
TclProcCleanupProc(
    register Proc *procPtr)	/* Procedure to be deleted. */
{
    register CompiledLocal *localPtr;
    Tcl_Obj *bodyPtr = procPtr->bodyPtr;
    Tcl_HashEntry *hePtr = NULL;
    CmdFrame *cfPtr = NULL;
    Interp *iPtr = procPtr->iPtr;

    if (bodyPtr != NULL) {
	Tcl_DecrRefCount(bodyPtr);