[svn:parrot] r47301 - in trunk/t: compilers/imcc/syn pmc

[coke at svn.parrot.org]

Author: coke
Date: Wed Jun  2 13:21:07 2010
New Revision: 47301
URL: https://trac.parrot.org/parrot/changeset/47301

Log:
Avoid use of deprecated PIR syntax.  (can't use assignment syntax here.)

Modified:
   trunk/t/compilers/imcc/syn/const.t
   trunk/t/pmc/exporter.t

Modified: trunk/t/compilers/imcc/syn/const.t
==============================================================================
--- trunk/t/compilers/imcc/syn/const.t	Wed Jun  2 13:07:49 2010	(r47300)
+++ trunk/t/compilers/imcc/syn/const.t	Wed Jun  2 13:21:07 2010	(r47301)
@@ -198,7 +198,7 @@
     $S0 = ""
     $I0 = 0
 LOOP:
-    $S0 = concat <<"end"
+    concat $S0, <<"end"
 ending
 end
     inc $I0

Modified: trunk/t/pmc/exporter.t
==============================================================================
--- trunk/t/pmc/exporter.t	Wed Jun  2 13:07:49 2010	(r47300)
+++ trunk/t/pmc/exporter.t	Wed Jun  2 13:21:07 2010	(r47301)
@@ -172,8 +172,8 @@
   ok_2:
     say 'ok 2 - globals() with empty array arg sets PMCNULL'
 
-    $P99 = push 'Alex'
-    $P99 = push 'Prince'
+    push $P99, 'Alex'
+    push $P99, 'Prince'
 
     $P0.'globals'($P99)
     $P1 = $P0.'globals'()
@@ -323,8 +323,8 @@
 
     src     = get_namespace [ 'Test'; 'More' ]
     globals = new ['ResizableStringArray']
-    globals = push 'ok'
-    globals = push 'plan'
+    push globals, 'ok'
+    push globals, 'plan'
 
     exporter = new ['Exporter']
     exporter.'import'( src :named('source'), globals :named('globals') )
@@ -385,8 +385,8 @@
     src     = get_namespace [ 'Test'; 'More' ]
     dest    = get_namespace ['foo']
     globals = new ['ResizableStringArray']
-    globals = push 'ok'
-    globals = push 'plan'
+    push globals, 'ok'
+    push globals, 'plan'
 
     exporter = new ['Exporter']
     exporter.'import'( src :named('source'), dest :named('destination'), globals :named('globals') )