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

local changes.

Browse Source
This commit is contained in:
Warren Toomey
2016-03-02 17:59:34 +10:00
parent a3d6090fe7
commit bcb2cb0f15
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/as7
+3 -3
View File
@@ -50,7 +50,7 @@ usage() if ( @ARGV < 1 );
# start with the location counter at zero # start with the location counter at zero
# predefine syscall and opcodes as variables # predefine syscall and opcodes as variables
%Var = ( %Var = (
'.' => 0, '.' => 020,
'..' => 4096, # output base addr? '..' => 4096, # output base addr?
# as.s does not have an initial symbol table # as.s does not have an initial symbol table
@@ -183,7 +183,7 @@ foreach my $file (@ARGV) {
} }
# Now do it all again, pass two # Now do it all again, pass two
$Var{'.'} = 0; $Var{'.'} = 020;
$stage = 2; $stage = 2;
print("PASS 2\n") if ($debug); print("PASS 2\n") if ($debug);
foreach my $file (@ARGV) { foreach my $file (@ARGV) {
@@ -464,7 +464,7 @@ sub find_relative_label {
} }
else { else {
# Search backwards for first location smaller than the current one # Search backwards for first location smaller than the current one
foreach my $reflocation ( sort( { $b <=> $b } @{$locarray} ) ) { foreach my $reflocation ( sort( { $b <=> $a } @{$locarray} ) ) {
printf("backward %#o %#o\n", $reflocation, $curlocation) if ($debug); printf("backward %#o %#o\n", $reflocation, $curlocation) if ($debug);
return ($reflocation) if ( $reflocation < $curlocation ); return ($reflocation) if ( $reflocation < $curlocation );
} }