diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclIntDecls.h | 12 | ||||
| -rw-r--r-- | generic/tclLink.c | 2 |
2 files changed, 13 insertions, 1 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 22b8072..f2654c0 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -1354,17 +1354,29 @@ extern const TclIntStubs *tclIntStubsPtr; # undef TclSetStartupScript # undef TclGetStartupScript # undef TclCreateNamespace +# define tcl_CreateNamespace tclCreateNamespace # undef TclDeleteNamespace +# define tcl_DeleteNamespace tclDeleteNamespace # undef TclAppendExportList +# define tcl_AppendExportList tclAppendExportList # undef TclExport +# define tcl_Export tclExport # undef TclImport +# define tcl_Import tclImport # undef TclForgetImport +# define tcl_ForgetImport tclForgetImport # undef TclGetCurrentNamespace_ +# define tcl_GetCurrentNamespace tclGetCurrentNamespace_ # undef TclGetGlobalNamespace_ +# define tcl_GetGlobalNamespace tclGetGlobalNamespace_ # undef TclFindNamespace +# define tcl_FindNamespace tclFindNamespace # undef TclFindCommand +# define tcl_FindCommand tclFindCommand # undef TclGetCommandFromObj +# define tcl_GetCommandFromObj tclGetCommandFromObj # undef TclGetCommandFullName +# define tcl_GetCommandFullName tclGetCommandFullName # undef TclCopyChannelOld # undef TclSockMinimumBuffersOld #endif diff --git a/generic/tclLink.c b/generic/tclLink.c index 7366acc..53187d7 100644 --- a/generic/tclLink.c +++ b/generic/tclLink.c @@ -654,7 +654,7 @@ static Tcl_ObjType invalidRealType = { NULL, /* freeIntRepProc */ NULL, /* dupIntRepProc */ NULL, /* updateStringProc */ - SetInvalidRealFromAny /* setFromAnyProc */ + NULL /* setFromAnyProc */ }; static int |