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, 23 insertions, 28 deletions

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index b017e78..3940d4b 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -151,21 +151,17 @@ TCL_DECLARE_MUTEX(commandTypeLock);
  * are used to save the evaluation state between NR calls to each coro.
  */
 
-#define SAVE_CONTEXT(context) \
-    do {								\
-	(context).framePtr = iPtr->framePtr;				\
-	(context).varFramePtr = iPtr->varFramePtr;			\
-	(context).cmdFramePtr = iPtr->cmdFramePtr;			\
-	(context).lineLABCPtr = iPtr->lineLABCPtr;			\
-    } while (0)
-
-#define RESTORE_CONTEXT(context) \
-    do {								\
-	iPtr->framePtr = (context).framePtr;				\
-	iPtr->varFramePtr = (context).varFramePtr;			\
-	iPtr->cmdFramePtr = (context).cmdFramePtr;			\
-	iPtr->lineLABCPtr = (context).lineLABCPtr;			\
-    } while (0)
+#define SAVE_CONTEXT(context)				\
+    (context).framePtr = iPtr->framePtr;		\
+    (context).varFramePtr = iPtr->varFramePtr;		\
+    (context).cmdFramePtr = iPtr->cmdFramePtr;		\
+    (context).lineLABCPtr = iPtr->lineLABCPtr
+
+#define RESTORE_CONTEXT(context)			\
+    iPtr->framePtr = (context).framePtr;		\
+    iPtr->varFramePtr = (context).varFramePtr;		\
+    iPtr->cmdFramePtr = (context).cmdFramePtr;		\
+    iPtr->lineLABCPtr = (context).lineLABCPtr
 
 /*
  * Static functions in this file:
@@ -811,8 +807,8 @@ Tcl_CreateInterp(void)
     if (sizeof(time_t) != 8) {
 	Tcl_Panic("<time.h> is not compatible with VS2005+");
     }
-    if ((offsetof(Tcl_StatBuf, st_atime) != 32)
-	    || (offsetof(Tcl_StatBuf, st_ctime) != 48)) {
+    if ((offsetof(Tcl_StatBuf,st_atime) != 32)
+	    || (offsetof(Tcl_StatBuf,st_ctime) != 48)) {
 	Tcl_Panic("<sys/stat.h> is not compatible with VS2005+");
     }
 #endif
@@ -895,11 +891,11 @@ Tcl_CreateInterp(void)
     iPtr->errorStack = Tcl_NewListObj(0, NULL);
     Tcl_IncrRefCount(iPtr->errorStack);
     iPtr->resetErrorStack = 1;
-    TclNewLiteralStringObj(iPtr->upLiteral, "UP");
+    TclNewLiteralStringObj(iPtr->upLiteral,"UP");
     Tcl_IncrRefCount(iPtr->upLiteral);
-    TclNewLiteralStringObj(iPtr->callLiteral, "CALL");
+    TclNewLiteralStringObj(iPtr->callLiteral,"CALL");
     Tcl_IncrRefCount(iPtr->callLiteral);
-    TclNewLiteralStringObj(iPtr->innerLiteral, "INNER");
+    TclNewLiteralStringObj(iPtr->innerLiteral,"INNER");
     Tcl_IncrRefCount(iPtr->innerLiteral);
     iPtr->innerContext = Tcl_NewListObj(0, NULL);
     Tcl_IncrRefCount(iPtr->innerContext);
@@ -1198,7 +1194,7 @@ Tcl_CreateInterp(void)
      * Register the builtin math functions.
      */
 
-    nsPtr = Tcl_CreateNamespace(interp, "::tcl::mathfunc", NULL, NULL);
+    nsPtr = Tcl_CreateNamespace(interp, "::tcl::mathfunc", NULL,NULL);
     if (nsPtr == NULL) {
 	Tcl_Panic("Can't create math function namespace");
     }
@@ -3678,7 +3674,7 @@ Tcl_DeleteCommandFromToken(
 	CommandTrace *tracePtr;
 	/* CallCommandTraces() does not cmdPtr, that's
 	 * done just before Tcl_DeleteCommandFromToken() returns */
-	CallCommandTraces(iPtr, cmdPtr, NULL, NULL, TCL_TRACE_DELETE);
+	CallCommandTraces(iPtr,cmdPtr,NULL,NULL,TCL_TRACE_DELETE);
 
 	/*
 	 * Now delete these traces.
@@ -4600,8 +4596,7 @@ Dispatch(
     }
     if (TCL_DTRACE_CMD_INFO_ENABLED() && iPtr->cmdFramePtr) {
 	Tcl_Obj *info = TclInfoFrame(interp, iPtr->cmdFramePtr);
-	const char *a[6];
-	Tcl_Size i[2];
+	const char *a[6]; Tcl_Size i[2];
 
 	TclDTraceInfo(info, a, i);
 	TCL_DTRACE_CMD_INFO(a[0], a[1], a[2], a[3], i[0], i[1], a[4], a[5]);
@@ -8910,7 +8905,7 @@ TclNRTailcallEval(
      */
 
     TclMarkTailcall(interp);
-    TclNRAddCallback(interp, TclNRReleaseValues, listPtr, NULL, NULL, NULL);
+    TclNRAddCallback(interp, TclNRReleaseValues, listPtr, NULL, NULL,NULL);
     iPtr->lookupNsPtr = (Namespace *) nsPtr;
     return TclNREvalObjv(interp, objc - 1, objv + 1, 0, NULL);
 }
@@ -9094,7 +9089,7 @@ DeleteCoroutine(
     NRE_callback *rootPtr = TOP_CB(interp);
 
     if (COR_IS_SUSPENDED(corPtr)) {
-	TclNRRunCallbacks(interp, RewindCoroutine(corPtr, TCL_OK), rootPtr);
+	TclNRRunCallbacks(interp, RewindCoroutine(corPtr,TCL_OK), rootPtr);
     }
 }
 
@@ -9316,7 +9311,7 @@ TclNREvalList(
     Tcl_IncrRefCount(listPtr);
 
     TclMarkTailcall(interp);
-    TclNRAddCallback(interp, TclNRReleaseValues, listPtr, NULL, NULL, NULL);
+    TclNRAddCallback(interp, TclNRReleaseValues, listPtr, NULL, NULL,NULL);
     TclListObjGetElements(NULL, listPtr, &objc, &objv);
     return TclNREvalObjv(interp, objc, objv, 0, NULL);
 }
@@ -9835,7 +9830,7 @@ TclNRCoroutineObjCmd(
 		Tcl_Alloc(sizeof(Tcl_HashTable));
 	Tcl_InitHashTable(corPtr->lineLABCPtr, TCL_ONE_WORD_KEYS);
 
-	for (hePtr = Tcl_FirstHashEntry(iPtr->lineLABCPtr, &hSearch);
+	for (hePtr = Tcl_FirstHashEntry(iPtr->lineLABCPtr,&hSearch);
 		hePtr; hePtr = Tcl_NextHashEntry(&hSearch)) {
 	    int isNew;
 	    Tcl_HashEntry *newPtr =