Work around multiple Parrot bugs for calls to foreign objects, and do…

…cument what we're working around. (TODO: see if they already have tickets and submit them if not.)
rakudo · Mar 20, 2009 · ec0db22 · ec0db22
1 parent 7b9f811
commit ec0db22
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/builtins/guts.pir b/src/builtins/guts.pir
@@ -108,7 +108,14 @@ way. Otherwise, it uses .^dispatch from the metaclass.
 
   foreign:
     obj = '!DEREF'(obj)
-    .tailcall obj.name(pos_args :flat, name_args :flat :named)
+    # We should be able to just .tailcall. Unfortuantely, Parrot's calling
+    # implementation is a steaming pile of crap and can't even manage to promsie
+    # to put something that does array into $P0 in the following line...which only
+    # exists because calls to METHODs in PMCs don't seem to work with tail calls.
+    ($P0 :slurpy, $P1 :slurpy :named) = obj.name(pos_args :flat, name_args :flat :named)
+    if null $P0 goto no_return
+    .return ($P0 :flat, $P1 :flat :named)
+  no_return:
 .end