From 0723ee416fb8da07748b0eade992c76caaf3296c Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Fri, 25 Oct 2024 10:44:44 +0000 Subject: (void *)NULL -> (char *)NULL, where appropriate --- generic/tclArithSeries.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/generic/tclArithSeries.c b/generic/tclArithSeries.c index af2a72a..3aea737 100755 --- a/generic/tclArithSeries.c +++ b/generic/tclArithSeries.c @@ -565,7 +565,7 @@ TclNewArithSeriesObj( Tcl_SetObjResult( interp, Tcl_NewStringObj("max length of a Tcl list exceeded", -1)); - Tcl_SetErrorCode(interp, "TCL", "MEMORY", (void *)NULL); + Tcl_SetErrorCode(interp, "TCL", "MEMORY", (char *)NULL); return NULL; } @@ -893,7 +893,7 @@ TclArithSeriesGetElements( Tcl_SetObjResult( interp, Tcl_NewStringObj("max length of a Tcl list exceeded", -1)); - Tcl_SetErrorCode(interp, "TCL", "MEMORY", (void *)NULL); + Tcl_SetErrorCode(interp, "TCL", "MEMORY", (char *)NULL); } return TCL_ERROR; } @@ -914,7 +914,7 @@ TclArithSeriesGetElements( } else { if (interp != NULL) { Tcl_SetObjResult(interp, Tcl_NewStringObj("value is not an arithseries", TCL_INDEX_NONE)); - Tcl_SetErrorCode(interp, "TCL", "VALUE", "UNKNOWN", (void *)NULL); + Tcl_SetErrorCode(interp, "TCL", "VALUE", "UNKNOWN", (char *)NULL); } return TCL_ERROR; } -- cgit v0.12