summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authornijtmans <nijtmans>2010-11-19 20:47:09 (GMT)
committernijtmans <nijtmans>2010-11-19 20:47:09 (GMT)
commitd86dbadf3d8cd8f55512e4a6132e57af844ea142 (patch)
tree738de98136f32d38d178924dafe0e707dec673bf
parent6c6dc92ee5bcd102d4baf1a4fefcf27d18871b22 (diff)
downloadtcl-d86dbadf3d8cd8f55512e4a6132e57af844ea142.zip
tcl-d86dbadf3d8cd8f55512e4a6132e57af844ea142.tar.gz
tcl-d86dbadf3d8cd8f55512e4a6132e57af844ea142.tar.bz2
fix gcc warnings: unused variable 'registration'
-rw-r--r--ChangeLog6
-rw-r--r--win/tclWin32Dll.c4
-rw-r--r--win/tclWinChan.c4
-rw-r--r--win/tclWinFCmd.c6
4 files changed, 13 insertions, 7 deletions
diff --git a/ChangeLog b/ChangeLog
index 99ca821..0b56633 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2010-11-19 Jan Nijtmans <nijtmans@users.sf.net>
+
+ * win/tclWin32Dll.c: fix gcc warnings: unused variable 'registration'
+ * win/tclWinChan.c:
+ * win/tclWinFCmd.c:
+
2010-11-18 Jan Nijtmans <nijtmans@users.sf.net>
* win/tclAppInit.c: [FRQ 491789]: "setargv() doesn't support a
diff --git a/win/tclWin32Dll.c b/win/tclWin32Dll.c
index 98cfa85..ce8293d 100644
--- a/win/tclWin32Dll.c
+++ b/win/tclWin32Dll.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: tclWin32Dll.c,v 1.70 2010/11/04 21:48:23 nijtmans Exp $
+ * RCS: @(#) $Id: tclWin32Dll.c,v 1.71 2010/11/19 20:47:09 nijtmans Exp $
*/
#include "tclWinInt.h"
@@ -718,7 +718,7 @@ TclWinCPUID(
unsigned int index, /* Which CPUID value to retrieve. */
unsigned int *regsPtr) /* Registers after the CPUID. */
{
-#ifdef HAVE_NO_SEH
+#if defined(__GNUC__) && !defined(_WIN64)
EXCEPTION_REGISTRATION registration;
#endif
int status = TCL_ERROR;
diff --git a/win/tclWinChan.c b/win/tclWinChan.c
index 37e9011..0b030dd 100644
--- a/win/tclWinChan.c
+++ b/win/tclWinChan.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclWinChan.c,v 1.59 2010/09/13 14:20:39 nijtmans Exp $
+ * RCS: @(#) $Id: tclWinChan.c,v 1.60 2010/11/19 20:47:09 nijtmans Exp $
*/
#include "tclWinInt.h"
@@ -1027,7 +1027,7 @@ Tcl_MakeFileChannel(
int mode) /* ORed combination of TCL_READABLE and
* TCL_WRITABLE to indicate file mode. */
{
-#ifdef HAVE_NO_SEH
+#if defined(HAVE_NO_SEH) && !defined(_WIN64)
EXCEPTION_REGISTRATION registration;
#endif
char channelName[16 + TCL_INTEGER_SPACE];
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c
index 8de5e9f..a32222c 100644
--- a/win/tclWinFCmd.c
+++ b/win/tclWinFCmd.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclWinFCmd.c,v 1.70 2010/11/03 12:09:23 nijtmans Exp $
+ * RCS: @(#) $Id: tclWinFCmd.c,v 1.71 2010/11/19 20:47:09 nijtmans Exp $
*/
#include "tclWinInt.h"
@@ -177,7 +177,7 @@ DoRenameFile(
const TCHAR *nativeDst) /* New pathname for file or directory
* (native). */
{
-#ifdef HAVE_NO_SEH
+#if defined(HAVE_NO_SEH) && !defined(_WIN64)
EXCEPTION_REGISTRATION registration;
#endif
DWORD srcAttr, dstAttr;
@@ -564,7 +564,7 @@ DoCopyFile(
const TCHAR *nativeSrc, /* Pathname of file to be copied (native). */
const TCHAR *nativeDst) /* Pathname of file to copy to (native). */
{
-#ifdef HAVE_NO_SEH
+#if defined(HAVE_NO_SEH) && !defined(_WIN64)
EXCEPTION_REGISTRATION registration;
#endif
int retval = -1;