[svn:parrot] r38528 - branches/tt631_part2/lib/Parrot/Pmc2c

bacek at svn.parrot.org bacek at svn.parrot.org
Thu May 7 10:59:35 UTC 2009


Author: bacek
Date: Thu May  7 10:59:34 2009
New Revision: 38528
URL: https://trac.parrot.org/parrot/changeset/38528

Log:
Stop emitting VTABLE functions into header files and declare them static. (Build is broken, because of TT#640

Modified:
   branches/tt631_part2/lib/Parrot/Pmc2c/MethodEmitter.pm
   branches/tt631_part2/lib/Parrot/Pmc2c/PMCEmitter.pm

Modified: branches/tt631_part2/lib/Parrot/Pmc2c/MethodEmitter.pm
==============================================================================
--- branches/tt631_part2/lib/Parrot/Pmc2c/MethodEmitter.pm	Thu May  7 10:37:58 2009	(r38527)
+++ branches/tt631_part2/lib/Parrot/Pmc2c/MethodEmitter.pm	Thu May  7 10:59:34 2009	(r38528)
@@ -111,7 +111,7 @@
     $pmcarg    = "SHIM($pmcarg)" if $self->pmc_unused;
 
     return <<"EOC";
-$decs $ret${newl}Parrot_${pmcname}_$meth(PARROT_INTERP, $pmcarg$args)$semi
+static $decs $ret${newl}Parrot_${pmcname}_$meth(PARROT_INTERP, $pmcarg$args)$semi
 EOC
 }
 

Modified: branches/tt631_part2/lib/Parrot/Pmc2c/PMCEmitter.pm
==============================================================================
--- branches/tt631_part2/lib/Parrot/Pmc2c/PMCEmitter.pm	Thu May  7 10:37:58 2009	(r38527)
+++ branches/tt631_part2/lib/Parrot/Pmc2c/PMCEmitter.pm	Thu May  7 10:59:34 2009	(r38528)
@@ -80,6 +80,8 @@
 
     $c->emit( $self->preamble );
 
+    $c->emit( $self->hdecls );
+    $c->emit( $self->{ro}->hdecls ) if ( $self->{ro} );
     $self->gen_methods;
 
     my $ro = $self->ro;
@@ -118,8 +120,6 @@
 EOH
 
     $h->emit("#define PARROT_IN_EXTENSION\n") if ( $self->is_dynamic );
-    $h->emit( $self->hdecls );
-    $h->emit( $self->{ro}->hdecls ) if ( $self->{ro} );
     $self->gen_attributes;
     $h->emit(<<"EOH");
 


More information about the parrot-commits mailing list