Fix address in HEX

This commit is contained in:
Leeland Heins 2018-12-18 14:18:24 -06:00 committed by GitHub
parent 6e2c18d8d3
commit 0e8f3e5944
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -2043,6 +2043,7 @@ if (open($ifh, "<$input_file")) {
print "%%%% Saving Symbol $symbol $operand\n" if $verbose; print "%%%% Saving Symbol $symbol $operand\n" if $verbose;
$symbols{$symbol} = $operand; $symbols{$symbol} = $operand;
} elsif ($ucmnemonic =~ /HEX/i) { } elsif ($ucmnemonic =~ /HEX/i) {
$addr++;
my $symbol = $label; my $symbol = $label;
$symbol =~ s/:$//; $symbol =~ s/:$//;
$symbols{$symbol} = sprintf("\$%04x", $addr); $symbols{$symbol} = sprintf("\$%04x", $addr);