aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorH. Peter Anvin <hpa@zytor.com>2018-09-10 02:48:42 -0700
committerH. Peter Anvin <hpa@zytor.com>2018-09-10 02:49:55 -0700
commitb6b006dbe53bd6de0bd0acda58695c3bccfd42a5 (patch)
treeac4daf8060214c26a74f264034142e1eb256a3aa
parentb02f938db5d8bf0b0306f664c6b448da1d3527c5 (diff)
downloadabc80-b6b006dbe53bd6de0bd0acda58695c3bccfd42a5.tar.gz
abc80-b6b006dbe53bd6de0bd0acda58695c3bccfd42a5.tar.xz
abc80-b6b006dbe53bd6de0bd0acda58695c3bccfd42a5.zip
bin2bac.pl: use undef in list assignment for values to be dropped
This is a bit clearer way to define that only certain elements of the list are ones we care about. Signed-off-by: H. Peter Anvin <hpa@zytor.com>
-rwxr-xr-xdata/bin2bac.pl3
1 files changed, 1 insertions, 2 deletions
diff --git a/data/bin2bac.pl b/data/bin2bac.pl
index bd5e655..818fb4f 100755
--- a/data/bin2bac.pl
+++ b/data/bin2bac.pl
@@ -164,8 +164,7 @@ sub makebac80($$$$) {
sub makebac800($$$) {
my($data, $entry, $relocs) = @_;
- my $adata, $relptr;
- ($adata, $relocs, $relptr) = pacK_relocs($data, $relocs);
+ (undef, $relocs, undef) = pack_relocs($data, $relocs);
# For ABC800 we don't use the adjusted data
# The first relocation needs to be adjusted to account for the