replace concat_s_s opcode

fernandobrito · Dec 28, 2010 · 8765817 · 8765817
1 parent 0224f9d
commit 8765817
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/examples/sdl/lcd/clock.pir b/examples/sdl/lcd/clock.pir
@@ -104,29 +104,29 @@ HOUR:
     $I0 = $P0[.TM_HOUR]
     cmod $I0, $I0, 10
     $S1 = $I0
-    concat $S0, $S1
+    $S0 = concat $S0, $S1
 
     # minutes
-    concat $S0, $S2
+    $S0 = concat $S0, $S2
     $I0 = $P0[.TM_MIN]
     $I0 /= 10
     $S1 = $I0
-    concat $S0, $S1
+    $S0 = concat $S0, $S1
     $I0 = $P0[.TM_MIN]
     cmod $I0, $I0, 10
     $S1 = $I0
-    concat $S0, $S1
+    $S0 = concat $S0, $S1
 
     # seconds
-    concat $S0, $S2
+    $S0 = concat $S0, $S2
     $I0 = $P0[.TM_SEC]
     $I0 /= 10
     $S1 = $I0
-    concat $S0, $S1
+    $S0 = concat $S0, $S1
     $I0 = $P0[.TM_SEC]
     cmod $I0, $I0, 10
     $S1 = $I0
-    concat $S0, $S1
+    $S0 = concat $S0, $S1
 
     # set the time
     $P0 = get_global "LCD"
@@ -147,7 +147,7 @@ Please send patches and suggestions to the Perl 6 Internals mailing list.
 
 =head1 COPYRIGHT
 
-Copyright (C) 2004-2008, Parrot Foundation.
+Copyright (C) 2004-2010, Parrot Foundation.
 
 =cut