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
1 changed files with 1 additions and 0 deletions

View File

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