From Mo Dejong <supermo@bayarea.net>:

        * win/tclWin32Dll.c (DllMain): Remove unused os
        variable since VC++ treats warnings as errors
        when compiling with symbols.

        * win/tclWinPort.h: Remove undefine of PASCAL
        symbol added on 2001-09-12. It caused
        crashing problems with sockets.

diff --git a/tcl/ChangeLog b/tcl/ChangeLog
index 8f69e66..aa84695 100644 (file)
--- a/tcl/ChangeLog
+++ b/tcl/ChangeLog
@@ -1,3 +1,14 @@
+2002-09-13  Keith Seitz  <keiths@redhat.com>
+
+       From Mo Dejong  <supermo@bayarea.net>:
+       * win/tclWin32Dll.c (DllMain): Remove unused os
+       variable since VC++ treats warnings as errors
+       when compiling with symbols.
+
+       * win/tclWinPort.h: Remove undefine of PASCAL
+       symbol added on 2001-09-12. It caused
+       crashing problems with sockets.
+
 2002-07-31  Keith Seitz  <keiths@redhat.com>
 
        * generic/tclIntDecls.h (TclIntStubs): Do not include definitions

diff --git a/tcl/win/tclWin32Dll.c b/tcl/win/tclWin32Dll.c
index f7f8332..52b134d 100644 (file)
--- a/tcl/win/tclWin32Dll.c
+++ b/tcl/win/tclWin32Dll.c
@@ -190,8 +190,6 @@ DllMain(hInst, reason, reserved)
     DWORD reason;              /* Reason this function is being called. */
     LPVOID reserved;           /* Not used. */
 {
-    OSVERSIONINFO os;
-
     /* CYGNUS LOCAL */
 #ifdef __CYGWIN__0
     /* Cygwin requires the impure data pointer to be initialized

diff --git a/tcl/win/tclWinPort.h b/tcl/win/tclWinPort.h
index e4a73a2..eae022b 100644 (file)
--- a/tcl/win/tclWinPort.h
+++ b/tcl/win/tclWinPort.h
@@ -73,10 +73,6 @@ typedef float *TCHAR;
 #include <windows.h>
 #undef WIN32_LEAN_AND_MEAN
 
-#ifdef _MSC_VER
-#define PASCAL
-#endif
-
 #ifdef BUILD_tcl
 # undef TCL_STORAGE_CLASS
 # define TCL_STORAGE_CLASS DLLEXPORT