diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-11 14:09:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-04-11 14:09:52 (GMT) |
| commit | 55d6827cefdd3f13dea91c3caaffe5404854780c (patch) | |
| tree | a53b7f1a3bca6cc2d2f7771e9ab9654ae2bdceac /generic/tclIOCmd.c | |
| parent | e8c7336785201066d19e1cdf7006c02fcbd3b468 (diff) | |
| parent | 5f2f09ff4ba7c6ee161dd40fb1b18e8d4ea61581 (diff) | |
| download | tcl-55d6827cefdd3f13dea91c3caaffe5404854780c.zip tcl-55d6827cefdd3f13dea91c3caaffe5404854780c.tar.gz tcl-55d6827cefdd3f13dea91c3caaffe5404854780c.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclIOCmd.c')
| -rw-r--r-- | generic/tclIOCmd.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index 01f519b..cb90059 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -425,7 +425,7 @@ Tcl_ReadObjCmd( Tcl_SetObjResult(interp, Tcl_ObjPrintf( "expected non-negative integer but got \"%s\"", TclGetString(objv[i]))); - Tcl_SetErrorCode(interp, "TCL", "VALUE", "NUMBER", (void *)NULL); + Tcl_SetErrorCode(interp, "TCL", "VALUE", "NUMBER", (char *)NULL); return TCL_ERROR; } } |