diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-11 16:32:51 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-11 16:32:51 (GMT) |
commit | 8adc51759b00eaa8623cd08ccbacda003fad7de3 (patch) | |
tree | a6bd62cbe56a2880a4e9b05f4cf36fc7d58d8d1e /generic/tclStubInit.c | |
parent | cccc07aa2829b401bc101caeb9890a7e876081a2 (diff) | |
parent | c41e7ffff57b8aea49698caa04d8bedee8f92143 (diff) | |
download | tcl-8adc51759b00eaa8623cd08ccbacda003fad7de3.zip tcl-8adc51759b00eaa8623cd08ccbacda003fad7de3.tar.gz tcl-8adc51759b00eaa8623cd08ccbacda003fad7de3.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclStubInit.c')
-rw-r--r-- | generic/tclStubInit.c | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 03577f7..5d4c2ec 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -67,6 +67,8 @@ #undef TclWinNToHS #undef TclStaticPackage #undef Tcl_BackgroundError +#undef TclGuessPackageName +#undef TclGetLoadedPackages #define TclStaticPackage Tcl_StaticPackage #undef Tcl_UniCharToUtfDString #undef Tcl_UtfToUniCharDString @@ -287,8 +289,28 @@ mp_err TclBN_mp_mul_d(const mp_int *a, unsigned int b, mp_int *c) { # define Tcl_ChannelCloseProc 0 # define Tcl_Close 0 # define Tcl_MacOSXOpenBundleResources 0 +# define TclGuessPackageName 0 +# define TclGetLoadedPackages 0 #else +#define TclGuessPackageName guessPackageName +static int TclGuessPackageName( + TCL_UNUSED(const char *), + TCL_UNUSED(Tcl_DString *)) { + return 0; +} +#define TclGetLoadedPackages getLoadedPackages +static int TclGetLoadedPackages( + Tcl_Interp *interp, /* Interpreter in which to return information + * or error message. */ + const char *targetName) /* Name of target interpreter or NULL. If + * NULL, return info about all interps; + * otherwise, just return info about this + * interpreter. */ +{ + return TclGetLoadedPackagesEx(interp, targetName, NULL); +} + mp_err TclBN_mp_div_3(const mp_int *a, mp_int *c, unsigned int *d) { mp_digit d2; mp_err result = mp_div_d(a, 3, c, &d2); |