Use Tcl_Size for ArithSeries.len

1 files changed, 26 insertions, 20 deletions

diff --git a/generic/tclArithSeries.c b/generic/tclArithSeries.c
index 40f34b5..c32c443 100755
--- a/generic/tclArithSeries.c
+++ b/generic/tclArithSeries.c
@@ -149,7 +149,7 @@ TclNewArithSeriesInt(Tcl_WideInt start, Tcl_WideInt end, Tcl_WideInt step, Tcl_W
     arithSeriesRepPtr->start = start;
     arithSeriesRepPtr->end = end;
     arithSeriesRepPtr->step = step;
-    arithSeriesRepPtr->len = length;
+    arithSeriesRepPtr->len1 = length;
     arithSeriesRepPtr->elements = NULL;
     arithSeriesPtr->internalRep.twoPtrValue.ptr1 = arithSeriesRepPtr;
     arithSeriesPtr->internalRep.twoPtrValue.ptr2 = NULL;
@@ -196,7 +196,7 @@ TclNewArithSeriesDbl(double start, double end, double step, Tcl_WideInt len)
     arithSeriesRepPtr->start = start;
     arithSeriesRepPtr->end = end;
     arithSeriesRepPtr->step = step;
-    arithSeriesRepPtr->len = length;
+    arithSeriesRepPtr->len1 = length;
     arithSeriesRepPtr->elements = NULL;
     arithSeriesPtr->internalRep.twoPtrValue.ptr1 = arithSeriesRepPtr;
     arithSeriesPtr->internalRep.twoPtrValue.ptr2 = NULL;
@@ -429,7 +429,7 @@ TclArithSeriesObjIndex(Tcl_Obj *arithSeriesPtr, Tcl_WideInt index, Tcl_Obj **ele
 	Tcl_Panic("TclArithSeriesObjIndex called with a not ArithSeries Obj.");
     }
     arithSeriesRepPtr = ArithSeriesRepPtr(arithSeriesPtr);
-    if (index < 0 || index >= arithSeriesRepPtr->len) {
+    if (index < 0 || index >= arithSeriesRepPtr->len1) {
 	return TCL_ERROR;
     }
     /* List[i] = Start + (Step * index) */
@@ -458,11 +458,11 @@ TclArithSeriesObjIndex(Tcl_Obj *arithSeriesPtr, Tcl_WideInt index, Tcl_Obj **ele
  *
  *----------------------------------------------------------------------
  */
-Tcl_WideInt TclArithSeriesObjLength(Tcl_Obj *arithSeriesPtr)
+Tcl_Size TclArithSeriesObjLength(Tcl_Obj *arithSeriesPtr)
 {
     ArithSeries *arithSeriesRepPtr = (ArithSeries*)
 	    arithSeriesPtr->internalRep.twoPtrValue.ptr1;
-    return arithSeriesRepPtr->len;
+    return arithSeriesRepPtr->len1;
 }
 
 /*
@@ -491,7 +491,7 @@ FreeArithSeriesInternalRep(Tcl_Obj *arithSeriesPtr)
     if (arithSeriesRepPtr->elements) {
 	Tcl_WideInt i;
 	Tcl_Obj**elmts = arithSeriesRepPtr->elements;
-	for(i=0; i<arithSeriesRepPtr->len; i++) {
+	for(i=0; i<arithSeriesRepPtr->len1; i++) {
 	    if (elmts[i]) {
 		Tcl_DecrRefCount(elmts[i]);
 	    }
@@ -581,7 +581,7 @@ UpdateStringOfArithSeries(Tcl_Obj *arithSeriesPtr)
     /*
      * Pass 1: estimate space.
      */
-    for (i = 0; i < arithSeriesRepPtr->len; i++) {
+    for (i = 0; i < arithSeriesRepPtr->len1; i++) {
 	TclArithSeriesObjIndex(arithSeriesPtr, i, &elemObj);
 	elem = TclGetStringFromObj(elemObj, &slen);
 	Tcl_DecrRefCount(elemObj);
@@ -594,7 +594,7 @@ UpdateStringOfArithSeries(Tcl_Obj *arithSeriesPtr)
      */
 
     p = Tcl_InitStringRep(arithSeriesPtr, NULL, length);
-    for (i = 0; i < arithSeriesRepPtr->len; i++) {
+    for (i = 0; i < arithSeriesRepPtr->len1; i++) {
 	TclArithSeriesObjIndex(arithSeriesPtr, i, &elemObj);
 	elem = TclGetStringFromObj(elemObj, &slen);
 	strcpy(p, elem);
@@ -725,10 +725,9 @@ TclArithSeriesObjRange(
 
     if (TclArithSeriesObjIndex(arithSeriesPtr, fromIdx, &startObj) != TCL_OK) {
 	if (interp) {
-	    Tcl_SetObjResult(
-		interp,
-		Tcl_ObjPrintf("index %d is out of bounds 0 to %"
-			      TCL_LL_MODIFIER "d", fromIdx, (arithSeriesRepPtr->len-1)));
+	    Tcl_SetObjResult(interp,
+		    Tcl_ObjPrintf("index %d is out of bounds 0 to %"
+			    "d", fromIdx, (arithSeriesRepPtr->len1-1)));
 	    Tcl_SetErrorCode(interp, "TCL", "MEMORY", NULL);
 	}
 	return NULL;
@@ -736,10 +735,9 @@ TclArithSeriesObjRange(
     Tcl_IncrRefCount(startObj);
     if (TclArithSeriesObjIndex(arithSeriesPtr, toIdx, &endObj) != TCL_OK) {
 	if (interp) {
-	    Tcl_SetObjResult(
-		interp,
-		Tcl_ObjPrintf("index %d is out of bounds 0 to %"
-			      TCL_LL_MODIFIER "d", fromIdx, (arithSeriesRepPtr->len-1)));
+	    Tcl_SetObjResult(interp,
+		    Tcl_ObjPrintf("index %d is out of bounds 0 to %"
+			    "d", fromIdx, (arithSeriesRepPtr->len1-1)));
 	    Tcl_SetErrorCode(interp, "TCL", "MEMORY", NULL);
 	}
 	return NULL;
@@ -782,7 +780,7 @@ TclArithSeriesObjRange(
 	arithSeriesDblRepPtr->start = start;
 	arithSeriesDblRepPtr->end = end;
 	arithSeriesDblRepPtr->step = step;
-	arithSeriesDblRepPtr->len = (end-start+step)/step;
+	arithSeriesDblRepPtr->len1 = (end-start+step)/step;
 	arithSeriesDblRepPtr->elements = NULL;
 
     } else {
@@ -793,7 +791,7 @@ TclArithSeriesObjRange(
 	arithSeriesRepPtr->start = start;
 	arithSeriesRepPtr->end = end;
 	arithSeriesRepPtr->step = step;
-	arithSeriesRepPtr->len = (end-start+step)/step;
+	arithSeriesRepPtr->len1 = (end-start+step)/step;
 	arithSeriesRepPtr->elements = NULL;
     }
 
@@ -849,7 +847,7 @@ TclArithSeriesGetElements(
 	int i, objc;
 
 	ArithSeriesGetInternalRep(objPtr, arithSeriesRepPtr);
-	objc = arithSeriesRepPtr->len;
+	objc = arithSeriesRepPtr->len1;
 	if (objc > 0) {
 	    if (arithSeriesRepPtr->elements) {
 		/* If this exists, it has already been populated */
@@ -931,7 +929,7 @@ TclArithSeriesObjReverse(
     ArithSeriesGetInternalRep(arithSeriesPtr, arithSeriesRepPtr);
 
     isDouble = arithSeriesRepPtr->isDouble;
-    len = arithSeriesRepPtr->len;
+    len = arithSeriesRepPtr->len1;
 
     TclArithSeriesObjIndex(arithSeriesPtr, (len-1), &startObj);
     Tcl_IncrRefCount(startObj);
@@ -1000,3 +998,11 @@ TclArithSeriesObjReverse(
 
     return resultObj;
 }
+
+/*
+ * Local Variables:
+ * mode: c
+ * c-basic-offset: 4
+ * fill-column: 78
+ * End:
+ */