Whitespace changes

11 files changed, 190 insertions, 189 deletions

diff --git a/generic/regc_color.c b/generic/regc_color.c
index f1e25d2..ccb1826 100644
--- a/generic/regc_color.c
+++ b/generic/regc_color.c
@@ -430,7 +430,7 @@ newsub(
 /*
  - subrange - allocate new subcolors to this range of chrs, fill in arcs
  ^ static void subrange(struct vars *, pchr, pchr, struct state *,
- ^ 	struct state *);
+ ^	struct state *);
  */
 static void
 subrange(
@@ -689,7 +689,7 @@ uncolorchain(
 /*
  - rainbow - add arcs of all full colors (but one) between specified states
  ^ static void rainbow(struct nfa *, struct colormap *, int, pcolor,
- ^ 	struct state *, struct state *);
+ ^	struct state *, struct state *);
  */
 static void
 rainbow(
@@ -716,7 +716,7 @@ rainbow(
  - colorcomplement - add arcs of complementary colors
  * The calling sequence ought to be reconciled with cloneouts().
  ^ static void colorcomplement(struct nfa *, struct colormap *, int,
- ^ 	struct state *, struct state *, struct state *);
+ ^	struct state *, struct state *, struct state *);
  */
 static void
 colorcomplement(
diff --git a/generic/regc_locale.c b/generic/regc_locale.c
index fdf9eea..9dfea3f 100644
--- a/generic/regc_locale.c
+++ b/generic/regc_locale.c
@@ -1199,24 +1199,24 @@ cclass(
 	}
 	break;
     case CC_PRINT:
-    	cv  = getcvec(v, NUM_SPACE_CHAR + NUM_GRAPH_CHAR, NUM_SPACE_RANGE + NUM_GRAPH_RANGE  - 1);
-    	if (cv) {
-    	    for (i=1 ; i<NUM_SPACE_RANGE ; i++) {
-    		addrange(cv, spaceRangeTable[i].start,
-    				spaceRangeTable[i].end);
-    	    }
-    	    for (i=0 ; i<NUM_SPACE_CHAR ; i++) {
-    		addchr(cv, spaceCharTable[i]);
-    	    }
-    	    for (i=0 ; i<NUM_GRAPH_RANGE ; i++) {
-    		addrange(cv, graphRangeTable[i].start,
-    				graphRangeTable[i].end);
-    	    }
-    	    for (i=0 ; i<NUM_GRAPH_CHAR ; i++) {
-    		addchr(cv, graphCharTable[i]);
-    	    }
-    	}
-    	break;
+	cv  = getcvec(v, NUM_SPACE_CHAR + NUM_GRAPH_CHAR, NUM_SPACE_RANGE + NUM_GRAPH_RANGE  - 1);
+	if (cv) {
+	    for (i=1 ; i<NUM_SPACE_RANGE ; i++) {
+		addrange(cv, spaceRangeTable[i].start,
+				spaceRangeTable[i].end);
+	    }
+	    for (i=0 ; i<NUM_SPACE_CHAR ; i++) {
+		addchr(cv, spaceCharTable[i]);
+	    }
+	    for (i=0 ; i<NUM_GRAPH_RANGE ; i++) {
+		addrange(cv, graphRangeTable[i].start,
+				graphRangeTable[i].end);
+	    }
+	    for (i=0 ; i<NUM_GRAPH_CHAR ; i++) {
+		addchr(cv, graphCharTable[i]);
+	    }
+	}
+	break;
     case CC_GRAPH:
 	cv  = getcvec(v, NUM_GRAPH_CHAR, NUM_GRAPH_RANGE);
 	if (cv) {
diff --git a/generic/regc_nfa.c b/generic/regc_nfa.c
index 71bcb09..b6413fc 100644
--- a/generic/regc_nfa.c
+++ b/generic/regc_nfa.c
@@ -570,7 +570,7 @@ findarc(
 /*
  - cparc - allocate a new arc within an NFA, copying details from old one
  ^ static void cparc(struct nfa *, struct arc *, struct state *,
- ^ 	struct state *);
+ ^	struct state *);
  */
 static void
 cparc(
@@ -641,19 +641,19 @@ sortins_cmp(
 	return -1;
     }
     if (aa->from->no > bb->from->no) {
- 	return 1;
+	return 1;
     }
     if (aa->co < bb->co) {
- 	return -1;
+	return -1;
     }
     if (aa->co > bb->co) {
- 	return 1;
+	return 1;
     }
     if (aa->type < bb->type) {
- 	return -1;
+	return -1;
     }
     if (aa->type > bb->type) {
- 	return 1;
+	return 1;
     }
     return 0;
 }
@@ -1118,7 +1118,7 @@ copyouts(
 	    cparc(nfa, a, newState, a->to);
 	}
     } else {
- 	/*
+	/*
 	 * With many arcs, use a sort-merge approach.  Note that createarc()
 	 * will put new arcs onto the front of newState's chain, so it does
 	 * not break our walk through the sorted part of the chain.
@@ -1177,7 +1177,7 @@ copyouts(
 /*
  - cloneouts - copy out arcs of a state to another state pair, modifying type
  ^ static void cloneouts(struct nfa *, struct state *, struct state *,
- ^ 	struct state *, int);
+ ^	struct state *, int);
  */
 static void
 cloneouts(
@@ -1267,7 +1267,7 @@ deltraverse(
  * well as mark already-seen states. (You knew there was a reason why it's a
  * state pointer, didn't you? :-))
  ^ static void dupnfa(struct nfa *, struct state *, struct state *,
- ^ 	struct state *, struct state *);
+ ^	struct state *, struct state *);
  */
 static void
 dupnfa(
@@ -1599,10 +1599,10 @@ pull(
 		s->tmp = *intermediates;
 		*intermediates = s;
 	    }
-  	    cparc(nfa, con, a->from, s);
+	    cparc(nfa, con, a->from, s);
 	    cparc(nfa, a, s, to);
- 	    freearc(nfa, a);
-  	    break;
+	    freearc(nfa, a);
+	    break;
 	default:
 	    assert(NOTREACHED);
 	    break;
@@ -1779,9 +1779,9 @@ push(
 		*intermediates = s;
 	    }
 	    cparc(nfa, con, s, a->to);
-  	    cparc(nfa, a, from, s);
-  	    freearc(nfa, a);
-  	    break;
+	    cparc(nfa, a, from, s);
+	    freearc(nfa, a);
+	    break;
 	default:
 	    assert(NOTREACHED);
 	    break;
@@ -2021,11 +2021,11 @@ fixempties(
 		}
 	    }
 
-  	    /* Reset the tmp fields as we walk back */
-  	    nexts = s2->tmp;
-  	    s2->tmp = NULL;
-  	}
-  	s->tmp = NULL;
+	    /* Reset the tmp fields as we walk back */
+	    nexts = s2->tmp;
+	    s2->tmp = NULL;
+	}
+	s->tmp = NULL;
 	assert(arccount <= totalinarcs);
 
 	/* Remember how many original inarcs this state has */
@@ -2185,12 +2185,12 @@ fixconstraintloops(
 		    freearc(nfa, a);
 		} else {
 		    hasconstraints = 1;
- 		}
+		}
 	    }
 	}
- 	/* If we removed all the outarcs, the state is useless. */
- 	if (s->nouts == 0 && !s->flag) {
- 	    dropstate(nfa, s);
+	/* If we removed all the outarcs, the state is useless. */
+	if (s->nouts == 0 && !s->flag) {
+	    dropstate(nfa, s);
 	}
     }
 
@@ -2235,7 +2235,7 @@ fixconstraintloops(
     }
 
     if (f != NULL) {
- 	dumpnfa(nfa, f);
+	dumpnfa(nfa, f);
     }
 }
 
@@ -2725,7 +2725,7 @@ cleanup(
 /*
  - markreachable - recursive marking of reachable states
  ^ static void markreachable(struct nfa *, struct state *, struct state *,
- ^ 	struct state *);
+ ^	struct state *);
  */
 static void
 markreachable(
@@ -2749,7 +2749,7 @@ markreachable(
 /*
  - markcanreach - recursive marking of states which can reach here
  ^ static void markcanreach(struct nfa *, struct state *, struct state *,
- ^ 	struct state *);
+ ^	struct state *);
  */
 static void
 markcanreach(
diff --git a/generic/regcomp.c b/generic/regcomp.c
index 983cd7a..b320980 100644
--- a/generic/regcomp.c
+++ b/generic/regcomp.c
@@ -645,7 +645,7 @@ makesearch(
  * together with '|'. They appear in the tree as the left children of a chain
  * of '|' subres.
  ^ static struct subre *parse(struct vars *, int, int, struct state *,
- ^ 	struct state *);
+ ^	struct state *);
  */
 static struct subre *
 parse(
@@ -727,7 +727,7 @@ parse(
  * Concatenated things are bundled up as much as possible, with separate
  * ',' nodes introduced only when necessary due to substructure.
  ^ static struct subre *parsebranch(struct vars *, int, int, struct state *,
- ^ 	struct state *, int);
+ ^	struct state *, int);
  */
 static struct subre *
 parsebranch(
@@ -776,7 +776,7 @@ parsebranch(
  * particular, it contains a recursion that can involve parsing the rest of
  * the branch, making this function's name somewhat inaccurate.
  ^ static void parseqatom(struct vars *, int, int, struct state *,
- ^ 	struct state *, struct subre *);
+ ^	struct state *, struct subre *);
  */
 static void
 parseqatom(
@@ -1650,7 +1650,7 @@ onechr(
 /*
  - dovec - fill in arcs for each element of a cvec
  ^ static void dovec(struct vars *, struct cvec *, struct state *,
- ^ 	struct state *);
+ ^	struct state *);
  */
 static void
 dovec(
diff --git a/generic/rege_dfa.c b/generic/rege_dfa.c
index 9586f66..2783573 100644
--- a/generic/rege_dfa.c
+++ b/generic/rege_dfa.c
@@ -159,7 +159,7 @@ longest(
 /*
  - shortest - shortest-preferred matching engine
  ^ static chr *shortest(struct vars *, struct dfa *, chr *, chr *, chr *,
- ^ 	chr **, int *);
+ ^	chr **, int *);
  */
 static chr *			/* endpoint, or NULL */
 shortest(
@@ -308,7 +308,7 @@ lastCold(
 /*
  - newDFA - set up a fresh DFA
  ^ static struct dfa *newDFA(struct vars *, struct cnfa *,
- ^ 	struct colormap *, struct smalldfa *);
+ ^	struct colormap *, struct smalldfa *);
  */
 static struct dfa *
 newDFA(
@@ -477,7 +477,7 @@ initialize(
 /*
  - miss - handle a cache miss
  ^ static struct sset *miss(struct vars *, struct dfa *, struct sset *,
- ^ 	pcolor, chr *, chr *);
+ ^	pcolor, chr *, chr *);
  */
 static struct sset *		/* NULL if goes to empty set */
 miss(
@@ -492,7 +492,8 @@ miss(
     unsigned h;
     struct carc *ca;
     struct sset *p;
-    int i, isPost, noProgress, gotState, doLAConstraints, sawLAConstraints;
+    int i;
+    int isPost, noProgress, gotState, doLAConstraints, sawLAConstraints;
 
     /*
      * For convenience, we can be called even if it might not be a miss.
diff --git a/generic/tcl.h b/generic/tcl.h
index 5ce9026..2f3ec17 100644
--- a/generic/tcl.h
+++ b/generic/tcl.h
@@ -2157,7 +2157,7 @@ typedef struct Tcl_EncodingType {
  *				one or more "close" characters in the
  *				destination buffer and then continues to
  *				convert the source. Only for Tcl 8.x.
- * TCL_ENCODING_NO_TERMINATE - 	If set, Tcl_ExternalToUtf does not append a
+ * TCL_ENCODING_NO_TERMINATE -	If set, Tcl_ExternalToUtf does not append a
  *				terminating NUL byte.  Since it does not need
  *				an extra byte for a terminating NUL, it fills
  *				all dstLen bytes with encoded UTF-8 content if
diff --git a/generic/tclCompile.h b/generic/tclCompile.h
index d577b6a..94f16f0 100644
--- a/generic/tclCompile.h
+++ b/generic/tclCompile.h
@@ -34,7 +34,7 @@ struct ByteCode;		/* Forward declaration. */
  * This variable is linked to the Tcl variable "tcl_traceCompile".
  */
 
-MODULE_SCOPE int 	tclTraceCompile;
+MODULE_SCOPE int	tclTraceCompile;
 
 /*
  * Variable that controls whether execution tracing is enabled and, if so,
@@ -46,7 +46,7 @@ MODULE_SCOPE int 	tclTraceCompile;
  * This variable is linked to the Tcl variable "tcl_traceExec".
  */
 
-MODULE_SCOPE int 	tclTraceExec;
+MODULE_SCOPE int	tclTraceExec;
 #endif
 
 /*
@@ -317,13 +317,13 @@ typedef struct CompileEnv {
     int mallocedCodeArray;	/* Set 1 if code array was expanded and
 				 * codeStart points into the heap.*/
     LiteralEntry *literalArrayPtr;
-    				/* Points to start of LiteralEntry array. */
+				/* Points to start of LiteralEntry array. */
     Tcl_Size literalArrayNext;	/* Index of next free object array entry. */
     Tcl_Size literalArrayEnd;	/* Index just after last obj array entry. */
     int mallocedLiteralArray;	/* 1 if object array was expanded and objArray
 				 * points into the heap, else 0. */
     ExceptionRange *exceptArrayPtr;
-    				/* Points to start of the ExceptionRange
+				/* Points to start of the ExceptionRange
 				 * array. */
     Tcl_Size exceptArrayNext;	/* Next free ExceptionRange array index.
 				 * exceptArrayNext is the number of ranges and
@@ -468,7 +468,7 @@ typedef struct ByteCode {
 				 * array. This is just after the last code
 				 * byte. */
     ExceptionRange *exceptArrayPtr;
-    				/* Points to the start of the ExceptionRange
+				/* Points to the start of the ExceptionRange
 				 * array. This is just after the last object
 				 * in the object array. */
     AuxData *auxDataArrayPtr;	/* Points to the start of the auxiliary data
diff --git a/generic/tclIO.h b/generic/tclIO.h
index 08fff44..bb56d57 100644
--- a/generic/tclIO.h
+++ b/generic/tclIO.h
@@ -43,7 +43,7 @@ typedef struct ChannelBuffer {
 				 * the buffer. */
     Tcl_Size bufLength;		/* How big is the buffer? */
     struct ChannelBuffer *nextPtr;
-    				/* Next buffer in chain. */
+				/* Next buffer in chain. */
     char buf[TCLFLEXARRAY];		/* Placeholder for real buffer. The real
 				 * buffer occupies this space + bufSize-1
 				 * bytes. This must be the last field in the
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 31e06df..1a32350 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -1445,7 +1445,7 @@ struct CompileEnv;
  *			because by then changes in the interp state may allow
  *			the command to be successfully evaluated.
  * TCL_OUT_LINE_COMPILE	A source-compatible alias for TCL_ERROR, kept for the
- * 			sake of old code only.
+ *			sake of old code only.
  */
 
 #ifndef TCL_NO_DEPRECATED
diff --git a/macosx/tclMacOSXNotify.c b/macosx/tclMacOSXNotify.c
index 6c14cc4..3243757 100644
--- a/macosx/tclMacOSXNotify.c
+++ b/macosx/tclMacOSXNotify.c
@@ -1684,7 +1684,7 @@ Tcl_Sleep(
 	SInt32 runLoopStatus;
 
 	waitTime = vdelay.sec + 1.0e-6 * vdelay.usec;
- 	now = CFAbsoluteTimeGetCurrent();
+	now = CFAbsoluteTimeGetCurrent();
 	waitEnd = now + waitTime;
 
 	if (runLoopTimer) {
@@ -1714,7 +1714,7 @@ Tcl_Sleep(
 	    }
 	} while (waitTime > 0);
 	tsdPtr->sleeping = 0;
- 	if (runLoopTimer) {
+	if (runLoopTimer) {
 	    CFRunLoopTimerSetNextFireDate(runLoopTimer, nextTimerFire);
 	}
     } else {
diff --git a/tests/incr.test b/tests/incr.test
index f68d171..888f386 100644
--- a/tests/incr.test
+++ b/tests/incr.test
@@ -71,82 +71,82 @@ test incr-1.10 {TclCompileIncrCmd: no increment given} {
 } {11 11}
 test incr-1.11 {TclCompileIncrCmd: simple global name} {
     proc p {} {
-        global i
-        set i 54
-        incr i
+	global i
+	set i 54
+	incr i
     }
     p
 } {55}
 test incr-1.12 {TclCompileIncrCmd: simple local name} {
     proc p {} {
-        set foo 100
-        incr foo
+	set foo 100
+	incr foo
     }
     p
 } {101}
 test incr-1.13 {TclCompileIncrCmd: simple but new (unknown) local name} {
     proc p {} {
-        incr bar
+	incr bar
     }
     p
 } 1
 test incr-1.14 {TclCompileIncrCmd: simple local name, >255 locals} {
     proc 260locals {} {
-        # create 260 locals
-        set a0 0; set a1 0; set a2 0; set a3 0; set a4 0
-        set a5 0; set a6 0; set a7 0; set a8 0; set a9 0
-        set b0 0; set b1 0; set b2 0; set b3 0; set b4 0
-        set b5 0; set b6 0; set b7 0; set b8 0; set b9 0
-        set c0 0; set c1 0; set c2 0; set c3 0; set c4 0
-        set c5 0; set c6 0; set c7 0; set c8 0; set c9 0
-        set d0 0; set d1 0; set d2 0; set d3 0; set d4 0
-        set d5 0; set d6 0; set d7 0; set d8 0; set d9 0
-        set e0 0; set e1 0; set e2 0; set e3 0; set e4 0
-        set e5 0; set e6 0; set e7 0; set e8 0; set e9 0
-        set f0 0; set f1 0; set f2 0; set f3 0; set f4 0
-        set f5 0; set f6 0; set f7 0; set f8 0; set f9 0
-        set g0 0; set g1 0; set g2 0; set g3 0; set g4 0
-        set g5 0; set g6 0; set g7 0; set g8 0; set g9 0
-        set h0 0; set h1 0; set h2 0; set h3 0; set h4 0
-        set h5 0; set h6 0; set h7 0; set h8 0; set h9 0
-        set i0 0; set i1 0; set i2 0; set i3 0; set i4 0
-        set i5 0; set i6 0; set i7 0; set i8 0; set i9 0
-        set j0 0; set j1 0; set j2 0; set j3 0; set j4 0
-        set j5 0; set j6 0; set j7 0; set j8 0; set j9 0
-        set k0 0; set k1 0; set k2 0; set k3 0; set k4 0
-        set k5 0; set k6 0; set k7 0; set k8 0; set k9 0
-        set l0 0; set l1 0; set l2 0; set l3 0; set l4 0
-        set l5 0; set l6 0; set l7 0; set l8 0; set l9 0
-        set m0 0; set m1 0; set m2 0; set m3 0; set m4 0
-        set m5 0; set m6 0; set m7 0; set m8 0; set m9 0
-        set n0 0; set n1 0; set n2 0; set n3 0; set n4 0
-        set n5 0; set n6 0; set n7 0; set n8 0; set n9 0
-        set o0 0; set o1 0; set o2 0; set o3 0; set o4 0
-        set o5 0; set o6 0; set o7 0; set o8 0; set o9 0
-        set p0 0; set p1 0; set p2 0; set p3 0; set p4 0
-        set p5 0; set p6 0; set p7 0; set p8 0; set p9 0
-        set q0 0; set q1 0; set q2 0; set q3 0; set q4 0
-        set q5 0; set q6 0; set q7 0; set q8 0; set q9 0
-        set r0 0; set r1 0; set r2 0; set r3 0; set r4 0
-        set r5 0; set r6 0; set r7 0; set r8 0; set r9 0
-        set s0 0; set s1 0; set s2 0; set s3 0; set s4 0
-        set s5 0; set s6 0; set s7 0; set s8 0; set s9 0
-        set t0 0; set t1 0; set t2 0; set t3 0; set t4 0
-        set t5 0; set t6 0; set t7 0; set t8 0; set t9 0
-        set u0 0; set u1 0; set u2 0; set u3 0; set u4 0
-        set u5 0; set u6 0; set u7 0; set u8 0; set u9 0
-        set v0 0; set v1 0; set v2 0; set v3 0; set v4 0
-        set v5 0; set v6 0; set v7 0; set v8 0; set v9 0
-        set w0 0; set w1 0; set w2 0; set w3 0; set w4 0
-        set w5 0; set w6 0; set w7 0; set w8 0; set w9 0
-        set x0 0; set x1 0; set x2 0; set x3 0; set x4 0
-        set x5 0; set x6 0; set x7 0; set x8 0; set x9 0
-        set y0 0; set y1 0; set y2 0; set y3 0; set y4 0
-        set y5 0; set y6 0; set y7 0; set y8 0; set y9 0
-        set z0 0; set z1 0; set z2 0; set z3 0; set z4 0
-        set z5 0; set z6 0; set z7 0; set z8 0; set z9 0
-        # now increment the last one (local var index > 255)
-        incr z9
+	# create 260 locals
+	set a0 0; set a1 0; set a2 0; set a3 0; set a4 0
+	set a5 0; set a6 0; set a7 0; set a8 0; set a9 0
+	set b0 0; set b1 0; set b2 0; set b3 0; set b4 0
+	set b5 0; set b6 0; set b7 0; set b8 0; set b9 0
+	set c0 0; set c1 0; set c2 0; set c3 0; set c4 0
+	set c5 0; set c6 0; set c7 0; set c8 0; set c9 0
+	set d0 0; set d1 0; set d2 0; set d3 0; set d4 0
+	set d5 0; set d6 0; set d7 0; set d8 0; set d9 0
+	set e0 0; set e1 0; set e2 0; set e3 0; set e4 0
+	set e5 0; set e6 0; set e7 0; set e8 0; set e9 0
+	set f0 0; set f1 0; set f2 0; set f3 0; set f4 0
+	set f5 0; set f6 0; set f7 0; set f8 0; set f9 0
+	set g0 0; set g1 0; set g2 0; set g3 0; set g4 0
+	set g5 0; set g6 0; set g7 0; set g8 0; set g9 0
+	set h0 0; set h1 0; set h2 0; set h3 0; set h4 0
+	set h5 0; set h6 0; set h7 0; set h8 0; set h9 0
+	set i0 0; set i1 0; set i2 0; set i3 0; set i4 0
+	set i5 0; set i6 0; set i7 0; set i8 0; set i9 0
+	set j0 0; set j1 0; set j2 0; set j3 0; set j4 0
+	set j5 0; set j6 0; set j7 0; set j8 0; set j9 0
+	set k0 0; set k1 0; set k2 0; set k3 0; set k4 0
+	set k5 0; set k6 0; set k7 0; set k8 0; set k9 0
+	set l0 0; set l1 0; set l2 0; set l3 0; set l4 0
+	set l5 0; set l6 0; set l7 0; set l8 0; set l9 0
+	set m0 0; set m1 0; set m2 0; set m3 0; set m4 0
+	set m5 0; set m6 0; set m7 0; set m8 0; set m9 0
+	set n0 0; set n1 0; set n2 0; set n3 0; set n4 0
+	set n5 0; set n6 0; set n7 0; set n8 0; set n9 0
+	set o0 0; set o1 0; set o2 0; set o3 0; set o4 0
+	set o5 0; set o6 0; set o7 0; set o8 0; set o9 0
+	set p0 0; set p1 0; set p2 0; set p3 0; set p4 0
+	set p5 0; set p6 0; set p7 0; set p8 0; set p9 0
+	set q0 0; set q1 0; set q2 0; set q3 0; set q4 0
+	set q5 0; set q6 0; set q7 0; set q8 0; set q9 0
+	set r0 0; set r1 0; set r2 0; set r3 0; set r4 0
+	set r5 0; set r6 0; set r7 0; set r8 0; set r9 0
+	set s0 0; set s1 0; set s2 0; set s3 0; set s4 0
+	set s5 0; set s6 0; set s7 0; set s8 0; set s9 0
+	set t0 0; set t1 0; set t2 0; set t3 0; set t4 0
+	set t5 0; set t6 0; set t7 0; set t8 0; set t9 0
+	set u0 0; set u1 0; set u2 0; set u3 0; set u4 0
+	set u5 0; set u6 0; set u7 0; set u8 0; set u9 0
+	set v0 0; set v1 0; set v2 0; set v3 0; set v4 0
+	set v5 0; set v6 0; set v7 0; set v8 0; set v9 0
+	set w0 0; set w1 0; set w2 0; set w3 0; set w4 0
+	set w5 0; set w6 0; set w7 0; set w8 0; set w9 0
+	set x0 0; set x1 0; set x2 0; set x3 0; set x4 0
+	set x5 0; set x6 0; set x7 0; set x8 0; set x9 0
+	set y0 0; set y1 0; set y2 0; set y3 0; set y4 0
+	set y5 0; set y6 0; set y7 0; set y8 0; set y9 0
+	set z0 0; set z1 0; set z2 0; set z3 0; set z4 0
+	set z5 0; set z6 0; set z7 0; set z8 0; set z9 0
+	# now increment the last one (local var index > 255)
+	incr z9
     }
     260locals
 } {1}
@@ -359,85 +359,85 @@ test incr-2.10 {incr command (not compiled): no increment given} {
 test incr-2.11 {incr command (not compiled): simple global name} {
     proc p {} {
 	set z incr
-        global i
-        set i 54
-        $z i
+	global i
+	set i 54
+	$z i
     }
     p
 } {55}
 test incr-2.12 {incr command (not compiled): simple local name} {
     proc p {} {
 	set z incr
-        set foo 100
-        $z foo
+	set foo 100
+	$z foo
     }
     p
 } {101}
 test incr-2.13 {incr command (not compiled): simple but new (unknown) local name} {
     proc p {} {
 	set z incr
-        $z bar
+	$z bar
     }
     p
 } 1
 test incr-2.14 {incr command (not compiled): simple local name, >255 locals} {
    proc 260locals {} {
-        set z incr
-        # create 260 locals
-        set a0 0; set a1 0; set a2 0; set a3 0; set a4 0
-        set a5 0; set a6 0; set a7 0; set a8 0; set a9 0
-        set b0 0; set b1 0; set b2 0; set b3 0; set b4 0
-        set b5 0; set b6 0; set b7 0; set b8 0; set b9 0
-        set c0 0; set c1 0; set c2 0; set c3 0; set c4 0
-        set c5 0; set c6 0; set c7 0; set c8 0; set c9 0
-        set d0 0; set d1 0; set d2 0; set d3 0; set d4 0
-        set d5 0; set d6 0; set d7 0; set d8 0; set d9 0
-        set e0 0; set e1 0; set e2 0; set e3 0; set e4 0
-        set e5 0; set e6 0; set e7 0; set e8 0; set e9 0
-        set f0 0; set f1 0; set f2 0; set f3 0; set f4 0
-        set f5 0; set f6 0; set f7 0; set f8 0; set f9 0
-        set g0 0; set g1 0; set g2 0; set g3 0; set g4 0
-        set g5 0; set g6 0; set g7 0; set g8 0; set g9 0
-        set h0 0; set h1 0; set h2 0; set h3 0; set h4 0
-        set h5 0; set h6 0; set h7 0; set h8 0; set h9 0
-        set i0 0; set i1 0; set i2 0; set i3 0; set i4 0
-        set i5 0; set i6 0; set i7 0; set i8 0; set i9 0
-        set j0 0; set j1 0; set j2 0; set j3 0; set j4 0
-        set j5 0; set j6 0; set j7 0; set j8 0; set j9 0
-        set k0 0; set k1 0; set k2 0; set k3 0; set k4 0
-        set k5 0; set k6 0; set k7 0; set k8 0; set k9 0
-        set l0 0; set l1 0; set l2 0; set l3 0; set l4 0
-        set l5 0; set l6 0; set l7 0; set l8 0; set l9 0
-        set m0 0; set m1 0; set m2 0; set m3 0; set m4 0
-        set m5 0; set m6 0; set m7 0; set m8 0; set m9 0
-        set n0 0; set n1 0; set n2 0; set n3 0; set n4 0
-        set n5 0; set n6 0; set n7 0; set n8 0; set n9 0
-        set o0 0; set o1 0; set o2 0; set o3 0; set o4 0
-        set o5 0; set o6 0; set o7 0; set o8 0; set o9 0
-        set p0 0; set p1 0; set p2 0; set p3 0; set p4 0
-        set p5 0; set p6 0; set p7 0; set p8 0; set p9 0
-        set q0 0; set q1 0; set q2 0; set q3 0; set q4 0
-        set q5 0; set q6 0; set q7 0; set q8 0; set q9 0
-        set r0 0; set r1 0; set r2 0; set r3 0; set r4 0
-        set r5 0; set r6 0; set r7 0; set r8 0; set r9 0
-        set s0 0; set s1 0; set s2 0; set s3 0; set s4 0
-        set s5 0; set s6 0; set s7 0; set s8 0; set s9 0
-        set t0 0; set t1 0; set t2 0; set t3 0; set t4 0
-        set t5 0; set t6 0; set t7 0; set t8 0; set t9 0
-        set u0 0; set u1 0; set u2 0; set u3 0; set u4 0
-        set u5 0; set u6 0; set u7 0; set u8 0; set u9 0
-        set v0 0; set v1 0; set v2 0; set v3 0; set v4 0
-        set v5 0; set v6 0; set v7 0; set v8 0; set v9 0
-        set w0 0; set w1 0; set w2 0; set w3 0; set w4 0
-        set w5 0; set w6 0; set w7 0; set w8 0; set w9 0
-        set x0 0; set x1 0; set x2 0; set x3 0; set x4 0
-        set x5 0; set x6 0; set x7 0; set x8 0; set x9 0
-        set y0 0; set y1 0; set y2 0; set y3 0; set y4 0
-        set y5 0; set y6 0; set y7 0; set y8 0; set y9 0
-        set z0 0; set z1 0; set z2 0; set z3 0; set z4 0
-        set z5 0; set z6 0; set z7 0; set z8 0; set z9 0
-        # now increment the last one (local var index > 255)
-        $z z9
+	set z incr
+	# create 260 locals
+	set a0 0; set a1 0; set a2 0; set a3 0; set a4 0
+	set a5 0; set a6 0; set a7 0; set a8 0; set a9 0
+	set b0 0; set b1 0; set b2 0; set b3 0; set b4 0
+	set b5 0; set b6 0; set b7 0; set b8 0; set b9 0
+	set c0 0; set c1 0; set c2 0; set c3 0; set c4 0
+	set c5 0; set c6 0; set c7 0; set c8 0; set c9 0
+	set d0 0; set d1 0; set d2 0; set d3 0; set d4 0
+	set d5 0; set d6 0; set d7 0; set d8 0; set d9 0
+	set e0 0; set e1 0; set e2 0; set e3 0; set e4 0
+	set e5 0; set e6 0; set e7 0; set e8 0; set e9 0
+	set f0 0; set f1 0; set f2 0; set f3 0; set f4 0
+	set f5 0; set f6 0; set f7 0; set f8 0; set f9 0
+	set g0 0; set g1 0; set g2 0; set g3 0; set g4 0
+	set g5 0; set g6 0; set g7 0; set g8 0; set g9 0
+	set h0 0; set h1 0; set h2 0; set h3 0; set h4 0
+	set h5 0; set h6 0; set h7 0; set h8 0; set h9 0
+	set i0 0; set i1 0; set i2 0; set i3 0; set i4 0
+	set i5 0; set i6 0; set i7 0; set i8 0; set i9 0
+	set j0 0; set j1 0; set j2 0; set j3 0; set j4 0
+	set j5 0; set j6 0; set j7 0; set j8 0; set j9 0
+	set k0 0; set k1 0; set k2 0; set k3 0; set k4 0
+	set k5 0; set k6 0; set k7 0; set k8 0; set k9 0
+	set l0 0; set l1 0; set l2 0; set l3 0; set l4 0
+	set l5 0; set l6 0; set l7 0; set l8 0; set l9 0
+	set m0 0; set m1 0; set m2 0; set m3 0; set m4 0
+	set m5 0; set m6 0; set m7 0; set m8 0; set m9 0
+	set n0 0; set n1 0; set n2 0; set n3 0; set n4 0
+	set n5 0; set n6 0; set n7 0; set n8 0; set n9 0
+	set o0 0; set o1 0; set o2 0; set o3 0; set o4 0
+	set o5 0; set o6 0; set o7 0; set o8 0; set o9 0
+	set p0 0; set p1 0; set p2 0; set p3 0; set p4 0
+	set p5 0; set p6 0; set p7 0; set p8 0; set p9 0
+	set q0 0; set q1 0; set q2 0; set q3 0; set q4 0
+	set q5 0; set q6 0; set q7 0; set q8 0; set q9 0
+	set r0 0; set r1 0; set r2 0; set r3 0; set r4 0
+	set r5 0; set r6 0; set r7 0; set r8 0; set r9 0
+	set s0 0; set s1 0; set s2 0; set s3 0; set s4 0
+	set s5 0; set s6 0; set s7 0; set s8 0; set s9 0
+	set t0 0; set t1 0; set t2 0; set t3 0; set t4 0
+	set t5 0; set t6 0; set t7 0; set t8 0; set t9 0
+	set u0 0; set u1 0; set u2 0; set u3 0; set u4 0
+	set u5 0; set u6 0; set u7 0; set u8 0; set u9 0
+	set v0 0; set v1 0; set v2 0; set v3 0; set v4 0
+	set v5 0; set v6 0; set v7 0; set v8 0; set v9 0
+	set w0 0; set w1 0; set w2 0; set w3 0; set w4 0
+	set w5 0; set w6 0; set w7 0; set w8 0; set w9 0
+	set x0 0; set x1 0; set x2 0; set x3 0; set x4 0
+	set x5 0; set x6 0; set x7 0; set x8 0; set x9 0
+	set y0 0; set y1 0; set y2 0; set y3 0; set y4 0
+	set y5 0; set y6 0; set y7 0; set y8 0; set y9 0
+	set z0 0; set z1 0; set z2 0; set z3 0; set z4 0
+	set z5 0; set z6 0; set z7 0; set z8 0; set z9 0
+	# now increment the last one (local var index > 255)
+	$z z9
     }
     260locals
 } {1}