Disable tcl::mathfunc::rmmadwiw by default to make test suite work; automated

test frameworks have no mind to read...

2 files changed, 5 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index fd79840..976cc58 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2011-04-04  Donal K. Fellows  <dkf@users.sf.net>
 
+	* library/init.tcl (tcl::mathfunc::rmmadwiw): Disable by default to
+	make test suite work.
+
 	* generic/tclBasic.c, generic/tclStringObj.c, generic/tclTimer.c,
 	* generic/tclTrace.c, generic/tclUtil.c: More generation of error
 	codes ([format], [after], [trace], RE optimizer).
diff --git a/library/init.tcl b/library/init.tcl
index d85fe2a..f1d6a64 100644
--- a/library/init.tcl
+++ b/library/init.tcl
@@ -823,6 +823,7 @@ proc tcl::CopyDirectory {action src dest} {
 }
 
 # TIP 131
+if 0 {
 proc tcl::rmmadwiw {} {
     set magic {
         42 83 fe f6 ff f8 f1 e5 c6 f9 eb fd ff fb f1 e5 cc f5 ec f5 e3 fd fe
@@ -847,3 +848,4 @@ proc tcl::mathfunc::rmmadwiw {} {
     set matter [lreverse $mind]
     return [join $matter ""]
 }
+}