From 30c0c8a7feaadda0755370a64f49f2db1a101dce Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Thu, 22 Oct 2015 01:00:28 +0000
Subject: Turn off NRE asserts by default. About a 5% speedup on [clock
 format].

---
 generic/tclBasic.c   | 3 ---
 generic/tclExecute.c | 3 ---
 generic/tclInt.h     | 4 +++-
 3 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index a09bf10..5c5bc64 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -22,10 +22,7 @@
 #include "tclCompile.h"
 #include "tommath.h"
 #include <math.h>
-
-#if NRE_ENABLE_ASSERTS
 #include <assert.h>
-#endif
 
 #define INTERP_STACK_INITIAL_SIZE 2000
 #define CORO_STACK_INITIAL_SIZE    200
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 7f65262..b10af65 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -20,10 +20,7 @@
 #include "tclOOInt.h"
 #include "tommath.h"
 #include <math.h>
-
-#if NRE_ENABLE_ASSERTS
 #include <assert.h>
-#endif
 
 /*
  * Hack to determine whether we may expect IEEE floating point. The hack is
diff --git a/generic/tclInt.h b/generic/tclInt.h
index d4baed4..50eb370 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -4799,7 +4799,9 @@ void Tcl_Panic(const char *, ...) __attribute__((analyzer_noreturn));
  */
 
 #define NRE_USE_SMALL_ALLOC	1  /* Only turn off for debugging purposes. */
-#define NRE_ENABLE_ASSERTS	1
+#ifndef NRE_ENABLE_ASSERTS
+#define NRE_ENABLE_ASSERTS	0
+#endif
 
 /*
  * This is the main data struct for representing NR commands. It is designed
-- 
cgit v0.12