cvs commit: ponie/perl sv.c

cvsuser     03/12/10 02:25:21

  Modified:    perl     sv.c
  Log:
  create a pmc
  
  Revision  Changes    Path
  1.2       +11 -1     ponie/perl/sv.c
  
  Index: sv.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.c,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- sv.c	9 Sep 2003 11:58:56 -0000	1.1
  +++ sv.c	10 Dec 2003 10:25:21 -0000	1.2
  @@ -21,7 +21,7 @@
   #define PERL_IN_SV_C
   #include "perl.h"
   #include "regcomp.h"
  -
  +#include "parrot/extend.h"
   #define FCALL *f
   
   #ifdef PERL_UTF8_CACHE_ASSERT
  @@ -1078,6 +1078,16 @@
   S_new_xpvlv(pTHX)
   {
       XPVLV* xpvlv;
  +    Parrot_Int  type = Parrot_PMC_typenum(PL_Parrot, "Perl5LV");
  +    /*
  +      Instead of giving back a real XPVLV we give bakc a PMC
  +      
  +    */
  +    
  +    
  +    
  +    Parrot_PMC_new(PL_Parrot, type);
  +
       LOCK_SV_MUTEX;
       if (!PL_xpvlv_root)
   	more_xpvlv();