diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-27 21:15:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-27 21:15:27 (GMT) |
| commit | a53b30cd746bc36dff41401890341aceae4d79cb (patch) | |
| tree | ce5d7f6c3ca8faf0d0dca3f343acf35c896f0757 /generic/tclTestObj.c | |
| parent | c7ebbbdfdd63cb05821f68a743ffcd82305779b3 (diff) | |
| parent | b727df70e6804bf6a51a40e69cde2ff1a61ce570 (diff) | |
| download | tcl-a53b30cd746bc36dff41401890341aceae4d79cb.zip tcl-a53b30cd746bc36dff41401890341aceae4d79cb.tar.gz tcl-a53b30cd746bc36dff41401890341aceae4d79cb.tar.bz2 | |
Merge 8.7
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 9dc16a7..44ad263 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -432,7 +432,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; @@ -549,7 +549,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; @@ -838,7 +838,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; @@ -1247,7 +1247,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) @@ -1404,7 +1404,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 */ |