diff options
| author | nijtmans <nijtmans> | 2010-09-16 14:49:37 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-09-16 14:49:37 (GMT) |
| commit | 5817de92b6e25bf3e19ff91d3fd006717526a6c7 (patch) | |
| tree | 09e3deddc87e3b0f9ead316af857ae1d4c5b4213 /generic/tclDecls.h | |
| parent | 555bbc4fc9ae1d18813578c9479915349bd81591 (diff) | |
| download | tcl-5817de92b6e25bf3e19ff91d3fd006717526a6c7.zip tcl-5817de92b6e25bf3e19ff91d3fd006717526a6c7.tar.gz tcl-5817de92b6e25bf3e19ff91d3fd006717526a6c7.tar.bz2 | |
Make Tcl_FindExecutable() work in UNICODE compiles (windows-only) as well as ASCII.
Needed for [FRQ 491789]: setargv() doesn't support a unicode cmdline
Diffstat (limited to 'generic/tclDecls.h')
| -rw-r--r-- | generic/tclDecls.h | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 3922548..675f383 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclDecls.h,v 1.185 2010/08/31 20:48:17 nijtmans Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.186 2010/09/16 14:49:37 nijtmans Exp $ */ #ifndef _TCLDECLS @@ -3771,9 +3771,6 @@ extern const TclStubs *tclStubsPtr; /* !END!: Do not edit above this line. */ -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT - #if defined(USE_TCL_STUBS) # undef Tcl_CreateInterp # undef Tcl_FindExecutable @@ -3786,6 +3783,11 @@ extern const TclStubs *tclStubsPtr; # define Tcl_SetVar(interp, varName, newValue, flags) \ (tclStubsPtr->tcl_SetVar(interp, varName, newValue, flags)) #endif +#if defined(_WIN32) && defined(UNICODE) +# define Tcl_FindExecutable(arg) ((Tcl_FindExecutable)((const char *)(arg))) +#endif -#endif /* _TCLDECLS */ +#undef TCL_STORAGE_CLASS +#define TCL_STORAGE_CLASS DLLIMPORT +#endif /* _TCLDECLS */ |