diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-21 13:15:54 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-21 13:15:54 (GMT) |
| commit | e872538a2e315cffa0f5279b3044f904029f14c0 (patch) | |
| tree | b5bcd71fb88c1439142a40ad170a6acb88652ea7 /win | |
| parent | ac4faee2328d37860ec958ec755508713cbf6ea7 (diff) | |
| download | tcl-e872538a2e315cffa0f5279b3044f904029f14c0.zip tcl-e872538a2e315cffa0f5279b3044f904029f14c0.tar.gz tcl-e872538a2e315cffa0f5279b3044f904029f14c0.tar.bz2 | |
Tweaks to dde and registry extension, so they "load" without 3th argument in Tcl 8.6 too.
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 } |