144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
*
* Side effects:
* A new procedure gets created.
*
*----------------------------------------------------------------------
*/
/* ARGSUSED */
|
<
|
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
*
* Side effects:
* A new procedure gets created.
*
*----------------------------------------------------------------------
*/
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
|
* Restore the variable frame, and return.
*/
((Interp *)interp)->varFramePtr = savedVarFramePtr;
return result;
}
/* ARGSUSED */
|
<
|
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;
}
int
Tcl_UplevelObjCmd(
ClientData clientData,
Tcl_Interp *interp, /* Current interpreter. */
int objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
|