From aeceb8614a81188fae0b486cc6f7c8429d7caebe Mon Sep 17 00:00:00 2001 From: Phil Budne Date: Tue, 1 Mar 2016 01:43:24 -0500 Subject: [PATCH] move whitespace removal back in word loop --- tools/as7 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tools/as7 b/tools/as7 index 943121b..e9ecdda 100755 --- a/tools/as7 +++ b/tools/as7 @@ -298,14 +298,14 @@ sub process_label { # (: and ; can appear in char literals) # handles multiple ';' separated words per line sub parse_line { - # Lose any leading whitespace - $line =~ s{^\s*}{}; - while (1) { $line_error = ' '; # clear listing error indicator return if ($line eq '' || $line =~ m{^"}); # empty or comment: quit + # Lose any leading whitespace + $line =~ s{^\s*}{}; + print "parse_line: '$line'\n" if ($debug); while ($line =~ s{^([a-z0-9\.]+):\s*}{}) { # labels