github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-04-18 00:56:31 +00:00
Code Issues 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

4
tools/as7
View File

@@ -342,7 +342,7 @@ sub parse_line {
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);
}
@@ -440,7 +440,7 @@ sub parse_expression {
print "\tfound >x\n" if ($debug);
$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;
print "\tsym: $sym\n" if ($debug);
if (defined($Var{$sym})) {