[svn:parrot] r35340 - trunk/languages/perl6/src/classes

Author: pmichaud
Date: Sat Jan 10 07:41:39 2009
New Revision: 35340

Modified:
   trunk/languages/perl6/src/classes/Capture.pir
   trunk/languages/perl6/src/classes/Hash.pir
   trunk/languages/perl6/src/classes/Mapping.pir
   trunk/languages/perl6/src/classes/Object.pir
   trunk/languages/perl6/src/classes/Pair.pir

Log:
[rakudo]:  More converting of ObjectRef to Perl6Scalar.


Modified: trunk/languages/perl6/src/classes/Capture.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Capture.pir	(original)
+++ trunk/languages/perl6/src/classes/Capture.pir	Sat Jan 10 07:41:39 2009
@@ -62,9 +62,9 @@
 .namespace []
 .sub "prefix:\\"
     .param pmc arg
-    $I0 = isa arg, 'ObjectRef'
+    $I0 = isa arg, 'Perl6Scalar'
     if $I0 goto have_ref
-    arg = new 'ObjectRef', arg
+    arg = new 'Perl6Scalar', arg
   have_ref:
     .return (arg)
 .end

Modified: trunk/languages/perl6/src/classes/Hash.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Hash.pir	(original)
+++ trunk/languages/perl6/src/classes/Hash.pir	Sat Jan 10 07:41:39 2009
@@ -89,7 +89,7 @@
 .sub 'circumfix:{ }'
     .param pmc values :slurpy
     $P0 = values.'Hash'()
-    $P0 = new 'ObjectRef', $P0
+    $P0 = new 'Perl6Scalar', $P0
     .return ($P0)
 .end
 

Modified: trunk/languages/perl6/src/classes/Mapping.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Mapping.pir	(original)
+++ trunk/languages/perl6/src/classes/Mapping.pir	Sat Jan 10 07:41:39 2009
@@ -272,7 +272,7 @@
 =item Scalar
 
 When we're going to be stored as an item, become a Hash and
-return an ObjectRef to it.
+return a Perl6Scalar with it.
 
 =cut
 

Modified: trunk/languages/perl6/src/classes/Object.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Object.pir	(original)
+++ trunk/languages/perl6/src/classes/Object.pir	Sat Jan 10 07:41:39 2009
@@ -300,7 +300,7 @@
     $S0 = substr attrname, 0, 1
     if $S0 == '@' goto attrinit_array
     if $S0 == '%' goto attrinit_hash
-    itypeclass = get_class ['ObjectRef']
+    itypeclass = get_class ['Perl6Scalar']
     goto attrinit_itype
   attrinit_array:
     itypeclass = get_class ['Perl6Array']

Modified: trunk/languages/perl6/src/classes/Pair.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Pair.pir	(original)
+++ trunk/languages/perl6/src/classes/Pair.pir	Sat Jan 10 07:41:39 2009
@@ -154,7 +154,7 @@
     key = key.'item'()
     value = value.'item'()
     $P0 = new ['Perl6Pair']
-    $P1 = new ['ObjectRef']
+    $P1 = new ['Perl6Scalar']
     'infix:='($P1, key)
     setattribute $P0, '$!key', $P1
     setattribute $P0, '$!value', value

• [svn:parrot] r35340 - trunk/languages/perl6/src/classes by pmichaud