diff options
author | hobbs <hobbs@noemail.net> | 2010-09-22 00:57:09 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2010-09-22 00:57:09 (GMT) |
commit | 48363a3947f253ec251bd0b10d9f1cd1795e569b (patch) | |
tree | 356a5957b976f2062a12f31fac69730677ca8a7a /generic/tclIOUtil.c | |
parent | c45601c2c242043177ae5c962805080cd5f69a93 (diff) | |
download | tcl-48363a3947f253ec251bd0b10d9f1cd1795e569b.zip tcl-48363a3947f253ec251bd0b10d9f1cd1795e569b.tar.gz tcl-48363a3947f253ec251bd0b10d9f1cd1795e569b.tar.bz2 |
* generic/tclOOMethod.c (ProcedureMethodCompiledVarConnect):
* generic/tclVar.c (TclLookupSimpleVar, CompareVarKeys):
* generic/tclPathObj.c (Tcl_FSGetNormalizedPath, Tcl_FSEqualPaths):
* generic/tclExecute.c (TclExecuteByteCode):
* generic/tclIOUtil.c (TclFSCwdPointerEquals): peephole opt
* generic/tclResult.c (TclMergeReturnOptions): use memcmp where
applicable as possible speedup on some libc variants.
FossilOrigin-Name: 9dc86adce744657674fe3c8a0dac07f44f47f583
Diffstat (limited to 'generic/tclIOUtil.c')
-rw-r--r-- | generic/tclIOUtil.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c index 234e973..6683ff9 100644 --- a/generic/tclIOUtil.c +++ b/generic/tclIOUtil.c @@ -17,7 +17,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOUtil.c,v 1.177 2010/08/14 17:13:02 nijtmans Exp $ + * RCS: @(#) $Id: tclIOUtil.c,v 1.178 2010/09/22 00:57:11 hobbs Exp $ */ #include "tclInt.h" @@ -506,7 +506,7 @@ TclFSCwdPointerEquals( str1 = Tcl_GetStringFromObj(tsdPtr->cwdPathPtr, &len1); str2 = Tcl_GetStringFromObj(*pathPtrPtr, &len2); - if (len1 == len2 && !strcmp(str1,str2)) { + if ((len1 == len2) && !memcmp(str1, str2, len1)) { /* * They are equal, but different objects. Update so they will be * the same object in the future. |