develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35332 - in trunk/languages/perl6/src: classes parser

From:
pmichaud
Date:
January 9, 2009 22:22
Subject:
[svn:parrot] r35332 - in trunk/languages/perl6/src: classes parser
Message ID:
20090110062233.A4475CB9F9@x12.develooper.com
Author: pmichaud
Date: Fri Jan  9 22:22:32 2009
New Revision: 35332

Modified:
   trunk/languages/perl6/src/classes/List.pir
   trunk/languages/perl6/src/parser/actions.pm

Log:
[rakudo]:  Remove a couple of outdated Perl6Scalar items.
Now we can start using it again.


Modified: trunk/languages/perl6/src/classes/List.pir
==============================================================================
--- trunk/languages/perl6/src/classes/List.pir	(original)
+++ trunk/languages/perl6/src/classes/List.pir	Fri Jan  9 22:22:32 2009
@@ -278,10 +278,6 @@
   flat_loop_1:
     .local pmc elem
     elem = self[i]
-    $I0 = isa elem, 'Perl6Scalar'
-    unless $I0 goto no_deref
-    elem = deref elem
-  no_deref:
     $I0 = isa elem, 'ObjectRef'
     if $I0 goto flat_next
     $I0 = can elem, '!flatten'

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm	(original)
+++ trunk/languages/perl6/src/parser/actions.pm	Fri Jan  9 22:22:32 2009
@@ -2554,7 +2554,7 @@
     else {
         $getset := PAST::Op.new(
             :inline(
-                '    %r = new "Perl6Scalar", %0',
+                '    %r = new "ObjectRef", %0',
                 '    $P0 = get_hll_global [ "Bool" ], "True"',
                 '    setprop %r, "readonly", $P0'
             ),



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