Chameleon

Chameleon Svn Source Tree

Root/branches/cparm/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␊
40unsigned long gBinaryAddress;␊
41bool gHaveKernelCache;␉␉␉/* XXX aserebln: uninitialized? and only set to true, never to false */␊
42cpu_type_t archCpuType=CPU_TYPE_I386;␊
43␊
44// Public Functions␊
45␊
46long ThinFatFile(void **binary, unsigned long *length)␊
47{␊
48␉unsigned long nfat, swapped, size = 0;␊
49␉struct fat_arch *fap =␊
50␉␉(struct fat_arch *)((unsigned long)*binary + sizeof(struct fat_header));␊
51 ␉␊
52␉{␊
53␉␉struct fat_header *fhp = (struct fat_header *)*binary;␊
54␊
55␉␉if (fhp->magic == FAT_MAGIC)␊
56␉␉{␊
57␉␉␉nfat = fhp->nfat_arch;␊
58␉␉␉swapped = 0;␊
59␉␉}␊
60␉␉else if (fhp->magic == FAT_CIGAM)␊
61␉␉{␊
62␉␉␉nfat = OSSwapInt32(fhp->nfat_arch);␊
63␉␉␉swapped = 1;␊
64␉␉}␊
65␉␉else␊
66␉␉{␊
67␉␉␉return -1;␊
68␉␉}␊
69␉} ␊
70␉␊
71␉{␊
72␉␉cpu_type_t fapcputype;␊
73␉␉uint32_t fapoffset;␊
74␉␉uint32_t fapsize;␊
75␉␉for (; nfat > 0; nfat--, fap++)␊
76␉␉{␊
77␉␉␉if (swapped)␊
78␉␉␉{␊
79␉␉␉␉fapcputype = OSSwapInt32(fap->cputype);␊
80␉␉␉␉fapoffset = OSSwapInt32(fap->offset);␊
81␉␉␉␉fapsize = OSSwapInt32(fap->size);␊
82␉␉␉}␊
83␉␉␉else␊
84␉␉␉{␊
85␉␉␉␉fapcputype = fap->cputype;␊
86␉␉␉␉fapoffset = fap->offset;␊
87␉␉␉␉fapsize = fap->size;␊
88␉␉␉}␊
89␉␉␉␊
90␉␉␉if (fapcputype == archCpuType)␊
91␉␉␉{␊
92␉␉␉␉*binary = (void *) ((unsigned long)*binary + fapoffset);␊
93␉␉␉␉size = fapsize;␊
94␉␉␉␉break;␊
95␉␉␉}␊
96␉␉}␊
97␉}␊
98␉␊
99␉if (length != 0) *length = size;␊
100␉␊
101␉return 0; ␊
102 ␊
103}␊
104␊
105long DecodeMachO(void *binary, entry_t *rentry, char **raddr, int *rsize)␊
106{␊
107␉unsigned long ncmds, cmdBase, cmdstart; ␊
108␉long ret = -1;␊
109␉gBinaryAddress = (unsigned long)binary; ␊
110␉␊
111␉{␊
112␉␉struct mach_header *mH;␊
113␉␉mH = (struct mach_header *)(gBinaryAddress);␊
114␉␉switch (archCpuType)␊
115␉␉{␊
116␉␉␉case CPU_TYPE_I386:␊
117␉␉␉␉if (mH->magic != MH_MAGIC)␊
118␉␉␉␉{␊
119␉␉␉␉␉error("Mach-O file has bad magic number\n");␊
120␉␉␉␉␉return -1;␊
121␉␉␉␉}␊
122␉␉␉␉cmdstart = (unsigned long)gBinaryAddress + sizeof(struct mach_header);␊
123␉␉␉␉break;␊
124␉␉␉case CPU_TYPE_X86_64:␊
125␉␉␉␉if (mH->magic != MH_MAGIC_64 && mH->magic == MH_MAGIC) ␊
126␉␉␉␉␉return -1;␊
127␉␉␉␉if (mH->magic != MH_MAGIC_64)␊
128␉␉␉␉{␊
129␉␉␉␉␉error("Mach-O file has bad magic number\n");␊
130␉␉␉␉␉return -1;␊
131␉␉␉␉}␊
132␉␉␉␉cmdstart = (unsigned long)gBinaryAddress + sizeof(struct mach_header_64);␊
133␉␉␉␉break;␊
134␉␉␉default:␊
135␉␉␉␉error("Unknown CPU type\n");␊
136␉␉␉␉return -1;␊
137␉␉}␊
138␉␉␊
139␉␉cmdBase = cmdstart;␊
140␉␉␊
141#if DEBUG␊
142␉␉printf("magic: %x\n", (unsigned)mH->magic);␊
143␉␉printf("cputype: %x\n", (unsigned)mH->cputype);␊
144␉␉printf("cpusubtype: %x\n", (unsigned)mH->cpusubtype);␊
145␉␉printf("filetype: %x\n", (unsigned)mH->filetype);␊
146␉␉printf("ncmds: %x\n", (unsigned)mH->ncmds);␊
147␉␉printf("sizeofcmds: %x\n", (unsigned)mH->sizeofcmds);␊
148␉␉printf("flags: %x\n", (unsigned)mH->flags);␊
149␉␉getc();␊
150#endif␊
151␉␉␊
152␉␉ncmds = mH->ncmds;␊
153␉}␊
154 ␊
155␉{␊
156␉␉unsigned int vmaddr = ~0;␊
157␉␉unsigned int vmend = 0;␊
158␉␉unsigned int entry = 0;␊
159␉␉unsigned long cnt;␉␉␊
160␉␉unsigned long cmd, cmdsize;␊
161␉␉␊
162␉␉for (cnt = 0; cnt < ncmds; cnt++)␊
163␉␉{␊
164␉␉␉cmd = ((long *)cmdBase)[0];␊
165␉␉␉cmdsize = ((long *)cmdBase)[1];␊
166␉␉␉unsigned int load_addr;␊
167␉␉␉unsigned int load_size;␊
168␉␉␉␊
169␉␉␉switch (cmd) {␊
170␉␉␉␉case LC_SEGMENT_64: ␊
171␉␉␉␉case LC_SEGMENT:␊
172␉␉␉␉␉ret = DecodeSegment(cmdBase, &load_addr, &load_size);␊
173␉␉␉␉␉if (ret == 0 && load_size != 0 && load_addr >= KERNEL_ADDR)␊
174␉␉␉␉␉{␊
175␉␉␉␉␉␉vmaddr = min(vmaddr, load_addr);␊
176␉␉␉␉␉␉vmend = max(vmend, load_addr + load_size);␊
177␉␉␉␉␉}␊
178␉␉␉␉␉break;␊
179␉␉␉␉␉␊
180␉␉␉␉case LC_UNIXTHREAD:␊
181␉␉␉␉␉ret = DecodeUnixThread(cmdBase, &entry);␊
182␉␉␉␉␉break;␊
183␉␉␉␉␉␊
184␉␉␉␉case LC_SYMTAB:␊
185␉␉␉␉␉break;␊
186␉␉␉␉␉␊
187␉␉␉␉default:␊
188#if NOTDEF␊
189␉␉␉␉␉printf("Ignoring cmd type %d.\n", (unsigned)cmd);␊
190#endif␊
191␉␉␉␉␉break;␊
192␉␉␉}␊
193␉␉␉␊
194␉␉␉if (ret != 0) return -1;␊
195␉␉␉␊
196␉␉␉cmdBase += cmdsize;␊
197␉␉}␊
198␉␉␊
199␉␉*rentry = (entry_t)( (unsigned long) entry & 0x3fffffff );␊
200␉␉*rsize = vmend - vmaddr;␊
201␉␉*raddr = (char *)vmaddr;␊
202␉␉␊
203␉␉cmdBase = cmdstart;␊
204␉␉for (cnt = 0; cnt < ncmds; cnt++)␊
205␉␉{␊
206␉␉␉cmd = ((long *)cmdBase)[0];␊
207␉␉␉cmdsize = ((long *)cmdBase)[1];␊
208␉␉␉␊
209␉␉␉if(cmd==LC_SYMTAB) ␊
210␉␉␉␉if (DecodeSymbolTable(cmdBase)!=0)␊
211␉␉␉␉␉return -1;␊
212␉␉␉␊
213␉␉␉cmdBase += cmdsize;␊
214␉␉}␉␊
215␉}␊
216␉␊
217␉return ret;␉␊
218 ␊
219}␊
220␊
221// Private Functions␊
222␊
223static long DecodeSegment(long cmdBase, unsigned int *load_addr, unsigned int *load_size)␊
224{␊
225␉unsigned long vmaddr, fileaddr;␊
226␉long vmsize, filesize;␊
227␉char *segname;␊
228␉␊
229␉if (((long *)cmdBase)[0]==LC_SEGMENT_64)␊
230␉{␊
231␉␉struct segment_command_64 *segCmd;␊
232␉␉␊
233␉␉segCmd = (struct segment_command_64 *)cmdBase;␊
234␉␉␊
235␉␉vmaddr = (segCmd->vmaddr & 0x3fffffff);␊
236␉␉vmsize = segCmd->vmsize;␉ ␊
237␉␉fileaddr = (gBinaryAddress + segCmd->fileoff);␊
238␉␉filesize = segCmd->filesize;␊
239␉␉␊
240␉␉segname=segCmd->segname;␉ ␊
241␉}␊
242␉else␊
243␉{␊
244␉␉struct segment_command *segCmd;␊
245␉␉␊
246␉␉segCmd = (struct segment_command *)cmdBase;␊
247␉␉␊
248␉␉vmaddr = (segCmd->vmaddr & 0x3fffffff);␊
249␉␉vmsize = segCmd->vmsize;␊
250␉␉fileaddr = (gBinaryAddress + segCmd->fileoff);␊
251␉␉filesize = segCmd->filesize;␊
252␉␉␊
253␉␉segname=segCmd->segname;␉ ␊
254␉}␊
255␉␊
256␉if (vmsize == 0 || filesize == 0)␊
257␉{␊
258␉␉*load_addr = ~0;␊
259␉␉*load_size = 0;␊
260␉␉return 0;␊
261␉}␊
262␉␊
263#if DEBUG␊
264␉printf("segname: %s, vmaddr: %x, vmsize: %x, fileoff: %x, filesize: %x, nsects: %d, flags: %x.\n",␊
265␉␉ segCmd->segname, (unsigned)vmaddr, (unsigned)vmsize, (unsigned)fileaddr, (unsigned)filesize,␊
266␉␉ (unsigned) segCmd->nsects, (unsigned)segCmd->flags);␊
267␉getc();␊
268#endif␊
269␉␊
270␉if (! ((vmaddr >= KERNEL_ADDR &&␊
271␉␉␉(vmaddr + vmsize) <= (KERNEL_ADDR + KERNEL_LEN)) ||␊
272␉␉ (vmaddr >= HIB_ADDR &&␊
273␉␉␉(vmaddr + vmsize) <= (HIB_ADDR + HIB_LEN))))␊
274␉{␊
275␉␉␉ stop("Kernel overflows available space");␊
276␉}␊
277␉␊
278␉if (vmsize && (strcmp(segname, "__PRELINK") == 0 || strcmp(segname, "__PRELINK_INFO") == 0))␊
279␉␉gHaveKernelCache = true;␊
280␉␊
281␉// Copy from file load area.␊
282␉if (vmsize>0 && filesize>0)␊
283␉␉bcopy((char *)fileaddr, (char *)vmaddr, vmsize>filesize?filesize:vmsize);␊
284␉␊
285␉// Zero space at the end of the segment.␊
286␉if (vmsize > filesize)␊
287␉␉bzero((char *)(vmaddr + filesize), vmsize - filesize);␊
288␉␊
289␉*load_addr = vmaddr;␊
290␉*load_size = vmsize;␊
291␉␊
292␉return 0; ␊
293}␊
294␊
295static long DecodeUnixThread(long cmdBase, unsigned int *entry)␊
296{␊
297␉switch (archCpuType)␊
298␉{␊
299␉␉case CPU_TYPE_I386:␊
300␉␉{␊
301␉␉␉i386_thread_state_t *i386ThreadState;␊
302 ␊
303␉␉␉i386ThreadState = (i386_thread_state_t *)␊
304␉␉␉␉(cmdBase + sizeof(struct thread_command) + 8);␊
305 ␊
306␉␉#if defined(__DARWIN_UNIX03) && __DARWIN_UNIX03␊
307␉␉␉*entry = i386ThreadState->__eip;␊
308␉␉#else␊
309␉␉␉*entry = i386ThreadState->eip;␊
310␉␉#endif␊
311␉␉␉return 0;␊
312␉␉}␊
313␉␉␉␊
314␉␉case CPU_TYPE_X86_64:␊
315␉␉{␊
316␉␉␉x86_thread_state64_t *x86_64ThreadState;␊
317␉␉␉␊
318␉␉␉x86_64ThreadState = (x86_thread_state64_t *)␊
319␉␉␉(cmdBase + sizeof(struct thread_command) + 8);␊
320␉␉␉␊
321␉␉#if defined(__DARWIN_UNIX03) && __DARWIN_UNIX03␊
322␉␉␉*entry = x86_64ThreadState->__rip;␊
323␉␉#else␊
324␉␉␉*entry = x86_64ThreadState->rip;␊
325␉␉#endif␊
326␉␉␉return 0;␊
327␉␉}␊
328␉␉␉␊
329␉␉default:␊
330␉␉␉error("Unknown CPU type\n");␊
331␉␉␉return -1;␊
332␉}␊
333}␊
334␊
335static long DecodeSymbolTable(long cmdBase)␊
336{ ␊
337␉struct symtab_command *symTab, *symTableSave;␊
338␉long tmpAddr, symsSize, totalSize; ␊
339␉␊
340␉symTab = (struct symtab_command *)cmdBase;␊
341␉␊
342#if DEBUG␊
343␉printf("symoff: %x, nsyms: %x, stroff: %x, strsize: %x\n",␊
344␉␉ symTab->symoff, symTab->nsyms, symTab->stroff, symTab->strsize);␊
345␉getc ();␊
346#endif␊
347␉␊
348␉symsSize = symTab->stroff - symTab->symoff;␊
349␉totalSize = symsSize + symTab->strsize; ␊
350 ␊
351␉{␊
352␉␉long gSymbolTableAddr;␊
353␉␉long gSymbolTableSize;␊
354␉␉gSymbolTableSize = totalSize + sizeof(struct symtab_command);␊
355␉␉gSymbolTableAddr = AllocateKernelMemory(gSymbolTableSize);␊
356␉␉// Add the SymTab to the memory-map.␊
357#if UNUSED␊
358␉␉AllocateMemoryRange("Kernel-__SYMTAB", gSymbolTableAddr, gSymbolTableSize, -1); ␊
359#else␊
360␉␉AllocateMemoryRange("Kernel-__SYMTAB", gSymbolTableAddr, gSymbolTableSize);␊
361#endif␊
362␉␉symTableSave = (struct symtab_command *)gSymbolTableAddr;␊
363␉␉tmpAddr = gSymbolTableAddr + sizeof(struct symtab_command);␊
364␉}␉␊
365 ␊
366␉symTableSave->symoff = tmpAddr;␊
367␉symTableSave->nsyms = symTab->nsyms;␊
368␉symTableSave->stroff = tmpAddr + symsSize;␊
369␉symTableSave->strsize = symTab->strsize;␊
370␉␊
371␉bcopy((char *)(gBinaryAddress + symTab->symoff),␊
372␉␉ (char *)tmpAddr, totalSize);␊
373␉␊
374␉return 0;␊
375}␊
376

Archive Download this file

Revision: 1468