diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-02-16 15:52:21 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-02-16 15:52:21 (GMT) |
| commit | 1d7fb72570ffc28fd7ab91e4b2e8f3c7bd956d21 (patch) | |
| tree | ba3af42106b2ecefc7993d2b108c0141129eeb2c /generic/tclExecute.c | |
| parent | 5b718b95c3eec474ac0518a71bddf4c54221a4e8 (diff) | |
| parent | 3b5e7e9792b9b34111146557a3353756711b8133 (diff) | |
| download | tcl-1d7fb72570ffc28fd7ab91e4b2e8f3c7bd956d21.zip tcl-1d7fb72570ffc28fd7ab91e4b2e8f3c7bd956d21.tar.gz tcl-1d7fb72570ffc28fd7ab91e4b2e8f3c7bd956d21.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index c0dc9c0..c244b08 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -512,7 +512,7 @@ VarHashCreateVar( (&((objPtr)->internalRep.doubleValue)), TCL_OK) : \ ((((objPtr)->typePtr == NULL) && ((objPtr)->bytes == NULL)) || \ (((objPtr)->bytes != NULL) && ((objPtr)->length == 0))) \ - ? (*(tPtr) = TCL_NUMBER_LONG),TCL_ERROR : \ + ? TCL_ERROR : \ TclGetNumberFromObj((interp), (objPtr), (ptrPtr), (tPtr))) #else /* !TCL_WIDE_INT_IS_LONG */ #define GetNumberFromObj(interp, objPtr, ptrPtr, tPtr) \ @@ -532,7 +532,7 @@ VarHashCreateVar( (&((objPtr)->internalRep.doubleValue)), TCL_OK) : \ ((((objPtr)->typePtr == NULL) && ((objPtr)->bytes == NULL)) || \ (((objPtr)->bytes != NULL) && ((objPtr)->length == 0))) \ - ? (*(tPtr) = TCL_NUMBER_LONG),TCL_ERROR : \ + ? TCL_ERROR : \ TclGetNumberFromObj((interp), (objPtr), (ptrPtr), (tPtr))) #endif /* TCL_WIDE_INT_IS_LONG */ |