Posted to tcl by apw at Mon Aug 20 20:21:10 GMT 2007view raw

  1. tclOOMethod.c
  2. PushMethodCallFrame
  3. fdPtr->efi.fields[0].proc = NULL;
  4. fdPtr->efi.fields[0].clientData = fdPtr->nameObj;
  5. if (pmPtr->gfivProc != NULL) {
  6. + fdPtr->pni.method = NULL;
  7. fdPtr->efi.fields[1].proc = pmPtr->gfivProc;
  8. fdPtr->efi.fields[1].clientData = pmPtr;
  9. } else {
  10. fdPtr->efi.fields[1].proc = RenderDeclarerName;
  11. fdPtr->efi.fields[1].clientData = &fdPtr->pni;
  12. }
  13. - if (Tcl_MethodDeclarerObject(fdPtr->pni.method) != NULL) {
  14. - fdPtr->efi.fields[1].name = "object";
  15. - } else {
  16. - fdPtr->efi.fields[1].name = "class";
  17. + if (fdPtr->pni.method != NULL) {
  18. + if (Tcl_MethodDeclarerObject(fdPtr->pni.method) != NULL) {
  19. + fdPtr->efi.fields[1].name = "object";
  20. + } else {
  21. + fdPtr->efi.fields[1].name = "class";
  22. + }
  23. }
  24.  

Comments

Posted by dkf at Mon Aug 20 20:35:00 GMT 2007 [text] [code]

fixed