cvs commit: parrot/classes parrotobject.pmc

[Leopold Toetsch]

cvsuser     03/12/02 03:16:03

  Modified:    classes  parrotobject.pmc
  Log:
  wrong comments, missing param
  
  Revision  Changes    Path
  1.7       +7 -5      parrot/classes/parrotobject.pmc
  
  Index: parrotobject.pmc
  ===================================================================
  RCS file: /cvs/public/parrot/classes/parrotobject.pmc,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -w -r1.6 -r1.7
  --- parrotobject.pmc  1 Dec 2003 18:54:27 -0000       1.6
  +++ parrotobject.pmc  2 Dec 2003 11:16:03 -0000       1.7
  @@ -1,7 +1,7 @@
   /* parrotobject.pmc
    *  Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
    *  CVS Info
  - *     $Id: parrotobject.pmc,v 1.6 2003/12/01 18:54:27 dan Exp $
  + *     $Id: parrotobject.pmc,v 1.7 2003/12/02 11:16:03 leo Exp $
    *  Overview:
    *     These are the vtable functions for the ParrotObject base class
    *  Data Structure and Algorithms:
  @@ -35,10 +35,12 @@
        return SELF->vtable->base_type;
       }
   
  -    # Figure out which method PMC we need. By default we just defer to the
  -    # system method lookup code
  +    /* Figure out which method PMC we need. By default we just defer to the
  +     * system method lookup code
  +     */
       PMC* find_method(STRING* name) {
  -      return Parrot_find_method_with_cache(INTERP, VTABLE_get_pmc_keyed_int(INTERP, 
(PMC *)PMC_data(SELF), 0));
  +     PMC *class = VTABLE_get_pmc_keyed_int(INTERP, (PMC *)PMC_data(SELF), 0);
  +     return Parrot_find_method_with_cache(INTERP, class, name);
       }
   
   }