diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-24 13:06:07 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-24 13:06:07 (GMT) |
commit | bc0d60d931ae4b37a77de366f73addd1af213fb9 (patch) | |
tree | aa933341e9c1e2e00b1014456ef3b583fe457430 /generic/tclZipfs.c | |
parent | 7e63083ea10c94a9a905807f6f457820303f787f (diff) | |
parent | d134d35fef774db63654e487bb6303b79597b820 (diff) | |
download | tcl-bc0d60d931ae4b37a77de366f73addd1af213fb9.zip tcl-bc0d60d931ae4b37a77de366f73addd1af213fb9.tar.gz tcl-bc0d60d931ae4b37a77de366f73addd1af213fb9.tar.bz2 |
Merge 8.7. Fix "make checkstubs"
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 9c94851..dfc52bb 100644 --- a/generic/tclZipfs.c +++ b/generic/tclZipfs.c @@ -2,7 +2,7 @@ * tclZipfs.c -- * * Implementation of the ZIP filesystem used in TIP 430 - * Adapted from the implentation for AndroWish. + * Adapted from the implementation for AndroWish. * * Copyright © 2016-2017 Sean Woods <yoda@etoyoc.com> * Copyright © 2013-2015 Christian Werner <chw@ch-werner.de> @@ -4788,14 +4788,14 @@ TclZipfs_AppHook( char ***argvPtr) /* Pointer to argv */ #endif /* _WIN32 */ { - char *archive; + const char *archive; #ifdef _WIN32 Tcl_FindExecutable(NULL); #else Tcl_FindExecutable((*argvPtr)[0]); #endif - archive = (char *) Tcl_GetNameOfExecutable(); + archive = Tcl_GetNameOfExecutable(); TclZipfs_Init(NULL); /* |