diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-17 06:02:36 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-17 06:02:36 (GMT) |
commit | 6def0d48c1fff35f9f5b3bfbe1ddbe6cedd2c247 (patch) | |
tree | 764a634adc0ddab6d9a9456d74fc449175c34275 /generic/tclZipfs.c | |
parent | fdb568c35f1cd6de7f1acd05fdbd4f8b6cf5aee1 (diff) | |
download | tcl-6def0d48c1fff35f9f5b3bfbe1ddbe6cedd2c247.zip tcl-6def0d48c1fff35f9f5b3bfbe1ddbe6cedd2c247.tar.gz tcl-6def0d48c1fff35f9f5b3bfbe1ddbe6cedd2c247.tar.bz2 |
Handle sentinels for any C++ compiler
Diffstat (limited to 'generic/tclZipfs.c')
-rw-r--r-- | generic/tclZipfs.c | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/generic/tclZipfs.c b/generic/tclZipfs.c index 8ce17eb..f625150 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", NULL); \ + Tcl_SetErrorCode(interp, "TCL", "MALLOC", (void *)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, NULL); \ + Tcl_SetErrorCode(interp, "TCL", "ZIPFS", errcode, (void *)NULL); \ } \ } while (0) @@ -167,15 +167,6 @@ static const z_crc_t* crc32tab; #define DEFAULT_WRITE_MAX_SIZE ZIP_MAX_FILE_SIZE /* - * Windows drive letters. - */ - -#ifdef _WIN32 -static const char drvletters[] = - "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"; -#endif /* _WIN32 */ - -/* * Mutex to protect localtime(3) when no reentrant version available. */ @@ -2370,7 +2361,7 @@ TclZipfs_Mount( Tcl_SetObjResult( interp, Tcl_ObjPrintf("could not normalize zip filename \"%s\"", zipname)); - Tcl_SetErrorCode(interp, "TCL", "OPERATION", "NORMALIZE", NULL); + Tcl_SetErrorCode(interp, "TCL", "OPERATION", "NORMALIZE", (void *)NULL); ret = TCL_ERROR; } else { Tcl_IncrRefCount(normZipPathObj); |