[svn:parrot] r34784 - trunk/lib/Parrot/Pmc2c

[petdance]

Author: petdance
Date: Thu Jan  1 19:58:43 2009
New Revision: 34784

Modified:
   trunk/lib/Parrot/Pmc2c/MethodEmitter.pm

Log:
removing unused vars in the header setup

Modified: trunk/lib/Parrot/Pmc2c/MethodEmitter.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/MethodEmitter.pm     (original)
+++ trunk/lib/Parrot/Pmc2c/MethodEmitter.pm     Thu Jan  1 19:58:43 2009
@@ -89,7 +89,7 @@
     my $ret     = $self->return_type;
     my $meth    = $self->name;
     my $args    = $self->parameters;
-    my $decs    = $self->decorators;
+    my $decs    = join( $/, @{$self->decorators}, '' );
 
     # convert 'type*' to 'type *' per PDD07
     $ret =~ s/^(.*)\s*(\*)$/$1 $2/;
@@ -98,14 +98,12 @@
     $args = ", $args" if $args =~ /\S/;
     $args =~ s/(\w+)\s*(\*)\s*/$1 $2/g;
 
-    my ( $decorators, $export, $extern, $newl, $semi, $interp, $pmcvar );
-    $decorators = join($/, @$decs, '');
+    my ( $export, $extern, $newl, $semi, $pmcvar );
     if ( $for_header eq 'HEADER' ) {
         $export = $pmc->export;
         $extern = '';
         $newl   = ' ';
         $semi   = ';';
-        $interp = '';
         $pmcvar = '';
     }
     else {
@@ -113,12 +111,11 @@
         $extern = '';
         $newl   = "\n";
         $semi   = '';
-        $interp = 'interp';
         $pmcvar = 'pmc';
     }
 
     return <<"EOC";
-$decorators$export $extern$ret${newl}Parrot_${pmcname}_$meth(PARROT_INTERP, 
PMC *$pmcvar$args)$semi
+$decs$export $extern$ret${newl}Parrot_${pmcname}_$meth(PARROT_INTERP, PMC 
*$pmcvar$args)$semi
 EOC
 }