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

[bacek at svn.parrot.org]

Author: bacek
Date: Fri May  8 11:17:30 2009
New Revision: 38601
URL: https://trac.parrot.org/parrot/changeset/38601

Log:
Use non-ro find_method in ro_find_method properly. fsvo...

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:42:49 2009	(r38600)
+++ branches/tt631_part3/lib/Parrot/Pmc2c/PMC/default.pm	Fri May  8 11:17:30 2009	(r38601)
@@ -46,7 +46,8 @@
             $self->{emitter}->emit(<<'EOC');
 static  PMC *
 Parrot_default_ro_find_method(PARROT_INTERP, PMC *pmc, STRING *method_name) {
-    PMC *const method = VTABLE_find_method(interp, pmc, method_name);
+    /* Use non-readonly find_method. Current vtable is ro variant. So ro_variant contains non-ro variant */
+    PMC *const method = pmc->vtable->ro_variant_vtable->find_method(interp, pmc, method_name);
     if (!PMC_IS_NULL(VTABLE_getprop(interp, method, CONST_STRING_GEN(interp, "write"))))
         return PMCNULL;
     else