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

[svn:parrot] r35347 - trunk/languages/perl6/src/builtins

From:
pmichaud
Date:
January 10, 2009 10:17
Subject:
[svn:parrot] r35347 - trunk/languages/perl6/src/builtins
Message ID:
20090110181744.3DB89CB9F9@x12.develooper.com
Author: pmichaud
Date: Sat Jan 10 10:17:43 2009
New Revision: 35347

Modified:
   trunk/languages/perl6/src/builtins/assign.pir
   trunk/languages/perl6/src/builtins/named-unary.pir

Log:
[rakudo]:  More places where we s/ObjectRef/Perl6Scalar/ .


Modified: trunk/languages/perl6/src/builtins/assign.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/assign.pir	(original)
+++ trunk/languages/perl6/src/builtins/assign.pir	Sat Jan 10 10:17:43 2009
@@ -333,7 +333,7 @@
     cur_a = 'list'(cur_a)
   recurse:
     $P0 = '!HYPEROP'(opname, cur_a, cur_b, dwim_lhs, dwim_rhs)
-    $P0 = new 'ObjectRef', $P0
+    $P0 = new 'Perl6Scalar', $P0
     push result, $P0
     goto loop
 

Modified: trunk/languages/perl6/src/builtins/named-unary.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/named-unary.pir	(original)
+++ trunk/languages/perl6/src/builtins/named-unary.pir	Sat Jan 10 10:17:43 2009
@@ -53,12 +53,7 @@
 
 .sub 'undefine'
     .param pmc x
-    $P0 = new 'Undef'
-    $I0 = isa x, 'ObjectRef'
-    unless $I0 goto copy
-    assign x, $P0
-    .return ()
-  copy:
+    $P0 = new ['Perl6Scalar']
     copy x, $P0
 .end
 



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