summaryrefslogtreecommitdiffstats
path: root/generic/tclVar.c
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2015-09-22 20:57:58 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2015-09-22 20:57:58 (GMT)
commitee0b1f4703492cd3d1889551e782882b6b081b46 (patch)
tree2e279d6451caeb3b5652d1541e549029ccde9b8f /generic/tclVar.c
parentbd3fec22b475c3e3e0420a4db76adc41b1cdd8bf (diff)
downloadtcl-ee0b1f4703492cd3d1889551e782882b6b081b46.zip
tcl-ee0b1f4703492cd3d1889551e782882b6b081b46.tar.gz
tcl-ee0b1f4703492cd3d1889551e782882b6b081b46.tar.bz2
micro-opt of hash lookups found by drh
Diffstat (limited to 'generic/tclVar.c')
-rw-r--r--generic/tclVar.c11
1 files changed, 5 insertions, 6 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c
index b37283b..f93de3b 100644
--- a/generic/tclVar.c
+++ b/generic/tclVar.c
@@ -6364,12 +6364,11 @@ CompareVarKeys(
/*
* If the object pointers are the same then they match.
- */
-
- if (objPtr1 == objPtr2) {
- return 1;
- }
-
+ * OPT: this comparison was moved to the caller
+
+ if (objPtr1 == objPtr2) return 1;
+ */
+
/*
* Don't use Tcl_GetStringFromObj as it would prevent l1 and l2 being in a
* register.