Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | merge trunk |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dgp-method-type |
| Files: | files | file ages | folders |
| SHA1: |
edf6531a04a63f23a9f1433bdf0ebe7d |
| User & Date: | dgp 2015-12-01 18:59:45 |
Context
|
2015-12-04
| ||
| 14:56 | merge mark check-in: 681c818f06 user: dgp tags: dgp-method-type | |
|
2015-12-01
| ||
| 18:59 | merge trunk check-in: edf6531a04 user: dgp tags: dgp-method-type | |
| 18:59 | [7e3db761c9] Refcounting error. Thanks rlehfeld! check-in: 99cb5d2121 user: dgp tags: trunk | |
|
2015-11-19
| ||
| 15:30 | merge trunk check-in: 31c38479c8 user: dgp tags: dgp-method-type | |
Changes
Changes to generic/itclObject.c.
| ︙ | ︙ | |||
2939 2940 2941 2942 2943 2944 2945 |
}
if (isDirectCall) {
if (!found) {
if (methodNamePtr != NULL) {
Tcl_DecrRefCount(methodNamePtr);
}
methodNamePtr = objv[0];
| < | 2939 2940 2941 2942 2943 2944 2945 2946 2947 2948 2949 2950 2951 2952 |
}
if (isDirectCall) {
if (!found) {
if (methodNamePtr != NULL) {
Tcl_DecrRefCount(methodNamePtr);
}
methodNamePtr = objv[0];
}
}
callbackPtr = Itcl_GetCurrentCallbackPtr(interp);
newObjv = NULL;
if (methodNamePtr != NULL) {
if (iclsPtr->flags & (ITCL_TYPE|ITCL_WIDGETADAPTOR)) {
char *myName;
|
| ︙ | ︙ | |||
2990 2991 2992 2993 2994 2995 2996 2997 2998 2999 3000 3001 3002 3003 |
return result;
}
}
incr = 1;
newObjv = (Tcl_Obj **)ckalloc(sizeof(Tcl_Obj *)*(objc+incr));
myPtr = Tcl_NewStringObj("my", 2);
Tcl_IncrRefCount(myPtr);
newObjv[0] = myPtr;
newObjv[1] = methodNamePtr;
memcpy(newObjv+incr+1, objv+1, (sizeof(Tcl_Obj*)*(objc-1)));
ItclShowArgs(1, "run CallPublicObjectCmd1", objc+incr, newObjv);
Tcl_NRAddCallback(interp, CallPublicObjectCmd, oPtr, clsPtr,
INT2PTR(objc+incr), newObjv);
| > | 2989 2990 2991 2992 2993 2994 2995 2996 2997 2998 2999 3000 3001 3002 3003 |
return result;
}
}
incr = 1;
newObjv = (Tcl_Obj **)ckalloc(sizeof(Tcl_Obj *)*(objc+incr));
myPtr = Tcl_NewStringObj("my", 2);
Tcl_IncrRefCount(myPtr);
Tcl_IncrRefCount(methodNamePtr);
newObjv[0] = myPtr;
newObjv[1] = methodNamePtr;
memcpy(newObjv+incr+1, objv+1, (sizeof(Tcl_Obj*)*(objc-1)));
ItclShowArgs(1, "run CallPublicObjectCmd1", objc+incr, newObjv);
Tcl_NRAddCallback(interp, CallPublicObjectCmd, oPtr, clsPtr,
INT2PTR(objc+incr), newObjv);
|
| ︙ | ︙ |