diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-05-21 11:46:36 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-05-21 11:46:36 (GMT) |
| commit | fd3264c3a0c9375dcf5d5753e1b2b9d00bfc7eaf (patch) | |
| tree | 4b5c0408409b30bef0cfc69da163e59f1ebfc276 /generic/tclHash.c | |
| parent | d2867d11a44aff32721a7daaef8aa4382843f2be (diff) | |
| parent | e94891207a103ee730e59b6e3111fe1ff9528507 (diff) | |
| download | tcl-fd3264c3a0c9375dcf5d5753e1b2b9d00bfc7eaf.zip tcl-fd3264c3a0c9375dcf5d5753e1b2b9d00bfc7eaf.tar.gz tcl-fd3264c3a0c9375dcf5d5753e1b2b9d00bfc7eaf.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclHash.c')
| -rw-r--r-- | generic/tclHash.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tclHash.c b/generic/tclHash.c index 2ab4292..7357f32 100644 --- a/generic/tclHash.c +++ b/generic/tclHash.c @@ -284,7 +284,10 @@ CreateHashEntry( if (hash != hPtr->hash) { continue; } - if (((void *) key == hPtr) || compareKeysProc((void *) key, hPtr)) { + /* if keys pointers or values are equal */ + if ((key == hPtr->key.oneWordValue) + || compareKeysProc((VOID *) key, hPtr) + ) { if (newPtr) { *newPtr = 0; } |