[svn:parrot] r38465 - branches/tt528_vtinit/lib/Parrot/Pmc2c

bacek at svn.parrot.org bacek at svn.parrot.org
Mon May 4 13:07:33 UTC 2009


Author: bacek
Date: Mon May  4 13:07:32 2009
New Revision: 38465
URL: https://trac.parrot.org/parrot/changeset/38465

Log:
Stop marking VTABLE methods with PARROT_EXPORT.

Hooray! ROTest is broken because of using direct function name in
find_method.

Modified:
   branches/tt528_vtinit/lib/Parrot/Pmc2c/MethodEmitter.pm

Modified: branches/tt528_vtinit/lib/Parrot/Pmc2c/MethodEmitter.pm
==============================================================================
--- branches/tt528_vtinit/lib/Parrot/Pmc2c/MethodEmitter.pm	Mon May  4 13:07:13 2009	(r38464)
+++ branches/tt528_vtinit/lib/Parrot/Pmc2c/MethodEmitter.pm	Mon May  4 13:07:32 2009	(r38465)
@@ -47,7 +47,7 @@
         $self->rewrite_nci_method($pmc);
     }
 
-    $emit->( $pmc->export . ' ' . $self->decl( $pmc, 'CFILE' ) );
+    $emit->( $self->decl( $pmc, 'CFILE' ) );
     $emit->("{\n");
     $emit->($body);
     $emit->("}\n");
@@ -98,14 +98,12 @@
     $args = ", $args" if $args =~ /\S/;
     $args =~ s/(\w+)\s*(\*)\s*/$1 $2/g;
 
-    my ( $export, $extern, $newl, $semi );
+    my ( $extern, $newl, $semi );
     if ( $for_header eq 'HEADER' ) {
-        $export = $pmc->export;
         $newl   = ' ';
         $semi   = ';';
     }
     else {
-        $export = '';
         $newl   = "\n";
         $semi   = '';
     }
@@ -113,7 +111,7 @@
     $pmcarg    = "SHIM($pmcarg)" if $self->pmc_unused;
 
     return <<"EOC";
-$decs$export $ret${newl}Parrot_${pmcname}_$meth(PARROT_INTERP, $pmcarg$args)$semi
+$decs $ret${newl}Parrot_${pmcname}_$meth(PARROT_INTERP, $pmcarg$args)$semi
 EOC
 }
 


More information about the parrot-commits mailing list