ia64/xen-unstable

view tools/ioemu/loader.c @ 15841:c5f735271e22

[IA64] Foreign p2m: Fix vti domain builder.

It should set arch_domain::convmem_end.

Signed-off-by: Isaku Yamahata <yamahata@valinux.co.jp>
author Alex Williamson <alex.williamson@hp.com>
date Thu Sep 06 13:48:43 2007 -0600 (2007-09-06)
parents 00618037d37d
children
line source
1 /*
2 * QEMU Executable loader
3 *
4 * Copyright (c) 2006 Fabrice Bellard
5 *
6 * Permission is hereby granted, free of charge, to any person obtaining a copy
7 * of this software and associated documentation files (the "Software"), to deal
8 * in the Software without restriction, including without limitation the rights
9 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10 * copies of the Software, and to permit persons to whom the Software is
11 * furnished to do so, subject to the following conditions:
12 *
13 * The above copyright notice and this permission notice shall be included in
14 * all copies or substantial portions of the Software.
15 *
16 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
19 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
22 * THE SOFTWARE.
23 */
24 #include "vl.h"
25 #include "disas.h"
27 /* return the size or -1 if error */
28 int get_image_size(const char *filename)
29 {
30 int fd, size;
31 fd = open(filename, O_RDONLY | O_BINARY);
32 if (fd < 0)
33 return -1;
34 size = lseek(fd, 0, SEEK_END);
35 close(fd);
36 return size;
37 }
39 /* return the size or -1 if error */
40 int load_image(const char *filename, uint8_t *addr)
41 {
42 int fd, size;
43 fd = open(filename, O_RDONLY | O_BINARY);
44 if (fd < 0)
45 return -1;
46 size = lseek(fd, 0, SEEK_END);
47 lseek(fd, 0, SEEK_SET);
48 if (read(fd, addr, size) != size) {
49 close(fd);
50 return -1;
51 }
52 close(fd);
53 return size;
54 }
56 /* A.OUT loader */
58 struct exec
59 {
60 uint32_t a_info; /* Use macros N_MAGIC, etc for access */
61 uint32_t a_text; /* length of text, in bytes */
62 uint32_t a_data; /* length of data, in bytes */
63 uint32_t a_bss; /* length of uninitialized data area, in bytes */
64 uint32_t a_syms; /* length of symbol table data in file, in bytes */
65 uint32_t a_entry; /* start address */
66 uint32_t a_trsize; /* length of relocation info for text, in bytes */
67 uint32_t a_drsize; /* length of relocation info for data, in bytes */
68 };
70 #ifdef BSWAP_NEEDED
71 static void bswap_ahdr(struct exec *e)
72 {
73 bswap32s(&e->a_info);
74 bswap32s(&e->a_text);
75 bswap32s(&e->a_data);
76 bswap32s(&e->a_bss);
77 bswap32s(&e->a_syms);
78 bswap32s(&e->a_entry);
79 bswap32s(&e->a_trsize);
80 bswap32s(&e->a_drsize);
81 }
82 #else
83 #define bswap_ahdr(x) do { } while (0)
84 #endif
86 #define N_MAGIC(exec) ((exec).a_info & 0xffff)
87 #define OMAGIC 0407
88 #define NMAGIC 0410
89 #define ZMAGIC 0413
90 #define QMAGIC 0314
91 #define _N_HDROFF(x) (1024 - sizeof (struct exec))
92 #define N_TXTOFF(x) \
93 (N_MAGIC(x) == ZMAGIC ? _N_HDROFF((x)) + sizeof (struct exec) : \
94 (N_MAGIC(x) == QMAGIC ? 0 : sizeof (struct exec)))
95 #define N_TXTADDR(x) (N_MAGIC(x) == QMAGIC ? TARGET_PAGE_SIZE : 0)
96 #define N_DATOFF(x) (N_TXTOFF(x) + (x).a_text)
97 #define _N_SEGMENT_ROUND(x) (((x) + TARGET_PAGE_SIZE - 1) & ~(TARGET_PAGE_SIZE - 1))
99 #define _N_TXTENDADDR(x) (N_TXTADDR(x)+(x).a_text)
101 #define N_DATADDR(x) \
102 (N_MAGIC(x)==OMAGIC? (_N_TXTENDADDR(x)) \
103 : (_N_SEGMENT_ROUND (_N_TXTENDADDR(x))))
106 int load_aout(const char *filename, uint8_t *addr)
107 {
108 int fd, size, ret;
109 struct exec e;
110 uint32_t magic;
112 fd = open(filename, O_RDONLY | O_BINARY);
113 if (fd < 0)
114 return -1;
116 size = read(fd, &e, sizeof(e));
117 if (size < 0)
118 goto fail;
120 bswap_ahdr(&e);
122 magic = N_MAGIC(e);
123 switch (magic) {
124 case ZMAGIC:
125 case QMAGIC:
126 case OMAGIC:
127 lseek(fd, N_TXTOFF(e), SEEK_SET);
128 size = read(fd, addr, e.a_text + e.a_data);
129 if (size < 0)
130 goto fail;
131 break;
132 case NMAGIC:
133 lseek(fd, N_TXTOFF(e), SEEK_SET);
134 size = read(fd, addr, e.a_text);
135 if (size < 0)
136 goto fail;
137 ret = read(fd, addr + N_DATADDR(e), e.a_data);
138 if (ret < 0)
139 goto fail;
140 size += ret;
141 break;
142 default:
143 goto fail;
144 }
145 close(fd);
146 return size;
147 fail:
148 close(fd);
149 return -1;
150 }
152 /* ELF loader */
154 static void *load_at(int fd, int offset, int size)
155 {
156 void *ptr;
157 if (lseek(fd, offset, SEEK_SET) < 0)
158 return NULL;
159 ptr = qemu_malloc(size);
160 if (!ptr)
161 return NULL;
162 if (read(fd, ptr, size) != size) {
163 qemu_free(ptr);
164 return NULL;
165 }
166 return ptr;
167 }
170 #define ELF_CLASS ELFCLASS32
171 #include "elf.h"
173 #define SZ 32
174 #define elf_word uint32_t
175 #define bswapSZs bswap32s
176 #include "elf_ops.h"
178 #undef elfhdr
179 #undef elf_phdr
180 #undef elf_shdr
181 #undef elf_sym
182 #undef elf_note
183 #undef elf_word
184 #undef bswapSZs
185 #undef SZ
186 #define elfhdr elf64_hdr
187 #define elf_phdr elf64_phdr
188 #define elf_note elf64_note
189 #define elf_shdr elf64_shdr
190 #define elf_sym elf64_sym
191 #define elf_word uint64_t
192 #define bswapSZs bswap64s
193 #define SZ 64
194 #include "elf_ops.h"
196 /* return < 0 if error, otherwise the number of bytes loaded in memory */
197 int load_elf(const char *filename, int64_t virt_to_phys_addend,
198 uint64_t *pentry)
199 {
200 int fd, data_order, host_data_order, must_swab, ret;
201 uint8_t e_ident[EI_NIDENT];
203 fd = open(filename, O_RDONLY | O_BINARY);
204 if (fd < 0) {
205 perror(filename);
206 return -1;
207 }
208 if (read(fd, e_ident, sizeof(e_ident)) != sizeof(e_ident))
209 goto fail;
210 if (e_ident[0] != ELFMAG0 ||
211 e_ident[1] != ELFMAG1 ||
212 e_ident[2] != ELFMAG2 ||
213 e_ident[3] != ELFMAG3)
214 goto fail;
215 #ifdef WORDS_BIGENDIAN
216 data_order = ELFDATA2MSB;
217 #else
218 data_order = ELFDATA2LSB;
219 #endif
220 must_swab = data_order != e_ident[EI_DATA];
222 #ifdef TARGET_WORDS_BIGENDIAN
223 host_data_order = ELFDATA2MSB;
224 #else
225 host_data_order = ELFDATA2LSB;
226 #endif
227 if (host_data_order != e_ident[EI_DATA])
228 return -1;
230 lseek(fd, 0, SEEK_SET);
231 if (e_ident[EI_CLASS] == ELFCLASS64) {
232 ret = load_elf64(fd, virt_to_phys_addend, must_swab, pentry);
233 } else {
234 ret = load_elf32(fd, virt_to_phys_addend, must_swab, pentry);
235 }
237 close(fd);
238 return ret;
240 fail:
241 close(fd);
242 return -1;
243 }