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

        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 */

<
<
<
<
<
<
<
<

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 */