Tcl Source Code

Check-in [73fee7c814]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:[bug 3508771] fix OSX build
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 73fee7c814c3431ab443637be0fb393bf02fb16f
User & Date: jan.nijtmans 2012-03-22 10:01:02
Context
2012-03-23
15:53
Revert some cygwin-related signature changes from [835f8e1e9d] (2010-01-22). They were an attempt to... check-in: 70fd0e4074 user: jan.nijtmans tags: trunk
2012-03-22
21:57
merge trunk (fix OSX build error) check-in: c63f1e426a user: jan.nijtmans tags: tip-398-impl
10:01
[bug 3508771] fix OSX build check-in: 73fee7c814 user: jan.nijtmans tags: trunk
09:57
[bug 3508771] fix OSX build check-in: 47b5a84a31 user: jan.nijtmans tags: core-8-5-branch
2012-03-20
11:59
[Bug 3508771] load tclreg.dll in cygwin tclsh check-in: 8f9c16848b user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclIntPlatDecls.h.

508
509
510
511
512
513
514
515
516
517
518
519
520
521
/* !END!: Do not edit above this line. */

#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT
#undef TclpLocaltime_unix
#undef TclpGmtime_unix

#if !defined(__WIN32__) && !defined(__CYGWIN__) && defined(USE_TCL_STUBS)
#undef TclpCreateTempFile
#define TclpCreateTempFile \
	((TclFile (*)_ANSI_ARGS_((CONST char *))) tclIntPlatStubsPtr->tclWinGetPlatformId)
#endif

#endif /* _TCLINTPLATDECLS */







<
<
<
<
<
<

508
509
510
511
512
513
514






515
/* !END!: Do not edit above this line. */

#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT
#undef TclpLocaltime_unix
#undef TclpGmtime_unix







#endif /* _TCLINTPLATDECLS */

Changes to generic/tclStubInit.c.

85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
}

#define Tcl_MacOSXOpenBundleResources (int (*) _ANSI_ARGS_(( \
		Tcl_Interp *, CONST char *, int, int, char *))) Tcl_WinUtfToTChar
#define Tcl_MacOSXOpenVersionedBundleResources (int (*) _ANSI_ARGS_(( \
		Tcl_Interp *, CONST char *, CONST char *, int, int, char *))) Tcl_WinTCharToUtf

#elif !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */
#   define TclWinGetPlatformId (int (*)()) TclpCreateTempFile
#   ifndef MAC_OSX_TCL
#	define Tcl_MacOSXOpenBundleResources 0
#	define Tcl_MacOSXOpenVersionedBundleResources 0
#   endif
#endif








|







85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
}

#define Tcl_MacOSXOpenBundleResources (int (*) _ANSI_ARGS_(( \
		Tcl_Interp *, CONST char *, int, int, char *))) Tcl_WinUtfToTChar
#define Tcl_MacOSXOpenVersionedBundleResources (int (*) _ANSI_ARGS_(( \
		Tcl_Interp *, CONST char *, CONST char *, int, int, char *))) Tcl_WinTCharToUtf

#elif !defined(__WIN32__) /* UNIX and MAC */
#   define TclWinGetPlatformId (int (*)()) TclpCreateTempFile
#   ifndef MAC_OSX_TCL
#	define Tcl_MacOSXOpenBundleResources 0
#	define Tcl_MacOSXOpenVersionedBundleResources 0
#   endif
#endif