# New Ticket Created by Kevin Falcone
# Please include the string: [netlabs #646]
# in the subject line of all future correspondence about this issue.
# <URL: http://bugs6.perl.org/rt2/Ticket/Display.html?id=646 >
While testing the other assembler patch, I noticed some of the
cola-generated pasm files died while doing
bsr __puts
because _ wasn't in the $label_re
-kevin
Index: assemble.pl
===================================================================
RCS file: /cvs/public/parrot/assemble.pl,v
retrieving revision 1.54
diff -u -r1.54 assemble.pl
--- assemble.pl 1 Jun 2002 08:06:53 -0000 1.54
+++ assemble.pl 1 Jun 2002 19:48:45 -0000
@@ -654,7 +660,7 @@
my $str_re = qr(\"(?:[^\\\"]*(?:\\.[^\\\"]*)*)\" |
\'(?:[^\\\']*(?:\\.[^\\\']*)*)\'
)x;
- my $label_re = qr([a-zA-Z][a-zA-Z0-9_]*);
+ my $label_re = qr([a-zA-Z_][a-zA-Z0-9_]*);
my $pc = 0;
$self->_collect_labels(); # Collect labels in a separate pass
--
"TIMTOWTDI, but did you have to pick the ugliest way you could find?"
-- Michael Carman in comp.lang.perl.misc
