From 49b3a0638d14782cab0d6f55302277572a7b9d89 Mon Sep 17 00:00:00 2001 From: Miguel Sofer Date: Thu, 31 Jul 2008 00:55:15 +0000 Subject: fix macro that gcc swallows but msvc doesn't --- generic/tclBasic.c | 16 +++++++++------- 1 file 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); \ + }\ } -- cgit v0.12