diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-23 15:54:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-23 15:54:27 (GMT) |
| commit | b726273bbea296990f6c4c7e98a213f56ce07bc5 (patch) | |
| tree | 8597b4ceecbbf0bf6d2bf3d521236d88109effe2 /generic | |
| parent | ed66664f844519c1137c9170de4c150c2e635319 (diff) | |
| parent | 5e0c34678e24c5ffe05c8a04f4395416067cefc1 (diff) | |
| download | tcl-b726273bbea296990f6c4c7e98a213f56ce07bc5.zip tcl-b726273bbea296990f6c4c7e98a213f56ce07bc5.tar.gz tcl-b726273bbea296990f6c4c7e98a213f56ce07bc5.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclTest.c | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 442260b..0d35b7a 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -1202,7 +1202,6 @@ CmdProc1( return TCL_OK; } - static int CmdProc2( void *clientData, /* String to return. */ @@ -1279,8 +1278,8 @@ TestcmdtokenCmd( const char **argv) /* Argument strings. */ { TestCommandTokenRef *refPtr; - char buf[30]; int id; + char buf[30]; if (argc != 3) { Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], @@ -2189,19 +2188,19 @@ static int UtfExtWrapper( Tcl_Obj *resultObjs[3]; switch (result) { case TCL_OK: - resultObjs[0] = Tcl_NewStringObj("ok", -1); + resultObjs[0] = Tcl_NewStringObj("ok", TCL_INDEX_NONE); break; case TCL_CONVERT_MULTIBYTE: - resultObjs[0] = Tcl_NewStringObj("multibyte", -1); + resultObjs[0] = Tcl_NewStringObj("multibyte", TCL_INDEX_NONE); break; case TCL_CONVERT_SYNTAX: - resultObjs[0] = Tcl_NewStringObj("syntax", -1); + resultObjs[0] = Tcl_NewStringObj("syntax", TCL_INDEX_NONE); break; case TCL_CONVERT_UNKNOWN: - resultObjs[0] = Tcl_NewStringObj("unknown", -1); + resultObjs[0] = Tcl_NewStringObj("unknown", TCL_INDEX_NONE); break; case TCL_CONVERT_NOSPACE: - resultObjs[0] = Tcl_NewStringObj("nospace", -1); + resultObjs[0] = Tcl_NewStringObj("nospace", TCL_INDEX_NONE); break; default: resultObjs[0] = Tcl_NewIntObj(result); |