Itcl - the [incr Tcl] extension

Differences From Artifact [db3250e7d0]:

• File generic/itclBuiltin.c — part of check-in [b049519e72] at 2015-05-20 20:04:34 on branch dgp-member-flags — Suppress clearly broken code (ItclMemberFunc != ItclDelegatedFunction). (user: dgp size: 129726)

To Artifact [12da65929d]:

• File generic/itclBuiltin.c — part of check-in [2642a4eccf] at 2015-05-21 13:56:59 on branch dgp-member-flags — Best I can tell, the condition on make only an implemented method known to the TclOO machinery -- leaving out those with no body yet defined -- is just an error. TclOO needs to know about them in order to match them up with the itcl::body that later defines them or to trigger auto-loading of their bodies. (user: dgp size: 129547) [more...]

1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698

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 {
#if 0
	    hPtr = Tcl_FindHashEntry(&iclsPtr->functions,
	            (char *)objv[2]);
	    if (hPtr != NULL) {
	        idmPtr = Tcl_GetHashValue(hPtr);
	    }
#endif
	}
    } else {
        found = 1;
	idmPtr = Tcl_GetHashValue(hPtr);
    }
    if (isStar) {
       /* check if the function is in the exceptions */