]>
Commit | Line | Data |
---|---|---|
1cfabf34 | 1 | /* simple-object-mach-o.c -- routines to manipulate Mach-O object files. |
8d9254fc | 2 | Copyright (C) 2010-2020 Free Software Foundation, Inc. |
1cfabf34 ILT |
3 | Written by Ian Lance Taylor, Google. |
4 | ||
5 | This program is free software; you can redistribute it and/or modify it | |
6 | under the terms of the GNU General Public License as published by the | |
7 | Free Software Foundation; either version 2, or (at your option) any | |
8 | later version. | |
9 | ||
10 | This program is distributed in the hope that it will be useful, | |
11 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
13 | GNU General Public License for more details. | |
14 | ||
15 | You should have received a copy of the GNU General Public License | |
16 | along with this program; if not, write to the Free Software | |
17 | Foundation, 51 Franklin Street - Fifth Floor, | |
18 | Boston, MA 02110-1301, USA. */ | |
19 | ||
20 | #include "config.h" | |
21 | #include "libiberty.h" | |
22 | #include "simple-object.h" | |
23 | ||
24 | #include <stddef.h> | |
25 | ||
26 | #ifdef HAVE_STDLIB_H | |
27 | #include <stdlib.h> | |
28 | #endif | |
29 | ||
30 | #ifdef HAVE_STDINT_H | |
31 | #include <stdint.h> | |
32 | #endif | |
33 | ||
34 | #ifdef HAVE_STRING_H | |
35 | #include <string.h> | |
36 | #endif | |
37 | ||
38 | #ifdef HAVE_INTTYPES_H | |
39 | #include <inttypes.h> | |
40 | #endif | |
41 | ||
42 | #include "simple-object-common.h" | |
43 | ||
44 | /* Mach-O structures and constants. */ | |
45 | ||
46 | /* Mach-O header (32-bit version). */ | |
47 | ||
48 | struct mach_o_header_32 | |
49 | { | |
50 | unsigned char magic[4]; /* Magic number. */ | |
51 | unsigned char cputype[4]; /* CPU that this object is for. */ | |
52 | unsigned char cpusubtype[4]; /* CPU subtype. */ | |
53 | unsigned char filetype[4]; /* Type of file. */ | |
54 | unsigned char ncmds[4]; /* Number of load commands. */ | |
55 | unsigned char sizeofcmds[4]; /* Total size of load commands. */ | |
56 | unsigned char flags[4]; /* Flags for special featues. */ | |
57 | }; | |
58 | ||
59 | /* Mach-O header (64-bit version). */ | |
60 | ||
61 | struct mach_o_header_64 | |
62 | { | |
63 | unsigned char magic[4]; /* Magic number. */ | |
64 | unsigned char cputype[4]; /* CPU that this object is for. */ | |
65 | unsigned char cpusubtype[4]; /* CPU subtype. */ | |
66 | unsigned char filetype[4]; /* Type of file. */ | |
67 | unsigned char ncmds[4]; /* Number of load commands. */ | |
68 | unsigned char sizeofcmds[4]; /* Total size of load commands. */ | |
69 | unsigned char flags[4]; /* Flags for special featues. */ | |
70 | unsigned char reserved[4]; /* Reserved. Duh. */ | |
71 | }; | |
72 | ||
73 | /* For magic field in header. */ | |
74 | ||
75 | #define MACH_O_MH_MAGIC 0xfeedface | |
76 | #define MACH_O_MH_MAGIC_64 0xfeedfacf | |
77 | ||
78 | /* For filetype field in header. */ | |
79 | ||
80 | #define MACH_O_MH_OBJECT 0x01 | |
81 | ||
82 | /* A Mach-O file is a list of load commands. This is the header of a | |
83 | load command. */ | |
84 | ||
85 | struct mach_o_load_command | |
86 | { | |
87 | unsigned char cmd[4]; /* The type of load command. */ | |
88 | unsigned char cmdsize[4]; /* Size in bytes of entire command. */ | |
89 | }; | |
90 | ||
91 | /* For cmd field in load command. */ | |
92 | ||
93 | #define MACH_O_LC_SEGMENT 0x01 | |
94 | #define MACH_O_LC_SEGMENT_64 0x19 | |
95 | ||
96 | /* LC_SEGMENT load command. */ | |
97 | ||
98 | struct mach_o_segment_command_32 | |
99 | { | |
100 | unsigned char cmd[4]; /* The type of load command (LC_SEGMENT). */ | |
101 | unsigned char cmdsize[4]; /* Size in bytes of entire command. */ | |
102 | unsigned char segname[16]; /* Name of this segment. */ | |
103 | unsigned char vmaddr[4]; /* Virtual memory address of this segment. */ | |
104 | unsigned char vmsize[4]; /* Size there, in bytes. */ | |
105 | unsigned char fileoff[4]; /* Offset in bytes of the data to be mapped. */ | |
106 | unsigned char filesize[4]; /* Size in bytes on disk. */ | |
107 | unsigned char maxprot[4]; /* Maximum permitted vmem protection. */ | |
108 | unsigned char initprot[4]; /* Initial vmem protection. */ | |
109 | unsigned char nsects[4]; /* Number of sections in this segment. */ | |
110 | unsigned char flags[4]; /* Flags that affect the loading. */ | |
111 | }; | |
112 | ||
113 | /* LC_SEGMENT_64 load command. */ | |
114 | ||
115 | struct mach_o_segment_command_64 | |
116 | { | |
117 | unsigned char cmd[4]; /* The type of load command (LC_SEGMENT_64). */ | |
118 | unsigned char cmdsize[4]; /* Size in bytes of entire command. */ | |
119 | unsigned char segname[16]; /* Name of this segment. */ | |
120 | unsigned char vmaddr[8]; /* Virtual memory address of this segment. */ | |
121 | unsigned char vmsize[8]; /* Size there, in bytes. */ | |
122 | unsigned char fileoff[8]; /* Offset in bytes of the data to be mapped. */ | |
123 | unsigned char filesize[8]; /* Size in bytes on disk. */ | |
124 | unsigned char maxprot[4]; /* Maximum permitted vmem protection. */ | |
125 | unsigned char initprot[4]; /* Initial vmem protection. */ | |
126 | unsigned char nsects[4]; /* Number of sections in this segment. */ | |
127 | unsigned char flags[4]; /* Flags that affect the loading. */ | |
128 | }; | |
129 | ||
130 | /* 32-bit section header. */ | |
131 | ||
132 | struct mach_o_section_32 | |
133 | { | |
134 | unsigned char sectname[16]; /* Section name. */ | |
135 | unsigned char segname[16]; /* Segment that the section belongs to. */ | |
136 | unsigned char addr[4]; /* Address of this section in memory. */ | |
137 | unsigned char size[4]; /* Size in bytes of this section. */ | |
138 | unsigned char offset[4]; /* File offset of this section. */ | |
139 | unsigned char align[4]; /* log2 of this section's alignment. */ | |
140 | unsigned char reloff[4]; /* File offset of this section's relocs. */ | |
141 | unsigned char nreloc[4]; /* Number of relocs for this section. */ | |
142 | unsigned char flags[4]; /* Section flags/attributes. */ | |
143 | unsigned char reserved1[4]; | |
144 | unsigned char reserved2[4]; | |
145 | }; | |
146 | ||
147 | /* 64-bit section header. */ | |
148 | ||
149 | struct mach_o_section_64 | |
150 | { | |
151 | unsigned char sectname[16]; /* Section name. */ | |
152 | unsigned char segname[16]; /* Segment that the section belongs to. */ | |
153 | unsigned char addr[8]; /* Address of this section in memory. */ | |
154 | unsigned char size[8]; /* Size in bytes of this section. */ | |
155 | unsigned char offset[4]; /* File offset of this section. */ | |
156 | unsigned char align[4]; /* log2 of this section's alignment. */ | |
157 | unsigned char reloff[4]; /* File offset of this section's relocs. */ | |
158 | unsigned char nreloc[4]; /* Number of relocs for this section. */ | |
159 | unsigned char flags[4]; /* Section flags/attributes. */ | |
160 | unsigned char reserved1[4]; | |
161 | unsigned char reserved2[4]; | |
162 | unsigned char reserved3[4]; | |
163 | }; | |
164 | ||
165 | /* Flags for Mach-O sections. */ | |
166 | ||
167 | #define MACH_O_S_ATTR_DEBUG 0x02000000 | |
168 | ||
169 | /* The length of a segment or section name. */ | |
170 | ||
171 | #define MACH_O_NAME_LEN (16) | |
172 | ||
173 | /* A GNU specific extension for long section names. */ | |
174 | ||
175 | #define GNU_SECTION_NAMES "__section_names" | |
176 | ||
b20577ea IS |
177 | /* A GNU-specific extension to wrap multiple sections using three |
178 | mach-o sections within a given segment. The section '__wrapper_sects' | |
179 | is subdivided according to the index '__wrapper_index' and each sub | |
180 | sect is named according to the names supplied in '__wrapper_names'. */ | |
181 | ||
182 | #define GNU_WRAPPER_SECTS "__wrapper_sects" | |
183 | #define GNU_WRAPPER_INDEX "__wrapper_index" | |
184 | #define GNU_WRAPPER_NAMES "__wrapper_names" | |
185 | ||
1cfabf34 ILT |
186 | /* Private data for an simple_object_read. */ |
187 | ||
188 | struct simple_object_mach_o_read | |
189 | { | |
190 | /* User specified segment name. */ | |
191 | char *segment_name; | |
192 | /* Magic number. */ | |
193 | unsigned int magic; | |
194 | /* Whether this file is big-endian. */ | |
195 | int is_big_endian; | |
196 | /* CPU type from header. */ | |
197 | unsigned int cputype; | |
198 | /* CPU subtype from header. */ | |
199 | unsigned int cpusubtype; | |
200 | /* Number of commands, from header. */ | |
201 | unsigned int ncmds; | |
202 | /* Flags from header. */ | |
203 | unsigned int flags; | |
204 | /* Reserved field from header, only used on 64-bit. */ | |
205 | unsigned int reserved; | |
206 | }; | |
207 | ||
208 | /* Private data for an simple_object_attributes. */ | |
209 | ||
210 | struct simple_object_mach_o_attributes | |
211 | { | |
212 | /* Magic number. */ | |
213 | unsigned int magic; | |
214 | /* Whether this file is big-endian. */ | |
215 | int is_big_endian; | |
216 | /* CPU type from header. */ | |
217 | unsigned int cputype; | |
218 | /* CPU subtype from header. */ | |
219 | unsigned int cpusubtype; | |
220 | /* Flags from header. */ | |
221 | unsigned int flags; | |
222 | /* Reserved field from header, only used on 64-bit. */ | |
223 | unsigned int reserved; | |
224 | }; | |
225 | ||
b20577ea IS |
226 | /* See if we have a Mach-O MH_OBJECT file: |
227 | ||
228 | A standard MH_OBJECT (from as) will have three load commands: | |
229 | 0 - LC_SEGMENT/LC_SEGMENT64 | |
230 | 1 - LC_SYMTAB | |
231 | 2 - LC_DYSYMTAB | |
232 | ||
233 | The LC_SEGMENT/LC_SEGMENT64 will introduce a single anonymous segment | |
234 | containing all the sections. | |
235 | ||
236 | Files written by simple-object will have only the segment command | |
237 | (no symbol tables). */ | |
1cfabf34 ILT |
238 | |
239 | static void * | |
240 | simple_object_mach_o_match ( | |
241 | unsigned char header[SIMPLE_OBJECT_MATCH_HEADER_LEN], | |
242 | int descriptor, | |
243 | off_t offset, | |
244 | const char *segment_name, | |
245 | const char **errmsg, | |
246 | int *err) | |
247 | { | |
248 | unsigned int magic; | |
249 | int is_big_endian; | |
250 | unsigned int (*fetch_32) (const unsigned char *); | |
251 | unsigned int filetype; | |
252 | struct simple_object_mach_o_read *omr; | |
253 | unsigned char buf[sizeof (struct mach_o_header_64)]; | |
254 | unsigned char *b; | |
255 | ||
256 | magic = simple_object_fetch_big_32 (header); | |
257 | if (magic == MACH_O_MH_MAGIC || magic == MACH_O_MH_MAGIC_64) | |
258 | is_big_endian = 1; | |
259 | else | |
260 | { | |
261 | magic = simple_object_fetch_little_32 (header); | |
262 | if (magic == MACH_O_MH_MAGIC || magic == MACH_O_MH_MAGIC_64) | |
263 | is_big_endian = 0; | |
264 | else | |
265 | { | |
266 | *errmsg = NULL; | |
267 | *err = 0; | |
268 | return NULL; | |
269 | } | |
270 | } | |
271 | ||
272 | #ifndef UNSIGNED_64BIT_TYPE | |
273 | if (magic == MACH_O_MH_MAGIC_64) | |
274 | { | |
275 | *errmsg = "64-bit Mach-O objects not supported"; | |
276 | *err = 0; | |
277 | return NULL; | |
278 | } | |
279 | #endif | |
280 | ||
281 | /* We require the user to provide a segment name. This is | |
282 | unfortunate but I don't see any good choices here. */ | |
283 | ||
284 | if (segment_name == NULL) | |
285 | { | |
286 | *errmsg = "Mach-O file found but no segment name specified"; | |
287 | *err = 0; | |
288 | return NULL; | |
289 | } | |
290 | ||
291 | if (strlen (segment_name) > MACH_O_NAME_LEN) | |
292 | { | |
293 | *errmsg = "Mach-O segment name too long"; | |
294 | *err = 0; | |
295 | return NULL; | |
296 | } | |
297 | ||
298 | /* The 32-bit and 64-bit headers are similar enough that we can use | |
299 | the same code. */ | |
300 | ||
301 | fetch_32 = (is_big_endian | |
302 | ? simple_object_fetch_big_32 | |
303 | : simple_object_fetch_little_32); | |
304 | ||
305 | if (!simple_object_internal_read (descriptor, offset, buf, | |
306 | (magic == MACH_O_MH_MAGIC | |
307 | ? sizeof (struct mach_o_header_32) | |
308 | : sizeof (struct mach_o_header_64)), | |
309 | errmsg, err)) | |
310 | return NULL; | |
311 | ||
312 | b = &buf[0]; | |
313 | ||
314 | filetype = (*fetch_32) (b + offsetof (struct mach_o_header_32, filetype)); | |
315 | if (filetype != MACH_O_MH_OBJECT) | |
316 | { | |
317 | *errmsg = "Mach-O file is not object file"; | |
318 | *err = 0; | |
319 | return NULL; | |
320 | } | |
321 | ||
322 | omr = XNEW (struct simple_object_mach_o_read); | |
323 | omr->segment_name = xstrdup (segment_name); | |
324 | omr->magic = magic; | |
325 | omr->is_big_endian = is_big_endian; | |
326 | omr->cputype = (*fetch_32) (b + offsetof (struct mach_o_header_32, cputype)); | |
327 | omr->cpusubtype = (*fetch_32) (b | |
328 | + offsetof (struct mach_o_header_32, | |
329 | cpusubtype)); | |
330 | omr->ncmds = (*fetch_32) (b + offsetof (struct mach_o_header_32, ncmds)); | |
331 | omr->flags = (*fetch_32) (b + offsetof (struct mach_o_header_32, flags)); | |
332 | if (magic == MACH_O_MH_MAGIC) | |
333 | omr->reserved = 0; | |
334 | else | |
335 | omr->reserved = (*fetch_32) (b | |
336 | + offsetof (struct mach_o_header_64, | |
337 | reserved)); | |
338 | ||
339 | return (void *) omr; | |
340 | } | |
341 | ||
342 | /* Get the file offset and size from a section header. */ | |
343 | ||
344 | static void | |
345 | simple_object_mach_o_section_info (int is_big_endian, int is_32, | |
346 | const unsigned char *sechdr, off_t *offset, | |
347 | size_t *size) | |
348 | { | |
349 | unsigned int (*fetch_32) (const unsigned char *); | |
350 | ulong_type (*fetch_64) (const unsigned char *); | |
351 | ||
352 | fetch_32 = (is_big_endian | |
353 | ? simple_object_fetch_big_32 | |
354 | : simple_object_fetch_little_32); | |
355 | ||
356 | fetch_64 = NULL; | |
357 | #ifdef UNSIGNED_64BIT_TYPE | |
358 | fetch_64 = (is_big_endian | |
359 | ? simple_object_fetch_big_64 | |
360 | : simple_object_fetch_little_64); | |
361 | #endif | |
362 | ||
363 | if (is_32) | |
364 | { | |
365 | *offset = fetch_32 (sechdr | |
366 | + offsetof (struct mach_o_section_32, offset)); | |
367 | *size = fetch_32 (sechdr | |
368 | + offsetof (struct mach_o_section_32, size)); | |
369 | } | |
370 | else | |
371 | { | |
372 | *offset = fetch_32 (sechdr | |
373 | + offsetof (struct mach_o_section_64, offset)); | |
374 | *size = fetch_64 (sechdr | |
375 | + offsetof (struct mach_o_section_64, size)); | |
376 | } | |
377 | } | |
378 | ||
b20577ea IS |
379 | /* Handle a segment in a Mach-O Object file. |
380 | ||
381 | This will callback to the function pfn for each "section found" the meaning | |
382 | of which depends on gnu extensions to mach-o: | |
383 | ||
384 | If we find mach-o sections (with the segment name as specified) which also | |
385 | contain: a 'sects' wrapper, an index, and a name table, we expand this into | |
386 | as many sections as are specified in the index. In this case, there will | |
387 | be a callback for each of these. | |
388 | ||
389 | We will also allow an extension that permits long names (more than 16 | |
390 | characters) to be used with mach-o. In this case, the section name has | |
391 | a specific format embedding an index into a name table, and the file must | |
392 | contain such name table. | |
393 | ||
394 | Return 1 if we should continue, 0 if the caller should return. */ | |
395 | ||
396 | #define SOMO_SECTS_PRESENT 0x01 | |
397 | #define SOMO_INDEX_PRESENT 0x02 | |
398 | #define SOMO_NAMES_PRESENT 0x04 | |
399 | #define SOMO_LONGN_PRESENT 0x08 | |
400 | #define SOMO_WRAPPING (SOMO_SECTS_PRESENT | SOMO_INDEX_PRESENT \ | |
401 | | SOMO_NAMES_PRESENT) | |
1cfabf34 ILT |
402 | |
403 | static int | |
404 | simple_object_mach_o_segment (simple_object_read *sobj, off_t offset, | |
405 | const unsigned char *segbuf, | |
406 | int (*pfn) (void *, const char *, off_t offset, | |
407 | off_t length), | |
408 | void *data, | |
409 | const char **errmsg, int *err) | |
410 | { | |
411 | struct simple_object_mach_o_read *omr = | |
412 | (struct simple_object_mach_o_read *) sobj->data; | |
413 | unsigned int (*fetch_32) (const unsigned char *); | |
414 | int is_32; | |
415 | size_t seghdrsize; | |
416 | size_t sechdrsize; | |
417 | size_t segname_offset; | |
418 | size_t sectname_offset; | |
419 | unsigned int nsects; | |
420 | unsigned char *secdata; | |
421 | unsigned int i; | |
b20577ea | 422 | unsigned int gnu_sections_found; |
1cfabf34 | 423 | unsigned int strtab_index; |
b20577ea IS |
424 | unsigned int index_index; |
425 | unsigned int nametab_index; | |
426 | unsigned int sections_index; | |
1cfabf34 | 427 | char *strtab; |
b20577ea IS |
428 | char *nametab; |
429 | unsigned char *index; | |
1cfabf34 | 430 | size_t strtab_size; |
b20577ea IS |
431 | size_t nametab_size; |
432 | size_t index_size; | |
433 | unsigned int n_wrapped_sects; | |
434 | size_t wrapper_sect_size; | |
233fa360 | 435 | off_t wrapper_sect_offset = 0; |
1cfabf34 ILT |
436 | |
437 | fetch_32 = (omr->is_big_endian | |
438 | ? simple_object_fetch_big_32 | |
439 | : simple_object_fetch_little_32); | |
440 | ||
441 | is_32 = omr->magic == MACH_O_MH_MAGIC; | |
442 | ||
443 | if (is_32) | |
444 | { | |
445 | seghdrsize = sizeof (struct mach_o_segment_command_32); | |
446 | sechdrsize = sizeof (struct mach_o_section_32); | |
447 | segname_offset = offsetof (struct mach_o_section_32, segname); | |
448 | sectname_offset = offsetof (struct mach_o_section_32, sectname); | |
449 | nsects = (*fetch_32) (segbuf | |
450 | + offsetof (struct mach_o_segment_command_32, | |
451 | nsects)); | |
452 | } | |
453 | else | |
454 | { | |
455 | seghdrsize = sizeof (struct mach_o_segment_command_64); | |
456 | sechdrsize = sizeof (struct mach_o_section_64); | |
457 | segname_offset = offsetof (struct mach_o_section_64, segname); | |
458 | sectname_offset = offsetof (struct mach_o_section_64, sectname); | |
459 | nsects = (*fetch_32) (segbuf | |
460 | + offsetof (struct mach_o_segment_command_64, | |
461 | nsects)); | |
462 | } | |
463 | ||
b20577ea IS |
464 | /* Fetch the section headers from the segment command. */ |
465 | ||
1cfabf34 ILT |
466 | secdata = XNEWVEC (unsigned char, nsects * sechdrsize); |
467 | if (!simple_object_internal_read (sobj->descriptor, offset + seghdrsize, | |
468 | secdata, nsects * sechdrsize, errmsg, err)) | |
469 | { | |
470 | XDELETEVEC (secdata); | |
471 | return 0; | |
472 | } | |
473 | ||
b20577ea | 474 | /* Scan for special sections that signal GNU extensions to the format. */ |
1cfabf34 | 475 | |
b20577ea IS |
476 | gnu_sections_found = 0; |
477 | index_index = nsects; | |
478 | sections_index = nsects; | |
479 | strtab_index = nsects; | |
480 | nametab_index = nsects; | |
1cfabf34 ILT |
481 | for (i = 0; i < nsects; ++i) |
482 | { | |
483 | size_t nameoff; | |
484 | ||
485 | nameoff = i * sechdrsize + segname_offset; | |
486 | if (strcmp ((char *) secdata + nameoff, omr->segment_name) != 0) | |
487 | continue; | |
b20577ea | 488 | |
1cfabf34 | 489 | nameoff = i * sechdrsize + sectname_offset; |
b20577ea IS |
490 | if (strcmp ((char *) secdata + nameoff, GNU_WRAPPER_NAMES) == 0) |
491 | { | |
492 | nametab_index = i; | |
493 | gnu_sections_found |= SOMO_NAMES_PRESENT; | |
494 | } | |
495 | else if (strcmp ((char *) secdata + nameoff, GNU_WRAPPER_INDEX) == 0) | |
496 | { | |
497 | index_index = i; | |
498 | gnu_sections_found |= SOMO_INDEX_PRESENT; | |
499 | } | |
500 | else if (strcmp ((char *) secdata + nameoff, GNU_WRAPPER_SECTS) == 0) | |
501 | { | |
502 | sections_index = i; | |
503 | gnu_sections_found |= SOMO_SECTS_PRESENT; | |
504 | } | |
505 | else if (strcmp ((char *) secdata + nameoff, GNU_SECTION_NAMES) == 0) | |
506 | { | |
507 | strtab_index = i; | |
508 | gnu_sections_found |= SOMO_LONGN_PRESENT; | |
509 | } | |
1cfabf34 ILT |
510 | } |
511 | ||
b20577ea IS |
512 | /* If any of the special wrapper section components is present, then |
513 | they all should be. */ | |
514 | ||
515 | if ((gnu_sections_found & SOMO_WRAPPING) != 0) | |
1cfabf34 | 516 | { |
b20577ea IS |
517 | off_t nametab_offset; |
518 | off_t index_offset; | |
519 | ||
520 | if ((gnu_sections_found & SOMO_WRAPPING) != SOMO_WRAPPING) | |
521 | { | |
522 | *errmsg = "GNU Mach-o section wrapper: required section missing"; | |
523 | *err = 0; /* No useful errno. */ | |
524 | XDELETEVEC (secdata); | |
525 | return 0; | |
526 | } | |
527 | ||
528 | /* Fetch the name table. */ | |
529 | ||
530 | simple_object_mach_o_section_info (omr->is_big_endian, is_32, | |
531 | secdata + nametab_index * sechdrsize, | |
532 | &nametab_offset, &nametab_size); | |
533 | nametab = XNEWVEC (char, nametab_size); | |
534 | if (!simple_object_internal_read (sobj->descriptor, | |
535 | sobj->offset + nametab_offset, | |
536 | (unsigned char *) nametab, nametab_size, | |
537 | errmsg, err)) | |
538 | { | |
539 | XDELETEVEC (nametab); | |
540 | XDELETEVEC (secdata); | |
541 | return 0; | |
542 | } | |
543 | ||
544 | /* Fetch the index. */ | |
545 | ||
546 | simple_object_mach_o_section_info (omr->is_big_endian, is_32, | |
547 | secdata + index_index * sechdrsize, | |
548 | &index_offset, &index_size); | |
549 | index = XNEWVEC (unsigned char, index_size); | |
550 | if (!simple_object_internal_read (sobj->descriptor, | |
551 | sobj->offset + index_offset, | |
552 | index, index_size, | |
553 | errmsg, err)) | |
554 | { | |
555 | XDELETEVEC (index); | |
556 | XDELETEVEC (nametab); | |
557 | XDELETEVEC (secdata); | |
558 | return 0; | |
559 | } | |
560 | ||
561 | /* The index contains 4 unsigned ints per sub-section: | |
562 | sub-section offset/length, sub-section name/length. | |
563 | We fix this for both 32 and 64 bit mach-o for now, since | |
564 | other fields limit the maximum size of an object to 4G. */ | |
565 | n_wrapped_sects = index_size / 16; | |
566 | ||
567 | /* Get the parameters for the wrapper too. */ | |
568 | simple_object_mach_o_section_info (omr->is_big_endian, is_32, | |
569 | secdata + sections_index * sechdrsize, | |
570 | &wrapper_sect_offset, | |
571 | &wrapper_sect_size); | |
1cfabf34 ILT |
572 | } |
573 | else | |
b20577ea IS |
574 | { |
575 | index = NULL; | |
576 | index_size = 0; | |
577 | nametab = NULL; | |
578 | nametab_size = 0; | |
579 | n_wrapped_sects = 0; | |
580 | } | |
581 | ||
582 | /* If we have a long names section, fetch it. */ | |
583 | ||
584 | if ((gnu_sections_found & SOMO_LONGN_PRESENT) != 0) | |
1cfabf34 ILT |
585 | { |
586 | off_t strtab_offset; | |
587 | ||
588 | simple_object_mach_o_section_info (omr->is_big_endian, is_32, | |
589 | secdata + strtab_index * sechdrsize, | |
590 | &strtab_offset, &strtab_size); | |
591 | strtab = XNEWVEC (char, strtab_size); | |
592 | if (!simple_object_internal_read (sobj->descriptor, | |
593 | sobj->offset + strtab_offset, | |
594 | (unsigned char *) strtab, strtab_size, | |
595 | errmsg, err)) | |
596 | { | |
597 | XDELETEVEC (strtab); | |
b20577ea IS |
598 | XDELETEVEC (index); |
599 | XDELETEVEC (nametab); | |
1cfabf34 ILT |
600 | XDELETEVEC (secdata); |
601 | return 0; | |
602 | } | |
603 | } | |
b20577ea IS |
604 | else |
605 | { | |
606 | strtab = NULL; | |
607 | strtab_size = 0; | |
608 | strtab_index = nsects; | |
609 | } | |
1cfabf34 ILT |
610 | |
611 | /* Process the sections. */ | |
612 | ||
613 | for (i = 0; i < nsects; ++i) | |
614 | { | |
615 | const unsigned char *sechdr; | |
b20577ea | 616 | char namebuf[MACH_O_NAME_LEN * 2 + 2]; |
1cfabf34 ILT |
617 | char *name; |
618 | off_t secoffset; | |
619 | size_t secsize; | |
b20577ea | 620 | int l; |
1cfabf34 | 621 | |
b20577ea IS |
622 | sechdr = secdata + i * sechdrsize; |
623 | ||
624 | /* We've already processed the long section names. */ | |
625 | ||
626 | if ((gnu_sections_found & SOMO_LONGN_PRESENT) != 0 | |
627 | && i == strtab_index) | |
1cfabf34 ILT |
628 | continue; |
629 | ||
b20577ea | 630 | /* We only act on the segment named. */ |
1cfabf34 ILT |
631 | |
632 | if (strcmp ((char *) sechdr + segname_offset, omr->segment_name) != 0) | |
633 | continue; | |
634 | ||
b20577ea | 635 | /* Process sections associated with the wrapper. */ |
1cfabf34 | 636 | |
b20577ea | 637 | if ((gnu_sections_found & SOMO_WRAPPING) != 0) |
1cfabf34 | 638 | { |
b20577ea IS |
639 | if (i == nametab_index || i == index_index) |
640 | continue; | |
1cfabf34 | 641 | |
b20577ea | 642 | if (i == sections_index) |
1cfabf34 | 643 | { |
b20577ea IS |
644 | unsigned int j; |
645 | for (j = 0; j < n_wrapped_sects; ++j) | |
1cfabf34 | 646 | { |
b20577ea IS |
647 | unsigned int subsect_offset, subsect_length, name_offset; |
648 | subsect_offset = (*fetch_32) (index + 16 * j); | |
649 | subsect_length = (*fetch_32) (index + 16 * j + 4); | |
650 | name_offset = (*fetch_32) (index + 16 * j + 8); | |
651 | /* We don't need the name_length yet. */ | |
652 | ||
653 | secoffset = wrapper_sect_offset + subsect_offset; | |
654 | secsize = subsect_length; | |
655 | name = nametab + name_offset; | |
656 | ||
657 | if (!(*pfn) (data, name, secoffset, secsize)) | |
658 | { | |
659 | *errmsg = NULL; | |
660 | *err = 0; | |
661 | XDELETEVEC (index); | |
662 | XDELETEVEC (nametab); | |
663 | XDELETEVEC (strtab); | |
664 | XDELETEVEC (secdata); | |
665 | return 0; | |
666 | } | |
1cfabf34 | 667 | } |
b20577ea | 668 | continue; |
1cfabf34 ILT |
669 | } |
670 | } | |
671 | ||
b20577ea IS |
672 | if ((gnu_sections_found & SOMO_LONGN_PRESENT) != 0) |
673 | { | |
674 | memcpy (namebuf, sechdr + sectname_offset, MACH_O_NAME_LEN); | |
675 | namebuf[MACH_O_NAME_LEN] = '\0'; | |
676 | ||
677 | name = &namebuf[0]; | |
678 | if (strtab != NULL && name[0] == '_' && name[1] == '_') | |
679 | { | |
680 | unsigned long stringoffset; | |
681 | ||
682 | if (sscanf (name + 2, "%08lX", &stringoffset) == 1) | |
683 | { | |
684 | if (stringoffset >= strtab_size) | |
685 | { | |
686 | *errmsg = "section name offset out of range"; | |
687 | *err = 0; | |
688 | XDELETEVEC (index); | |
689 | XDELETEVEC (nametab); | |
690 | XDELETEVEC (strtab); | |
691 | XDELETEVEC (secdata); | |
692 | return 0; | |
693 | } | |
694 | ||
695 | name = strtab + stringoffset; | |
696 | } | |
697 | } | |
698 | } | |
699 | else | |
700 | { | |
701 | /* Otherwise, make a name like __segment,__section as per the | |
702 | convention in mach-o asm. */ | |
703 | name = &namebuf[0]; | |
b20577ea | 704 | memcpy (namebuf, (char *) sechdr + segname_offset, MACH_O_NAME_LEN); |
ad8c59a1 | 705 | namebuf[MACH_O_NAME_LEN] = '\0'; |
b20577ea IS |
706 | l = strlen (namebuf); |
707 | namebuf[l] = ','; | |
708 | memcpy (namebuf + l + 1, (char *) sechdr + sectname_offset, | |
709 | MACH_O_NAME_LEN); | |
ad8c59a1 | 710 | namebuf[l + 1 + MACH_O_NAME_LEN] = '\0'; |
b20577ea IS |
711 | } |
712 | ||
1cfabf34 ILT |
713 | simple_object_mach_o_section_info (omr->is_big_endian, is_32, sechdr, |
714 | &secoffset, &secsize); | |
715 | ||
716 | if (!(*pfn) (data, name, secoffset, secsize)) | |
717 | { | |
718 | *errmsg = NULL; | |
719 | *err = 0; | |
b20577ea IS |
720 | XDELETEVEC (index); |
721 | XDELETEVEC (nametab); | |
1cfabf34 ILT |
722 | XDELETEVEC (strtab); |
723 | XDELETEVEC (secdata); | |
724 | return 0; | |
725 | } | |
726 | } | |
727 | ||
b20577ea IS |
728 | XDELETEVEC (index); |
729 | XDELETEVEC (nametab); | |
1cfabf34 ILT |
730 | XDELETEVEC (strtab); |
731 | XDELETEVEC (secdata); | |
732 | ||
733 | return 1; | |
734 | } | |
735 | ||
736 | /* Find all sections in a Mach-O file. */ | |
737 | ||
738 | static const char * | |
739 | simple_object_mach_o_find_sections (simple_object_read *sobj, | |
740 | int (*pfn) (void *, const char *, | |
741 | off_t offset, off_t length), | |
742 | void *data, | |
743 | int *err) | |
744 | { | |
745 | struct simple_object_mach_o_read *omr = | |
746 | (struct simple_object_mach_o_read *) sobj->data; | |
747 | off_t offset; | |
748 | size_t seghdrsize; | |
749 | unsigned int (*fetch_32) (const unsigned char *); | |
750 | const char *errmsg; | |
751 | unsigned int i; | |
752 | ||
753 | if (omr->magic == MACH_O_MH_MAGIC) | |
754 | { | |
755 | offset = sizeof (struct mach_o_header_32); | |
756 | seghdrsize = sizeof (struct mach_o_segment_command_32); | |
757 | } | |
758 | else | |
759 | { | |
760 | offset = sizeof (struct mach_o_header_64); | |
761 | seghdrsize = sizeof (struct mach_o_segment_command_64); | |
762 | } | |
763 | ||
764 | fetch_32 = (omr->is_big_endian | |
765 | ? simple_object_fetch_big_32 | |
766 | : simple_object_fetch_little_32); | |
767 | ||
768 | for (i = 0; i < omr->ncmds; ++i) | |
769 | { | |
770 | unsigned char loadbuf[sizeof (struct mach_o_load_command)]; | |
771 | unsigned int cmd; | |
772 | unsigned int cmdsize; | |
773 | ||
774 | if (!simple_object_internal_read (sobj->descriptor, | |
775 | sobj->offset + offset, | |
776 | loadbuf, | |
777 | sizeof (struct mach_o_load_command), | |
778 | &errmsg, err)) | |
779 | return errmsg; | |
780 | ||
781 | cmd = (*fetch_32) (loadbuf + offsetof (struct mach_o_load_command, cmd)); | |
782 | cmdsize = (*fetch_32) (loadbuf | |
783 | + offsetof (struct mach_o_load_command, cmdsize)); | |
784 | ||
785 | if (cmd == MACH_O_LC_SEGMENT || cmd == MACH_O_LC_SEGMENT_64) | |
786 | { | |
787 | unsigned char segbuf[sizeof (struct mach_o_segment_command_64)]; | |
788 | int r; | |
789 | ||
790 | if (!simple_object_internal_read (sobj->descriptor, | |
791 | sobj->offset + offset, | |
792 | segbuf, seghdrsize, &errmsg, err)) | |
793 | return errmsg; | |
794 | ||
795 | r = simple_object_mach_o_segment (sobj, offset, segbuf, pfn, | |
796 | data, &errmsg, err); | |
797 | if (!r) | |
798 | return errmsg; | |
799 | } | |
800 | ||
801 | offset += cmdsize; | |
802 | } | |
803 | ||
804 | return NULL; | |
805 | } | |
806 | ||
807 | /* Fetch the attributes for an simple_object_read. */ | |
808 | ||
809 | static void * | |
810 | simple_object_mach_o_fetch_attributes (simple_object_read *sobj, | |
811 | const char **errmsg ATTRIBUTE_UNUSED, | |
812 | int *err ATTRIBUTE_UNUSED) | |
813 | { | |
814 | struct simple_object_mach_o_read *omr = | |
815 | (struct simple_object_mach_o_read *) sobj->data; | |
816 | struct simple_object_mach_o_attributes *ret; | |
817 | ||
818 | ret = XNEW (struct simple_object_mach_o_attributes); | |
819 | ret->magic = omr->magic; | |
820 | ret->is_big_endian = omr->is_big_endian; | |
821 | ret->cputype = omr->cputype; | |
822 | ret->cpusubtype = omr->cpusubtype; | |
823 | ret->flags = omr->flags; | |
824 | ret->reserved = omr->reserved; | |
825 | return ret; | |
826 | } | |
827 | ||
828 | /* Release the private data for an simple_object_read. */ | |
829 | ||
830 | static void | |
831 | simple_object_mach_o_release_read (void *data) | |
832 | { | |
833 | struct simple_object_mach_o_read *omr = | |
834 | (struct simple_object_mach_o_read *) data; | |
835 | ||
836 | free (omr->segment_name); | |
837 | XDELETE (omr); | |
838 | } | |
839 | ||
840 | /* Compare two attributes structures. */ | |
841 | ||
842 | static const char * | |
d82f74d3 | 843 | simple_object_mach_o_attributes_merge (void *todata, void *fromdata, int *err) |
1cfabf34 | 844 | { |
d82f74d3 ILT |
845 | struct simple_object_mach_o_attributes *to = |
846 | (struct simple_object_mach_o_attributes *) todata; | |
847 | struct simple_object_mach_o_attributes *from = | |
848 | (struct simple_object_mach_o_attributes *) fromdata; | |
849 | ||
850 | if (to->magic != from->magic | |
851 | || to->is_big_endian != from->is_big_endian | |
852 | || to->cputype != from->cputype) | |
1cfabf34 ILT |
853 | { |
854 | *err = 0; | |
855 | return "Mach-O object format mismatch"; | |
856 | } | |
857 | return NULL; | |
858 | } | |
859 | ||
860 | /* Release the private data for an attributes structure. */ | |
861 | ||
862 | static void | |
863 | simple_object_mach_o_release_attributes (void *data) | |
864 | { | |
865 | XDELETE (data); | |
866 | } | |
867 | ||
868 | /* Prepare to write out a file. */ | |
869 | ||
870 | static void * | |
871 | simple_object_mach_o_start_write (void *attributes_data, | |
872 | const char **errmsg ATTRIBUTE_UNUSED, | |
873 | int *err ATTRIBUTE_UNUSED) | |
874 | { | |
875 | struct simple_object_mach_o_attributes *attrs = | |
876 | (struct simple_object_mach_o_attributes *) attributes_data; | |
877 | struct simple_object_mach_o_attributes *ret; | |
878 | ||
879 | /* We're just going to record the attributes, but we need to make a | |
880 | copy because the user may delete them. */ | |
881 | ret = XNEW (struct simple_object_mach_o_attributes); | |
882 | *ret = *attrs; | |
883 | return ret; | |
884 | } | |
885 | ||
886 | /* Write out the header of a Mach-O file. */ | |
887 | ||
888 | static int | |
889 | simple_object_mach_o_write_header (simple_object_write *sobj, int descriptor, | |
890 | size_t nsects, const char **errmsg, | |
891 | int *err) | |
892 | { | |
893 | struct simple_object_mach_o_attributes *attrs = | |
894 | (struct simple_object_mach_o_attributes *) sobj->data; | |
895 | void (*set_32) (unsigned char *, unsigned int); | |
896 | unsigned char hdrbuf[sizeof (struct mach_o_header_64)]; | |
897 | unsigned char *hdr; | |
898 | size_t wrsize; | |
899 | ||
900 | set_32 = (attrs->is_big_endian | |
901 | ? simple_object_set_big_32 | |
902 | : simple_object_set_little_32); | |
903 | ||
904 | memset (hdrbuf, 0, sizeof hdrbuf); | |
905 | ||
906 | /* The 32-bit and 64-bit headers start out the same. */ | |
907 | ||
908 | hdr = &hdrbuf[0]; | |
909 | set_32 (hdr + offsetof (struct mach_o_header_32, magic), attrs->magic); | |
910 | set_32 (hdr + offsetof (struct mach_o_header_32, cputype), attrs->cputype); | |
911 | set_32 (hdr + offsetof (struct mach_o_header_32, cpusubtype), | |
912 | attrs->cpusubtype); | |
913 | set_32 (hdr + offsetof (struct mach_o_header_32, filetype), MACH_O_MH_OBJECT); | |
914 | set_32 (hdr + offsetof (struct mach_o_header_32, ncmds), 1); | |
915 | set_32 (hdr + offsetof (struct mach_o_header_32, flags), attrs->flags); | |
916 | if (attrs->magic == MACH_O_MH_MAGIC) | |
917 | { | |
918 | wrsize = sizeof (struct mach_o_header_32); | |
919 | set_32 (hdr + offsetof (struct mach_o_header_32, sizeofcmds), | |
920 | (sizeof (struct mach_o_segment_command_32) | |
921 | + nsects * sizeof (struct mach_o_section_32))); | |
922 | } | |
923 | else | |
924 | { | |
925 | set_32 (hdr + offsetof (struct mach_o_header_64, sizeofcmds), | |
926 | (sizeof (struct mach_o_segment_command_64) | |
927 | + nsects * sizeof (struct mach_o_section_64))); | |
928 | set_32 (hdr + offsetof (struct mach_o_header_64, reserved), | |
929 | attrs->reserved); | |
930 | wrsize = sizeof (struct mach_o_header_64); | |
931 | } | |
932 | ||
933 | return simple_object_internal_write (descriptor, 0, hdrbuf, wrsize, | |
934 | errmsg, err); | |
935 | } | |
936 | ||
937 | /* Write a Mach-O section header. */ | |
938 | ||
939 | static int | |
940 | simple_object_mach_o_write_section_header (simple_object_write *sobj, | |
941 | int descriptor, | |
942 | size_t sechdr_offset, | |
b20577ea IS |
943 | const char *name, const char *segn, |
944 | size_t secaddr, size_t secsize, | |
945 | size_t offset, unsigned int align, | |
1cfabf34 ILT |
946 | const char **errmsg, int *err) |
947 | { | |
948 | struct simple_object_mach_o_attributes *attrs = | |
949 | (struct simple_object_mach_o_attributes *) sobj->data; | |
950 | void (*set_32) (unsigned char *, unsigned int); | |
951 | unsigned char hdrbuf[sizeof (struct mach_o_section_64)]; | |
952 | unsigned char *hdr; | |
953 | size_t sechdrsize; | |
954 | ||
955 | set_32 = (attrs->is_big_endian | |
956 | ? simple_object_set_big_32 | |
957 | : simple_object_set_little_32); | |
958 | ||
959 | memset (hdrbuf, 0, sizeof hdrbuf); | |
960 | ||
961 | hdr = &hdrbuf[0]; | |
962 | if (attrs->magic == MACH_O_MH_MAGIC) | |
963 | { | |
964 | strncpy ((char *) hdr + offsetof (struct mach_o_section_32, sectname), | |
965 | name, MACH_O_NAME_LEN); | |
966 | strncpy ((char *) hdr + offsetof (struct mach_o_section_32, segname), | |
b20577ea | 967 | segn, MACH_O_NAME_LEN); |
1cfabf34 ILT |
968 | set_32 (hdr + offsetof (struct mach_o_section_32, addr), secaddr); |
969 | set_32 (hdr + offsetof (struct mach_o_section_32, size), secsize); | |
970 | set_32 (hdr + offsetof (struct mach_o_section_32, offset), offset); | |
971 | set_32 (hdr + offsetof (struct mach_o_section_32, align), align); | |
972 | /* reloff left as zero. */ | |
973 | /* nreloc left as zero. */ | |
974 | set_32 (hdr + offsetof (struct mach_o_section_32, flags), | |
975 | MACH_O_S_ATTR_DEBUG); | |
976 | /* reserved1 left as zero. */ | |
977 | /* reserved2 left as zero. */ | |
978 | sechdrsize = sizeof (struct mach_o_section_32); | |
979 | } | |
980 | else | |
981 | { | |
982 | #ifdef UNSIGNED_64BIT_TYPE | |
983 | void (*set_64) (unsigned char *, ulong_type); | |
984 | ||
985 | set_64 = (attrs->is_big_endian | |
986 | ? simple_object_set_big_64 | |
987 | : simple_object_set_little_64); | |
988 | ||
989 | strncpy ((char *) hdr + offsetof (struct mach_o_section_64, sectname), | |
990 | name, MACH_O_NAME_LEN); | |
991 | strncpy ((char *) hdr + offsetof (struct mach_o_section_64, segname), | |
b20577ea | 992 | segn, MACH_O_NAME_LEN); |
1cfabf34 ILT |
993 | set_64 (hdr + offsetof (struct mach_o_section_64, addr), secaddr); |
994 | set_64 (hdr + offsetof (struct mach_o_section_64, size), secsize); | |
995 | set_32 (hdr + offsetof (struct mach_o_section_64, offset), offset); | |
996 | set_32 (hdr + offsetof (struct mach_o_section_64, align), align); | |
997 | /* reloff left as zero. */ | |
998 | /* nreloc left as zero. */ | |
999 | set_32 (hdr + offsetof (struct mach_o_section_64, flags), | |
1000 | MACH_O_S_ATTR_DEBUG); | |
1001 | /* reserved1 left as zero. */ | |
1002 | /* reserved2 left as zero. */ | |
1003 | /* reserved3 left as zero. */ | |
1004 | #endif | |
1005 | sechdrsize = sizeof (struct mach_o_section_64); | |
1006 | } | |
1007 | ||
1008 | return simple_object_internal_write (descriptor, sechdr_offset, hdr, | |
1009 | sechdrsize, errmsg, err); | |
1010 | } | |
1011 | ||
b20577ea IS |
1012 | /* Write out the single (anonymous) segment containing the sections of a Mach-O |
1013 | Object file. | |
1014 | ||
1015 | As a GNU extension to mach-o, when the caller specifies a segment name in | |
1016 | sobj->segment_name, all the sections passed will be output under a single | |
1017 | mach-o section header. The caller's sections are indexed within this | |
1018 | 'wrapper' section by a table stored in a second mach-o section. Finally, | |
1019 | arbitrary length section names are permitted by the extension and these are | |
1020 | stored in a table in a third mach-o section. | |
1021 | ||
1022 | Note that this is only likely to make any sense for the __GNU_LTO segment | |
1023 | at present. | |
1024 | ||
1025 | If the wrapper extension is not in force, we assume that the section name | |
1026 | is in the form __SEGMENT_NAME,__section_name as per Mach-O asm. */ | |
1cfabf34 ILT |
1027 | |
1028 | static int | |
1029 | simple_object_mach_o_write_segment (simple_object_write *sobj, int descriptor, | |
b20577ea | 1030 | size_t *nsects, const char **errmsg, |
1cfabf34 ILT |
1031 | int *err) |
1032 | { | |
1033 | struct simple_object_mach_o_attributes *attrs = | |
1034 | (struct simple_object_mach_o_attributes *) sobj->data; | |
1035 | void (*set_32) (unsigned char *, unsigned int); | |
1036 | size_t hdrsize; | |
1037 | size_t seghdrsize; | |
1038 | size_t sechdrsize; | |
1039 | size_t cmdsize; | |
1040 | size_t offset; | |
1041 | size_t sechdr_offset; | |
1042 | size_t secaddr; | |
1043 | unsigned int name_offset; | |
1044 | simple_object_write_section *section; | |
1045 | unsigned char hdrbuf[sizeof (struct mach_o_segment_command_64)]; | |
1046 | unsigned char *hdr; | |
b20577ea IS |
1047 | size_t nsects_in; |
1048 | unsigned int *index; | |
1049 | char *snames; | |
1050 | unsigned int sect; | |
1cfabf34 ILT |
1051 | |
1052 | set_32 = (attrs->is_big_endian | |
1053 | ? simple_object_set_big_32 | |
1054 | : simple_object_set_little_32); | |
1055 | ||
1056 | /* Write out the sections first. */ | |
1057 | ||
1058 | if (attrs->magic == MACH_O_MH_MAGIC) | |
1059 | { | |
1060 | hdrsize = sizeof (struct mach_o_header_32); | |
1061 | seghdrsize = sizeof (struct mach_o_segment_command_32); | |
1062 | sechdrsize = sizeof (struct mach_o_section_32); | |
1063 | } | |
1064 | else | |
1065 | { | |
1066 | hdrsize = sizeof (struct mach_o_header_64); | |
1067 | seghdrsize = sizeof (struct mach_o_segment_command_64); | |
1068 | sechdrsize = sizeof (struct mach_o_section_64); | |
1069 | } | |
1070 | ||
b20577ea IS |
1071 | name_offset = 0; |
1072 | *nsects = nsects_in = 0; | |
1073 | ||
1074 | /* Count the number of sections we start with. */ | |
1075 | ||
1076 | for (section = sobj->sections; section != NULL; section = section->next) | |
1077 | nsects_in++; | |
1078 | ||
1079 | if (sobj->segment_name != NULL) | |
1080 | { | |
1081 | /* We will only write 3 sections: wrapped data, index and names. */ | |
1082 | ||
1083 | *nsects = 3; | |
1084 | ||
1085 | /* The index has four entries per wrapped section: | |
1086 | Section Offset, length, Name offset, length. | |
1087 | Where the offsets are based at the start of the wrapper and name | |
1088 | sections respectively. | |
1089 | The values are stored as 32 bit int for both 32 and 64 bit mach-o | |
1090 | since the size of a mach-o MH_OBJECT cannot exceed 4G owing to | |
1091 | other constraints. */ | |
1092 | ||
1093 | index = XNEWVEC (unsigned int, nsects_in * 4); | |
1094 | ||
1095 | /* We now need to figure out the size of the names section. This just | |
1096 | stores the names as null-terminated c strings, packed without any | |
1097 | alignment padding. */ | |
1098 | ||
1099 | for (section = sobj->sections, sect = 0; section != NULL; | |
1100 | section = section->next, sect++) | |
1101 | { | |
1102 | index[sect*4+2] = name_offset; | |
1103 | index[sect*4+3] = strlen (section->name) + 1; | |
1104 | name_offset += strlen (section->name) + 1; | |
1105 | } | |
1106 | snames = XNEWVEC (char, name_offset); | |
1107 | } | |
1108 | else | |
1109 | { | |
1110 | *nsects = nsects_in; | |
1111 | index = NULL; | |
1112 | snames = NULL; | |
1113 | } | |
1114 | ||
1cfabf34 | 1115 | sechdr_offset = hdrsize + seghdrsize; |
b20577ea | 1116 | cmdsize = seghdrsize + *nsects * sechdrsize; |
1cfabf34 | 1117 | offset = hdrsize + cmdsize; |
1cfabf34 ILT |
1118 | secaddr = 0; |
1119 | ||
b20577ea IS |
1120 | for (section = sobj->sections, sect = 0; |
1121 | section != NULL; section = section->next, sect++) | |
1cfabf34 ILT |
1122 | { |
1123 | size_t mask; | |
1124 | size_t new_offset; | |
1125 | size_t secsize; | |
1126 | struct simple_object_write_section_buffer *buffer; | |
1cfabf34 ILT |
1127 | |
1128 | mask = (1U << section->align) - 1; | |
1129 | new_offset = offset + mask; | |
1130 | new_offset &= ~ mask; | |
1131 | while (new_offset > offset) | |
1132 | { | |
1133 | unsigned char zeroes[16]; | |
1134 | size_t write; | |
1135 | ||
1136 | memset (zeroes, 0, sizeof zeroes); | |
1137 | write = new_offset - offset; | |
1138 | if (write > sizeof zeroes) | |
1139 | write = sizeof zeroes; | |
1140 | if (!simple_object_internal_write (descriptor, offset, zeroes, write, | |
1141 | errmsg, err)) | |
1142 | return 0; | |
1143 | offset += write; | |
1144 | } | |
1145 | ||
1146 | secsize = 0; | |
1147 | for (buffer = section->buffers; buffer != NULL; buffer = buffer->next) | |
1148 | { | |
1149 | if (!simple_object_internal_write (descriptor, offset + secsize, | |
1150 | ((const unsigned char *) | |
1151 | buffer->buffer), | |
1152 | buffer->size, errmsg, err)) | |
1153 | return 0; | |
1154 | secsize += buffer->size; | |
1155 | } | |
1156 | ||
b20577ea IS |
1157 | if (sobj->segment_name != NULL) |
1158 | { | |
1159 | index[sect*4+0] = (unsigned int) offset; | |
1160 | index[sect*4+1] = secsize; | |
1161 | /* Stash the section name in our table. */ | |
1162 | memcpy (snames + index[sect * 4 + 2], section->name, | |
1163 | index[sect * 4 + 3]); | |
1164 | } | |
1165 | else | |
1166 | { | |
1167 | char namebuf[MACH_O_NAME_LEN + 1]; | |
1168 | char segnbuf[MACH_O_NAME_LEN + 1]; | |
1169 | char *comma; | |
1170 | ||
1171 | /* Try to extract segment,section from the input name. */ | |
1172 | ||
1173 | memset (namebuf, 0, sizeof namebuf); | |
1174 | memset (segnbuf, 0, sizeof segnbuf); | |
1175 | comma = strchr (section->name, ','); | |
1176 | if (comma != NULL) | |
1177 | { | |
1178 | int len = comma - section->name; | |
1179 | len = len > MACH_O_NAME_LEN ? MACH_O_NAME_LEN : len; | |
1180 | strncpy (namebuf, section->name, len); | |
1181 | strncpy (segnbuf, comma + 1, MACH_O_NAME_LEN); | |
1182 | } | |
1183 | else /* just try to copy the name, leave segment blank. */ | |
1184 | strncpy (namebuf, section->name, MACH_O_NAME_LEN); | |
1185 | ||
1186 | if (!simple_object_mach_o_write_section_header (sobj, descriptor, | |
1187 | sechdr_offset, | |
1188 | namebuf, segnbuf, | |
1189 | secaddr, secsize, | |
1190 | offset, | |
1191 | section->align, | |
1192 | errmsg, err)) | |
1193 | return 0; | |
1194 | sechdr_offset += sechdrsize; | |
1195 | } | |
1196 | ||
1197 | offset += secsize; | |
1198 | secaddr += secsize; | |
1199 | } | |
1200 | ||
1201 | if (sobj->segment_name != NULL) | |
1202 | { | |
1203 | size_t secsize; | |
1204 | unsigned int i; | |
1205 | ||
1206 | /* Write the section header for the wrapper. */ | |
1207 | /* Account for any initial aligment - which becomes the alignment for this | |
1208 | created section. */ | |
1209 | ||
1210 | secsize = (offset - index[0]); | |
1cfabf34 | 1211 | if (!simple_object_mach_o_write_section_header (sobj, descriptor, |
b20577ea IS |
1212 | sechdr_offset, |
1213 | GNU_WRAPPER_SECTS, | |
1214 | sobj->segment_name, | |
1215 | 0 /*secaddr*/, | |
1216 | secsize, index[0], | |
1217 | sobj->sections->align, | |
1cfabf34 ILT |
1218 | errmsg, err)) |
1219 | return 0; | |
1220 | ||
b20577ea IS |
1221 | /* Subtract the wrapper section start from the begining of each sub |
1222 | section. */ | |
1223 | ||
1224 | for (i = 1; i < nsects_in; ++i) | |
1225 | index[4 * i] -= index[0]; | |
1226 | index[0] = 0; | |
1227 | ||
1cfabf34 | 1228 | sechdr_offset += sechdrsize; |
1cfabf34 | 1229 | |
b20577ea IS |
1230 | /* Write out the section names. |
1231 | ... the header ... | |
1232 | name_offset contains the length of the section. It is not aligned. */ | |
1cfabf34 | 1233 | |
b20577ea IS |
1234 | if (!simple_object_mach_o_write_section_header (sobj, descriptor, |
1235 | sechdr_offset, | |
1236 | GNU_WRAPPER_NAMES, | |
1237 | sobj->segment_name, | |
1238 | 0 /*secaddr*/, | |
1239 | name_offset, | |
1240 | offset, | |
1241 | 0, errmsg, err)) | |
1242 | return 0; | |
1cfabf34 | 1243 | |
b20577ea IS |
1244 | /* ... and the content.. */ |
1245 | if (!simple_object_internal_write (descriptor, offset, | |
1246 | (const unsigned char *) snames, | |
1247 | name_offset, errmsg, err)) | |
1248 | return 0; | |
1249 | ||
1250 | sechdr_offset += sechdrsize; | |
1251 | secaddr += name_offset; | |
1252 | offset += name_offset; | |
1253 | ||
1254 | /* Now do the index, we'll align this to 4 bytes although the read code | |
1255 | will handle unaligned. */ | |
1256 | ||
1257 | offset += 3; | |
1258 | offset &= ~0x03; | |
1259 | if (!simple_object_mach_o_write_section_header (sobj, descriptor, | |
1260 | sechdr_offset, | |
1261 | GNU_WRAPPER_INDEX, | |
1262 | sobj->segment_name, | |
1263 | 0 /*secaddr*/, | |
1264 | nsects_in * 16, | |
1265 | offset, | |
1266 | 2, errmsg, err)) | |
1267 | return 0; | |
1cfabf34 | 1268 | |
b20577ea | 1269 | /* ... and the content.. */ |
1cfabf34 | 1270 | if (!simple_object_internal_write (descriptor, offset, |
b20577ea IS |
1271 | (const unsigned char *) index, |
1272 | nsects_in*16, errmsg, err)) | |
1cfabf34 | 1273 | return 0; |
b20577ea IS |
1274 | |
1275 | XDELETEVEC (index); | |
1276 | XDELETEVEC (snames); | |
1cfabf34 ILT |
1277 | } |
1278 | ||
1279 | /* Write out the segment header. */ | |
1280 | ||
1281 | memset (hdrbuf, 0, sizeof hdrbuf); | |
1282 | ||
1283 | hdr = &hdrbuf[0]; | |
1284 | if (attrs->magic == MACH_O_MH_MAGIC) | |
1285 | { | |
1286 | set_32 (hdr + offsetof (struct mach_o_segment_command_32, cmd), | |
1287 | MACH_O_LC_SEGMENT); | |
1288 | set_32 (hdr + offsetof (struct mach_o_segment_command_32, cmdsize), | |
1289 | cmdsize); | |
b20577ea IS |
1290 | /* MH_OBJECTS have a single, anonymous, segment - so the segment name |
1291 | is left empty. */ | |
1cfabf34 ILT |
1292 | /* vmaddr left as zero. */ |
1293 | /* vmsize left as zero. */ | |
1294 | set_32 (hdr + offsetof (struct mach_o_segment_command_32, fileoff), | |
1295 | hdrsize + cmdsize); | |
1296 | set_32 (hdr + offsetof (struct mach_o_segment_command_32, filesize), | |
1297 | offset - (hdrsize + cmdsize)); | |
1298 | /* maxprot left as zero. */ | |
1299 | /* initprot left as zero. */ | |
1300 | set_32 (hdr + offsetof (struct mach_o_segment_command_32, nsects), | |
b20577ea | 1301 | *nsects); |
1cfabf34 ILT |
1302 | /* flags left as zero. */ |
1303 | } | |
1304 | else | |
1305 | { | |
1306 | #ifdef UNSIGNED_64BIT_TYPE | |
1307 | void (*set_64) (unsigned char *, ulong_type); | |
1308 | ||
1309 | set_64 = (attrs->is_big_endian | |
1310 | ? simple_object_set_big_64 | |
1311 | : simple_object_set_little_64); | |
1312 | ||
1313 | set_32 (hdr + offsetof (struct mach_o_segment_command_64, cmd), | |
1314 | MACH_O_LC_SEGMENT); | |
1315 | set_32 (hdr + offsetof (struct mach_o_segment_command_64, cmdsize), | |
1316 | cmdsize); | |
b20577ea IS |
1317 | /* MH_OBJECTS have a single, anonymous, segment - so the segment name |
1318 | is left empty. */ | |
1cfabf34 ILT |
1319 | /* vmaddr left as zero. */ |
1320 | /* vmsize left as zero. */ | |
1321 | set_64 (hdr + offsetof (struct mach_o_segment_command_64, fileoff), | |
1322 | hdrsize + cmdsize); | |
1323 | set_64 (hdr + offsetof (struct mach_o_segment_command_64, filesize), | |
1324 | offset - (hdrsize + cmdsize)); | |
1325 | /* maxprot left as zero. */ | |
1326 | /* initprot left as zero. */ | |
1327 | set_32 (hdr + offsetof (struct mach_o_segment_command_64, nsects), | |
b20577ea | 1328 | *nsects); |
1cfabf34 ILT |
1329 | /* flags left as zero. */ |
1330 | #endif | |
1331 | } | |
1332 | ||
1333 | return simple_object_internal_write (descriptor, hdrsize, hdr, seghdrsize, | |
1334 | errmsg, err); | |
1335 | } | |
1336 | ||
1337 | /* Write out a complete Mach-O file. */ | |
1338 | ||
1339 | static const char * | |
1340 | simple_object_mach_o_write_to_file (simple_object_write *sobj, int descriptor, | |
1341 | int *err) | |
1342 | { | |
b20577ea | 1343 | size_t nsects = 0; |
1cfabf34 ILT |
1344 | const char *errmsg; |
1345 | ||
b20577ea IS |
1346 | if (!simple_object_mach_o_write_segment (sobj, descriptor, &nsects, |
1347 | &errmsg, err)) | |
1348 | return errmsg; | |
1cfabf34 ILT |
1349 | |
1350 | if (!simple_object_mach_o_write_header (sobj, descriptor, nsects, | |
1351 | &errmsg, err)) | |
1352 | return errmsg; | |
1353 | ||
1cfabf34 ILT |
1354 | return NULL; |
1355 | } | |
1356 | ||
1357 | /* Release the private data for an simple_object_write structure. */ | |
1358 | ||
1359 | static void | |
1360 | simple_object_mach_o_release_write (void *data) | |
1361 | { | |
1362 | XDELETE (data); | |
1363 | } | |
1364 | ||
1365 | /* The Mach-O functions. */ | |
1366 | ||
1367 | const struct simple_object_functions simple_object_mach_o_functions = | |
1368 | { | |
1369 | simple_object_mach_o_match, | |
1370 | simple_object_mach_o_find_sections, | |
1371 | simple_object_mach_o_fetch_attributes, | |
1372 | simple_object_mach_o_release_read, | |
d82f74d3 | 1373 | simple_object_mach_o_attributes_merge, |
1cfabf34 ILT |
1374 | simple_object_mach_o_release_attributes, |
1375 | simple_object_mach_o_start_write, | |
1376 | simple_object_mach_o_write_to_file, | |
1ea85365 RB |
1377 | simple_object_mach_o_release_write, |
1378 | NULL | |
1cfabf34 | 1379 | }; |