Chameleon

Chameleon Svn Source Tree

Root/branches/Bungo/i386/libsaio/load.c

1/*␊
2 * Copyright (c) 2003 Apple Computer, Inc. All rights reserved.␊
3 *␊
4 * @APPLE_LICENSE_HEADER_START@␊
5 * ␊
6 * The contents of this file constitute Original Code as defined in and␊
7 * are subject to the Apple Public Source License Version 2.0 (the␊
8 * "License"). You may not use this file except in compliance with the␊
9 * License. Please obtain a copy of the License at␊
10 * http://www.apple.com/publicsource and read it before using this file.␊
11 * ␊
12 * This Original Code and all software distributed under the License are␊
13 * distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, EITHER␊
14 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,␊
15 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,␊
16 * FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT. Please see the␊
17 * License for the specific language governing rights and limitations␊
18 * under the License.␊
19 * ␊
20 * @APPLE_LICENSE_HEADER_END@␊
21 */␊
22/*␊
23 * load.c - Functions for decoding a Mach-o Kernel.␊
24 *␊
25 * Copyright (c) 1998-2003 Apple Computer, Inc.␊
26 *␊
27 */␊
28␊
29#include <mach-o/fat.h>␊
30#include <mach-o/loader.h>␊
31#include <mach/machine/thread_status.h>␊
32␊
33#include <sl.h>␊
34␊
35static long DecodeSegment(long cmdBase, unsigned int*load_addr, unsigned int *load_size);␊
36static long DecodeUnixThread(long cmdBase, unsigned int *entry);␊
37static long DecodeSymbolTable(long cmdBase);␊
38␊
39␊
40static unsigned long gBinaryAddress;␊
41bool gHaveKernelCache;␉␉␉/* XXX aserebln: uninitialized? and only set to true, never to false */␊
42cpu_type_t archCpuType=CPU_TYPE_I386;␊
43␊
44␊
45//==============================================================================␊
46// Public function.␊
47␊
48long ThinFatFile(void **binary, unsigned long *length)␊
49{␊
50␉unsigned long nfat, swapped, size = 0;␊
51␉struct fat_header *fhp = (struct fat_header *)*binary;␊
52␉struct fat_arch *fap = (struct fat_arch *)((unsigned long)*binary + sizeof(struct fat_header));␊
53␉cpu_type_t fapcputype;␊
54␉uint32_t fapoffset;␊
55␉uint32_t fapsize;␉␊
56 ␊
57␉if (fhp->magic == FAT_MAGIC) {␊
58␉␉nfat = fhp->nfat_arch;␊
59␉␉swapped = 0;␊
60␉} else if (fhp->magic == FAT_CIGAM) {␊
61␉␉nfat = OSSwapInt32(fhp->nfat_arch);␊
62␉␉swapped = 1;␊
63␉} else {␊
64␉␉return -1;␊
65␉}␊
66␊
67␉for (; nfat > 0; nfat--, fap++) {␊
68␉␉if (swapped) {␊
69␉␉␉fapcputype = OSSwapInt32(fap->cputype);␊
70␉␉␉fapoffset = OSSwapInt32(fap->offset);␊
71␉␉␉fapsize = OSSwapInt32(fap->size);␊
72␉␉} else {␊
73␉␉␉fapcputype = fap->cputype;␊
74␉␉␉fapoffset = fap->offset;␊
75␉␉␉fapsize = fap->size;␊
76␉␉}␊
77␊
78␉␉if (fapcputype == archCpuType) {␊
79␉␉␉*binary = (void *) ((unsigned long)*binary + fapoffset);␊
80␉␉␉size = fapsize;␊
81␉␉␉break;␊
82␉␉}␊
83␉}␊
84␊
85␉if (length != 0) {␊
86␉␉*length = size;␊
87␉}␊
88␊
89␉return 0;␊
90}␊
91␊
92␊
93//==============================================================================␊
94␊
95long DecodeMachO(void *binary, entry_t *rentry, char **raddr, int *rsize)␊
96{␊
97␉struct mach_header *mH;␊
98␉unsigned long ncmds, cmdBase, cmd, cmdsize, cmdstart;␊
99␉// long headerBase, headerAddr, headerSize;␊
100␉unsigned int vmaddr = ~0;␊
101␉unsigned int vmend = 0;␊
102␉unsigned long cnt;␊
103␉long ret = -1;␊
104␉unsigned int entry = 0;␊
105␊
106␉gBinaryAddress = (unsigned long)binary;␊
107␊
108␉mH = (struct mach_header *)(gBinaryAddress);␊
109␊
110#if DEBUG␊
111␉printf("magic: %x\n", (unsigned)mH->magic);␊
112␉printf("cputype: %x\n", (unsigned)mH->cputype);␊
113␉printf("cpusubtype: %x\n", (unsigned)mH->cpusubtype);␊
114␉printf("filetype: %x\n", (unsigned)mH->filetype);␊
115␉printf("ncmds: %x\n", (unsigned)mH->ncmds);␊
116␉printf("sizeofcmds: %x\n", (unsigned)mH->sizeofcmds);␊
117␉printf("flags: %x\n", (unsigned)mH->flags);␊
118␉getchar();␊
119#endif␊
120␊
121␉switch (archCpuType)␊
122␉{␊
123␉␉case CPU_TYPE_I386:␊
124␊
125␉␉␉if (mH->magic != MH_MAGIC) {␊
126␉␉␉␉error("Mach-O file has bad magic number\n");␊
127␉␉␉␉return -1;␊
128␉␉␉}␊
129␊
130␉␉␉cmdstart = (unsigned long)gBinaryAddress + sizeof(struct mach_header);␊
131␉␉␉break;␊
132␊
133␉␉case CPU_TYPE_X86_64:␊
134␊
135␉␉␉if (mH->magic != MH_MAGIC_64 && mH->magic == MH_MAGIC) {␊
136␉␉␉␉return -1;␊
137␉␉␉}␊
138␊
139␉␉␉if (mH->magic != MH_MAGIC_64) {␊
140␉␉␉␉error("Mach-O file has bad magic number\n");␊
141␉␉␉␉return -1;␊
142␉␉␉}␊
143␊
144␉␉␉cmdstart = (unsigned long)gBinaryAddress + sizeof(struct mach_header_64);␊
145␉␉␉break;␊
146␊
147␉␉default:␊
148␊
149␉␉␉error("Unknown CPU type\n");␊
150␉␉␉return -1;␊
151␉}␊
152␊
153␉cmdBase = cmdstart;␊
154␉ncmds = mH->ncmds;␊
155␊
156␉for (cnt = 0; cnt < ncmds; cnt++)␊
157␉{␊
158␉␉cmd = ((long *)cmdBase)[0];␊
159␉␉cmdsize = ((long *)cmdBase)[1];␊
160␉␉unsigned int load_addr;␊
161␉␉unsigned int load_size;␊
162␊
163␉␉switch (cmd) {␊
164␉␉␉case LC_SEGMENT_64:␊
165␉␉␉case LC_SEGMENT:␊
166␉␉␉ret = DecodeSegment(cmdBase, &load_addr, &load_size);␊
167␊
168␉␉␉if (ret == 0 && load_size != 0 && load_addr >= KERNEL_ADDR)␊
169␉␉␉{␊
170␉␉␉␉vmaddr = MIN(vmaddr, load_addr);␊
171␉␉␉␉vmend = MAX(vmend, load_addr + load_size);␊
172␉␉␉}␊
173␉␉␉break;␊
174␊
175␉␉␉case LC_UNIXTHREAD:␊
176␉␉␉␉ret = DecodeUnixThread(cmdBase, &entry);␊
177␉␉␉break;␊
178␊
179␉␉␉case LC_SYMTAB:␊
180␉␉␉break;␊
181␊
182␉␉␉default:␊
183#if NOTDEF␊
184␉␉␉printf("Ignoring cmd type %d.\n", (unsigned)cmd);␊
185#endif␊
186␉␉␉break;␊
187␉␉}␊
188␊
189␊
190␉if (ret != 0) {␊
191␉␉return -1;␊
192␉}␊
193␊
194␉cmdBase += cmdsize;␊
195␉}␊
196␊
197␉*rentry = (entry_t)( (unsigned long) entry & 0x3fffffff );␊
198␉*rsize = vmend - vmaddr;␊
199␉*raddr = (char *)vmaddr;␊
200␊
201␉cmdBase = cmdstart;␊
202␊
203␉for (cnt = 0; cnt < ncmds; cnt++) {␊
204␉cmd = ((long *)cmdBase)[0];␊
205␉cmdsize = ((long *)cmdBase)[1];␊
206␉␉␊
207␉if (cmd == LC_SYMTAB) {␊
208␉␉if (DecodeSymbolTable(cmdBase) != 0) {␊
209␉␉␉return -1;␊
210␉␉}␊
211 }␊
212␊
213␉␉cmdBase += cmdsize;␊
214 }␊
215␉␊
216␉return ret;␊
217}␊
218␊
219␊
220//==============================================================================␊
221// Private function.␊
222␊
223␊
224static long DecodeSegment(long cmdBase, unsigned int *load_addr, unsigned int *load_size)␊
225{␊
226␉char *segname;␊
227␉long vmsize, filesize;␊
228␉unsigned long vmaddr, fileaddr;␊
229␊
230␉if (((long *)cmdBase)[0] == LC_SEGMENT_64) {␊
231␉␉struct segment_command_64 *segCmd;␊
232␉␉segCmd = (struct segment_command_64 *)cmdBase;␊
233␉␉vmaddr = (segCmd->vmaddr & 0x3fffffff);␊
234␉␉vmsize = segCmd->vmsize;␉ ␊
235␉␉fileaddr = (gBinaryAddress + segCmd->fileoff);␊
236␉␉filesize = segCmd->filesize;␊
237␉␉segname = segCmd->segname;␊
238␊
239#ifdef DEBUG␊
240 printf("segname: %s, vmaddr: %x, vmsize: %x, fileoff: %x, filesize: %x, nsects: %d, flags: %x.\n",␊
241␉ segCmd->segname, (unsigned)vmaddr, (unsigned)vmsize, (unsigned)fileaddr, (unsigned)filesize,␊
242 (unsigned) segCmd->nsects, (unsigned)segCmd->flags);␊
243 getchar();␊
244#endif␊
245␉} else {␊
246␉␉struct segment_command *segCmd;␊
247␊
248␉␉segCmd = (struct segment_command *)cmdBase;␊
249␊
250␉␉vmaddr = (segCmd->vmaddr & 0x3fffffff);␊
251␉␉vmsize = segCmd->vmsize;␊
252␉␉fileaddr = (gBinaryAddress + segCmd->fileoff);␊
253␉␉filesize = segCmd->filesize;␊
254␉␉segname = segCmd->segname;␊
255␊
256#ifdef DEBUG␊
257␉printf("segname: %s, vmaddr: %x, vmsize: %x, fileoff: %x, filesize: %x, nsects: %d, flags: %x.\n",␊
258␉segCmd->segname, (unsigned)vmaddr, (unsigned)vmsize, (unsigned)fileaddr, (unsigned)filesize, (unsigned) segCmd->nsects, (unsigned)segCmd->flags);␊
259␉getchar();␊
260#endif␊
261␉}␊
262␊
263␉if (vmsize == 0 || filesize == 0) {␊
264␉␉*load_addr = ~0;␊
265␉␉*load_size = 0;␊
266␉␉return 0;␊
267␉}␊
268␊
269␉␉if (! ((vmaddr >= KERNEL_ADDR && (vmaddr + vmsize) <= (KERNEL_ADDR + KERNEL_LEN)) ||␊
270␉␉␉ (vmaddr >= HIB_ADDR && (vmaddr + vmsize) <= (HIB_ADDR + HIB_LEN)))) {␊
271␉␉␉stop("Kernel overflows available space");␊
272␉␉}␊
273␊
274␉␉if (vmsize && ((strcmp(segname, "__PRELINK_INFO") == 0) || (strcmp(segname, "__PRELINK") == 0))) {␊
275␉␉␉gHaveKernelCache = true;␊
276␉␉}␊
277␊
278␉// Copy from file load area.␊
279␉if (vmsize>0 && filesize > 0) {␊
280␉␉bcopy((char *)fileaddr, (char *)vmaddr, vmsize > filesize ? filesize : vmsize);␊
281␉}␊
282␊
283␉// Zero space at the end of the segment.␊
284␉if (vmsize > filesize) {␊
285␉␉bzero((char *)(vmaddr + filesize), vmsize - filesize);␊
286␉}␊
287␊
288␉*load_addr = vmaddr;␊
289␉*load_size = vmsize;␊
290␊
291␉return 0;␊
292}␊
293␊
294//==============================================================================␊
295␊
296static long DecodeUnixThread(long cmdBase, unsigned int *entry)␊
297{␊
298␉switch (archCpuType) {␊
299␉␉case CPU_TYPE_I386:␊
300␉␉{␊
301␉␉␉i386_thread_state_t *i386ThreadState;␊
302␉␉␉i386ThreadState = (i386_thread_state_t *) (cmdBase + sizeof(struct thread_command) + 8);␊
303␊
304␉␉␉*entry = i386ThreadState->eip;␊
305␉␉␉return 0;␊
306␉␉}␊
307␉␉␉␊
308␉␉case CPU_TYPE_X86_64:␊
309␉␉{␊
310␉␉␉x86_thread_state64_t *x86_64ThreadState;␊
311␉␉␉x86_64ThreadState = (x86_thread_state64_t *) (cmdBase + sizeof(struct thread_command) + 8);␊
312␉␉␉*entry = x86_64ThreadState->rip;␊
313␉␉␉return 0;␊
314␉␉}␊
315␉␉␉␊
316␉␉default:␊
317␉␉␉error("Unknown CPU type\n");␊
318␉␉␉return -1;␊
319␉}␊
320}␊
321␊
322␊
323//==============================================================================␊
324␊
325static long DecodeSymbolTable(long cmdBase)␊
326{␊
327␉long tmpAddr, symsSize, totalSize;␊
328␉long gSymbolTableAddr;␊
329␉long gSymbolTableSize;␊
330␊
331␉struct symtab_command *symTab, *symTableSave;␊
332␊
333␉symTab = (struct symtab_command *)cmdBase;␊
334␊
335#if DEBUG␊
336␊
337␉printf("symoff: %x, nsyms: %x, stroff: %x, strsize: %x\n", symTab->symoff, symTab->nsyms, symTab->stroff, symTab->strsize);␊
338␉getchar();␊
339#endif␊
340␊
341␉symsSize = symTab->stroff - symTab->symoff;␊
342␉totalSize = symsSize + symTab->strsize;␊
343␊
344␉gSymbolTableSize = totalSize + sizeof(struct symtab_command);␊
345␉gSymbolTableAddr = AllocateKernelMemory(gSymbolTableSize);␊
346␉// Add the SymTab to the memory-map.␊
347␉AllocateMemoryRange("Kernel-__SYMTAB", gSymbolTableAddr, gSymbolTableSize, -1);␊
348␊
349␉symTableSave = (struct symtab_command *)gSymbolTableAddr;␊
350␉tmpAddr = gSymbolTableAddr + sizeof(struct symtab_command);␊
351␊
352␉symTableSave->symoff = tmpAddr;␊
353␉symTableSave->nsyms = symTab->nsyms;␊
354␉symTableSave->stroff = tmpAddr + symsSize;␊
355␉symTableSave->strsize = symTab->strsize;␊
356␉␊
357␉bcopy((char *)(gBinaryAddress + symTab->symoff), (char *)tmpAddr, totalSize);␊
358␊
359␉return 0;␊
360}␊
361

Archive Download this file

Revision: 2340