Posted to tcl by apw at Sat Oct 13 18:02:36 GMT 2007view pretty

Index: tclOO.c
===================================================================
RCS file: /cvsroot/tcl/oocore/generic/tclOO.c,v
retrieving revision 1.26
diff -r1.26 tclOO.c
1769c1769
<       result = oPtr->mapMethodNameProc(interp, oPtr, startCls,
---
>       result = oPtr->mapMethodNameProc(interp, oPtr, &startCls,
3013a3014,3021
> void
> Tcl_ObjectSetMapMethodNameProc(
>     Tcl_Object oPtr,
>     TclOO_MapMethodNameProc mapMethodNameProc)
> {
>     ((Object *)oPtr)->mapMethodNameProc = mapMethodNameProc;
> }
>
Index: tclOOInt.h
===================================================================
RCS file: /cvsroot/tcl/oocore/generic/tclOOInt.h,v
retrieving revision 1.13
diff -r1.13 tclOOInt.h61c61
<       struct Class *startClsPtr, Tcl_Obj *methodObj);
---
>       struct Class **startClsPtrPtr, Tcl_Obj *methodObj);