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

Archive Download this file

Revision: 2385