[svn:parrot] r49304 - branches/generational_gc/lib/Parrot/Pmc2c

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Sep 25 00:57:07 2010
New Revision: 49304
URL: https://trac.parrot.org/parrot/changeset/49304

Log:
Generate (useless for now) WB vtable methods

Modified:
   branches/generational_gc/lib/Parrot/Pmc2c/PMC.pm
   branches/generational_gc/lib/Parrot/Pmc2c/PMCEmitter.pm

Modified: branches/generational_gc/lib/Parrot/Pmc2c/PMC.pm
==============================================================================
--- branches/generational_gc/lib/Parrot/Pmc2c/PMC.pm	Sat Sep 25 00:56:52 2010	(r49303)
+++ branches/generational_gc/lib/Parrot/Pmc2c/PMC.pm	Sat Sep 25 00:57:07 2010	(r49304)
@@ -281,6 +281,12 @@
     return $self->{ro};
 }
 
+sub wb {
+    my ( $self, $value ) = @_;
+    $self->{wb} = $value if $value;
+    return $self->{wb};
+}
+
 sub flag {
     my ( $self, $name ) = @_;
     return $self->{flags}{$name};

Modified: branches/generational_gc/lib/Parrot/Pmc2c/PMCEmitter.pm
==============================================================================
--- branches/generational_gc/lib/Parrot/Pmc2c/PMCEmitter.pm	Sat Sep 25 00:56:52 2010	(r49303)
+++ branches/generational_gc/lib/Parrot/Pmc2c/PMCEmitter.pm	Sat Sep 25 00:57:07 2010	(r49304)
@@ -30,6 +30,7 @@
 use Parrot::Pmc2c::PCCMETHOD ();
 use Parrot::Pmc2c::MULTI ();
 use Parrot::Pmc2c::PMC::RO ();
+use Parrot::Pmc2c::PMC::WB ();
 use Parrot::Pmc2c::PMC::ParrotClass ();
 
 sub prep_for_emit {
@@ -218,6 +219,8 @@
 
     $self->ro( Parrot::Pmc2c::PMC::RO->new($self) )
         unless $self->abstract or $self->singleton;
+
+    $self->wb( Parrot::Pmc2c::PMC::WB->new($self) )
 }
 
 =item C<gen_includes()>
@@ -516,6 +519,7 @@
 
     my %extra_vt;
     $extra_vt{ro} = $self->{ro} if $self->{ro};
+    $extra_vt{wb} = $self->{wb};
 
     $cout .= <<"EOC";
 void