diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-08-14 12:15:59 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-08-14 12:15:59 (GMT) |
| commit | b2d7315f923bd7c0eae390595466fcf0ff1388ac (patch) | |
| tree | 0b40f16863b25ebb13b0372d9395cf90c76225e9 /generic/tclCmdIL.c | |
| parent | 9c15217967a7614ac17d324144b8e39d788b6eef (diff) | |
| download | tcl-b2d7315f923bd7c0eae390595466fcf0ff1388ac.zip tcl-b2d7315f923bd7c0eae390595466fcf0ff1388ac.tar.gz tcl-b2d7315f923bd7c0eae390595466fcf0ff1388ac.tar.bz2 | |
Consolidate some helper routines.dgp_bye_ctx_eval_flag
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index da9edd6..fa4ead4 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -1266,25 +1266,6 @@ InfoFrameCmd( */ Tcl_Obj * -TclGetSourceFromFrame( - CmdFrame *cfPtr, - int objc, - Tcl_Obj *const objv[]) -{ - if (cfPtr == NULL) { - return Tcl_NewListObj(objc, objv); - } - if (cfPtr->cmdObj == NULL) { - if (cfPtr->cmd == NULL) { - cfPtr->cmd = TclGetSrcInfoForCmdFrame(cfPtr, &cfPtr->len); - } - cfPtr->cmdObj = Tcl_NewStringObj(cfPtr->cmd, cfPtr->len); - Tcl_IncrRefCount(cfPtr->cmdObj); - } - return cfPtr->cmdObj; -} - -Tcl_Obj * TclInfoFrame( Tcl_Interp *interp, /* Current interpreter. */ CmdFrame *framePtr) /* Frame to get info for. */ |