Displaying 1 result from an estimated 1 matches for "ehdrpat".
Did you mean:
phdrpat
2005 Mar 06
1
testers sought for script to interpret ELF/klibc executables
...t;;
return;
}
my $magic;
my $rc = read ($fh, $magic, 10);
if (! defined ($rc) || $rc != 10) {
print "$path: short header\n";
return;
}
if ($magic !~ /^\x7fELF(.)/) {
print "$path: bad magic\n";
return;
}
my $class = ord($1);
my ($ehdrPat, $ehdrSize, $phdrPat, $phdrSize, $phdrFields);
my $ehdrFields = [qw{
ident type machine version entry
phoff shoff flags ehsize
phentsize phnum shentsize
shnum shstrndx
}];
if ($class == ELFCLASS32) {
$ehdrSize = SZ_ELF32HDR;
$ehdrPat = "a[16] SS LL LL L SSSSSS";
$ph...