[svn:parrot] r21702 - branches/pdd15oo/lib/Parrot/Pmc2c/PMC

[allison]

Author: allison
Date: Sun Sep 30 21:18:41 2007
New Revision: 21702

Modified:
   branches/pdd15oo/lib/Parrot/Pmc2c/PMC/Object.pm

Log:
[pdd15oo] Altering return properties of the Object PMCs generated vtable 
functions, so the default implementation of a vtable method can return a value.


Modified: branches/pdd15oo/lib/Parrot/Pmc2c/PMC/Object.pm
==============================================================================
--- branches/pdd15oo/lib/Parrot/Pmc2c/PMC/Object.pm     (original)
+++ branches/pdd15oo/lib/Parrot/Pmc2c/PMC/Object.pm     Sun Sep 30 21:18:41 2007
@@ -34,10 +34,11 @@
 
         my ( $return_prefix, $ret_suffix, $args, $sig, $return_type_char, 
$null_return ) =
             $new_default_method->signature;
-        my $void_return = $return_type_char eq 'v' ? 'return;' : '';
-        my $return      = $return_type_char eq 'v' ? ''        : 
$return_prefix;
-        my $superargs   = $args;
-        $superargs      =~ s/^,//;
+        my $void_return  = $return_type_char eq 'v' ? 'return;'    : '';
+        my $return       = $return_type_char eq 'v' ? ''           : 
$return_prefix;
+        my $super_return = $return_type_char eq 'v' ? $void_return : 
$null_return;
+        my $superargs    = $args;
+        $superargs       =~ s/^,//;
 
         $new_default_method->body( Parrot::Pmc2c::Emitter->text(<<"EOC") );
     Parrot_Object * const obj = PARROT_OBJECT(pmc);
@@ -70,8 +71,8 @@
 
         }
     }
-    SUPER($superargs);
-    $null_return
+    ${return}SUPER($superargs);
+    $super_return
 EOC
         $self->add_method($new_default_method);
     }