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'
),
