# 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