cvs commit: ponie/perl sv.c

cvsuser     04/06/21 14:00:26

  Modified:    .        Configure.pl
               perl     sv.c
  Log:
  Should generate Perl5NULL PMCs initially.
  
  Revision  Changes    Path
  1.28      +2 -2      ponie/Configure.pl
  
  Index: Configure.pl
  ===================================================================
  RCS file: /cvs/public/ponie/Configure.pl,v
  retrieving revision 1.27
  retrieving revision 1.28
  diff -u -w -r1.27 -r1.28
  --- Configure.pl	8 May 2004 09:36:27 -0000	1.27
  +++ Configure.pl	21 Jun 2004 21:00:25 -0000	1.28
  @@ -1,5 +1,5 @@
   #!/usr/bin/perl -w
  -# $Id: Configure.pl,v 1.27 2004/05/08 09:36:27 nicholas Exp $
  +# $Id: Configure.pl,v 1.28 2004/06/21 21:00:25 nicholas Exp $
   
   use strict;
   use Config;
  @@ -46,7 +46,7 @@
   my $template = do {local $/; <F>};
   close F or die $!;
   chdir('parrot')  || die "You need to checkout parrot inside ponie";
  -foreach (qw(iv nv rv pv pviv pvnv pvmg pvbm pvgv pvlv pvav pvhv pvcv pvfm
  +foreach (qw(null iv nv rv pv pviv pvnv pvmg pvbm pvgv pvlv pvav pvhv pvcv pvfm
   	    pvio)) {
     my $leaf = "perl5$_.pmc";
     my $file = File::Spec->catfile('classes', $leaf);
  
  
  
  1.39      +1 -1      ponie/perl/sv.c
  
  Index: sv.c
  ===================================================================
  RCS file: /cvs/public/ponie/perl/sv.c,v
  retrieving revision 1.38
  retrieving revision 1.39
  diff -u -w -r1.38 -r1.39
  --- sv.c	21 Jun 2004 16:34:16 -0000	1.38
  +++ sv.c	21 Jun 2004 21:00:26 -0000	1.39
  @@ -162,7 +162,7 @@
   STATIC SV*
   S_new_SV(pTHX)
   {
  -    Parrot_Int  type = Parrot_PMC_typenum(PL_Parrot, "Perl5IV");
  +    Parrot_Int  type = Parrot_PMC_typenum(PL_Parrot, "Perl5NULL");
       Parrot_PMC  sv = Parrot_PMC_new(PL_Parrot, type);
       Parrot_register_pmc(PL_Parrot, sv);
       sv = MUMBLE(sv);