1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
/*
* This file is subject to the terms and conditions of the GNU General Public
* License. See the file "COPYING" in the main directory of this archive
* for more details.
*
* Copyright (C) Hewlett-Packard (Paul Bame) paul_bame@hp.com
*/
#ifdef __hpux
/* prevent inclusion of Linux types.h */
# define _LINUX_TYPES_H
typedef unsigned long long uint64_t;
#endif
#include "common.h"
#include "load.h"
#ifndef __hpux
# include <stdint.h>
#endif
#include <stdio.h>
#if defined(__linux__)
# include <linux/elf.h>
#else
# include <elf.h>
#endif
/* check that the address is zeros in the top 32 bits, then return
* the bottom 32 bits
*/
static uint32_t
addr32(uint64_t a)
{
const int mask32 = 0xffffffff;
const int mask16 = 0xffff;
a = __be64_to_cpu(a);
if (0) printf("checkaddr32(%04x:%04x:%04x:%04x)\r\n",
(uint32_t)(a >> (16 * 3)) & mask16,
(uint32_t)(a >> (16 * 2)) & mask16,
(uint32_t)(a >> (16 * 1)) & mask16,
(uint32_t)(a >> (16 * 0)) & mask16);
if ((a & ~mask32) != 0)
{
printf("checkaddr32(%04x:%04x:%04x:%04x) not valid 32 bit\n",
(uint32_t)(a >> (16 * 3)) & mask16,
(uint32_t)(a >> (16 * 2)) & mask16,
(uint32_t)(a >> (16 * 1)) & mask16,
(uint32_t)(a >> (16 * 0)) & mask16);
while(1);
}
return (uint32_t)(a & mask32);
}
int prepare_ELF64_loadable(int fd, struct loadable *loadable, int *wide)
{
Elf64_Ehdr eh;
uint32_t last = 0;
int i;
*wide = 1;
GZIP_STRUCTREAD(loadable, fd, eh, 0);
if (eh.e_ident[EI_MAG0] != ELFMAG0 ||
eh.e_ident[EI_MAG1] != ELFMAG1 ||
eh.e_ident[EI_MAG2] != ELFMAG2 ||
eh.e_ident[EI_MAG3] != ELFMAG3 ||
eh.e_ident[EI_CLASS] != ELFCLASS64 ||
__be16_to_cpu(eh.e_type) != ET_EXEC)
{
return PREPARE_CONTINUE;
}
if (__be16_to_cpu(eh.e_machine) != EM_PARISC)
{
printf("Fatal - ELF, but not for PARISC\n");
return PREPARE_FATAL;
}
printf("ELF64 executable\n");
/* We like this kind of ELF... */
eh.e_phnum = __be16_to_cpu(eh.e_phnum);
for (i = 0; i < eh.e_phnum; i++)
{
Elf64_Phdr ep;
struct loadsegment *seg;
uint32_t start, end;
GZIP_STRUCTREAD(loadable, fd, ep, addr32(eh.e_phoff) + i * sizeof ep);
if (__be32_to_cpu(ep.p_type) != PT_LOAD)
continue;
/* vaddr or paddr? HP-UX kernel elf seems to use vaddr */
start = addr32(ep.p_vaddr);
if (loadable->first == 0 || start < loadable->first)
{
loadable->first = start;
}
end = addr32(ep.p_vaddr) + addr32(ep.p_filesz);
if (end > last)
last = end;
seg = &loadable->segment[loadable->n++];
seg->offset = addr32(ep.p_offset);
if (loadable->offset0 == 0 || seg->offset < loadable->offset0)
{
loadable->offset0 = seg->offset;
}
seg->length = addr32(ep.p_filesz);
seg->mem = start;
seg->zeros = addr32(ep.p_memsz) - addr32(ep.p_filesz);
}
loadable->size = last - loadable->first;
/* is entry a virtual or physical address? */
loadable->entry = addr32(eh.e_entry);
return PREPARE_OK;
}
|
