diff options
| author | oehhar <harald.oehlmann@elmicron.de> | 2023-11-02 17:00:21 (GMT) |
|---|---|---|
| committer | oehhar <harald.oehlmann@elmicron.de> | 2023-11-02 17:00:21 (GMT) |
| commit | 3928c1068a7075ee5c025b58033fbeb21bb4bb61 (patch) | |
| tree | 507c3ccc4c278038115df111f8c886a658438f9e /generic/tclIOCmd.c | |
| parent | 58a2c303a9672d26927263158138e53999f3ba14 (diff) | |
| parent | 69fb959ca642175270a38faf7bfab40da094a9b7 (diff) | |
| download | tcl-3928c1068a7075ee5c025b58033fbeb21bb4bb61.zip tcl-3928c1068a7075ee5c025b58033fbeb21bb4bb61.tar.gz tcl-3928c1068a7075ee5c025b58033fbeb21bb4bb61.tar.bz2 | |
Merge core-8-branch
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 25e52b1..cd7fbff 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -449,7 +449,7 @@ Tcl_ReadObjCmd( Tcl_SetObjResult(interp, Tcl_ObjPrintf( "expected non-negative integer but got \"%s\"", TclGetString(objv[i]))); - Tcl_SetErrorCode(interp, "TCL", "VALUE", "NUMBER", NULL); + Tcl_SetErrorCode(interp, "TCL", "VALUE", "NUMBER", (void *)NULL); return TCL_ERROR; #if !defined(TCL_NO_DEPRECATED) } |