# New Ticket Created by Tony Payne # Please include the string: [netlabs #617] # in the subject line of all future correspondence about this issue. # <URL: http://bugs6.perl.org/rt2/Ticket/Display.html?id=617 >
Fixed some minor bugs w/ the Optimizer, having to do mainly with handling of labels. Especially problematic were lines w/ a label, but no instruction. Index: lib/Parrot/Optimizer.pm =================================================================== RCS file: /cvs/public/parrot/lib/Parrot/Optimizer.pm,v retrieving revision 1.2 diff -r1.2 Optimizer.pm 28a29 > my $ln = 0; 29a31 > $ln++; 45c47 < if(s/^(\w+):\s+//) { --- > if(s/^(\w+):\s*//) { 56c58,59 < if(s/^([a-zA-Z][a-zA-Z0-9]+)//) { # global label --- > my $current_line = $_; > if(s/^(\w+)//) { # global label 76a80,83 > s/^#.*$//;# Remove the optional comment > if($_ eq $current_line) { > die "Unable to parse input at line $ln: $_\n"; > } 336c343 < next if $_->{blank} or $_->{comment}; --- > next if $_->{blank} or $_->{comment} or !$_->{instruction}; 344a352 > next unless $lines->[$i]{instruction};