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

as7 tweaks: make it clear multiple define is not an error; fix = for tmg

Browse Source
This commit is contained in:
phil
2019-10-26 01:14:55 -04:00
parent dbd19c5478
commit 963ea7c170
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
@@ -294,7 +294,7 @@ sub set_label
# An error to have different values # An error to have different values
if ( defined( $Glabel{$label} ) && $Glabel{$label} != $loc ) { if ( defined( $Glabel{$label} ) && $Glabel{$label} != $loc ) {
# non-fatal: as.s doesn't even warn!!!! # non-fatal: as.s doesn't even warn!!!!
print STDERR "$file:$lineno: Global label $label multiply defined\n" print STDERR "$file:$lineno: NOTE: Global label $label multiply defined (not an error)\n"
if ($stage == 2); if ($stage == 2);
} }
else { else {
@@ -398,7 +398,7 @@ sub parse_line {
return if (eol()); return if (eol());
if ( $line =~ s{^(\S+)\s*=}{}) { # assignment if ( $line =~ s{^([^;= \t]+)\s*=}{}) { # assignment
my $lhs = $1; my $lhs = $1;
my $word = parse_expression(); my $word = parse_expression();
printf( "Setting variable %s to 0%o\n", $lhs, $word ) if ($debug); printf( "Setting variable %s to 0%o\n", $lhs, $word ) if ($debug);