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:
parent
8dafe1706a
commit
2b4aeb3bab
@ -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);
|
||||
}
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user