# New Ticket Created by Leon Brocard
# Please include the string: [netlabs #653]
# in the subject line of all future correspondence about this issue.
# <URL: http://bugs6.perl.org/rt2/Ticket/Display.html?id=653 >
This little patchette lets the new shiny assembler cope with using an
I register as a PMC key, eg "P14[I3]". Obviously brainf*ck needs to be
in the testsuite ;-)
roo% cvs diff assemble.pl
Index: assemble.pl
===================================================================
RCS file: /cvs/public/parrot/assemble.pl,v
retrieving revision 1.58
diff -u -r1.58 assemble.pl
--- assemble.pl 3 Jun 2002 04:20:14 -0000 1.58
+++ assemble.pl 3 Jun 2002 08:05:00 -0000
@@ -701,6 +701,10 @@
$_->[0][0] .= "_ic";
push @{$_->[0]}, ['ic',0+$1];
}
+ elsif($temp=~s/^\[I(\d+)\]//) { # P14[I3]
+ $_->[0][0] .= "_i";
+ push @{$_->[0]}, ['i',0+$1];
+ }
elsif($temp=~s/^($bin_re)//) { # 0b1101
my $val = $1;$val=~s/0b//;
$_->[0][0] .= "_ic";
Leon
--
Leon Brocard.............................http://www.astray.com/
Nanoware...............................http://www.nanoware.org/
...... Confucius say: Those who quote me are fools
