diff options
Diffstat (limited to 'win/tclWinReg.c')
| -rw-r--r-- | win/tclWinReg.c | 47 |
1 files changed, 4 insertions, 43 deletions
diff --git a/win/tclWinReg.c b/win/tclWinReg.c index 58d0b61..f07eeba 100644 --- a/win/tclWinReg.c +++ b/win/tclWinReg.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinReg.c,v 1.7 1999/02/02 22:25:21 stanton Exp $ + * RCS: @(#) $Id: tclWinReg.c,v 1.7.4.1 1999/03/03 00:38:47 stanton Exp $ */ #include <tcl.h> @@ -30,17 +30,6 @@ #define TCL_STORAGE_CLASS DLLEXPORT /* - * VC++ has an alternate entry point called DllMain, so we need to rename - * our entry point. - */ - -#ifdef DLL_BUILD -# if defined(_MSC_VER) -# define DllEntryPoint DllMain -# endif -#endif - -/* * The following macros convert between different endian ints. */ @@ -118,38 +107,7 @@ static int SetValue(Tcl_Interp *interp, Tcl_Obj *keyNameObj, Tcl_Obj *typeObj); EXTERN int Registry_Init(Tcl_Interp *interp); - -/* - *---------------------------------------------------------------------- - * - * DllEntryPoint -- - * - * This wrapper function is used by Windows to invoke the - * initialization code for the DLL. If we are compiling - * with Visual C++, this routine will be renamed to DllMain. - * routine. - * - * Results: - * Returns TRUE; - * - * Side effects: - * None. - * - *---------------------------------------------------------------------- - */ -#ifdef __WIN32__ -#ifdef DLL_BUILD -BOOL APIENTRY -DllEntryPoint( - HINSTANCE hInst, /* Library instance handle. */ - DWORD reason, /* Reason this function is being called. */ - LPVOID reserved) /* Not used. */ -{ - return TRUE; -} -#endif -#endif /* *---------------------------------------------------------------------- @@ -171,6 +129,9 @@ int Registry_Init( Tcl_Interp *interp) { + if (!Tcl_InitStubs(interp, "8.0", 0)) { + return TCL_ERROR; + } Tcl_CreateObjCommand(interp, "registry", RegistryObjCmd, NULL, NULL); return Tcl_PkgProvide(interp, "registry", "1.0"); } |