aniani/nasm
0
0
Fork 1
mirror of https://github.com/netwide-assembler/nasm.git synced 2025-09-22 10:43:39 -04:00
Code Activity

Merge branch 'master' of ssh://repo.or.cz/nasm

Browse Source
This commit is contained in:
H. Peter Anvin
2017-04-06 17:25:35 -07:00
parent 9a714c98a2 63f68f5ea3
commit 5d2e42e621
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
nsis/getpearch.pl
View File

@@ -5,6 +5,7 @@
#
use strict;
use bytes;
my %archnames = (
0x01de => 'am33',
@@ -37,9 +38,9 @@ open(my $fh, '<', $file)
read($fh, my $mz, 2);
exit 1 if ($mz ne 'MZ');
exit 1 unless (seek($fh, 0x3c, 0));
exit 1 unless (read($fh, my $pe_offset, 1) == 1);
$pe_offset = unpack("C", $pe_offset);
exit 0 unless (seek($fh, 0x3c, 0));
exit 0 unless (read($fh, my $pe_offset, 4) == 4);
$pe_offset = unpack("V", $pe_offset);
exit 1 unless (seek($fh, $pe_offset, 0));
read($fh, my $pe, 4);