diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-04-27 17:26:10 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-04-27 17:26:10 (GMT) |
| commit | 53d0751164446530cccc61a7f39b045b11c5000a (patch) | |
| tree | b9eb88b890e8087440c61c02fbd4e1c6461c1133 /generic | |
| parent | 08266ba63bcae218ba1c574d6128462468670b80 (diff) | |
| parent | 2836feb5d8fbaffcd6371c423cd0a0b0eebac840 (diff) | |
| download | tcl-53d0751164446530cccc61a7f39b045b11c5000a.zip tcl-53d0751164446530cccc61a7f39b045b11c5000a.tar.gz tcl-53d0751164446530cccc61a7f39b045b11c5000a.tar.bz2 | |
[04e26c02c0] Remove useless condition that raises warnings.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index ad80b28..22cc69f 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -510,8 +510,7 @@ VarHashCreateVar( : (*(tPtr) = TCL_NUMBER_DOUBLE)), \ *(ptrPtr) = (ClientData) \ (&((objPtr)->internalRep.doubleValue)), TCL_OK) : \ - ((((objPtr)->typePtr == NULL) && ((objPtr)->bytes == NULL)) || \ - (((objPtr)->bytes != NULL) && ((objPtr)->length == 0))) \ + (((objPtr)->bytes != NULL) && ((objPtr)->length == 0)) \ ? TCL_ERROR : \ TclGetNumberFromObj((interp), (objPtr), (ptrPtr), (tPtr))) #else /* !TCL_WIDE_INT_IS_LONG */ @@ -530,8 +529,7 @@ VarHashCreateVar( : (*(tPtr) = TCL_NUMBER_DOUBLE)), \ *(ptrPtr) = (ClientData) \ (&((objPtr)->internalRep.doubleValue)), TCL_OK) : \ - ((((objPtr)->typePtr == NULL) && ((objPtr)->bytes == NULL)) || \ - (((objPtr)->bytes != NULL) && ((objPtr)->length == 0))) \ + (((objPtr)->bytes != NULL) && ((objPtr)->length == 0)) \ ? TCL_ERROR : \ TclGetNumberFromObj((interp), (objPtr), (ptrPtr), (tPtr))) #endif /* TCL_WIDE_INT_IS_LONG */ |