[svn:parrot] r38597 - branches/tt631_part3/lib/Parrot/Pmc2c/PMC

[bacek at svn.parrot.org]

Author: bacek
Date: Fri May  8 10:41:52 2009
New Revision: 38597
URL: https://trac.parrot.org/parrot/changeset/38597

Log:
Generates default_ro_get_vtable

Modified:
   branches/tt631_part3/lib/Parrot/Pmc2c/PMC/default.pm

Modified: branches/tt631_part3/lib/Parrot/Pmc2c/PMC/default.pm
==============================================================================
--- branches/tt631_part3/lib/Parrot/Pmc2c/PMC/default.pm	Fri May  8 10:41:35 2009	(r38596)
+++ branches/tt631_part3/lib/Parrot/Pmc2c/PMC/default.pm	Fri May  8 10:41:52 2009	(r38597)
@@ -99,7 +99,25 @@
 EOC
 
     # Generate RO version of default VTABLE.
-    
+    my $ro_vtable_decl = '';
+    foreach my $name ( @{ $self->vtable->names } ) {
+        next unless $self->vtable_method_does_write($name);
+        $ro_vtable_decl .= "    vt->$name = Parrot_default_ro_${name};\n";
+    }
+
+    $cout .= <<"EOC";
+
+PARROT_EXPORT VTABLE* Parrot_default_ro_get_vtable(PARROT_INTERP) {
+
+    VTABLE * vt = Parrot_default_get_vtable(interp);
+
+$ro_vtable_decl
+
+    return vt;
+}
+
+EOC
+
     $cout;
 }