Tcl Source Code

Artifact 2ce85ac3081b81a58f40472b5aa46c55ff2ab7b1:

Attachment "patch.txt" to ticket [1055836fff] added by davygrvy 2004-10-28 10:20:55.

---

*** unix/tclAppInit.c	31 May 2002 22:20:22 -0000	1.11
--- unix/tclAppInit.c	28 Oct 2004 03:16:34 -0000
***************
*** 20,32 ****
  
  #include "tclInt.h"
  
! extern int		Procbodytest_Init _ANSI_ARGS_((Tcl_Interp *interp));
! extern int		Procbodytest_SafeInit _ANSI_ARGS_((Tcl_Interp *interp));
! extern int		TclObjTest_Init _ANSI_ARGS_((Tcl_Interp *interp));
! extern int		Tcltest_Init _ANSI_ARGS_((Tcl_Interp *interp));
! #ifdef TCL_THREADS
! extern int		TclThread_Init _ANSI_ARGS_((Tcl_Interp *interp));
! #endif
  
  #endif /* TCL_TEST */
  
--- 20,29 ----
  
  #include "tclInt.h"
  
! extern Tcl_PackageInitProc	Procbodytest_Init;
! extern Tcl_PackageInitProc	Procbodytest_SafeInit;
! extern Tcl_PackageInitProc	TclObjTest_Init;
! extern Tcl_PackageInitProc	Tcltest_Init;
  
  #endif /* TCL_TEST */
  
***************
*** 133,143 ****
      if (TclObjTest_Init(interp) == TCL_ERROR) {
  	return TCL_ERROR;
      }
- #ifdef TCL_THREADS
-     if (TclThread_Init(interp) == TCL_ERROR) {
- 	return TCL_ERROR;
-     }
- #endif
      if (Procbodytest_Init(interp) == TCL_ERROR) {
  	return TCL_ERROR;
      }
--- 130,135 ----

*** win/tclAppInit.c	18 Sep 2004 22:01:36 -0000	1.20
--- win/tclAppInit.c	28 Oct 2004 03:16:41 -0000
***************
*** 19,31 ****
  #include <locale.h>
  
  #ifdef TCL_TEST
! extern int		Procbodytest_Init _ANSI_ARGS_((Tcl_Interp *interp));
! extern int		Procbodytest_SafeInit _ANSI_ARGS_((Tcl_Interp *interp));
! extern int		Tcltest_Init _ANSI_ARGS_((Tcl_Interp *interp));
! extern int		TclObjTest_Init _ANSI_ARGS_((Tcl_Interp *interp));
! #ifdef TCL_THREADS
! extern int		TclThread_Init _ANSI_ARGS_((Tcl_Interp *interp));
! #endif
  #endif /* TCL_TEST */
  
  #if defined(__GNUC__)
--- 19,28 ----
  #include <locale.h>
  
  #ifdef TCL_TEST
! extern Tcl_PackageInitProc	Procbodytest_Init;
! extern Tcl_PackageInitProc	Procbodytest_SafeInit;
! extern Tcl_PackageInitProc	Tcltest_Init;
! extern Tcl_PackageInitProc	TclObjTest_Init;
  #endif /* TCL_TEST */
  
  #if defined(__GNUC__)
***************
*** 155,170 ****
      if (Tcltest_Init(interp) == TCL_ERROR) {
  	return TCL_ERROR;
      }
!     Tcl_StaticPackage(interp, "Tcltest", Tcltest_Init,
!             (Tcl_PackageInitProc *) NULL);
      if (TclObjTest_Init(interp) == TCL_ERROR) {
  	return TCL_ERROR;
      }
- #ifdef TCL_THREADS
-     if (TclThread_Init(interp) == TCL_ERROR) {
- 	return TCL_ERROR;
-     }
- #endif
      if (Procbodytest_Init(interp) == TCL_ERROR) {
  	return TCL_ERROR;
      }
--- 152,161 ----
      if (Tcltest_Init(interp) == TCL_ERROR) {
  	return TCL_ERROR;
      }
!     Tcl_StaticPackage(interp, "Tcltest", Tcltest_Init, NULL);
      if (TclObjTest_Init(interp) == TCL_ERROR) {
  	return TCL_ERROR;
      }
      if (Procbodytest_Init(interp) == TCL_ERROR) {
  	return TCL_ERROR;
      }