src/file/file_macho.c

/*
 *  Copyright (C) 2005-2007  Anders Gavare.  All rights reserved.
 *
 *  Redistribution and use in source and binary forms, with or without
 *  modification, are permitted provided that the following conditions are met:
 *
 *  1. Redistributions of source code must retain the above copyright
 *     notice, this list of conditions and the following disclaimer.
 *  2. Redistributions in binary form must reproduce the above copyright
 *     notice, this list of conditions and the following disclaimer in the
 *     documentation and/or other materials provided with the distribution.
 *  3. The name of the author may not be used to endorse or promote products
 *     derived from this software without specific prior written permission.
 *
 *  THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 *  ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 *  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 *  ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 *  FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 *  DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 *  OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 *  HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 *  LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 *  OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 *  SUCH DAMAGE.
 *
 *
 *  $Id: file_macho.c,v 1.1 2007/04/10 16:33:44 debug Exp $
 *
 *  Mach-O file support.
 */

/*  Note: Included from file.c.  */


/*
 *  file_load_macho():
 *
 *  Loads a Mach-O binary image into the emulated memory. The entry point
 *  is stored in the specified CPU's registers.
 *
 *  TODO:
 *
 *      o)  Almost everything.
 *
 *      o)  I haven't had time to look into whether Apple's open source
 *          license is BSD-compatible or not. Perhaps it would be possible
 *          to use a header file containing symbolic names, and not use
 *          hardcoded values.
 */
static void file_load_macho(struct machine *m, struct memory *mem,
        char *filename, uint64_t *entrypointp, int arch, int *byte_orderp,
        int is_64bit, int is_reversed)
{
        FILE *f;
        uint64_t entry = 0;
        int entry_set = 0;
        int encoding = ELFDATA2MSB;
        unsigned char buf[65536];
        char *symbols, *strings;
        uint32_t cputype, cpusubtype, filetype, ncmds, sizeofcmds, flags;
        uint64_t vmaddr, vmsize, fileoff, filesize;
        int cmd_type, cmd_len, i, flavor;
        int32_t symoff, nsyms, stroff, strsize;
        size_t len, pos;

        if (m->cpus[0]->byte_order == EMUL_BIG_ENDIAN)
                encoding = ELFDATA2MSB;

        f = fopen(filename, "r");
        if (f == NULL) {
                perror(filename);
                exit(1);
        }

        if (is_64bit) {
                fatal("TODO: 64-bit Mach-O. Not supported yet.\n");
                exit(1);
        }
        if (is_reversed) {
                fatal("TODO: Reversed-endianness. Not supported yet.\n");
                exit(1);
        }

        len = fread(buf, 1, sizeof(buf), f);
        if (len < 100) {
                fatal("Bad Mach-O file?\n");
                exit(1);
        }

        unencode(cputype,    &buf[4], uint32_t);
        unencode(cpusubtype, &buf[8], uint32_t);
        unencode(filetype,   &buf[12], uint32_t);
        unencode(ncmds,      &buf[16], uint32_t);
        unencode(sizeofcmds, &buf[20], uint32_t);
        unencode(flags,      &buf[24], uint32_t);

        /*  debug("cputype=0x%x cpusubtype=0x%x filetype=0x%x\n",
            cputype, cpusubtype, filetype);
            debug("ncmds=%i sizeofcmds=0x%08x flags=0x%08x\n",
            ncmds, sizeofcmds, flags);  */

        /*
         *  Compare to "normal" values.
         *  NOTE/TODO: These were for a Darwin (Macintosh PPC) kernel.
         */
        if (cputype != 0x12) {
                fatal("Error: Unimplemented cputype 0x%x\n", cputype);
                exit(1);
        }
        if (cpusubtype != 0) {
                fatal("Error: Unimplemented cpusubtype 0x%x\n", cpusubtype);
                exit(1);
        }
        /*  Filetype 2 means an executable image.  */
        if (filetype != 2) {
                fatal("Error: Unimplemented filetype 0x%x\n", filetype);
                exit(1);
        }
        if (!(flags & 1)) {
                fatal("Error: File has 'undefined references'. Cannot"
                    " be executed.\n", flags);
                exit(1);
        }

        /*  I've only encountered flags == 1 so far.  */
        if (flags != 1) {
                fatal("Error: Unimplemented flags 0x%x\n", flags);
                exit(1);
        }

        /*
         *  Read all load commands:
         */
        pos = is_64bit? 32 : 28;
        cmd_type = 0;
        do {
                /*  Read command type and length:  */
                unencode(cmd_type, &buf[pos], uint32_t);
                unencode(cmd_len,  &buf[pos+4], uint32_t);

#if 0
                debug("cmd %i, len=%i\n", cmd_type, cmd_len);
                for (i=8; i<cmd_len; i++) {
                        unsigned char ch = buf[pos+i];
                        if (ch >= ' ' && ch < 127)
                                debug("%c", ch);
                        else
                                debug(".");
                }
#endif
                switch (cmd_type) {
                case 1: /*  LC_SEGMENT  */
                        debug("seg ");
                        for (i=0; i<16; i++) {
                                if (buf[pos + 8 + i] == 0)
                                        break;
                                debug("%c", buf[pos + 8 + i]);
                        }
                        unencode(vmaddr,   &buf[pos+8+16+0], uint32_t);
                        unencode(vmsize,   &buf[pos+8+16+4], uint32_t);
                        unencode(fileoff,  &buf[pos+8+16+8], uint32_t);
                        unencode(filesize, &buf[pos+8+16+12], uint32_t);
                        debug(": vmaddr=0x%x size=0x%x fileoff=0x%x",
                            (int)vmaddr, (int)vmsize, (int)fileoff);

                        if (filesize == 0) {
                                debug("\n");
                                break;
                        }

                        fseek(f, fileoff, SEEK_SET);

                        /*  Load data from the file:  */
                        while (filesize != 0) {
                                unsigned char buf[32768];
                                ssize_t len = filesize > sizeof(buf) ?
                                    sizeof(buf) : filesize;
                                len = fread(buf, 1, len, f);

                                /*  printf("fread len=%i vmaddr=%x buf[0..]="
                                    "%02x %02x %02x\n", (int)len, (int)vmaddr,
                                    buf[0], buf[1], buf[2]);  */

                                if (len > 0) {
                                        int len2 = 0;
                                        uint64_t vaddr1 = vmaddr &
                                            ((1 << BITS_PER_MEMBLOCK) - 1);
                                        uint64_t vaddr2 = (vmaddr +
                                            len) & ((1 << BITS_PER_MEMBLOCK)-1);
                                        if (vaddr2 < vaddr1) {
                                                len2 = len - vaddr2;
                                                m->cpus[0]->memory_rw(m->cpus[
                                                    0], mem, vmaddr, &buf[0],
                                                    len2, MEM_WRITE,
                                                    NO_EXCEPTIONS);
                                        }
                                        m->cpus[0]->memory_rw(m->cpus[0], mem,
                                            vmaddr + len2, &buf[len2], len-len2,
                                            MEM_WRITE, NO_EXCEPTIONS);
                                } else {
                                        fprintf(stderr, "error reading\n");
                                        exit(1);
                                }

                                vmaddr += len;
                                filesize -= len;
                        }

                        debug("\n");
                        break;

                case 2: /*  LC_SYMTAB  */
                        unencode(symoff,  &buf[pos+8], uint32_t);
                        unencode(nsyms,   &buf[pos+12], uint32_t);
                        unencode(stroff,  &buf[pos+16], uint32_t);
                        unencode(strsize, &buf[pos+20], uint32_t);
                        debug("symtable: %i symbols @ 0x%x (strings at "
                            "0x%x)\n", nsyms, symoff, stroff);

                        symbols = malloc(12 * nsyms);
                        if (symbols == NULL) {
                                fprintf(stderr, "out of memory\n");
                                exit(1);
                        }
                        fseek(f, symoff, SEEK_SET);
                        fread(symbols, 1, 12 * nsyms, f);

                        strings = malloc(strsize);
                        if (strings == NULL) {
                                fprintf(stderr, "out of memory\n");
                                exit(1);
                        }
                        fseek(f, stroff, SEEK_SET);
                        fread(strings, 1, strsize, f);

                        for (i=0; i<nsyms; i++) {
                                int n_strx, n_type, n_sect, n_desc;
                                uint32_t n_value;
                                unencode(n_strx,  &symbols[i*12+0], int32_t);
                                unencode(n_type,  &symbols[i*12+4], uint8_t);
                                unencode(n_sect,  &symbols[i*12+5], uint8_t);
                                unencode(n_desc,  &symbols[i*12+6], int16_t);
                                unencode(n_value, &symbols[i*12+8], uint32_t);
                                /*  debug("%i: strx=%i type=%i sect=%i desc=%i"
                                    " value=0x%x\n", i, n_strx, n_type,
                                    n_sect, n_desc, n_value);  */
                                add_symbol_name(&m->symbol_context,
                                    n_value, 0, strings + n_strx, 0, -1);
                        }

                        free(symbols);
                        free(strings);
                        break;

                case 5: debug("unix thread context: ");
                        /*  See http://cvs.sf.net/viewcvs.py/hte/
                            HT%20Editor/machostruc.h or similar for details
                            on the thread struct.  */
                        unencode(flavor, &buf[pos+8], uint32_t);
                        if (flavor != 1) {
                                fatal("unimplemented flavor %i\n", flavor);
                                exit(1);
                        }

                        if (arch != ARCH_PPC) {
                                fatal("non-PPC arch? TODO\n");
                                exit(1);
                        }

                        unencode(entry, &buf[pos+16], uint32_t);
                        entry_set = 1;
                        debug("pc=0x%x\n", (int)entry);

                        for (i=1; i<40; i++) {
                                uint32_t x;
                                unencode(x, &buf[pos+16+i*4], uint32_t);
                                if (x != 0) {
                                        fatal("Entry nr %i in the Mach-O"
                                            " thread struct is non-zero"
                                            " (0x%x). This is not supported"
                                            " yet. TODO\n", i, x);
                                        exit(1);
                                }
                        }
                        break;

                default:fatal("WARNING! Unimplemented load command %i!\n",
                            cmd_type);
                }

                pos += cmd_len;
        } while (pos < sizeofcmds && cmd_type != 0);

        fclose(f);

        if (!entry_set) {
                fatal("No entry point? Aborting.\n");
                exit(1);
        }

        *entrypointp = entry;

        if (encoding == ELFDATA2LSB)
                *byte_orderp = EMUL_LITTLE_ENDIAN;
        else
                *byte_orderp = EMUL_BIG_ENDIAN;

        n_executables_loaded ++;
}

1	dpavlin	38	/*
2			* Copyright (C) 2005-2007 Anders Gavare. All rights reserved.
3			*
4			* Redistribution and use in source and binary forms, with or without
5			* modification, are permitted provided that the following conditions are met:
6			*
7			* 1. Redistributions of source code must retain the above copyright
8			* notice, this list of conditions and the following disclaimer.
9			* 2. Redistributions in binary form must reproduce the above copyright
10			* notice, this list of conditions and the following disclaimer in the
11			* documentation and/or other materials provided with the distribution.
12			* 3. The name of the author may not be used to endorse or promote products
13			* derived from this software without specific prior written permission.
14			*
15			* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
16			* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17			* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18			* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19			* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20			* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21			* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22			* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23			* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24			* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25			* SUCH DAMAGE.
26			*
27			*
28			* $Id: file_macho.c,v 1.1 2007/04/10 16:33:44 debug Exp $
29			*
30			* Mach-O file support.
31			*/
32
33			/* Note: Included from file.c. */
34
35
36			/*
37			* file_load_macho():
38			*
39			* Loads a Mach-O binary image into the emulated memory. The entry point
40			* is stored in the specified CPU's registers.
41			*
42			* TODO:
43			*
44			* o) Almost everything.
45			*
46			* o) I haven't had time to look into whether Apple's open source
47			* license is BSD-compatible or not. Perhaps it would be possible
48			* to use a header file containing symbolic names, and not use
49			* hardcoded values.
50			*/
51			static void file_load_macho(struct machine m, struct memory mem,
52			char filename, uint64_t entrypointp, int arch, int *byte_orderp,
53			int is_64bit, int is_reversed)
54			{
55			FILE *f;
56			uint64_t entry = 0;
57			int entry_set = 0;
58			int encoding = ELFDATA2MSB;
59			unsigned char buf[65536];
60			char symbols, strings;
61			uint32_t cputype, cpusubtype, filetype, ncmds, sizeofcmds, flags;
62			uint64_t vmaddr, vmsize, fileoff, filesize;
63			int cmd_type, cmd_len, i, flavor;
64			int32_t symoff, nsyms, stroff, strsize;
65			size_t len, pos;
66
67			if (m->cpus[0]->byte_order == EMUL_BIG_ENDIAN)
68			encoding = ELFDATA2MSB;
69
70			f = fopen(filename, "r");
71			if (f == NULL) {
72			perror(filename);
73			exit(1);
74			}
75
76			if (is_64bit) {
77			fatal("TODO: 64-bit Mach-O. Not supported yet.\n");
78			exit(1);
79			}
80			if (is_reversed) {
81			fatal("TODO: Reversed-endianness. Not supported yet.\n");
82			exit(1);
83			}
84
85			len = fread(buf, 1, sizeof(buf), f);
86			if (len < 100) {
87			fatal("Bad Mach-O file?\n");
88			exit(1);
89			}
90
91			unencode(cputype, &buf[4], uint32_t);
92			unencode(cpusubtype, &buf[8], uint32_t);
93			unencode(filetype, &buf[12], uint32_t);
94			unencode(ncmds, &buf[16], uint32_t);
95			unencode(sizeofcmds, &buf[20], uint32_t);
96			unencode(flags, &buf[24], uint32_t);
97
98			/* debug("cputype=0x%x cpusubtype=0x%x filetype=0x%x\n",
99			cputype, cpusubtype, filetype);
100			debug("ncmds=%i sizeofcmds=0x%08x flags=0x%08x\n",
101			ncmds, sizeofcmds, flags); */
102
103			/*
104			* Compare to "normal" values.
105			* NOTE/TODO: These were for a Darwin (Macintosh PPC) kernel.
106			*/
107			if (cputype != 0x12) {
108			fatal("Error: Unimplemented cputype 0x%x\n", cputype);
109			exit(1);
110			}
111			if (cpusubtype != 0) {
112			fatal("Error: Unimplemented cpusubtype 0x%x\n", cpusubtype);
113			exit(1);
114			}
115			/* Filetype 2 means an executable image. */
116			if (filetype != 2) {
117			fatal("Error: Unimplemented filetype 0x%x\n", filetype);
118			exit(1);
119			}
120			if (!(flags & 1)) {
121			fatal("Error: File has 'undefined references'. Cannot"
122			" be executed.\n", flags);
123			exit(1);
124			}
125
126			/* I've only encountered flags == 1 so far. */
127			if (flags != 1) {
128			fatal("Error: Unimplemented flags 0x%x\n", flags);
129			exit(1);
130			}
131
132			/*
133			* Read all load commands:
134			*/
135			pos = is_64bit? 32 : 28;
136			cmd_type = 0;
137			do {
138			/* Read command type and length: */
139			unencode(cmd_type, &buf[pos], uint32_t);
140			unencode(cmd_len, &buf[pos+4], uint32_t);
141
142			#if 0
143			debug("cmd %i, len=%i\n", cmd_type, cmd_len);
144			for (i=8; i<cmd_len; i++) {
145			unsigned char ch = buf[pos+i];
146			if (ch >= ' ' && ch < 127)
147			debug("%c", ch);
148			else
149			debug(".");
150			}
151			#endif
152			switch (cmd_type) {
153			case 1: /* LC_SEGMENT */
154			debug("seg ");
155			for (i=0; i<16; i++) {
156			if (buf[pos + 8 + i] == 0)
157			break;
158			debug("%c", buf[pos + 8 + i]);
159			}
160			unencode(vmaddr, &buf[pos+8+16+0], uint32_t);
161			unencode(vmsize, &buf[pos+8+16+4], uint32_t);
162			unencode(fileoff, &buf[pos+8+16+8], uint32_t);
163			unencode(filesize, &buf[pos+8+16+12], uint32_t);
164			debug(": vmaddr=0x%x size=0x%x fileoff=0x%x",
165			(int)vmaddr, (int)vmsize, (int)fileoff);
166
167			if (filesize == 0) {
168			debug("\n");
169			break;
170			}
171
172			fseek(f, fileoff, SEEK_SET);
173
174			/* Load data from the file: */
175			while (filesize != 0) {
176			unsigned char buf[32768];
177			ssize_t len = filesize > sizeof(buf) ?
178			sizeof(buf) : filesize;
179			len = fread(buf, 1, len, f);
180
181			/* printf("fread len=%i vmaddr=%x buf[0..]="
182			"%02x %02x %02x\n", (int)len, (int)vmaddr,
183			buf[0], buf[1], buf[2]); */
184
185			if (len > 0) {
186			int len2 = 0;
187			uint64_t vaddr1 = vmaddr &
188			((1 << BITS_PER_MEMBLOCK) - 1);
189			uint64_t vaddr2 = (vmaddr +
190			len) & ((1 << BITS_PER_MEMBLOCK)-1);
191			if (vaddr2 < vaddr1) {
192			len2 = len - vaddr2;
193			m->cpus[0]->memory_rw(m->cpus[
194			0], mem, vmaddr, &buf[0],
195			len2, MEM_WRITE,
196			NO_EXCEPTIONS);
197			}
198			m->cpus[0]->memory_rw(m->cpus[0], mem,
199			vmaddr + len2, &buf[len2], len-len2,
200			MEM_WRITE, NO_EXCEPTIONS);
201			} else {
202			fprintf(stderr, "error reading\n");
203			exit(1);
204			}
205
206			vmaddr += len;
207			filesize -= len;
208			}
209
210			debug("\n");
211			break;
212
213			case 2: /* LC_SYMTAB */
214			unencode(symoff, &buf[pos+8], uint32_t);
215			unencode(nsyms, &buf[pos+12], uint32_t);
216			unencode(stroff, &buf[pos+16], uint32_t);
217			unencode(strsize, &buf[pos+20], uint32_t);
218			debug("symtable: %i symbols @ 0x%x (strings at "
219			"0x%x)\n", nsyms, symoff, stroff);
220
221			symbols = malloc(12 * nsyms);
222			if (symbols == NULL) {
223			fprintf(stderr, "out of memory\n");
224			exit(1);
225			}
226			fseek(f, symoff, SEEK_SET);
227			fread(symbols, 1, 12 * nsyms, f);
228
229			strings = malloc(strsize);
230			if (strings == NULL) {
231			fprintf(stderr, "out of memory\n");
232			exit(1);
233			}
234			fseek(f, stroff, SEEK_SET);
235			fread(strings, 1, strsize, f);
236
237			for (i=0; i<nsyms; i++) {
238			int n_strx, n_type, n_sect, n_desc;
239			uint32_t n_value;
240			unencode(n_strx, &symbols[i*12+0], int32_t);
241			unencode(n_type, &symbols[i*12+4], uint8_t);
242			unencode(n_sect, &symbols[i*12+5], uint8_t);
243			unencode(n_desc, &symbols[i*12+6], int16_t);
244			unencode(n_value, &symbols[i*12+8], uint32_t);
245			/* debug("%i: strx=%i type=%i sect=%i desc=%i"
246			" value=0x%x\n", i, n_strx, n_type,
247			n_sect, n_desc, n_value); */
248			add_symbol_name(&m->symbol_context,
249			n_value, 0, strings + n_strx, 0, -1);
250			}
251
252			free(symbols);
253			free(strings);
254			break;
255
256			case 5: debug("unix thread context: ");
257			/* See http://cvs.sf.net/viewcvs.py/hte/
258			HT%20Editor/machostruc.h or similar for details
259			on the thread struct. */
260			unencode(flavor, &buf[pos+8], uint32_t);
261			if (flavor != 1) {
262			fatal("unimplemented flavor %i\n", flavor);
263			exit(1);
264			}
265
266			if (arch != ARCH_PPC) {
267			fatal("non-PPC arch? TODO\n");
268			exit(1);
269			}
270
271			unencode(entry, &buf[pos+16], uint32_t);
272			entry_set = 1;
273			debug("pc=0x%x\n", (int)entry);
274
275			for (i=1; i<40; i++) {
276			uint32_t x;
277			unencode(x, &buf[pos+16+i*4], uint32_t);
278			if (x != 0) {
279			fatal("Entry nr %i in the Mach-O"
280			" thread struct is non-zero"
281			" (0x%x). This is not supported"
282			" yet. TODO\n", i, x);
283			exit(1);
284			}
285			}
286			break;
287
288			default:fatal("WARNING! Unimplemented load command %i!\n",
289			cmd_type);
290			}
291
292			pos += cmd_len;
293			} while (pos < sizeofcmds && cmd_type != 0);
294
295			fclose(f);
296
297			if (!entry_set) {
298			fatal("No entry point? Aborting.\n");
299			exit(1);
300			}
301
302			*entrypointp = entry;
303
304			if (encoding == ELFDATA2LSB)
305			*byte_orderp = EMUL_LITTLE_ENDIAN;
306			else
307			*byte_orderp = EMUL_BIG_ENDIAN;
308
309			n_executables_loaded ++;
310			}
311