diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-24 13:12:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-24 13:12:01 (GMT) |
| commit | 2c7abb50ebc47a9736645c6371482e51a117112e (patch) | |
| tree | dd53598069c1c43473c2b31560c24b21d7e95da6 /generic/tclZipfs.c | |
| parent | bd8b8ff3b710e8ae5f4750eadc84c9d96c3ea4c7 (diff) | |
| parent | bc0d60d931ae4b37a77de366f73addd1af213fb9 (diff) | |
| download | tcl-2c7abb50ebc47a9736645c6371482e51a117112e.zip tcl-2c7abb50ebc47a9736645c6371482e51a117112e.tar.gz tcl-2c7abb50ebc47a9736645c6371482e51a117112e.tar.bz2 | |
Merge 9.0
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 d17152b..2089ef9 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,7 +4788,7 @@ TclZipfs_AppHook( char ***argvPtr) /* Pointer to argv */ #endif /* _WIN32 */ { - char *archive; + const char *archive; const char *result; #ifdef _WIN32 @@ -4796,7 +4796,7 @@ TclZipfs_AppHook( #else result = Tcl_FindExecutable((*argvPtr)[0]); #endif - archive = (char *) Tcl_GetNameOfExecutable(); + archive = Tcl_GetNameOfExecutable(); TclZipfs_Init(NULL); /* |