Chameleon

Chameleon Svn Source Tree

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

Archive Download this file

Revision: 2706