merge trunk, fix leak.

3 files changed, 26 insertions, 8 deletions

diff --git a/generic/tclArithSeries.c b/generic/tclArithSeries.c
index c4c65a3..f8428e6 100755
--- a/generic/tclArithSeries.c
+++ b/generic/tclArithSeries.c
@@ -913,8 +913,21 @@ TclArithSeriesGetElements(
 }
 
 /*
- *  Handle ArithSeries special case - don't shimmer a series into a list
- *  just to reverse it.
+ *----------------------------------------------------------------------
+ *
+ * TclArithSeriesObjReverse --
+ *
+ *	Reverse the order of the ArithSeries value. The arithSeriesObj is
+ *	assumed to be a valid ArithSeries. The new Obj has the Start and End
+ *	values appropriately swapped and the Step value sign is changed.
+ *
+ * Results:
+ *      The result will be an ArithSeries in the reverse order.
+ *
+ * Side effects:
+ *      The ogiginal obj will be modified and returned if it is not Shared.
+ *
+ *----------------------------------------------------------------------
  */
 int
 TclArithSeriesObjReverse(
@@ -961,10 +974,6 @@ TclArithSeriesObjReverse(
 	TclSetIntObj(stepObj, step);
     }
 
-    Tcl_IncrRefCount(startObj);
-    Tcl_IncrRefCount(endObj);
-    Tcl_IncrRefCount(stepObj);
-
     if (Tcl_IsShared(arithSeriesObj) ||
 	    ((arithSeriesObj->refCount > 1))) {
 	Tcl_Obj *lenObj;
diff --git a/generic/tclTest.c b/generic/tclTest.c
index e701834..4bfd810 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -5765,6 +5765,9 @@ TestbytestringObjCmd(
 #if !defined(TCL_NO_DEPRECATED)
 #   if defined(_MSC_VER) && !defined(NDEBUG)
 #	pragma warning(disable:4133)
+#   elif defined(__clang__)
+#	pragma clang diagnostic push
+#	pragma clang diagnostic ignored "-Wincompatible-pointer-types"
 #   endif
 	int n; /* On purpose, not Tcl_Size, in order to demonstrate what happens */
 #else
@@ -5783,6 +5786,10 @@ TestbytestringObjCmd(
     if (p == NULL) {
 	return TCL_ERROR;
     }
+#if !defined(TCL_NO_DEPRECATED) && defined(__clang__)
+#   pragma clang diagnostic pop
+#endif
+
     if (x.m != 1) {
 	Tcl_AppendResult(interp, "Tcl_GetBytesFromObj() overwrites variable", NULL);
 	return TCL_ERROR;
diff --git a/generic/tclTestObj.c b/generic/tclTestObj.c
index a669695..5271a54 100644
--- a/generic/tclTestObj.c
+++ b/generic/tclTestObj.c
@@ -119,8 +119,10 @@ TclObjTest_Init(
     Tcl_CreateObjCommand(interp, "testobj", TestobjCmd, NULL, NULL);
     Tcl_CreateObjCommand(interp, "teststringobj", TeststringobjCmd,
 	    NULL, NULL);
-    Tcl_CreateObjCommand(interp, "testbigdata", TestbigdataCmd,
-	    NULL, NULL);
+    if (sizeof(Tcl_Size) == sizeof(Tcl_WideInt)) {
+	Tcl_CreateObjCommand(interp, "testbigdata", TestbigdataCmd,
+		NULL, NULL);
+    }
     return TCL_OK;
 }