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

as7: change directive prefix from "<TAB>." to "@"

Browse Source
This commit is contained in:
phil
2019-10-26 12:38:18 -04:00
parent f51734d3de
commit e1ee7f254a
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/as7
+7 -7
View File
@@ -361,7 +361,7 @@ sub parse_directive
print("Got directive $directive\n") if ($debug); print("Got directive $directive\n") if ($debug);
# Set this as a local label # Set this as a local label
if ($directive=~ m{^\.local\s+(\S+)}) { if ($directive=~ m{^\@local\s+(\S+)}) {
$Islocal{$file}{$1}=1; $Islocal{$file}{$1}=1;
} }
} }
@@ -383,15 +383,15 @@ sub parse_line {
print "parse_line: '$line'\n" if ($debug); print "parse_line: '$line'\n" if ($debug);
# Assembler directives start with a tab and a .
if ($line =~ m{^\t(\..*)}) {
parse_directive($1);
return;
}
# Lose any leading whitespace # Lose any leading whitespace
$line =~ s{^\s*}{}; $line =~ s{^\s*}{};
# Assembler directives start with an @
if ($line =~ m{^\@}) {
parse_directive($line);
return;
}
while ($line =~ s{^([A-Za-z0-9_\.]+):\s*}{}) { # labels while ($line =~ s{^([A-Za-z0-9_\.]+):\s*}{}) { # labels
process_label($1); process_label($1);
} }