diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-03-27 20:18:32 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-03-27 20:18:32 (GMT) |
| commit | 205e41bcdd897a420eeb4406c49caddaa6ff0813 (patch) | |
| tree | 1dc8dc6a3af38ca4ca4985900af90839e56518b9 /generic/tclStringObj.c | |
| parent | 6ac8e680a7f738ef67f5612294a21101d5f83539 (diff) | |
| download | tcl-205e41bcdd897a420eeb4406c49caddaa6ff0813.zip tcl-205e41bcdd897a420eeb4406c49caddaa6ff0813.tar.gz tcl-205e41bcdd897a420eeb4406c49caddaa6ff0813.tar.bz2 | |
fixes SF [edb4b065f49b9e51]: cherry-picked from 5d52c6d7302b320e]
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 5ec026f..fc697f9 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -3968,7 +3968,7 @@ TclStringCmp( if (empty > 0) { switch (TclCheckEmptyString(value2Ptr)) { case -1: - s1 = 0; + s1 = ""; s1len = 0; s2 = TclGetStringFromObj(value2Ptr, &s2len); break; @@ -3983,7 +3983,7 @@ TclStringCmp( } else if (TclCheckEmptyString(value2Ptr) > 0) { switch (empty) { case -1: - s2 = 0; + s2 = ""; s2len = 0; s1 = TclGetStringFromObj(value1Ptr, &s1len); break; |