From e872538a2e315cffa0f5279b3044f904029f14c0 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Wed, 21 Dec 2022 13:15:54 +0000
Subject: Tweaks to dde and registry extension, so they "load" without 3th
 argument in Tcl 8.6 too.

---
 win/tclWinDde.c | 16 ++++++++++++++++
 win/tclWinReg.c |  2 +-
 2 files changed, 17 insertions(+), 1 deletion(-)

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
 }
-- 
cgit v0.12