Backout the "dullest commit ever" (not my words ....). It breaks the build.

JN: Many of those changes are actually good, but there are too many changes to be able to search for a bug somewhere. Feel free to re-apply, after assuring it's really only whitespace changes. (my advise: do that after 9.0b2)

1 files changed, 20 insertions, 20 deletions

diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c
index 5f6827d..3e92b5a 100644
--- a/generic/tclIndexObj.c
+++ b/generic/tclIndexObj.c
@@ -55,7 +55,7 @@ const Tcl_ObjType tclIndexType = {
 
 typedef struct {
     void *tablePtr;		/* Pointer to the table of strings */
-    Tcl_Size offset;		/* Offset between table entries */
+    Tcl_Size offset;	/* Offset between table entries */
     Tcl_Size index;		/* Selected index into table. */
 } IndexRep;
 
@@ -282,21 +282,20 @@ Tcl_GetIndexFromObjStruct(
      * operation.
      */
 
-    if (objPtr && (index != TCL_INDEX_NONE)
-	    && !(flags & TCL_INDEX_TEMP_TABLE)) {
-	irPtr = TclFetchInternalRep(objPtr, &tclIndexType);
-	if (irPtr) {
-	    indexRep = (IndexRep *) irPtr->twoPtrValue.ptr1;
-	} else {
-	    Tcl_ObjInternalRep ir;
+    if (objPtr && (index != TCL_INDEX_NONE) && !(flags & TCL_INDEX_TEMP_TABLE)) {
+    irPtr = TclFetchInternalRep(objPtr, &tclIndexType);
+    if (irPtr) {
+	indexRep = (IndexRep *)irPtr->twoPtrValue.ptr1;
+    } else {
+	Tcl_ObjInternalRep ir;
 
-	    indexRep = (IndexRep *) Tcl_Alloc(sizeof(IndexRep));
-	    ir.twoPtrValue.ptr1 = indexRep;
-	    Tcl_StoreInternalRep(objPtr, &tclIndexType, &ir);
-	}
-	indexRep->tablePtr = (void *) tablePtr;
-	indexRep->offset = offset;
-	indexRep->index = index;
+	indexRep = (IndexRep*)Tcl_Alloc(sizeof(IndexRep));
+	ir.twoPtrValue.ptr1 = indexRep;
+	Tcl_StoreInternalRep(objPtr, &tclIndexType, &ir);
+    }
+    indexRep->tablePtr = (void *) tablePtr;
+    indexRep->offset = offset;
+    indexRep->index = index;
     }
 
   uncachedDone:
@@ -807,7 +806,7 @@ PrefixLongestObjCmd(
 void
 Tcl_WrongNumArgs(
     Tcl_Interp *interp,		/* Current interpreter. */
-    Tcl_Size objc,		/* Number of arguments to print from objv. */
+    Tcl_Size objc,			/* Number of arguments to print from objv. */
     Tcl_Obj *const objv[],	/* Initial argument objects, which should be
 				 * included in the error message. */
     const char *message)	/* Error message to print after the leading
@@ -1003,19 +1002,20 @@ Tcl_ParseArgsObjv(
 				 * successful exit. Will include the name of
 				 * the command. */
     Tcl_Size nrem;		/* Size of leftovers.*/
-    const Tcl_ArgvInfo *infoPtr;/* Pointer to the current entry in the table
+    const Tcl_ArgvInfo *infoPtr;
+				/* Pointer to the current entry in the table
 				 * of argument descriptions. */
     const Tcl_ArgvInfo *matchPtr;
 				/* Descriptor that matches current argument */
     Tcl_Obj *curArg;		/* Current argument */
     const char *str = NULL;
-    char c;			/* Second character of current arg (used for
+    char c;		/* Second character of current arg (used for
 				 * quick check for matching; use 2nd char.
 				 * because first char. will almost always be
 				 * '-'). */
-    Tcl_Size srcIndex;		/* Location from which to read next argument
+    Tcl_Size srcIndex;	/* Location from which to read next argument
 				 * from objv. */
-    Tcl_Size dstIndex;		/* Used to keep track of current arguments
+    Tcl_Size dstIndex;	/* Used to keep track of current arguments
 				 * being processed, primarily for error
 				 * reporting. */
     Tcl_Size objc;		/* # arguments in objv still to process. */