diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-03-19 16:12:35 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-03-19 16:12:35 (GMT) |
| commit | 035f2dd2e4666fddd85128824dbde04b05b14e5a (patch) | |
| tree | 70dc99b92d3ba7e2dd0e993045ee9ed16ed33f03 /generic/tclStubInit.c | |
| parent | 27e17932da93567e394ae77573e9858e5b6b6f51 (diff) | |
| download | tcl-035f2dd2e4666fddd85128824dbde04b05b14e5a.zip tcl-035f2dd2e4666fddd85128824dbde04b05b14e5a.tar.gz tcl-035f2dd2e4666fddd85128824dbde04b05b14e5a.tar.bz2 | |
bug 3508771: load tclreg.dll in cygwin tclsh
(works on cygwin, on other UNIX not yet complete)
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index a81f3e8..91f176c 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -57,6 +57,19 @@ Tcl_NotifierProcs tclOriginalNotifier = { NULL }; +#ifdef __CYGWIN__ +#define TclWinGetPlatformId winGetPlatformId +static int +TclWinGetPlatformId() +{ + /* Don't bother to determine the real platform on cygwin, + * because VER_PLATFORM_WIN32_NT is the only supported platform */ + return 2; /* VER_PLATFORM_WIN32_NT */; +} +#elif !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ +#define TclWinGetPlatformId (int (*)()) TclpCreateTempFile +#endif + /* * WARNING: The contents of this file is automatically generated by the * tools/genStubs.tcl script. Any modifications to the function declarations @@ -307,11 +320,20 @@ TclIntPlatStubs tclIntPlatStubs = { TclpMakeFile, /* 6 */ TclpOpenFile, /* 7 */ TclUnixWaitForFile, /* 8 */ - TclpCreateTempFile, /* 9 */ + TclWinGetPlatformId, /* 9 */ TclpReaddir, /* 10 */ TclpLocaltime_unix, /* 11 */ TclpGmtime_unix, /* 12 */ TclpInetNtoa, /* 13 */ + NULL, /* 14 */ + NULL, /* 15 */ + NULL, /* 16 */ + NULL, /* 17 */ + NULL, /* 18 */ + NULL, /* 19 */ + NULL, /* 20 */ + NULL, /* 21 */ + TclpCreateTempFile, /* 22 */ #endif /* UNIX */ #ifdef __WIN32__ TclWinConvertError, /* 0 */ |