diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-07-31 00:55:15 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-07-31 00:55:15 (GMT) |
| commit | 49b3a0638d14782cab0d6f55302277572a7b9d89 (patch) | |
| tree | 4df62f3226003cadb7edc85b223e7a1902d867f2 | |
| parent | 5ddf3538699df040576471a623bfc1f3c3c38bd3 (diff) | |
| download | tcl-49b3a0638d14782cab0d6f55302277572a7b9d89.zip tcl-49b3a0638d14782cab0d6f55302277572a7b9d89.tar.gz tcl-49b3a0638d14782cab0d6f55302277572a7b9d89.tar.bz2 | |
fix macro that gcc swallows but msvc doesn't
| -rw-r--r-- | generic/tclBasic.c | 16 |
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); \ + }\ } |