From d0e9f9dade02ccd2ab0f1af115654739d870b0fd Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 13 Aug 2013 19:26:35 +0000
Subject: [0aa8f12dcc] Restore minimum code to stop failing tests.

---
 generic/tclExecute.c | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 2cdba8a..94ee3af 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -5547,6 +5547,11 @@ TEBCresume(
 		w1 = (Tcl_WideInt) l1;
 		w2 = (Tcl_WideInt) l2;
 		wResult = w1 - w2;
+#ifdef TCL_WIDE_INT_IS_LONG
+                if (Overflowing(w1, ~w2, wResult)) {
+                    goto overflow;
+                }
+#endif
 	    wideResultOfArithmetic:
 		TRACE(("%s %s => ", O2S(valuePtr), O2S(value2Ptr)));
 		if (Tcl_IsShared(valuePtr)) {
@@ -7910,7 +7915,9 @@ ExecuteExtendedBinaryMathOp(
 
 	    case INST_SUB:
 		wResult = w1 - w2;
+#ifndef TCL_WIDE_INT_IS_LONG
 		if ((type1 == TCL_NUMBER_WIDE) || (type2 == TCL_NUMBER_WIDE))
+#endif
 		{
 		    /*
 		     * Must check for overflow. The macro tests for overflows
-- 
cgit v0.12