1
0
mirror of https://github.com/livingcomputermuseum/pdp7-unix.git synced 2026-04-25 20:01:34 +00:00

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

This commit is contained in:
phil
2019-10-25 17:53:14 -04:00
parent dbd19c5478
commit 963ea7c170

View File

@@ -294,7 +294,7 @@ sub set_label
# An error to have different values
if ( defined( $Glabel{$label} ) && $Glabel{$label} != $loc ) {
# 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);
}
else {
@@ -398,7 +398,7 @@ sub parse_line {
return if (eol());
if ( $line =~ s{^(\S+)\s*=}{}) { # assignment
if ( $line =~ s{^([^;= \t]+)\s*=}{}) { # assignment
my $lhs = $1;
my $word = parse_expression();
printf( "Setting variable %s to 0%o\n", $lhs, $word ) if ($debug);