diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-07-05 05:54:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-07-05 05:54:59 (GMT) |
| commit | 5b9decfc5c7c9e6feae2d789a73bcfd7f465825e (patch) | |
| tree | f5e82ccf58c1b726a83e83eebeb56d953a67f37f /generic/tclTestObj.c | |
| parent | f55f26abe0abebafbf5d09c6247c1bebbbffe63e (diff) | |
| download | tcl-5b9decfc5c7c9e6feae2d789a73bcfd7f465825e.zip tcl-5b9decfc5c7c9e6feae2d789a73bcfd7f465825e.tar.gz tcl-5b9decfc5c7c9e6feae2d789a73bcfd7f465825e.tar.bz2 | |
"utf32string" and "wideInt" types are gone in 9.0
Diffstat (limited to 'generic/tclTestObj.c')
| -rw-r--r-- | generic/tclTestObj.c | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index 44ad263..f73483b 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -1185,11 +1185,6 @@ TestobjCmd( Tcl_SetObjResult(interp, Tcl_NewStringObj("none", -1)); } else { typeName = objv[2]->typePtr->name; - if (!strcmp(typeName, "utf32string")) - typeName = "string"; -#ifndef TCL_WIDE_INT_IS_LONG - else if (!strcmp(typeName, "wideInt")) typeName = "int"; -#endif Tcl_SetObjResult(interp, Tcl_NewStringObj(typeName, -1)); } } @@ -1285,11 +1280,6 @@ TestobjCmd( } if (varPtr[varIndex]->typePtr == NULL) { /* a string! */ Tcl_AppendToObj(Tcl_GetObjResult(interp), "string", -1); -#ifndef TCL_WIDE_INT_IS_LONG - } else if (!strcmp(varPtr[varIndex]->typePtr->name, "wideInt")) { - Tcl_AppendToObj(Tcl_GetObjResult(interp), - "int", -1); -#endif } else { Tcl_AppendToObj(Tcl_GetObjResult(interp), varPtr[varIndex]->typePtr->name, -1); |