25 lines
687 B
Perl
25 lines
687 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
#
|
||
|
|
# Modify the linker version in the EFI/PE header
|
||
|
|
#
|
||
|
|
# NOTE: only use this script when the signature doesn't match after
|
||
|
|
# a binutils upgrade
|
||
|
|
#
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
# The target version of binutils: 2.32
|
||
|
|
my $major_linker_version = 2;
|
||
|
|
my $minor_linker_version = 32;
|
||
|
|
|
||
|
|
my ($file) = @ARGV;
|
||
|
|
|
||
|
|
die "$file: $!\n" unless open(my $fh, '+<', $file);
|
||
|
|
# Set MajorLinkerVersion at 0x9a
|
||
|
|
die "seek $file: $!\n" unless seek($fh, 0x9a, 0);
|
||
|
|
die "write $file: $!\n" unless print $fh pack('C', $major_linker_version);
|
||
|
|
# Set MinorLinkerVersion at 0x9b
|
||
|
|
die "seek $file: $!\n" unless seek($fh, 0x9b, 0);
|
||
|
|
die "write $file: $!\n" unless print $fh pack('C', $minor_linker_version);
|
||
|
|
close($fh);
|