diff options
author | dgp <dgp@users.sourceforge.net> | 2016-07-09 17:21:31 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-07-09 17:21:31 (GMT) |
commit | 3408cb4caba6bdda86ed5bd407f26f9f9fff9948 (patch) | |
tree | 2749fdf06c69cbd0027fc83117455052086b2c39 /generic/tclTimer.c | |
parent | 3f704efe4e8c1fc7b8eff04d4a7eb80c31c7f44e (diff) | |
parent | 77e9a375ff3089711d1b2d25da3d190afc639e1e (diff) | |
download | tcl-3408cb4caba6bdda86ed5bd407f26f9f9fff9948.zip tcl-3408cb4caba6bdda86ed5bd407f26f9f9fff9948.tar.gz tcl-3408cb4caba6bdda86ed5bd407f26f9f9fff9948.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tclTimer.c')
-rw-r--r-- | generic/tclTimer.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTimer.c b/generic/tclTimer.c index a9a6e04..edab8da 100644 --- a/generic/tclTimer.c +++ b/generic/tclTimer.c @@ -894,10 +894,10 @@ Tcl_AfterObjCmd( } else { commandPtr = Tcl_ConcatObj(objc-2, objv+2);; } - command = Tcl_GetStringFromObj(commandPtr, &length); + command = TclGetStringFromObj(commandPtr, &length); for (afterPtr = assocPtr->firstAfterPtr; afterPtr != NULL; afterPtr = afterPtr->nextPtr) { - tempCommand = Tcl_GetStringFromObj(afterPtr->commandPtr, + tempCommand = TclGetStringFromObj(afterPtr->commandPtr, &tempLength); if ((length == tempLength) && !memcmp(command, tempCommand, (unsigned) length)) { |