Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Remove (buggy and ineffective) screen out of non-implemented methods. Don't want to do this anyway. Remove portion of "unknown" method handler that treats (ItclMemberFunc *) as (ItclDelegatedFunction *). |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
3d78d3a91ab0705f1943153ecaf1ea89 |
| User & Date: | dgp 2015-05-21 14:00:52 |
Context
|
2015-05-26
| ||
| 19:44 | Repair obviously broken logic. Prefix "::" is special. Prefixes "a:" and ":a" are not. check-in: 8a11d531cc user: dgp tags: trunk | |
|
2015-05-22
| ||
| 17:14 | Disable crackpot code. No substantial harm demonstrated by test suite. check-in: 5885edb242 user: dgp tags: bug-5ea6971709 | |
|
2015-05-21
| ||
| 14:00 | Remove (buggy and ineffective) screen out of non-implemented methods. Don't want to do this anyway. Remove portion of "unknown" method handler that treats (ItclMemberFunc *) as (ItclDelegatedFunction *). check-in: 3d78d3a91a user: dgp tags: trunk | |
| 13:58 | TEA update/repair Closed-Leaf check-in: f60f298360 user: dgp tags: dgp-member-flags | |
|
2015-05-08
| ||
| 14:08 | TEA update check-in: 807132490d user: dgp tags: trunk | |
Changes
Changes to generic/itclBuiltin.c.
| ︙ | ︙ | |||
1677 1678 1679 1680 1681 1682 1683 |
Tcl_IncrRefCount(objPtr);
hPtr = Tcl_FindHashEntry(&iclsPtr->delegatedFunctions,
(char *)objPtr);
Tcl_DecrRefCount(objPtr);
if (hPtr != NULL) {
idmPtr = Tcl_GetHashValue(hPtr);
isStar = 1;
| < < < < < < | 1677 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 |
Tcl_IncrRefCount(objPtr);
hPtr = Tcl_FindHashEntry(&iclsPtr->delegatedFunctions,
(char *)objPtr);
Tcl_DecrRefCount(objPtr);
if (hPtr != NULL) {
idmPtr = Tcl_GetHashValue(hPtr);
isStar = 1;
}
} else {
found = 1;
idmPtr = Tcl_GetHashValue(hPtr);
}
if (isStar) {
/* check if the function is in the exceptions */
|
| ︙ | ︙ |
Changes to generic/itclParse.c.
| ︙ | ︙ | |||
772 773 774 775 776 777 778 |
* Build the name resolution tables for all data members.
*/
Itcl_BuildVirtualTables(iclsPtr);
/* make the methods and procs known to TclOO */
Tcl_DStringInit(&buffer);
FOREACH_HASH_VALUE(imPtr, &iclsPtr->functions) {
| < | 772 773 774 775 776 777 778 779 780 781 782 783 784 785 |
* Build the name resolution tables for all data members.
*/
Itcl_BuildVirtualTables(iclsPtr);
/* make the methods and procs known to TclOO */
Tcl_DStringInit(&buffer);
FOREACH_HASH_VALUE(imPtr, &iclsPtr->functions) {
ClientData pmPtr;
argumentPtr = imPtr->codePtr->argumentPtr;
bodyPtr = imPtr->codePtr->bodyPtr;
if (imPtr->codePtr->flags & ITCL_BUILTIN) {
int isDone;
isDone = 0;
if (imPtr->builtinArgumentPtr == NULL) {
|
| ︙ | ︙ | |||
992 993 994 995 996 997 998 |
} else {
imPtr->accessCmd = Tcl_CreateObjCommand(interp,
Tcl_GetString(imPtr->fullNamePtr),
Itcl_ExecProc, imPtr, ItclReleaseIMF);
ItclPreserveIMF(imPtr);
}
Tcl_DStringInit(&buffer);
| < | 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 |
} else {
imPtr->accessCmd = Tcl_CreateObjCommand(interp,
Tcl_GetString(imPtr->fullNamePtr),
Itcl_ExecProc, imPtr, ItclReleaseIMF);
ItclPreserveIMF(imPtr);
}
Tcl_DStringInit(&buffer);
}
if (iclsPtr->flags & (ITCL_TYPE|ITCL_WIDGETADAPTOR)) {
/* initialize the typecomponents and typevariables */
if (Itcl_PushCallFrame(interp, &frame, iclsPtr->nsPtr,
/*isProcCallFrame*/0) != TCL_OK) {
result = TCL_ERROR;
goto errorReturn;
|
| ︙ | ︙ |