Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | **interim** improved, but not ready (tests failed, segfault, rebuild on inheritance, etc) |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | sebres-on-dmnd-resolver-perf-branch |
| Files: | files | file ages | folders |
| SHA3-256: |
904c4d882ca2e7dfce6cb365e968e5dc |
| User & Date: | sebres 2019-04-17 20:43:09.730 |
Context
|
2019-04-17
| ||
| 20:43 | on demand resolver almost ready (check if0-commented cases - inheritance, 2-3 test cases failed) check-in: 87972ed991 user: sebres tags: sebres-on-dmnd-resolver-perf-branch | |
| 20:43 | **interim** improved, but not ready (tests failed, segfault, rebuild on inheritance, etc) check-in: 904c4d882c user: sebres tags: sebres-on-dmnd-resolver-perf-branch | |
| 20:42 | *interim* try to implement on demand var-resolver virtual table check-in: c3440a6f46 user: sebres tags: sebres-on-dmnd-resolver-perf-branch | |
Changes
Changes to generic/itclObject.c.
| ︙ | ︙ | |||
965 966 967 968 969 970 971 |
if (Tcl_SetVar2(interp, varName, NULL,
"", TCL_NAMESPACE_ONLY) == NULL) {
Tcl_AppendResult(interp, "INTERNAL ERROR cannot set",
" variable \"", varName, "\"\n", NULL);
goto errorCleanup;
}
}
| | | 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 |
if (Tcl_SetVar2(interp, varName, NULL,
"", TCL_NAMESPACE_ONLY) == NULL) {
Tcl_AppendResult(interp, "INTERNAL ERROR cannot set",
" variable \"", varName, "\"\n", NULL);
goto errorCleanup;
}
}
hPtr2 = ItclResolveVarEntry(ivPtr->iclsPtr, varName);
if (hPtr2 == NULL) {
hPtr = Tcl_NextHashEntry(&place);
continue;
}
#ifdef NEW_PROTO_RESOLVER
vlookup = Tcl_GetHashValue(hPtr2);
#endif
|
| ︙ | ︙ |
Changes to generic/itclResolve.c.
| ︙ | ︙ | |||
310 311 312 313 314 315 316 |
/* Check that the object hasn't already been destroyed. */
hPtr = Tcl_FindHashEntry(&infoPtr->objects, (char *)contextIoPtr);
if (hPtr == NULL) {
return TCL_CONTINUE;
}
if (contextIoPtr->iclsPtr != vlookup->ivPtr->iclsPtr) {
if (strcmp(Tcl_GetString(vlookup->ivPtr->namePtr), "this") == 0) {
| | | 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 |
/* Check that the object hasn't already been destroyed. */
hPtr = Tcl_FindHashEntry(&infoPtr->objects, (char *)contextIoPtr);
if (hPtr == NULL) {
return TCL_CONTINUE;
}
if (contextIoPtr->iclsPtr != vlookup->ivPtr->iclsPtr) {
if (strcmp(Tcl_GetString(vlookup->ivPtr->namePtr), "this") == 0) {
hPtr = ItclResolveVarEntry(contextIoPtr->iclsPtr,
Tcl_GetString(vlookup->ivPtr->namePtr));
if (hPtr != NULL) {
vlookup = (ItclVarLookup*)Tcl_GetHashValue(hPtr);
}
}
}
|
| ︙ | ︙ | |||
524 525 526 527 528 529 530 |
return NULL;
}
if (contextIoPtr->iclsPtr != vlookup->ivPtr->iclsPtr) {
if (strcmp(Tcl_GetString(vlookup->ivPtr->namePtr), "this") == 0) {
/* only for the this variable we need the one of the
* contextIoPtr class */
| | | 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 |
return NULL;
}
if (contextIoPtr->iclsPtr != vlookup->ivPtr->iclsPtr) {
if (strcmp(Tcl_GetString(vlookup->ivPtr->namePtr), "this") == 0) {
/* only for the this variable we need the one of the
* contextIoPtr class */
hPtr = ItclResolveVarEntry(contextIoPtr->iclsPtr,
Tcl_GetString(vlookup->ivPtr->namePtr));
if (hPtr != NULL) {
vlookup = (ItclVarLookup*)Tcl_GetHashValue(hPtr);
}
}
}
|
| ︙ | ︙ |