cvs commit: parrot/src objects.c

[Simon Glover]

cvsuser     04/12/29 16:13:58

  Modified:    src      objects.c
  Log:
   Use plain String PMCs for the classname
  
  Revision  Changes    Path
  1.129     +3 -3      parrot/src/objects.c
  
  Index: objects.c
  ===================================================================
  RCS file: /cvs/public/parrot/src/objects.c,v
  retrieving revision 1.128
  retrieving revision 1.129
  diff -u -r1.128 -r1.129
  --- objects.c 13 Dec 2004 13:46:25 -0000      1.128
  +++ objects.c 30 Dec 2004 00:13:58 -0000      1.129
  @@ -1,6 +1,6 @@
   /*
   Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -$Id: objects.c,v 1.128 2004/12/13 13:46:25 leo Exp $
  +$Id: objects.c,v 1.129 2004/12/30 00:13:58 scog Exp $
   
   =head1 NAME
   
  @@ -309,7 +309,7 @@
       set_attrib_num(child_class, child_class_array, PCD_PARENTS, parents);
   
       /* Set the classname, if we have one */
  -    classname_pmc = pmc_new(interpreter, enum_class_PerlString);
  +    classname_pmc = pmc_new(interpreter, enum_class_String);
       if (child_class_name) {
           VTABLE_set_string_native(interpreter, classname_pmc, 
child_class_name);
       }
  @@ -400,7 +400,7 @@
   
   
       /* Set the classname, if we have one */
  -    classname_pmc = pmc_new(interpreter, enum_class_PerlString);
  +    classname_pmc = pmc_new(interpreter, enum_class_String);
       VTABLE_set_string_native(interpreter, classname_pmc, class_name);
       set_attrib_num(class, class_array, PCD_CLASS_NAME, classname_pmc);