Tcl Source Code

Artifact [5b93cd1281]
Login

Artifact 5b93cd12814456b83e5ff6325ddd060700e0672c:

Attachment "quell.patch" to ticket [1889431fff] added by brlcad 2008-02-08 13:37:15.
Index: tcl.h
===================================================================
--- tcl.h	(revision 30192)
+++ tcl.h	(working copy)
@@ -92,6 +92,12 @@
 #   endif
 #endif /* __WIN32__ */
 
+/* quell shadow warnings */
+#ifdef index
+#  undef index
+#endif
+#define index tcl_scoped_index
+
 /*
  * Utility macros: STRINGIFY takes an argument and wraps it in "" (double
  * quotation marks), JOIN joins two arguments.
@@ -177,13 +183,13 @@
 #ifdef STATIC_BUILD
 #   define DLLIMPORT
 #   define DLLEXPORT
-#   if HAVE_DECLSPEC && defined(_DLL)
+#   if defined(HAVE_DECLSPEC) && defined(_DLL)
 #	define CRTIMPORT __declspec(dllimport)
 #   else
 #	define CRTIMPORT
 #   endif
 #else
-#   if HAVE_DECLSPEC
+#   ifdef HAVE_DECLSPEC
 #	define DLLIMPORT __declspec(dllimport)
 #	define DLLEXPORT __declspec(dllexport)
 #	define CRTIMPORT __declspec(dllimport)
@@ -2436,6 +2442,9 @@
 }
 #endif
 
+/* quell shadow warnings */
+#undef index
+
 #endif /* _TCL */
 
 /*