[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