diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-07-15 11:17:12 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-07-15 11:17:12 (GMT) |
commit | bc9648f913a629f7845e64a802b2519bb5a729a7 (patch) | |
tree | 9d409ee7e8ffe0438cb59bb04e9f3c8d2ea58455 /generic/tclTest.c | |
parent | 2785816f6adac764ff1a93a100bc8cae1464227f (diff) | |
parent | b4b28f993fd2ed7a128731d3d5cc73a1fec73e33 (diff) | |
download | tcl-bc9648f913a629f7845e64a802b2519bb5a729a7.zip tcl-bc9648f913a629f7845e64a802b2519bb5a729a7.tar.gz tcl-bc9648f913a629f7845e64a802b2519bb5a729a7.tar.bz2 |
merge trunkbug_57945b574a_without_stub
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r-- | generic/tclTest.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 0f4b6d4..19a9033 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -2306,9 +2306,9 @@ TesteventDeleteProc( return 0; } targetName = (Tcl_Obj *) clientData; - targetNameStr = (char *) Tcl_GetStringFromObj(targetName, NULL); + targetNameStr = (char *) Tcl_GetString(targetName); ev = (TestEvent *) event; - evNameStr = Tcl_GetStringFromObj(ev->tag, NULL); + evNameStr = Tcl_GetString(ev->tag); if (strcmp(evNameStr, targetNameStr) == 0) { Tcl_DecrRefCount(ev->tag); Tcl_DecrRefCount(ev->command); |