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

  1. Index: tclOO.c
  2. ===================================================================
  3. RCS file: /cvsroot/tcl/oocore/generic/tclOO.c,v
  4. retrieving revision 1.26
  5. diff -r1.26 tclOO.c
  6. 1769c1769
  7. < result = oPtr->mapMethodNameProc(interp, oPtr, startCls,
  8. ---
  9. > result = oPtr->mapMethodNameProc(interp, oPtr, &startCls,
  10. 3013a3014,3021
  11. > void
  12. > Tcl_ObjectSetMapMethodNameProc(
  13. > Tcl_Object oPtr,
  14. > TclOO_MapMethodNameProc mapMethodNameProc)
  15. > {
  16. > ((Object *)oPtr)->mapMethodNameProc = mapMethodNameProc;
  17. > }
  18. >
  19. Index: tclOOInt.h
  20. ===================================================================
  21. RCS file: /cvsroot/tcl/oocore/generic/tclOOInt.h,v
  22. retrieving revision 1.13
  23. diff -r1.13 tclOOInt.h61c61
  24. < struct Class *startClsPtr, Tcl_Obj *methodObj);
  25. ---
  26. > struct Class **startClsPtrPtr, Tcl_Obj *methodObj);
  27.