From 8765817fba87f1893f005223d3c5c918e3ff7c4a Mon Sep 17 00:00:00 2001 From: "Michael H. Hind" Date: Tue, 28 Dec 2010 10:20:54 +0000 Subject: [PATCH] replace concat_s_s opcode --- examples/sdl/lcd/clock.pir | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/examples/sdl/lcd/clock.pir b/examples/sdl/lcd/clock.pir index ee22feab81..e2acc3a1cb 100644 --- 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