diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-15 15:20:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-15 15:20:29 (GMT) |
| commit | 4796062aab8a24df621cf33dbe862f72b36986f8 (patch) | |
| tree | 29b9e228043f436e5eaff478e6178f21c6c185ee /generic/tclTestObj.c | |
| parent | 7934f521d7f3b837fc6430fe78d9320756af1d82 (diff) | |
| parent | 2d85a1f9deb33cad80923f44a691189b7aefd8a5 (diff) | |
| download | tcl-4796062aab8a24df621cf33dbe862f72b36986f8.zip tcl-4796062aab8a24df621cf33dbe862f72b36986f8.tar.gz tcl-4796062aab8a24df621cf33dbe862f72b36986f8.tar.bz2 | |
Merge tip-548
Diffstat (limited to 'generic/tclTestObj.c')
| -rw-r--r-- | generic/tclTestObj.c | 18 |
1 files changed, 6 insertions, 12 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index b427c9e..4763084 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -53,7 +53,7 @@ static int TeststringobjCmd(void *dummy, Tcl_Interp *interp, static void VarPtrDeleteProc(void *clientData, Tcl_Interp *interp) { - register int i; + int i; Tcl_Obj **varPtr = (Tcl_Obj **) clientData; for (i = 0; i < NUMBER_OF_OBJECT_VARS; i++) { if (varPtr[i]) Tcl_DecrRefCount(varPtr[i]); @@ -91,7 +91,7 @@ int TclObjTest_Init( Tcl_Interp *interp) { - register int i; + int i; /* * An array of Tcl_Obj pointers used in the commands that operate on or get * the values of Tcl object-valued variables. varPtr[i] is the i-th variable's @@ -1178,8 +1178,8 @@ TeststringobjCmd( Tcl_Obj **varPtr; static const char *const options[] = { "append", "appendstrings", "get", "get2", "length", "length2", - "set", "set2", "setlength", "maxchars", "getunicode", - "appendself", "appendself2", NULL + "set", "set2", "setlength", "maxchars", "appendself", + "appendself2", NULL }; if (objc < 3) { @@ -1344,13 +1344,7 @@ TeststringobjCmd( } Tcl_SetIntObj(Tcl_GetObjResult(interp), length); break; - case 10: /* getunicode */ - if (objc != 3) { - goto wrongNumArgs; - } - Tcl_GetUnicode(varPtr[varIndex]); - break; - case 11: /* appendself */ + case 10: /* appendself */ if (objc != 4) { goto wrongNumArgs; } @@ -1381,7 +1375,7 @@ TeststringobjCmd( Tcl_AppendToObj(varPtr[varIndex], string + i, length - i); Tcl_SetObjResult(interp, varPtr[varIndex]); break; - case 12: /* appendself2 */ + case 11: /* appendself2 */ if (objc != 4) { goto wrongNumArgs; } |