develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34073 - branches/main/languages/perl6/src/parser

From:
pmichaud
Date:
December 18, 2008 10:21
Subject:
[svn:parrot] r34073 - branches/main/languages/perl6/src/parser
Message ID:
20081218182147.6802ACBA12@x12.develooper.com
Author: pmichaud
Date: Thu Dec 18 10:21:46 2008
New Revision: 34073

Modified:
   branches/main/languages/perl6/src/parser/actions.pm

Log:
[rakudo]:  .tailcall doesn't work well from :load, so don't use it.


Modified: branches/main/languages/perl6/src/parser/actions.pm
==============================================================================
--- branches/main/languages/perl6/src/parser/actions.pm	(original)
+++ branches/main/languages/perl6/src/parser/actions.pm	Thu Dec 18 10:21:46 2008
@@ -45,11 +45,12 @@
                 :inline( '.include "interpinfo.pasm"',
                          '$P0 = interpinfo .INTERPINFO_CURRENT_SUB',
                          '$P0 = $P0."get_outer"()',
-                         '.tailcall $P0()'
+                         '$P0()'
                 )
             )
         )
     );
+    $main.push( PAST::Stmts.new() );
 
     make $main;
 }



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About