diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-08-06 13:20:36 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-08-06 13:20:36 (GMT) |
| commit | 2fa3c7789bf50168600e5ba432c5bcb1ea3a5c81 (patch) | |
| tree | 27620928337e684beb6dd84429d9582c3a5d0dbd /generic/tclCmdIL.c | |
| parent | 90aed79bb65a5df8dfc953a51ed832a8da563df4 (diff) | |
| download | tcl-2fa3c7789bf50168600e5ba432c5bcb1ea3a5c81.zip tcl-2fa3c7789bf50168600e5ba432c5bcb1ea3a5c81.tar.gz tcl-2fa3c7789bf50168600e5ba432c5bcb1ea3a5c81.tar.bz2 | |
Eliminate the union that is no longer needed.
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 4046903..180d814 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -1307,8 +1307,7 @@ TclInfoFrame( } else { ADD_PAIR("line", Tcl_NewIntObj(1)); } - ADD_PAIR("cmd", Tcl_NewStringObj(framePtr->cmd.str.cmd, - framePtr->cmd.str.len)); + ADD_PAIR("cmd", Tcl_NewStringObj(framePtr->cmd, framePtr->len)); break; case TCL_LOCATION_PREBC: @@ -1356,8 +1355,7 @@ TclInfoFrame( Tcl_DecrRefCount(fPtr->data.eval.path); } - ADD_PAIR("cmd", - Tcl_NewStringObj(fPtr->cmd.str.cmd, fPtr->cmd.str.len)); + ADD_PAIR("cmd", Tcl_NewStringObj(fPtr->cmd, fPtr->len)); TclStackFree(interp, fPtr); break; } @@ -1376,8 +1374,7 @@ TclInfoFrame( * the result list object. */ - ADD_PAIR("cmd", Tcl_NewStringObj(framePtr->cmd.str.cmd, - framePtr->cmd.str.len)); + ADD_PAIR("cmd", Tcl_NewStringObj(framePtr->cmd, framePtr->len)); break; case TCL_LOCATION_PROC: |