diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-23 12:19:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-23 12:19:12 (GMT) |
| commit | 93802f62b1b7db705e29fe8dcd3abe5fedd6b8d9 (patch) | |
| tree | 0f51141ce77037f18b3777c23c9ab7666b590eea /generic/tclVar.c | |
| parent | 00e36faa85d26704fb289ee399cad3c810c0eaa2 (diff) | |
| parent | 401ea793a5691a5dc91795371922de138ea7f68c (diff) | |
| download | tcl-93802f62b1b7db705e29fe8dcd3abe5fedd6b8d9.zip tcl-93802f62b1b7db705e29fe8dcd3abe5fedd6b8d9.tar.gz tcl-93802f62b1b7db705e29fe8dcd3abe5fedd6b8d9.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 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. |