Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Demonstration fix for bug. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | bug-f97d4ee020 |
| Files: | files | file ages | folders |
| SHA1: |
e19921efbcf074e0ea8b066a946e015f |
| User & Date: | dgp 2015-03-22 22:28:23 |
Context
|
2015-07-20
| ||
| 12:09 | merge trunk Closed-Leaf check-in: 8bdd67a63b user: dgp tags: bug-f97d4ee020 | |
|
2015-03-22
| ||
| 22:28 | Demonstration fix for bug. check-in: e19921efbc user: dgp tags: bug-f97d4ee020 | |
|
2015-03-21
| ||
| 15:08 | adding a test to reveal a problem with the fix of bug d87cb182053fd79b3 check-in: 76751aba52 user: msofer tags: trunk | |
Changes
Changes to generic/tclNamesp.c.
| ︙ | ︙ | |||
1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 |
*
* Don't optimize to Tcl_NextHashEntry() because of traces.
*/
#ifndef BREAK_NAMESPACE_COMPAT
for (entryPtr = Tcl_FirstHashEntry(&nsPtr->childTable, &search);
entryPtr != NULL;
entryPtr = Tcl_FirstHashEntry(&nsPtr->childTable, &search)) {
childNsPtr = Tcl_GetHashValue(entryPtr);
Tcl_DeleteNamespace(childNsPtr);
}
#else
if (nsPtr->childTablePtr != NULL) {
for (entryPtr = Tcl_FirstHashEntry(nsPtr->childTablePtr, &search);
entryPtr != NULL;
| > > > > | 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 |
*
* Don't optimize to Tcl_NextHashEntry() because of traces.
*/
#ifndef BREAK_NAMESPACE_COMPAT
for (entryPtr = Tcl_FirstHashEntry(&nsPtr->childTable, &search);
entryPtr != NULL;
#if 0
entryPtr = Tcl_FirstHashEntry(&nsPtr->childTable, &search)) {
#else
entryPtr = Tcl_NextHashEntry(&search)) {
#endif
childNsPtr = Tcl_GetHashValue(entryPtr);
Tcl_DeleteNamespace(childNsPtr);
}
#else
if (nsPtr->childTablePtr != NULL) {
for (entryPtr = Tcl_FirstHashEntry(nsPtr->childTablePtr, &search);
entryPtr != NULL;
|
| ︙ | ︙ |