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);