From 6a93c7f3706002c1f0ac2408515c9f87ef9cdeef Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Tue, 24 Mar 2020 10:42:49 +0000 Subject: MacOS: Make Tcl_MacOSXOpenBundleResources() a macro calling Tcl_MacOSXOpenVersionedBundleResources: One more stub entry which can be removed in Tcl 9.0 --- generic/tclPlatDecls.h | 5 +++++ macosx/tclMacOSXBundle.c | 1 + 2 files changed, 6 insertions(+) diff --git a/generic/tclPlatDecls.h b/generic/tclPlatDecls.h index abc8ee8..974bafa 100644 --- a/generic/tclPlatDecls.h +++ b/generic/tclPlatDecls.h @@ -114,6 +114,11 @@ extern const TclPlatStubs *tclPlatStubsPtr; /* !END!: Do not edit above this line. */ +#ifdef MAC_OSX_TCL /* MACOSX */ +#undef Tcl_MacOSXOpenBundleResources +#define Tcl_MacOSXOpenBundleResources(a,b,c,d,e) Tcl_MacOSXOpenVersionedBundleResources(a,b,NULL,c,d,e) +#endif + #undef TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS DLLIMPORT diff --git a/macosx/tclMacOSXBundle.c b/macosx/tclMacOSXBundle.c index dad3733..9fadb7b 100644 --- a/macosx/tclMacOSXBundle.c +++ b/macosx/tclMacOSXBundle.c @@ -162,6 +162,7 @@ OpenResourceMap( *---------------------------------------------------------------------- */ +#undef Tcl_MacOSXOpenBundleResources int Tcl_MacOSXOpenBundleResources( Tcl_Interp *interp, -- cgit v0.12