diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2016-07-11 08:09:33 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2016-07-11 08:09:33 (GMT) |
| commit | c2bfc705d7cf803d4244385effe1fb8596233c86 (patch) | |
| tree | dcfef1de12e42d945e29bb24997aef7541ffd80b /generic/tclExecute.c | |
| parent | 60aac4bac55c5bd000122090794bee62b428db1c (diff) | |
| download | tcl-c2bfc705d7cf803d4244385effe1fb8596233c86.zip tcl-c2bfc705d7cf803d4244385effe1fb8596233c86.tar.gz tcl-c2bfc705d7cf803d4244385effe1fb8596233c86.tar.bz2 | |
Change TclIsEmpty to TclCheckEmptyString. Check length instead of first char of
bytes.
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index f8de5a7..d2ab1a1 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5447,10 +5447,10 @@ TEBCresume( * for utf-8, strcmp can't do a simple memcmp. */ - if (TclIsEmpty(valuePtr) > 0) { + if (TclCheckEmptyString(valuePtr) > 0) { s1 = ""; s1len = 0; - switch (TclIsEmpty(value2Ptr)) { + switch (TclCheckEmptyString(value2Ptr)) { case -1: s2 = TclGetStringFromObj(value2Ptr, &s2len); break; @@ -5463,10 +5463,10 @@ TEBCresume( s2 = ""; s2len = 0; } - } else if (TclIsEmpty(value2Ptr) > 0) { + } else if (TclCheckEmptyString(value2Ptr) > 0) { s2 = ""; s2len = 0; - switch (TclIsEmpty(valuePtr)) { + switch (TclCheckEmptyString(valuePtr)) { case -1: s1 = TclGetStringFromObj(valuePtr, &s1len); break; @@ -6210,7 +6210,7 @@ TEBCresume( representation, whether one value is not a number. */ # define TclIsNotNumber(objPtr) ( \ - ( TclIsEmpty((objPtr)) > 0 \ + ( TclCheckEmptyString((objPtr)) > 0 \ || ( (objPtr)->bytes != NULL && \ TclParseNumber( \ interp, (objPtr), "number", NULL, -1, NULL, 0) != TCL_OK)) \ |