1
0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-01-13 15:27:39 +00:00

as7: make I/II/filename output match as.s behavior

This commit is contained in:
Phil Budne 2016-03-22 13:05:29 -04:00
parent 8dafe1706a
commit 2b4aeb3bab

View File

@ -196,8 +196,8 @@ usage() if ( @ARGV < 1 );
);
# Parse all the files
print STDERR "I\n"; # like the real as
foreach my $file (@ARGV) {
print STDERR "I $file\n"; # like the real as
parse_file($file);
}
@ -206,8 +206,9 @@ $Var{'.'} = $BASE;
$stage = 2;
open(my $OUT, ">$output") || die "$output";
print STDERR "II\n"; # like the real as
foreach my $file (@ARGV) {
print STDERR "II $file\n"; # like the real as
print STDERR "$file\n"; # like the real as
parse_file($file);
}