Attachment "binary.patch" to
ticket [871606ffff]
added by
vincentdarley
2004-01-07 23:51:41.
Index: tclBinary.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclBinary.c,v
retrieving revision 1.16
diff -u -r1.16 tclBinary.c
--- tclBinary.c 24 Dec 2003 04:18:18 -0000 1.16
+++ tclBinary.c 7 Jan 2004 16:50:51 -0000
@@ -1538,6 +1538,13 @@
}
}
+/*
+ * Microsoft VC++ 5.x have a compiler bug which hits
+ * the 'w' and 'W' branches in the function below.
+ */
+#if defined(_MSC_VER) && ( _MSC_VER < 1200 )
+#pragma optimize( "", off )
+#endif
/*
*----------------------------------------------------------------------
*
@@ -1702,6 +1709,12 @@
}
return NULL;
}
+/*
+ * See comment before preceding function
+ */
+#if defined(_MSC_VER) && ( _MSC_VER < 1200 )
+#pragma optimize( "", on )
+#endif
/*
*----------------------------------------------------------------------