diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-21 13:19:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-21 13:19:16 (GMT) |
| commit | 1faa0cca77b8a8f9b6e17acf768afaf71d6eb95d (patch) | |
| tree | 1ce7f23e0b57be6abb4d9ef276b63630d2e20818 /win | |
| parent | 7561bdb176677ac643786eb846f918403fc872b3 (diff) | |
| parent | e872538a2e315cffa0f5279b3044f904029f14c0 (diff) | |
| download | tcl-1faa0cca77b8a8f9b6e17acf768afaf71d6eb95d.zip tcl-1faa0cca77b8a8f9b6e17acf768afaf71d6eb95d.tar.gz tcl-1faa0cca77b8a8f9b6e17acf768afaf71d6eb95d.tar.bz2 | |
Merge 8.7
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 } |