Itcl - the [incr Tcl] extension

Check-in [a961f0729c]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:a small windows specific fix against Tcl's Stubs library.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a961f0729cefe3f00196a44798d4b7b409a89a02
User & Date: davygrvy 2001-04-07 07:23:32
Context
2001-04-08
03:06
no message check-in: 84d1ce784d user: davygrvy tags: trunk
2001-04-07
07:23
a small windows specific fix against Tcl's Stubs library. check-in: a961f0729c user: davygrvy tags: trunk
07:20
4/07/01 (bug fix) <[email protected]> Tcl's internal header, tclInt.h, in 8.4a2 got a small change in the Command structure that needed 2 changes in Itcl to resolve. 1) #if/#else/#endif blocks added in itcl_class.c and itc_ensemble.c allowing Itcl to compile. 2) added a global variable called itclCompatFlags that's sets a flag in Itcl_Init() that will modify the logic around access to cmdPtr->flags/deleted. This way, any core compile will yeild a fully forward/backward compatible binary (correct logic set at runtime). check-in: 7819f3a526 user: davygrvy tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to win/dllEntryPoint.c.

1
2
3
4
5
6
7
8

9

10






11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


31
32
33
34
35
36
37
38


/* 
 * dllEntryPoint.c --
 *
 *	This file implements the Dll entry point as needed by Windows.
 */

#define WIN32_LEAN_AND_MEAN
#include <windows.h>

#if defined(_MSC_VER)

#   define DllEntryPoint DllMain






#endif

/*
 *----------------------------------------------------------------------
 *
 * 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.
 *
 * Results:
 *	Returns TRUE;
 *
 * Side effects:
 *	None.
 *
 *----------------------------------------------------------------------
 */



BOOL APIENTRY
DllEntryPoint(hInst, reason, reserved)
    HINSTANCE hInst;		/* Library instance handle. */
    DWORD reason;		/* Reason this function is being called. */
    LPVOID reserved;		/* Not used. */
{
    return TRUE;
}










>
|
>

>
>
>
>
>
>




















>
>








>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
/* 
 * dllEntryPoint.c --
 *
 *	This file implements the Dll entry point as needed by Windows.
 */

#define WIN32_LEAN_AND_MEAN
#include <windows.h>

#ifdef _MSC_VER
    // Only do this when MSVC++ is compiling us.
#   define DllEntryPoint DllMain
#   if defined(USE_TCL_STUBS) && (!defined(_MT) || !defined(_DLL) || defined(_DEBUG))
	// This fixes a bug with how the Stubs library was compiled.
	// The requirement for msvcrt.lib from tclstubXX.lib should
	// be removed.
#	pragma comment(linker, "-nodefaultlib:msvcrt.lib")
#   endif
#endif

/*
 *----------------------------------------------------------------------
 *
 * 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.
 *
 * Results:
 *	Returns TRUE;
 *
 * Side effects:
 *	None.
 *
 *----------------------------------------------------------------------
 */

#ifndef STATIC_BUILD

BOOL APIENTRY
DllEntryPoint(hInst, reason, reserved)
    HINSTANCE hInst;		/* Library instance handle. */
    DWORD reason;		/* Reason this function is being called. */
    LPVOID reserved;		/* Not used. */
{
    return TRUE;
}

#endif