glm94/pdp7-unix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

move whitespace removal back in word loop

Browse Source
This commit is contained in:
Phil Budne
2016-03-01 01:43:24 -05:00
parent 1d10561c7e
commit aeceb8614a
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/as7
+3 -3
View File
@@ -298,14 +298,14 @@ sub process_label {
# (: and ; can appear in char literals) # (: and ; can appear in char literals)
# handles multiple ';' separated words per line # handles multiple ';' separated words per line
sub parse_line { sub parse_line {
# Lose any leading whitespace
$line =~ s{^\s*}{};
while (1) { while (1) {
$line_error = ' '; # clear listing error indicator $line_error = ' '; # clear listing error indicator
return if ($line eq '' || $line =~ m{^"}); # empty or comment: quit return if ($line eq '' || $line =~ m{^"}); # empty or comment: quit
# Lose any leading whitespace
$line =~ s{^\s*}{};
print "parse_line: '$line'\n" if ($debug); print "parse_line: '$line'\n" if ($debug);
while ($line =~ s{^([a-z0-9\.]+):\s*}{}) { # labels while ($line =~ s{^([a-z0-9\.]+):\s*}{}) { # labels