diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-11-26 16:26:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-11-26 16:26:36 (GMT) |
| commit | 0f86930eba134fbfe6591c38d04f75762553bc66 (patch) | |
| tree | 634342972f98c986c7e2170b44e1e9f386e148cf /generic/tclEncoding.c | |
| parent | 0dfcca601117c2ae4f9e13ece4bb99d4f325cfca (diff) | |
| parent | cdd06df9dbc4004de5734dde40d47da74ceb93a6 (diff) | |
| download | tcl-0f86930eba134fbfe6591c38d04f75762553bc66.zip tcl-0f86930eba134fbfe6591c38d04f75762553bc66.tar.gz tcl-0f86930eba134fbfe6591c38d04f75762553bc66.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 162fa2a..3d0225b 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -1576,14 +1576,15 @@ Tcl_UtfToExternal( *--------------------------------------------------------------------------- */ #undef Tcl_FindExecutable -void +const char * Tcl_FindExecutable( const char *argv0) /* The value of the application's argv[0] * (native). */ { - Tcl_InitSubsystems(); + const char *version = Tcl_InitSubsystems(); TclpSetInitialEncodings(); TclpFindExecutable(argv0); + return version; } /* |