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
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
|
/*
* <elf.c>
*
* Open Hack'Ware BIOS ELF executable file loader
*
* Copyright (c) 2004-2005 Jocelyn Mayer
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License V2
* as published by the Free Software Foundation
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#include <stdlib.h>
#include <stdio.h>
#include "bios.h"
#include "exec.h"
uint32_t fs_inode_get_size (inode_t *inode);
/* ELF executable loader */
typedef uint16_t Elf32_Half;
typedef uint32_t Elf32_Word;
typedef uint32_t Elf32_Off;
typedef uint32_t Elf32_Addr;
#define EI_NIDENT 16
typedef struct elf32_hdr_t {
unsigned char e_ident[EI_NIDENT];
Elf32_Half e_type;
Elf32_Half e_machine;
Elf32_Word e_version;
Elf32_Addr e_entry; /* Entry point */
Elf32_Off e_phoff;
Elf32_Off e_shoff;
Elf32_Word e_flags;
Elf32_Half e_ehsize;
Elf32_Half e_phentsize;
Elf32_Half e_phnum;
Elf32_Half e_shentsize;
Elf32_Half e_shnum;
Elf32_Half e_shstrndx;
} Elf32_Ehdr_t;
typedef struct elf32_phdr_t {
Elf32_Word p_type;
Elf32_Off p_offset;
Elf32_Addr p_vaddr;
Elf32_Addr p_paddr;
Elf32_Word p_filesz;
Elf32_Word p_memsz;
Elf32_Word p_flags;
Elf32_Word p_align;
} Elf32_Phdr_t;
#define EI_MAG0 0 /* e_ident[] indexes */
#define EI_MAG1 1
#define EI_MAG2 2
#define EI_MAG3 3
#define EI_CLASS 4
#define EI_DATA 5
#define EI_VERSION 6
#define EI_OSABI 7
#define EI_PAD 8
#define ELFMAG0 0x7f /* EI_MAG */
#define ELFMAG1 'E'
#define ELFMAG2 'L'
#define ELFMAG3 'F'
#define ELFCLASSNONE 0 /* EI_CLASS */
#define ELFCLASS32 1
#define ELFCLASS64 2
#define ELFCLASSNUM 3
#define ELFDATANONE 0 /* e_ident[EI_DATA] */
#define ELFDATA2LSB 1
#define ELFDATA2MSB 2
#define EV_NONE 0 /* e_version, EI_VERSION */
#define EV_CURRENT 1
#define EV_NUM 2
/* These constants define the different elf file types */
#define ET_NONE 0
#define ET_REL 1
#define ET_EXEC 2
#define ET_DYN 3
#define ET_CORE 4
#define ET_LOPROC 0xff00
#define ET_HIPROC 0xffff
/* These constants define the various ELF target machines */
#define EM_NONE 0
#define EM_M32 1
#define EM_SPARC 2
#define EM_386 3
#define EM_68K 4
#define EM_88K 5
#define EM_486 6 /* Perhaps disused */
#define EM_860 7
#define EM_MIPS 8 /* MIPS R3000 (officially, big-endian only) */
#define EM_MIPS_RS4_BE 10 /* MIPS R4000 big-endian */
#define EM_PARISC 15 /* HPPA */
#define EM_SPARC32PLUS 18 /* Sun's "v8plus" */
#define EM_PPC 20 /* PowerPC */
#define EM_PPC64 21 /* PowerPC64 */
#define EM_SH 42 /* SuperH */
#define EM_SPARCV9 43 /* SPARC v9 64-bit */
#define EM_IA_64 50 /* HP/Intel IA-64 */
#define EM_X86_64 62 /* AMD x86-64 */
#define EM_S390 22 /* IBM S/390 */
#define EM_CRIS 76 /* Axis Communications 32-bit embedded processor */
#define EM_V850 87 /* NEC v850 */
#define EM_H8_300H 47 /* Hitachi H8/300H */
#define EM_H8S 48 /* Hitachi H8S */
/*
* This is an interim value that we will use until the committee comes
* up with a final number.
*/
#define EM_ALPHA 0x9026
/* Bogus old v850 magic number, used by old tools. */
#define EM_CYGNUS_V850 0x9080
/*
* This is the old interim value for S/390 architecture
*/
#define EM_S390_OLD 0xA390
int exec_load_elf (inode_t *file, void **dest, void **entry, void **end,
uint32_t loffset)
{
Elf32_Ehdr_t ehdr;
Elf32_Phdr_t phdr;
void *address, *first, *last;
uint32_t offset, fsize, msize;
int i;
file_seek(file, loffset);
if (fs_read(file, &ehdr, sizeof(Elf32_Ehdr_t)) < 0) {
ERROR("Cannot load first bloc of file...\n");
return -1;
}
DPRINTF("Check ELF file\n");
/* Check ident */
if (ehdr.e_ident[EI_MAG0] != ELFMAG0 ||
ehdr.e_ident[EI_MAG1] != ELFMAG1 ||
ehdr.e_ident[EI_MAG2] != ELFMAG2 ||
ehdr.e_ident[EI_MAG3] != ELFMAG3) {
DPRINTF("Not an ELF file %0x\n", *(uint32_t *)ehdr.e_ident);
return -2;
}
if (ehdr.e_ident[EI_CLASS] != ELFCLASS32) {
ERROR("Not a 32 bits ELF file\n");
return -2;
}
if (ehdr.e_ident[EI_DATA] != ELFDATA2MSB) {
ERROR("Not a big-endian ELF file\n");
return -2;
}
if (ehdr.e_ident[EI_VERSION] != EV_CURRENT /*||
ehdr->e_version != EV_CURRENT*/) {
ERROR("Invalid ELF executable version %d %08x\n",
ehdr.e_ident[EI_VERSION], ehdr.e_version);
return -2;
}
if (ehdr.e_type != ET_EXEC) {
ERROR("Not an executable ELF file\n");
return -2;
}
if (ehdr.e_machine != EM_PPC) {
ERROR("Not a PPC ELF executable\n");
return -2;
}
/* All right, seems to be a regular ELF program for PPC */
*entry = (void *)ehdr.e_entry;
DPRINTF("ELF file found entry = %p\n", *entry);
last = NULL;
first = last - 4;
fsize = msize = 0;
offset = ehdr.e_phoff;
for (i = 0; i < ehdr.e_phnum; i++) {
#if 0
if (offset > fs_inode_get_size(file)) {
ERROR("ELF program header %d offset > file size %d %d\n", i,
offset, fs_inode_get_size(file));
return -1;
}
#endif
DPRINTF("Load program header %d from %08x\n", i, offset);
file_seek(file, offset + loffset);
if (fs_read(file, &phdr, sizeof(Elf32_Phdr_t)) < 0) {
ERROR("Cannot load ELF program header %d...\n", i);
return -1;
}
DPRINTF("Load program header %d %08x %08x %08x %08x\n", i,
phdr.p_offset, phdr.p_vaddr, phdr.p_filesz, phdr.p_memsz);
#if 0
if (phdr.p_offset > fs_inode_get_size(file)) {
ERROR("ELF program %d offset > file size %d %d\n",
i, phdr.p_offset, fs_inode_get_size(file));
return -1;
}
#endif
/* As we won't remap memory, load it at it's virtual address (!) */
address = (void *)phdr.p_vaddr;
if (address < first)
first = address;
fsize = phdr.p_filesz;
msize = phdr.p_memsz;
if (address + msize > last)
last = address + msize;
file_seek(file, phdr.p_offset + loffset);
set_loadinfo((void *)first, last - first);
if (fs_read(file, address, fsize) < 0) {
ERROR("Cannot load ELF program %d...\n", i);
return -1;
}
if (msize > fsize) {
memset(address + fsize, 0, msize - fsize);
}
offset += ehdr.e_phentsize;
}
*dest = (void *)first;
*end = (void *)last;
DPRINTF("ELF file loaded at %p => %p fsize %08x msize %08x "
"(%08x %08x)\n", *dest, *entry, fsize, msize,
*(uint32_t *)entry, *((uint32_t *)entry + 1));
return 0;
}
|
