cvs commit: parrot/src dynext.c

[Simon Glover]

cvsuser     05/01/06 16:16:37

  Modified:    src      dynext.c
  Log:
   Eliminate usage of PerlArray. Also clean up the comments a bit.
  
  Revision  Changes    Path
  1.37      +5 -5      parrot/src/dynext.c
  
  Index: dynext.c
  ===================================================================
  RCS file: /cvs/public/parrot/src/dynext.c,v
  retrieving revision 1.36
  retrieving revision 1.37
  diff -u -r1.36 -r1.37
  --- dynext.c  30 Dec 2004 00:45:59 -0000      1.36
  +++ dynext.c  7 Jan 2005 00:16:37 -0000       1.37
  @@ -1,6 +1,6 @@
   /*
   Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -$Id: dynext.c,v 1.36 2004/12/30 00:45:59 scog Exp $
  +$Id: dynext.c,v 1.37 2005/01/07 00:16:37 scog Exp $
   
   =head1 NAME
   
  @@ -70,7 +70,7 @@
       dyn_libs = VTABLE_get_pmc_keyed_int(interpreter, iglobals,
               IGLOBALS_DYN_LIBS);
       if (!dyn_libs) {
  -        dyn_libs = pmc_new(interpreter, enum_class_PerlArray);
  +        dyn_libs = pmc_new(interpreter, enum_class_ResizablePMCArray);
           VTABLE_set_pmc_keyed_int(interpreter, iglobals,
                   IGLOBALS_DYN_LIBS, dyn_libs);
       }
  @@ -87,8 +87,8 @@
   =item C<static PMC*
   is_loaded(Parrot_Interp interpreter, STRING *path)>
   
  -Check if a C<ParrotLibrary> PMC with the filename path exists, if yes
  -return it.
  +Check if a C<ParrotLibrary> PMC with the filename path exists. 
  +If it does, return it. Otherwise, return NULL.
   
   =cut
   
  @@ -289,7 +289,7 @@
       path = get_path(interpreter, lib, &handle);
       if (!path || !handle) {
           /*
  -         * XXX internal_exception? return a PerlUndef? return PMCNULL?
  +         * XXX internal_exception? return PMCNULL?
            * PMC Undef seems convenient, because it can be queried with 
get_bool()
            */
           return pmc_new(interpreter, enum_class_Undef);