Move $!real_self setting from actions.pm into !fixup_routine_type.

rakudo · Aug 26, 2009 · 3a4cc55 · 3a4cc55
1 parent bd7533f
commit 3a4cc55
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/src/builtins/guts.pir b/src/builtins/guts.pir
@@ -1341,6 +1341,12 @@ Reblesses a sub into a new type.
     $P0 = new_type.'new'()
     $P0 = typeof $P0
     rebless_subclass sub, $P0
+
+    # We also make sure the Parrot-level sub has a backlink to the
+    # Rakudo-level object, since interpinfo only gives us the
+    # Parrot-level sub.
+    $P0 = getattribute sub, ['Sub'], 'proxy'
+    setprop $P0, '$!real_self', sub
 .end
 
 

diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -3148,12 +3148,6 @@ sub set_block_type($block, $type) {
             $type
         );
         $block<block_class_type> := $set_type;
-        # The following is to make sure the Parrot-level sub has a backlink
-        # to the Rakudo-level object, since it's all that we can find from
-        # interpinfo.
-        $block.loadinit().unshift(PAST::Op.new(
-            :inline("    $P0 = getattribute block, ['Sub'], 'proxy'",
-                    "    setprop $P0, '$!real_self', block") ) );
         $block.loadinit().unshift($set_type);
     }
 }