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/tclBasic.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/tclBasic.c')
-rw-r--r-- | generic/tclBasic.c | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index ea08f88..baa2f2c 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -3386,8 +3386,8 @@ GetCommandSource( switch (cfPtr->type) { case TCL_LOCATION_EVAL: case TCL_LOCATION_SOURCE: - command = cfPtr->cmd.str.cmd; - numChars = cfPtr->cmd.str.len; + command = cfPtr->cmd; + numChars = cfPtr->len; break; case TCL_LOCATION_BC: case TCL_LOCATION_PREBC: @@ -5246,12 +5246,12 @@ TclEvalEx( * have been executed. */ - eeFramePtr->cmd.str.cmd = parsePtr->commandStart; - eeFramePtr->cmd.str.len = parsePtr->commandSize; + eeFramePtr->cmd = parsePtr->commandStart; + eeFramePtr->len = parsePtr->commandSize; if (parsePtr->term == parsePtr->commandStart + parsePtr->commandSize - 1) { - eeFramePtr->cmd.str.len--; + eeFramePtr->len--; } eeFramePtr->nline = objectsUsed; @@ -6028,8 +6028,7 @@ TclNREvalObjEx( eoFramePtr->framePtr = iPtr->framePtr; eoFramePtr->nextPtr = iPtr->cmdFramePtr; - eoFramePtr->cmd.str.cmd = Tcl_GetStringFromObj(listPtr, - &(eoFramePtr->cmd.str.len)); + eoFramePtr->cmd = Tcl_GetStringFromObj(listPtr, &(eoFramePtr->len)); eoFramePtr->data.eval.path = NULL; iPtr->cmdFramePtr = eoFramePtr; |