github.com/livingcomputermuseum.pdp7-unix
1
0
Fork 0
mirror of https://github.com/livingcomputermuseum/pdp7-unix.git synced 2026-01-12 00:02:47 +00:00
Code Issues Releases Wiki Activity

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

Browse Source
This commit is contained in:
phil 2019-10-26 12:36:09 -04:00
parent f6a5663640
commit 9c5f034193
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tools/as7
View File

@ -361,7 +361,7 @@ sub parse_directive
print("Got directive $directive\n") if ($debug);
# Set this as a local label
if ($directive=~ m{^\.local\s+(\S+)}) {
if ($directive=~ m{^\@local\s+(\S+)}) {
$Islocal{$file}{$1}=1;
}
}
@ -383,15 +383,15 @@ sub parse_line {
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
$line =~ s{^\s*}{};
# Assembler directives start with an @
if ($line =~ m{^\@}) {
parse_directive($line);
return;
}
while ($line =~ s{^([A-Za-z0-9_\.]+):\s*}{}) { # labels
process_label($1);
}