summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2008-07-31 00:55:15 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2008-07-31 00:55:15 (GMT)
commit49b3a0638d14782cab0d6f55302277572a7b9d89 (patch)
tree4df62f3226003cadb7edc85b223e7a1902d867f2
parent5ddf3538699df040576471a623bfc1f3c3c38bd3 (diff)
downloadtcl-49b3a0638d14782cab0d6f55302277572a7b9d89.zip
tcl-49b3a0638d14782cab0d6f55302277572a7b9d89.tar.gz
tcl-49b3a0638d14782cab0d6f55302277572a7b9d89.tar.bz2
fix macro that gcc swallows but msvc doesn't
-rw-r--r--generic/tclBasic.c16
1 files changed, 9 insertions, 7 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index fa42894..b6cb2fd 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -16,7 +16,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclBasic.c,v 1.339 2008/07/31 00:43:09 msofer Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.340 2008/07/31 00:55:15 msofer Exp $
*/
#include "tclInt.h"
@@ -139,13 +139,15 @@ static Tcl_NRPostProc TailcallCleanup;
&& (PTR2INT(callbackPtr->data[1])))
#define NR_CLEAR_COMMAND(interp) \
- TEOV_callback *callbackPtr = TOP_CB(interp); \
+ { \
+ TEOV_callback *callbackPtr = TOP_CB(interp); \
\
- while (!NR_IS_COMMAND(callbackPtr)) { \
- callbackPtr = callbackPtr->nextPtr; \
- } \
- if (callbackPtr) { \
- callbackPtr->data[1] = INT2PTR(0); \
+ while (!NR_IS_COMMAND(callbackPtr)) { \
+ callbackPtr = callbackPtr->nextPtr; \
+ } \
+ if (callbackPtr) { \
+ callbackPtr->data[1] = INT2PTR(0); \
+ }\
}