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 | 6dee5b3e07d501459386b52bc18efc2c2cbc5fcb (patch) | |
| tree | 0b40f16863b25ebb13b0372d9395cf90c76225e9 /generic/tclCmdIL.c | |
| parent | 9d1f38c3e3690b0f7b473375d4fe633656c630a4 (diff) | |
| download | tcl-6dee5b3e07d501459386b52bc18efc2c2cbc5fcb.zip tcl-6dee5b3e07d501459386b52bc18efc2c2cbc5fcb.tar.gz tcl-6dee5b3e07d501459386b52bc18efc2c2cbc5fcb.tar.bz2 | |
Consolidate some helper routines.
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. */ |