Differences From Artifact [4d30b964f8]:

• File generic/tclProc.c — part of check-in [93a5087c75] at 2016-05-26 16:33:37 on branch dgp-ensemble-rewrite — Reduce to minimum set of TclResetRewriteEnsemble() calls. (user: dgp size: 79562)

To Artifact [6e6e8fbee6]:

• File generic/tclProc.c — part of check-in [3834e099ca] at 2016-06-23 13:18:33 on branch dgp-ensemble-rewrite — merge 8.6 (user: dgp size: 79564) [more...]

865
866
867
868
869
870
871
872
873
874
875
876
877
878
879

	}
	if (name == NULL) {
	    name = TclGetString(objPtr);
	}
    }

    Tcl_SetObjResult(interp, Tcl_ObjPrintf("bad level \"%s\"", name));
    Tcl_SetErrorCode(interp, "TCL", "VALUE", "STACKLEVEL", NULL);
    return -1;
}

/*
 *----------------------------------------------------------------------
 *
 * Tcl_UplevelObjCmd --

|

865
866
867
868
869
870
871
872
873
874
875
876
877
878
879

	}
	if (name == NULL) {
	    name = TclGetString(objPtr);
	}
    }

    Tcl_SetObjResult(interp, Tcl_ObjPrintf("bad level \"%s\"", name));
    Tcl_SetErrorCode(interp, "TCL", "LOOKUP", "LEVEL", name, NULL);
    return -1;
}

/*
 *----------------------------------------------------------------------
 *
 * Tcl_UplevelObjCmd --