diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-23 10:42:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-23 10:42:40 (GMT) |
| commit | 7fd41e8f9eb1f3aef2595b3dd1b3a51507fa5b8b (patch) | |
| tree | 2f62c11929b55fb16eee07d7b6f6d830e5cb02ce /generic/tclVar.c | |
| parent | 5420a19e5c690cb9c96babceac44c26ff6f2167d (diff) | |
| parent | 4067fb322fafa659a623eb255a09de86647153cb (diff) | |
| download | tcl-7fd41e8f9eb1f3aef2595b3dd1b3a51507fa5b8b.zip tcl-7fd41e8f9eb1f3aef2595b3dd1b3a51507fa5b8b.tar.gz tcl-7fd41e8f9eb1f3aef2595b3dd1b3a51507fa5b8b.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index ab71b27..e18d472 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -6165,12 +6165,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. |