Merge 8.7

Author: jan.nijtmans

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
 
 /*
  *----------------------------------------------------------------------

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
 }