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

Added support for symbols with uppercase letters.

Browse Source
This commit is contained in:
Warren Toomey
2016-04-28 13:11:24 +10:00
parent 22f0d2e99a
commit c1dc742f03
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/as7
+2 -2
View File
@@ -342,7 +342,7 @@ sub parse_line {
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-Za-z0-9\.]+):\s*}{}) { # labels
process_label($1); process_label($1);
} }
@@ -440,7 +440,7 @@ sub parse_expression {
print "\tfound >x\n" if ($debug); print "\tfound >x\n" if ($debug);
$syllable = ord($1) # absolute $syllable = ord($1) # absolute
} }
elsif ($line =~ s{^([a-z\.][a-z0-9\.]*)}{}) { elsif ($line =~ s{^([A-Za-z\.][A-Za-z0-9\.]*)}{}) {
my $sym = $1; my $sym = $1;
print "\tsym: $sym\n" if ($debug); print "\tsym: $sym\n" if ($debug);
if (defined($Var{$sym})) { if (defined($Var{$sym})) {