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/tclZipfs.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/tclZipfs.c')
| -rw-r--r-- | generic/tclZipfs.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index 78c6d72..12f0ea0 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -56,7 +56,7 @@ if (interp) { \ Tcl_SetObjResult(interp, Tcl_NewStringObj( \ "out of memory", -1)); \ - Tcl_SetErrorCode(interp, "TCL", "MALLOC", (void *)NULL); \ + Tcl_SetErrorCode(interp, "TCL", "MALLOC", (char *)NULL); \ } \ } while (0) #define ZIPFS_POSIX_ERROR(interp,errstr) \ @@ -69,7 +69,7 @@ #define ZIPFS_ERROR_CODE(interp,errcode) \ do { \ if (interp) { \ - Tcl_SetErrorCode(interp, "TCL", "ZIPFS", errcode, (void *)NULL); \ + Tcl_SetErrorCode(interp, "TCL", "ZIPFS", errcode, (char *)NULL); \ } \ } while (0) @@ -2355,7 +2355,7 @@ TclZipfs_Mount( if (normZipPathObj == NULL) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "could not normalize zip filename \"%s\"", zipname)); - Tcl_SetErrorCode(interp, "TCL", "OPERATION", "NORMALIZE", (void *)NULL); + Tcl_SetErrorCode(interp, "TCL", "OPERATION", "NORMALIZE", (char *)NULL); ret = TCL_ERROR; } else { Tcl_IncrRefCount(normZipPathObj); |