Diff
Not logged in

Differences From Artifact [0ca86df92e]:

To Artifact [269aada796]:


144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
144
145
146
147
148
149
150

151
152
153
154
155
156
157







-







 *
 * Side effects:
 *	A new procedure gets created.
 *
 *----------------------------------------------------------------------
 */

	/* ARGSUSED */
int
Tcl_ProcObjCmd(
    TCL_UNUSED(ClientData),
    Tcl_Interp *interp,		/* Current interpreter. */
    int objc,			/* Number of arguments. */
    Tcl_Obj *const objv[])	/* Argument objects. */
{
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
879
880
881
882
883
884
885

886
887
888
889
890
891
892







-







     * Restore the variable frame, and return.
     */

    ((Interp *)interp)->varFramePtr = savedVarFramePtr;
    return result;
}

	/* ARGSUSED */
int
Tcl_UplevelObjCmd(
    ClientData clientData,
    Tcl_Interp *interp,		/* Current interpreter. */
    int objc,			/* Number of arguments. */
    Tcl_Obj *const objv[])	/* Argument objects. */
{