diff options
| author | sebres <sebres@users.sourceforge.net> | 2017-05-30 08:46:12 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2017-05-30 08:46:12 (GMT) |
| commit | ece8767c5cb0fc27a64b43df3c4558f14d3f5408 (patch) | |
| tree | 9d93ddeacdeb3266bb14fe64ceac1cf1a684e0ad /generic/tclStrIdxTree.c | |
| parent | 18315c5b5c2047a16dbfcfeb761b7762f3a9be49 (diff) | |
| download | tcl-ece8767c5cb0fc27a64b43df3c4558f14d3f5408.zip tcl-ece8767c5cb0fc27a64b43df3c4558f14d3f5408.tar.gz tcl-ece8767c5cb0fc27a64b43df3c4558f14d3f5408.tar.bz2 | |
small code review: resolves several warning on some compilers
Diffstat (limited to 'generic/tclStrIdxTree.c')
| -rw-r--r-- | generic/tclStrIdxTree.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStrIdxTree.c b/generic/tclStrIdxTree.c index 291e481..0045ea5 100644 --- a/generic/tclStrIdxTree.c +++ b/generic/tclStrIdxTree.c @@ -469,7 +469,7 @@ TclStrIdxTreeTestObjCmd( int optionIndex; if (objc < 2) { - Tcl_SetResult(interp, "wrong # args", TCL_STATIC); + Tcl_SetResult(interp, (char*)"wrong # args", TCL_STATIC); return TCL_ERROR; } if (Tcl_GetIndexFromObj(interp, objv[1], options, @@ -481,7 +481,7 @@ TclStrIdxTreeTestObjCmd( switch (optionIndex) { case O_FINDEQUAL: if (objc < 4) { - Tcl_SetResult(interp, "wrong # args", TCL_STATIC); + Tcl_SetResult(interp, (char*)"wrong # args", TCL_STATIC); return TCL_ERROR; } cs = TclGetString(objv[2]); |