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 | 2551e10014ce7a04de887c09efb8e4198a8a4cb2 (patch) | |
tree | ce5d7f6c3ca8faf0d0dca3f343acf35c896f0757 /generic/tclListObj.c | |
parent | ba0158ee867ccc960c633efb83498b164d6625f3 (diff) | |
parent | c871de898a41d7e9c1d7cba05483944546c1ad5d (diff) | |
download | tcl-2551e10014ce7a04de887c09efb8e4198a8a4cb2.zip tcl-2551e10014ce7a04de887c09efb8e4198a8a4cb2.tar.gz tcl-2551e10014ce7a04de887c09efb8e4198a8a4cb2.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclListObj.c')
-rw-r--r-- | generic/tclListObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index a8e16d4..20e85dd 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -471,7 +471,7 @@ MemoryAllocationError( "list construction failed: unable to alloc %" TCL_Z_MODIFIER "u bytes", size)); - Tcl_SetErrorCode(interp, "TCL", "MEMORY", (void *)NULL); + Tcl_SetErrorCode(interp, "TCL", "MEMORY", (char *)NULL); } return TCL_ERROR; } @@ -498,7 +498,7 @@ ListLimitExceededError(Tcl_Interp *interp) 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; } |