diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-03 11:55:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-03 11:55:28 (GMT) |
| commit | 952d24142b646af79e23c6182cf4646295eec215 (patch) | |
| tree | 876fd25342f6885be1eba0f216d2a7085f508dbd /generic/tclStubInit.c | |
| parent | f3146e6826308cf112fccc9ac29ab18bca2a6071 (diff) | |
| download | tcl-952d24142b646af79e23c6182cf4646295eec215.zip tcl-952d24142b646af79e23c6182cf4646295eec215.tar.gz tcl-952d24142b646af79e23c6182cf4646295eec215.tar.bz2 | |
cleanup tclInt.decls to have the same form as Tcl 8.5/8.6,
so a diff can show us the real signature differences
Remove the TclpGetTZName implementation for Cygwin, from previous commit
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 8c497288..8e8c66a 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -68,7 +68,6 @@ int __stdcall GetModuleHandleExW(unsigned int, const char *, void *); #define TclWinGetTclInstance winGetTclInstance #define TclWinNToHS winNToHS #define TclWinSetSockOpt winSetSockOpt -#define TclpGetTZName pGetTZName #define TclWinNoBackslash winNoBackslash #define TclWinSetInterfaces (void (*) (int)) doNothing #define TclWinAddProcess (void (*) (void *, unsigned int)) doNothing @@ -112,16 +111,6 @@ TclWinSetSockOpt(void *s, int level, int optname, } static char * -TclpGetTZName(int isdst) -{ - ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey); - const char *zone = getenv("TZ"); - Tcl_ExternalToUtf(NULL, NULL, zone, strlen(zone), 0, NULL, - tsdPtr->tzName, sizeof(tsdPtr->tzName), NULL, NULL, NULL); - return tsdPtr->tzName; -} - -static char * TclWinNoBackslash(char *path) { char *p; @@ -186,7 +175,6 @@ Tcl_WinTCharToUtf( # define TclWinNToHS (unsigned short (*) _ANSI_ARGS_((unsigned short ns))) TclpMakeFile # define TclWinSetSockOpt (int (*) _ANSI_ARGS_((void *, int, int, const char *, int))) TclpOpenFile # define TclWinAddProcess 0 -# define TclpGetTZName 0 # define TclWinNoBackslash 0 # define TclWinSetInterfaces 0 # define TclWinFlushDirtyChannels 0 @@ -466,7 +454,7 @@ TclIntPlatStubs tclIntPlatStubs = { TclWinAddProcess, /* 20 */ NULL, /* 21 */ TclpCreateTempFile, /* 22 */ - TclpGetTZName, /* 23 */ + NULL, /* 23 */ TclWinNoBackslash, /* 24 */ NULL, /* 25 */ TclWinSetInterfaces, /* 26 */ |