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

[cotto at svn.parrot.org]

Author: cotto
Date: Thu Jun 25 17:53:50 2009
New Revision: 39773
URL: https://trac.parrot.org/parrot/changeset/39773

Log:
[pmc2c] remove some code that doesn't (and can't afaict) get hit during the build

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

Modified: trunk/lib/Parrot/Pmc2c/PMCEmitter.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/PMCEmitter.pm	Thu Jun 25 16:46:42 2009	(r39772)
+++ trunk/lib/Parrot/Pmc2c/PMCEmitter.pm	Thu Jun 25 17:53:50 2009	(r39773)
@@ -698,22 +698,16 @@
     foreach my $method ( @{ $self->{methods} } ) {
         next unless $method->type eq Parrot::Pmc2c::Method::NON_VTABLE;
 
-        my $proto       = proto( $method->return_type, $method->parameters );
         my $method_name = $method->name;
-        my $symbol_name =
-            defined $method->symbol ? $method->symbol : $method->name;
+        my $symbol_name = $method->symbol;
 
-        if ( exists $method->{PCCMETHOD} ) {
-            $cout .= <<"EOC";
-        register_raw_nci_method_in_ns(interp, entry, F2DPTR(Parrot_${classname}_${method_name}), CONST_STRING_GEN(interp, "$symbol_name"));
-EOC
+        if (!defined $method->symbol) {
+            print "\n\nUSING method->name: ".$method->name."\n\n\n";
         }
-        else {
-            $cout .= <<"EOC";
-        register_nci_method(interp, entry,
-                F2DPTR(Parrot_${classname}_${method_name}), "$symbol_name", "$proto");
+
+        $cout .= <<"EOC";
+        register_raw_nci_method_in_ns(interp, entry, F2DPTR(Parrot_${classname}_${method_name}), CONST_STRING_GEN(interp, "$symbol_name"));
 EOC
-        }
         if ( $method->{attrs}{write} ) {
             $cout .= <<"EOC";
         Parrot_mark_method_writes(interp, entry, "$symbol_name");