diff options
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinDde.c | 16 | ||||
| -rw-r--r-- | win/tclWinReg.c | 2 |
2 files changed, 17 insertions, 1 deletions
diff --git a/win/tclWinDde.c b/win/tclWinDde.c index e232471..fb2be99 100644 --- a/win/tclWinDde.c +++ b/win/tclWinDde.c @@ -171,6 +171,14 @@ Dde_Init( Tcl_CreateExitHandler(DdeExitProc, NULL); return Tcl_PkgProvideEx(interp, TCL_DDE_PACKAGE_NAME, TCL_DDE_VERSION, NULL); } +#if TCL_MAJOR_VERSION < 9 +int +Tcldde_Init( + Tcl_Interp *interp) +{ + return Dde_Init(interp); +} +#endif /* *---------------------------------------------------------------------- @@ -198,6 +206,14 @@ Dde_SafeInit( } return result; } +#if TCL_MAJOR_VERSION < 9 +int +Tcldde_SafeInit( + Tcl_Interp *interp) +{ + return Dde_SafeInit(interp); +} +#endif /* *---------------------------------------------------------------------- diff --git a/win/tclWinReg.c b/win/tclWinReg.c index 6fafead..f9481be 100644 --- a/win/tclWinReg.c +++ b/win/tclWinReg.c @@ -144,7 +144,7 @@ DLLEXPORT int Registry_Unload(Tcl_Interp *interp, int flags); #if TCL_MAJOR_VERSION < 9 /* With those additional entries, "load registry13.dll" works without 3th argument */ DLLEXPORT int Tclregistry_Init(Tcl_Interp *interp); -DLLEXPORT int Tclregistry_SafeInit(Tcl_Interp *interp); +DLLEXPORT int Tclregistry_Unload(Tcl_Interp *interp, int flags); #endif #ifdef __cplusplus } |