CbC/CbC_gcc: libiberty/simple-object-mach-o.c annotate

annotate libiberty/simple-object-mach-o.c @ 158:494b0b89df80 default tip

...

author	Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date	Mon, 25 May 2020 18:13:55 +0900
parents	1830386684a0
children

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

Mercurial > hg > CbC > CbC_gcc

annotate libiberty/simple-object-mach-o.c @ 158:494b0b89df80 default tip