diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-27 21:04:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-27 21:04:39 (GMT) |
| commit | b727df70e6804bf6a51a40e69cde2ff1a61ce570 (patch) | |
| tree | a1a470de893f0f36bb2bf0b879c9e3689876e5a1 /generic/tclTestObj.c | |
| parent | f8c457b80f302a4587d875329a789e0906b13989 (diff) | |
| parent | 34acc36d873d6b1ec6a8cd505af4491dfad7fd57 (diff) | |
| download | tcl-b727df70e6804bf6a51a40e69cde2ff1a61ce570.zip tcl-b727df70e6804bf6a51a40e69cde2ff1a61ce570.tar.gz tcl-b727df70e6804bf6a51a40e69cde2ff1a61ce570.tar.bz2 | |
Another round of sentinel improvements
Diffstat (limited to 'generic/tclTestObj.c')
| -rw-r--r-- | generic/tclTestObj.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c index 6f996d7..7139674 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -434,7 +434,7 @@ TestbooleanobjCmd( } else { Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "bad option \"", Tcl_GetString(objv[1]), - "\": must be set, get, or not", (void *)NULL); + "\": must be set, get, or not", (char *)NULL); return TCL_ERROR; } return TCL_OK; @@ -551,7 +551,7 @@ TestdoubleobjCmd( } else { Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "bad option \"", Tcl_GetString(objv[1]), - "\": must be set, get, mult10, or div10", (void *)NULL); + "\": must be set, get, mult10, or div10", (char *)NULL); return TCL_ERROR; } return TCL_OK; @@ -840,7 +840,7 @@ TestintobjCmd( } else { Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "bad option \"", Tcl_GetString(objv[1]), - "\": must be set, get, get2, mult10, or div10", (void *)NULL); + "\": must be set, get, get2, mult10, or div10", (char *)NULL); return TCL_ERROR; } return TCL_OK; @@ -1212,7 +1212,7 @@ TestobjCmd( } if ((targetType = Tcl_GetObjType(Tcl_GetString(objv[3]))) == NULL) { Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), - "no type ", Tcl_GetString(objv[3]), " found", (void *)NULL); + "no type ", Tcl_GetString(objv[3]), " found", (char *)NULL); return TCL_ERROR; } if (Tcl_ConvertToType(interp, varPtr[varIndex], targetType) @@ -1369,7 +1369,7 @@ TeststringobjCmd( Tcl_AppendStringsToObj(varPtr[varIndex], strings[0], strings[1], strings[2], strings[3], strings[4], strings[5], strings[6], strings[7], strings[8], strings[9], - strings[10], strings[11], (void *)NULL); + strings[10], strings[11], (char *)NULL); Tcl_SetObjResult(interp, varPtr[varIndex]); break; case 2: /* get */ |