diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-27 17:13:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-27 17:13:59 (GMT) |
| commit | 14ab5ccf54dac59237afc1a65d09a4a4860f197b (patch) | |
| tree | 67c647f931ab8031a7e1c270b81129ea8ebac784 /generic/tclTestObj.c | |
| parent | da07fbe0220630931595f469782262f84303e064 (diff) | |
| download | tcl-14ab5ccf54dac59237afc1a65d09a4a4860f197b.zip tcl-14ab5ccf54dac59237afc1a65d09a4a4860f197b.tar.gz tcl-14ab5ccf54dac59237afc1a65d09a4a4860f197b.tar.bz2 | |
[26870862f0] follow-up: of course it was not complete yet
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 b4d70f0..3b958dd 100644 --- a/generic/tclTestObj.c +++ b/generic/tclTestObj.c @@ -420,7 +420,7 @@ TestbooleanobjCmd( } else { Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "bad option \"", Tcl_GetString(objv[1]), - "\": must be set, get, or not", NULL); + "\": must be set, get, or not", (void *)NULL); return TCL_ERROR; } return TCL_OK; @@ -537,7 +537,7 @@ TestdoubleobjCmd( } else { Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "bad option \"", Tcl_GetString(objv[1]), - "\": must be set, get, mult10, or div10", NULL); + "\": must be set, get, mult10, or div10", (void *)NULL); return TCL_ERROR; } return TCL_OK; @@ -826,7 +826,7 @@ TestintobjCmd( } else { Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "bad option \"", Tcl_GetString(objv[1]), - "\": must be set, get, get2, mult10, or div10", NULL); + "\": must be set, get, get2, mult10, or div10", (void *)NULL); return TCL_ERROR; } return TCL_OK; @@ -1199,7 +1199,7 @@ TestobjCmd( } if ((targetType = Tcl_GetObjType(Tcl_GetString(objv[3]))) == NULL) { Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), - "no type ", Tcl_GetString(objv[3]), " found", NULL); + "no type ", Tcl_GetString(objv[3]), " found", (void *)NULL); return TCL_ERROR; } if (Tcl_ConvertToType(interp, varPtr[varIndex], targetType) @@ -1356,7 +1356,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]); + strings[10], strings[11], (void *)NULL); Tcl_SetObjResult(interp, varPtr[varIndex]); break; case 2: /* get */ |