diff options
author | mig <mig@noemail.net> | 2011-05-08 13:00:24 (GMT) |
---|---|---|
committer | mig <mig@noemail.net> | 2011-05-08 13:00:24 (GMT) |
commit | 2033e30f0503f104ab99f3589e2381a7691c4d6a (patch) | |
tree | a49dbe7b0f82d5ea276dbb619f7968584006c6b3 | |
parent | 55a56d8b70ba9976a5a1c1f2221821e638eb2799 (diff) | |
download | tcl-2033e30f0503f104ab99f3589e2381a7691c4d6a.zip tcl-2033e30f0503f104ab99f3589e2381a7691c4d6a.tar.gz tcl-2033e30f0503f104ab99f3589e2381a7691c4d6a.tar.bz2 |
is this a proper fix? Or is it invalidating too much?
FossilOrigin-Name: 05250d7801d6a59c67393f182885e76da225cbd1
-rw-r--r-- | generic/tclInt.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index f2fd0b8..d196d96 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3757,6 +3757,9 @@ MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr, CONST char *file, #define TclInvalidateNsCmdLookup(nsPtr) \ if ((nsPtr)->numExportPatterns) { \ (nsPtr)->exportLookupEpoch++; \ + } \ + if ((nsPtr)->commandPathLength) { \ + (nsPtr)->cmdRefEpoch++; \ } /* |