2010-11-02 15:40:44 +01:00
|
|
|
/* simple-object-mach-o.c -- routines to manipulate Mach-O object files.
|
2017-01-04 12:30:51 +01:00
|
|
|
Copyright (C) 2010-2017 Free Software Foundation, Inc.
|
2010-11-02 15:40:44 +01:00
|
|
|
Written by Ian Lance Taylor, Google.
|
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify it
|
|
|
|
under the terms of the GNU General Public License as published by the
|
|
|
|
Free Software Foundation; either version 2, or (at your option) any
|
|
|
|
later version.
|
|
|
|
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
along with this program; if not, write to the Free Software
|
|
|
|
Foundation, 51 Franklin Street - Fifth Floor,
|
|
|
|
Boston, MA 02110-1301, USA. */
|
|
|
|
|
|
|
|
#include "config.h"
|
|
|
|
#include "libiberty.h"
|
|
|
|
#include "simple-object.h"
|
|
|
|
|
|
|
|
#include <stddef.h>
|
|
|
|
|
|
|
|
#ifdef HAVE_STDLIB_H
|
|
|
|
#include <stdlib.h>
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifdef HAVE_STDINT_H
|
|
|
|
#include <stdint.h>
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifdef HAVE_STRING_H
|
|
|
|
#include <string.h>
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifdef HAVE_INTTYPES_H
|
|
|
|
#include <inttypes.h>
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#include "simple-object-common.h"
|
|
|
|
|
|
|
|
/* Mach-O structures and constants. */
|
|
|
|
|
|
|
|
/* Mach-O header (32-bit version). */
|
|
|
|
|
|
|
|
struct mach_o_header_32
|
|
|
|
{
|
|
|
|
unsigned char magic[4]; /* Magic number. */
|
|
|
|
unsigned char cputype[4]; /* CPU that this object is for. */
|
|
|
|
unsigned char cpusubtype[4]; /* CPU subtype. */
|
|
|
|
unsigned char filetype[4]; /* Type of file. */
|
|
|
|
unsigned char ncmds[4]; /* Number of load commands. */
|
|
|
|
unsigned char sizeofcmds[4]; /* Total size of load commands. */
|
|
|
|
unsigned char flags[4]; /* Flags for special featues. */
|
|
|
|
};
|
|
|
|
|
|
|
|
/* Mach-O header (64-bit version). */
|
|
|
|
|
|
|
|
struct mach_o_header_64
|
|
|
|
{
|
|
|
|
unsigned char magic[4]; /* Magic number. */
|
|
|
|
unsigned char cputype[4]; /* CPU that this object is for. */
|
|
|
|
unsigned char cpusubtype[4]; /* CPU subtype. */
|
|
|
|
unsigned char filetype[4]; /* Type of file. */
|
|
|
|
unsigned char ncmds[4]; /* Number of load commands. */
|
|
|
|
unsigned char sizeofcmds[4]; /* Total size of load commands. */
|
|
|
|
unsigned char flags[4]; /* Flags for special featues. */
|
|
|
|
unsigned char reserved[4]; /* Reserved. Duh. */
|
|
|
|
};
|
|
|
|
|
|
|
|
/* For magic field in header. */
|
|
|
|
|
|
|
|
#define MACH_O_MH_MAGIC 0xfeedface
|
|
|
|
#define MACH_O_MH_MAGIC_64 0xfeedfacf
|
|
|
|
|
|
|
|
/* For filetype field in header. */
|
|
|
|
|
|
|
|
#define MACH_O_MH_OBJECT 0x01
|
|
|
|
|
|
|
|
/* A Mach-O file is a list of load commands. This is the header of a
|
|
|
|
load command. */
|
|
|
|
|
|
|
|
struct mach_o_load_command
|
|
|
|
{
|
|
|
|
unsigned char cmd[4]; /* The type of load command. */
|
|
|
|
unsigned char cmdsize[4]; /* Size in bytes of entire command. */
|
|
|
|
};
|
|
|
|
|
|
|
|
/* For cmd field in load command. */
|
|
|
|
|
|
|
|
#define MACH_O_LC_SEGMENT 0x01
|
|
|
|
#define MACH_O_LC_SEGMENT_64 0x19
|
|
|
|
|
|
|
|
/* LC_SEGMENT load command. */
|
|
|
|
|
|
|
|
struct mach_o_segment_command_32
|
|
|
|
{
|
|
|
|
unsigned char cmd[4]; /* The type of load command (LC_SEGMENT). */
|
|
|
|
unsigned char cmdsize[4]; /* Size in bytes of entire command. */
|
|
|
|
unsigned char segname[16]; /* Name of this segment. */
|
|
|
|
unsigned char vmaddr[4]; /* Virtual memory address of this segment. */
|
|
|
|
unsigned char vmsize[4]; /* Size there, in bytes. */
|
|
|
|
unsigned char fileoff[4]; /* Offset in bytes of the data to be mapped. */
|
|
|
|
unsigned char filesize[4]; /* Size in bytes on disk. */
|
|
|
|
unsigned char maxprot[4]; /* Maximum permitted vmem protection. */
|
|
|
|
unsigned char initprot[4]; /* Initial vmem protection. */
|
|
|
|
unsigned char nsects[4]; /* Number of sections in this segment. */
|
|
|
|
unsigned char flags[4]; /* Flags that affect the loading. */
|
|
|
|
};
|
|
|
|
|
|
|
|
/* LC_SEGMENT_64 load command. */
|
|
|
|
|
|
|
|
struct mach_o_segment_command_64
|
|
|
|
{
|
|
|
|
unsigned char cmd[4]; /* The type of load command (LC_SEGMENT_64). */
|
|
|
|
unsigned char cmdsize[4]; /* Size in bytes of entire command. */
|
|
|
|
unsigned char segname[16]; /* Name of this segment. */
|
|
|
|
unsigned char vmaddr[8]; /* Virtual memory address of this segment. */
|
|
|
|
unsigned char vmsize[8]; /* Size there, in bytes. */
|
|
|
|
unsigned char fileoff[8]; /* Offset in bytes of the data to be mapped. */
|
|
|
|
unsigned char filesize[8]; /* Size in bytes on disk. */
|
|
|
|
unsigned char maxprot[4]; /* Maximum permitted vmem protection. */
|
|
|
|
unsigned char initprot[4]; /* Initial vmem protection. */
|
|
|
|
unsigned char nsects[4]; /* Number of sections in this segment. */
|
|
|
|
unsigned char flags[4]; /* Flags that affect the loading. */
|
|
|
|
};
|
|
|
|
|
|
|
|
/* 32-bit section header. */
|
|
|
|
|
|
|
|
struct mach_o_section_32
|
|
|
|
{
|
|
|
|
unsigned char sectname[16]; /* Section name. */
|
|
|
|
unsigned char segname[16]; /* Segment that the section belongs to. */
|
|
|
|
unsigned char addr[4]; /* Address of this section in memory. */
|
|
|
|
unsigned char size[4]; /* Size in bytes of this section. */
|
|
|
|
unsigned char offset[4]; /* File offset of this section. */
|
|
|
|
unsigned char align[4]; /* log2 of this section's alignment. */
|
|
|
|
unsigned char reloff[4]; /* File offset of this section's relocs. */
|
|
|
|
unsigned char nreloc[4]; /* Number of relocs for this section. */
|
|
|
|
unsigned char flags[4]; /* Section flags/attributes. */
|
|
|
|
unsigned char reserved1[4];
|
|
|
|
unsigned char reserved2[4];
|
|
|
|
};
|
|
|
|
|
|
|
|
/* 64-bit section header. */
|
|
|
|
|
|
|
|
struct mach_o_section_64
|
|
|
|
{
|
|
|
|
unsigned char sectname[16]; /* Section name. */
|
|
|
|
unsigned char segname[16]; /* Segment that the section belongs to. */
|
|
|
|
unsigned char addr[8]; /* Address of this section in memory. */
|
|
|
|
unsigned char size[8]; /* Size in bytes of this section. */
|
|
|
|
unsigned char offset[4]; /* File offset of this section. */
|
|
|
|
unsigned char align[4]; /* log2 of this section's alignment. */
|
|
|
|
unsigned char reloff[4]; /* File offset of this section's relocs. */
|
|
|
|
unsigned char nreloc[4]; /* Number of relocs for this section. */
|
|
|
|
unsigned char flags[4]; /* Section flags/attributes. */
|
|
|
|
unsigned char reserved1[4];
|
|
|
|
unsigned char reserved2[4];
|
|
|
|
unsigned char reserved3[4];
|
|
|
|
};
|
|
|
|
|
|
|
|
/* Flags for Mach-O sections. */
|
|
|
|
|
|
|
|
#define MACH_O_S_ATTR_DEBUG 0x02000000
|
|
|
|
|
|
|
|
/* The length of a segment or section name. */
|
|
|
|
|
|
|
|
#define MACH_O_NAME_LEN (16)
|
|
|
|
|
|
|
|
/* A GNU specific extension for long section names. */
|
|
|
|
|
|
|
|
#define GNU_SECTION_NAMES "__section_names"
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
/* A GNU-specific extension to wrap multiple sections using three
|
|
|
|
mach-o sections within a given segment. The section '__wrapper_sects'
|
|
|
|
is subdivided according to the index '__wrapper_index' and each sub
|
|
|
|
sect is named according to the names supplied in '__wrapper_names'. */
|
|
|
|
|
|
|
|
#define GNU_WRAPPER_SECTS "__wrapper_sects"
|
|
|
|
#define GNU_WRAPPER_INDEX "__wrapper_index"
|
|
|
|
#define GNU_WRAPPER_NAMES "__wrapper_names"
|
|
|
|
|
2010-11-02 15:40:44 +01:00
|
|
|
/* Private data for an simple_object_read. */
|
|
|
|
|
|
|
|
struct simple_object_mach_o_read
|
|
|
|
{
|
|
|
|
/* User specified segment name. */
|
|
|
|
char *segment_name;
|
|
|
|
/* Magic number. */
|
|
|
|
unsigned int magic;
|
|
|
|
/* Whether this file is big-endian. */
|
|
|
|
int is_big_endian;
|
|
|
|
/* CPU type from header. */
|
|
|
|
unsigned int cputype;
|
|
|
|
/* CPU subtype from header. */
|
|
|
|
unsigned int cpusubtype;
|
|
|
|
/* Number of commands, from header. */
|
|
|
|
unsigned int ncmds;
|
|
|
|
/* Flags from header. */
|
|
|
|
unsigned int flags;
|
|
|
|
/* Reserved field from header, only used on 64-bit. */
|
|
|
|
unsigned int reserved;
|
|
|
|
};
|
|
|
|
|
|
|
|
/* Private data for an simple_object_attributes. */
|
|
|
|
|
|
|
|
struct simple_object_mach_o_attributes
|
|
|
|
{
|
|
|
|
/* Magic number. */
|
|
|
|
unsigned int magic;
|
|
|
|
/* Whether this file is big-endian. */
|
|
|
|
int is_big_endian;
|
|
|
|
/* CPU type from header. */
|
|
|
|
unsigned int cputype;
|
|
|
|
/* CPU subtype from header. */
|
|
|
|
unsigned int cpusubtype;
|
|
|
|
/* Flags from header. */
|
|
|
|
unsigned int flags;
|
|
|
|
/* Reserved field from header, only used on 64-bit. */
|
|
|
|
unsigned int reserved;
|
|
|
|
};
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
/* See if we have a Mach-O MH_OBJECT file:
|
|
|
|
|
|
|
|
A standard MH_OBJECT (from as) will have three load commands:
|
|
|
|
0 - LC_SEGMENT/LC_SEGMENT64
|
|
|
|
1 - LC_SYMTAB
|
|
|
|
2 - LC_DYSYMTAB
|
|
|
|
|
|
|
|
The LC_SEGMENT/LC_SEGMENT64 will introduce a single anonymous segment
|
|
|
|
containing all the sections.
|
|
|
|
|
|
|
|
Files written by simple-object will have only the segment command
|
|
|
|
(no symbol tables). */
|
2010-11-02 15:40:44 +01:00
|
|
|
|
|
|
|
static void *
|
|
|
|
simple_object_mach_o_match (
|
|
|
|
unsigned char header[SIMPLE_OBJECT_MATCH_HEADER_LEN],
|
|
|
|
int descriptor,
|
|
|
|
off_t offset,
|
|
|
|
const char *segment_name,
|
|
|
|
const char **errmsg,
|
|
|
|
int *err)
|
|
|
|
{
|
|
|
|
unsigned int magic;
|
|
|
|
int is_big_endian;
|
|
|
|
unsigned int (*fetch_32) (const unsigned char *);
|
|
|
|
unsigned int filetype;
|
|
|
|
struct simple_object_mach_o_read *omr;
|
|
|
|
unsigned char buf[sizeof (struct mach_o_header_64)];
|
|
|
|
unsigned char *b;
|
|
|
|
|
|
|
|
magic = simple_object_fetch_big_32 (header);
|
|
|
|
if (magic == MACH_O_MH_MAGIC || magic == MACH_O_MH_MAGIC_64)
|
|
|
|
is_big_endian = 1;
|
|
|
|
else
|
|
|
|
{
|
|
|
|
magic = simple_object_fetch_little_32 (header);
|
|
|
|
if (magic == MACH_O_MH_MAGIC || magic == MACH_O_MH_MAGIC_64)
|
|
|
|
is_big_endian = 0;
|
|
|
|
else
|
|
|
|
{
|
|
|
|
*errmsg = NULL;
|
|
|
|
*err = 0;
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
#ifndef UNSIGNED_64BIT_TYPE
|
|
|
|
if (magic == MACH_O_MH_MAGIC_64)
|
|
|
|
{
|
|
|
|
*errmsg = "64-bit Mach-O objects not supported";
|
|
|
|
*err = 0;
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* We require the user to provide a segment name. This is
|
|
|
|
unfortunate but I don't see any good choices here. */
|
|
|
|
|
|
|
|
if (segment_name == NULL)
|
|
|
|
{
|
|
|
|
*errmsg = "Mach-O file found but no segment name specified";
|
|
|
|
*err = 0;
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (strlen (segment_name) > MACH_O_NAME_LEN)
|
|
|
|
{
|
|
|
|
*errmsg = "Mach-O segment name too long";
|
|
|
|
*err = 0;
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* The 32-bit and 64-bit headers are similar enough that we can use
|
|
|
|
the same code. */
|
|
|
|
|
|
|
|
fetch_32 = (is_big_endian
|
|
|
|
? simple_object_fetch_big_32
|
|
|
|
: simple_object_fetch_little_32);
|
|
|
|
|
|
|
|
if (!simple_object_internal_read (descriptor, offset, buf,
|
|
|
|
(magic == MACH_O_MH_MAGIC
|
|
|
|
? sizeof (struct mach_o_header_32)
|
|
|
|
: sizeof (struct mach_o_header_64)),
|
|
|
|
errmsg, err))
|
|
|
|
return NULL;
|
|
|
|
|
|
|
|
b = &buf[0];
|
|
|
|
|
|
|
|
filetype = (*fetch_32) (b + offsetof (struct mach_o_header_32, filetype));
|
|
|
|
if (filetype != MACH_O_MH_OBJECT)
|
|
|
|
{
|
|
|
|
*errmsg = "Mach-O file is not object file";
|
|
|
|
*err = 0;
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
omr = XNEW (struct simple_object_mach_o_read);
|
|
|
|
omr->segment_name = xstrdup (segment_name);
|
|
|
|
omr->magic = magic;
|
|
|
|
omr->is_big_endian = is_big_endian;
|
|
|
|
omr->cputype = (*fetch_32) (b + offsetof (struct mach_o_header_32, cputype));
|
|
|
|
omr->cpusubtype = (*fetch_32) (b
|
|
|
|
+ offsetof (struct mach_o_header_32,
|
|
|
|
cpusubtype));
|
|
|
|
omr->ncmds = (*fetch_32) (b + offsetof (struct mach_o_header_32, ncmds));
|
|
|
|
omr->flags = (*fetch_32) (b + offsetof (struct mach_o_header_32, flags));
|
|
|
|
if (magic == MACH_O_MH_MAGIC)
|
|
|
|
omr->reserved = 0;
|
|
|
|
else
|
|
|
|
omr->reserved = (*fetch_32) (b
|
|
|
|
+ offsetof (struct mach_o_header_64,
|
|
|
|
reserved));
|
|
|
|
|
|
|
|
return (void *) omr;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Get the file offset and size from a section header. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
simple_object_mach_o_section_info (int is_big_endian, int is_32,
|
|
|
|
const unsigned char *sechdr, off_t *offset,
|
|
|
|
size_t *size)
|
|
|
|
{
|
|
|
|
unsigned int (*fetch_32) (const unsigned char *);
|
|
|
|
ulong_type (*fetch_64) (const unsigned char *);
|
|
|
|
|
|
|
|
fetch_32 = (is_big_endian
|
|
|
|
? simple_object_fetch_big_32
|
|
|
|
: simple_object_fetch_little_32);
|
|
|
|
|
|
|
|
fetch_64 = NULL;
|
|
|
|
#ifdef UNSIGNED_64BIT_TYPE
|
|
|
|
fetch_64 = (is_big_endian
|
|
|
|
? simple_object_fetch_big_64
|
|
|
|
: simple_object_fetch_little_64);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
if (is_32)
|
|
|
|
{
|
|
|
|
*offset = fetch_32 (sechdr
|
|
|
|
+ offsetof (struct mach_o_section_32, offset));
|
|
|
|
*size = fetch_32 (sechdr
|
|
|
|
+ offsetof (struct mach_o_section_32, size));
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
*offset = fetch_32 (sechdr
|
|
|
|
+ offsetof (struct mach_o_section_64, offset));
|
|
|
|
*size = fetch_64 (sechdr
|
|
|
|
+ offsetof (struct mach_o_section_64, size));
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
/* Handle a segment in a Mach-O Object file.
|
|
|
|
|
|
|
|
This will callback to the function pfn for each "section found" the meaning
|
|
|
|
of which depends on gnu extensions to mach-o:
|
|
|
|
|
|
|
|
If we find mach-o sections (with the segment name as specified) which also
|
|
|
|
contain: a 'sects' wrapper, an index, and a name table, we expand this into
|
|
|
|
as many sections as are specified in the index. In this case, there will
|
|
|
|
be a callback for each of these.
|
|
|
|
|
|
|
|
We will also allow an extension that permits long names (more than 16
|
|
|
|
characters) to be used with mach-o. In this case, the section name has
|
|
|
|
a specific format embedding an index into a name table, and the file must
|
|
|
|
contain such name table.
|
|
|
|
|
|
|
|
Return 1 if we should continue, 0 if the caller should return. */
|
|
|
|
|
|
|
|
#define SOMO_SECTS_PRESENT 0x01
|
|
|
|
#define SOMO_INDEX_PRESENT 0x02
|
|
|
|
#define SOMO_NAMES_PRESENT 0x04
|
|
|
|
#define SOMO_LONGN_PRESENT 0x08
|
|
|
|
#define SOMO_WRAPPING (SOMO_SECTS_PRESENT | SOMO_INDEX_PRESENT \
|
|
|
|
| SOMO_NAMES_PRESENT)
|
2010-11-02 15:40:44 +01:00
|
|
|
|
|
|
|
static int
|
|
|
|
simple_object_mach_o_segment (simple_object_read *sobj, off_t offset,
|
|
|
|
const unsigned char *segbuf,
|
|
|
|
int (*pfn) (void *, const char *, off_t offset,
|
|
|
|
off_t length),
|
|
|
|
void *data,
|
|
|
|
const char **errmsg, int *err)
|
|
|
|
{
|
|
|
|
struct simple_object_mach_o_read *omr =
|
|
|
|
(struct simple_object_mach_o_read *) sobj->data;
|
|
|
|
unsigned int (*fetch_32) (const unsigned char *);
|
|
|
|
int is_32;
|
|
|
|
size_t seghdrsize;
|
|
|
|
size_t sechdrsize;
|
|
|
|
size_t segname_offset;
|
|
|
|
size_t sectname_offset;
|
|
|
|
unsigned int nsects;
|
|
|
|
unsigned char *secdata;
|
|
|
|
unsigned int i;
|
2011-10-26 14:37:59 +02:00
|
|
|
unsigned int gnu_sections_found;
|
2010-11-02 15:40:44 +01:00
|
|
|
unsigned int strtab_index;
|
2011-10-26 14:37:59 +02:00
|
|
|
unsigned int index_index;
|
|
|
|
unsigned int nametab_index;
|
|
|
|
unsigned int sections_index;
|
2010-11-02 15:40:44 +01:00
|
|
|
char *strtab;
|
2011-10-26 14:37:59 +02:00
|
|
|
char *nametab;
|
|
|
|
unsigned char *index;
|
2010-11-02 15:40:44 +01:00
|
|
|
size_t strtab_size;
|
2011-10-26 14:37:59 +02:00
|
|
|
size_t nametab_size;
|
|
|
|
size_t index_size;
|
|
|
|
unsigned int n_wrapped_sects;
|
|
|
|
size_t wrapper_sect_size;
|
2013-03-05 16:16:49 +01:00
|
|
|
off_t wrapper_sect_offset = 0;
|
2010-11-02 15:40:44 +01:00
|
|
|
|
|
|
|
fetch_32 = (omr->is_big_endian
|
|
|
|
? simple_object_fetch_big_32
|
|
|
|
: simple_object_fetch_little_32);
|
|
|
|
|
|
|
|
is_32 = omr->magic == MACH_O_MH_MAGIC;
|
|
|
|
|
|
|
|
if (is_32)
|
|
|
|
{
|
|
|
|
seghdrsize = sizeof (struct mach_o_segment_command_32);
|
|
|
|
sechdrsize = sizeof (struct mach_o_section_32);
|
|
|
|
segname_offset = offsetof (struct mach_o_section_32, segname);
|
|
|
|
sectname_offset = offsetof (struct mach_o_section_32, sectname);
|
|
|
|
nsects = (*fetch_32) (segbuf
|
|
|
|
+ offsetof (struct mach_o_segment_command_32,
|
|
|
|
nsects));
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
seghdrsize = sizeof (struct mach_o_segment_command_64);
|
|
|
|
sechdrsize = sizeof (struct mach_o_section_64);
|
|
|
|
segname_offset = offsetof (struct mach_o_section_64, segname);
|
|
|
|
sectname_offset = offsetof (struct mach_o_section_64, sectname);
|
|
|
|
nsects = (*fetch_32) (segbuf
|
|
|
|
+ offsetof (struct mach_o_segment_command_64,
|
|
|
|
nsects));
|
|
|
|
}
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
/* Fetch the section headers from the segment command. */
|
|
|
|
|
2010-11-02 15:40:44 +01:00
|
|
|
secdata = XNEWVEC (unsigned char, nsects * sechdrsize);
|
|
|
|
if (!simple_object_internal_read (sobj->descriptor, offset + seghdrsize,
|
|
|
|
secdata, nsects * sechdrsize, errmsg, err))
|
|
|
|
{
|
|
|
|
XDELETEVEC (secdata);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
/* Scan for special sections that signal GNU extensions to the format. */
|
2010-11-02 15:40:44 +01:00
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
gnu_sections_found = 0;
|
|
|
|
index_index = nsects;
|
|
|
|
sections_index = nsects;
|
|
|
|
strtab_index = nsects;
|
|
|
|
nametab_index = nsects;
|
2010-11-02 15:40:44 +01:00
|
|
|
for (i = 0; i < nsects; ++i)
|
|
|
|
{
|
|
|
|
size_t nameoff;
|
|
|
|
|
|
|
|
nameoff = i * sechdrsize + segname_offset;
|
|
|
|
if (strcmp ((char *) secdata + nameoff, omr->segment_name) != 0)
|
|
|
|
continue;
|
2011-10-26 14:37:59 +02:00
|
|
|
|
2010-11-02 15:40:44 +01:00
|
|
|
nameoff = i * sechdrsize + sectname_offset;
|
2011-10-26 14:37:59 +02:00
|
|
|
if (strcmp ((char *) secdata + nameoff, GNU_WRAPPER_NAMES) == 0)
|
|
|
|
{
|
|
|
|
nametab_index = i;
|
|
|
|
gnu_sections_found |= SOMO_NAMES_PRESENT;
|
|
|
|
}
|
|
|
|
else if (strcmp ((char *) secdata + nameoff, GNU_WRAPPER_INDEX) == 0)
|
|
|
|
{
|
|
|
|
index_index = i;
|
|
|
|
gnu_sections_found |= SOMO_INDEX_PRESENT;
|
|
|
|
}
|
|
|
|
else if (strcmp ((char *) secdata + nameoff, GNU_WRAPPER_SECTS) == 0)
|
|
|
|
{
|
|
|
|
sections_index = i;
|
|
|
|
gnu_sections_found |= SOMO_SECTS_PRESENT;
|
|
|
|
}
|
|
|
|
else if (strcmp ((char *) secdata + nameoff, GNU_SECTION_NAMES) == 0)
|
|
|
|
{
|
|
|
|
strtab_index = i;
|
|
|
|
gnu_sections_found |= SOMO_LONGN_PRESENT;
|
|
|
|
}
|
2010-11-02 15:40:44 +01:00
|
|
|
}
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
/* If any of the special wrapper section components is present, then
|
|
|
|
they all should be. */
|
|
|
|
|
|
|
|
if ((gnu_sections_found & SOMO_WRAPPING) != 0)
|
2010-11-02 15:40:44 +01:00
|
|
|
{
|
2011-10-26 14:37:59 +02:00
|
|
|
off_t nametab_offset;
|
|
|
|
off_t index_offset;
|
|
|
|
|
|
|
|
if ((gnu_sections_found & SOMO_WRAPPING) != SOMO_WRAPPING)
|
|
|
|
{
|
|
|
|
*errmsg = "GNU Mach-o section wrapper: required section missing";
|
|
|
|
*err = 0; /* No useful errno. */
|
|
|
|
XDELETEVEC (secdata);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Fetch the name table. */
|
|
|
|
|
|
|
|
simple_object_mach_o_section_info (omr->is_big_endian, is_32,
|
|
|
|
secdata + nametab_index * sechdrsize,
|
|
|
|
&nametab_offset, &nametab_size);
|
|
|
|
nametab = XNEWVEC (char, nametab_size);
|
|
|
|
if (!simple_object_internal_read (sobj->descriptor,
|
|
|
|
sobj->offset + nametab_offset,
|
|
|
|
(unsigned char *) nametab, nametab_size,
|
|
|
|
errmsg, err))
|
|
|
|
{
|
|
|
|
XDELETEVEC (nametab);
|
|
|
|
XDELETEVEC (secdata);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Fetch the index. */
|
|
|
|
|
|
|
|
simple_object_mach_o_section_info (omr->is_big_endian, is_32,
|
|
|
|
secdata + index_index * sechdrsize,
|
|
|
|
&index_offset, &index_size);
|
|
|
|
index = XNEWVEC (unsigned char, index_size);
|
|
|
|
if (!simple_object_internal_read (sobj->descriptor,
|
|
|
|
sobj->offset + index_offset,
|
|
|
|
index, index_size,
|
|
|
|
errmsg, err))
|
|
|
|
{
|
|
|
|
XDELETEVEC (index);
|
|
|
|
XDELETEVEC (nametab);
|
|
|
|
XDELETEVEC (secdata);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* The index contains 4 unsigned ints per sub-section:
|
|
|
|
sub-section offset/length, sub-section name/length.
|
|
|
|
We fix this for both 32 and 64 bit mach-o for now, since
|
|
|
|
other fields limit the maximum size of an object to 4G. */
|
|
|
|
n_wrapped_sects = index_size / 16;
|
|
|
|
|
|
|
|
/* Get the parameters for the wrapper too. */
|
|
|
|
simple_object_mach_o_section_info (omr->is_big_endian, is_32,
|
|
|
|
secdata + sections_index * sechdrsize,
|
|
|
|
&wrapper_sect_offset,
|
|
|
|
&wrapper_sect_size);
|
2010-11-02 15:40:44 +01:00
|
|
|
}
|
|
|
|
else
|
2011-10-26 14:37:59 +02:00
|
|
|
{
|
|
|
|
index = NULL;
|
|
|
|
index_size = 0;
|
|
|
|
nametab = NULL;
|
|
|
|
nametab_size = 0;
|
|
|
|
n_wrapped_sects = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* If we have a long names section, fetch it. */
|
|
|
|
|
|
|
|
if ((gnu_sections_found & SOMO_LONGN_PRESENT) != 0)
|
2010-11-02 15:40:44 +01:00
|
|
|
{
|
|
|
|
off_t strtab_offset;
|
|
|
|
|
|
|
|
simple_object_mach_o_section_info (omr->is_big_endian, is_32,
|
|
|
|
secdata + strtab_index * sechdrsize,
|
|
|
|
&strtab_offset, &strtab_size);
|
|
|
|
strtab = XNEWVEC (char, strtab_size);
|
|
|
|
if (!simple_object_internal_read (sobj->descriptor,
|
|
|
|
sobj->offset + strtab_offset,
|
|
|
|
(unsigned char *) strtab, strtab_size,
|
|
|
|
errmsg, err))
|
|
|
|
{
|
|
|
|
XDELETEVEC (strtab);
|
2011-10-26 14:37:59 +02:00
|
|
|
XDELETEVEC (index);
|
|
|
|
XDELETEVEC (nametab);
|
2010-11-02 15:40:44 +01:00
|
|
|
XDELETEVEC (secdata);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
}
|
2011-10-26 14:37:59 +02:00
|
|
|
else
|
|
|
|
{
|
|
|
|
strtab = NULL;
|
|
|
|
strtab_size = 0;
|
|
|
|
strtab_index = nsects;
|
|
|
|
}
|
2010-11-02 15:40:44 +01:00
|
|
|
|
|
|
|
/* Process the sections. */
|
|
|
|
|
|
|
|
for (i = 0; i < nsects; ++i)
|
|
|
|
{
|
|
|
|
const unsigned char *sechdr;
|
2011-10-26 14:37:59 +02:00
|
|
|
char namebuf[MACH_O_NAME_LEN * 2 + 2];
|
2010-11-02 15:40:44 +01:00
|
|
|
char *name;
|
|
|
|
off_t secoffset;
|
|
|
|
size_t secsize;
|
2011-10-26 14:37:59 +02:00
|
|
|
int l;
|
2010-11-02 15:40:44 +01:00
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
sechdr = secdata + i * sechdrsize;
|
|
|
|
|
|
|
|
/* We've already processed the long section names. */
|
|
|
|
|
|
|
|
if ((gnu_sections_found & SOMO_LONGN_PRESENT) != 0
|
|
|
|
&& i == strtab_index)
|
2010-11-02 15:40:44 +01:00
|
|
|
continue;
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
/* We only act on the segment named. */
|
2010-11-02 15:40:44 +01:00
|
|
|
|
|
|
|
if (strcmp ((char *) sechdr + segname_offset, omr->segment_name) != 0)
|
|
|
|
continue;
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
/* Process sections associated with the wrapper. */
|
2010-11-02 15:40:44 +01:00
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
if ((gnu_sections_found & SOMO_WRAPPING) != 0)
|
2010-11-02 15:40:44 +01:00
|
|
|
{
|
2011-10-26 14:37:59 +02:00
|
|
|
if (i == nametab_index || i == index_index)
|
|
|
|
continue;
|
2010-11-02 15:40:44 +01:00
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
if (i == sections_index)
|
2010-11-02 15:40:44 +01:00
|
|
|
{
|
2011-10-26 14:37:59 +02:00
|
|
|
unsigned int j;
|
|
|
|
for (j = 0; j < n_wrapped_sects; ++j)
|
2010-11-02 15:40:44 +01:00
|
|
|
{
|
2011-10-26 14:37:59 +02:00
|
|
|
unsigned int subsect_offset, subsect_length, name_offset;
|
|
|
|
subsect_offset = (*fetch_32) (index + 16 * j);
|
|
|
|
subsect_length = (*fetch_32) (index + 16 * j + 4);
|
|
|
|
name_offset = (*fetch_32) (index + 16 * j + 8);
|
|
|
|
/* We don't need the name_length yet. */
|
|
|
|
|
|
|
|
secoffset = wrapper_sect_offset + subsect_offset;
|
|
|
|
secsize = subsect_length;
|
|
|
|
name = nametab + name_offset;
|
|
|
|
|
|
|
|
if (!(*pfn) (data, name, secoffset, secsize))
|
|
|
|
{
|
|
|
|
*errmsg = NULL;
|
|
|
|
*err = 0;
|
|
|
|
XDELETEVEC (index);
|
|
|
|
XDELETEVEC (nametab);
|
|
|
|
XDELETEVEC (strtab);
|
|
|
|
XDELETEVEC (secdata);
|
|
|
|
return 0;
|
|
|
|
}
|
2010-11-02 15:40:44 +01:00
|
|
|
}
|
2011-10-26 14:37:59 +02:00
|
|
|
continue;
|
2010-11-02 15:40:44 +01:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
if ((gnu_sections_found & SOMO_LONGN_PRESENT) != 0)
|
|
|
|
{
|
|
|
|
memcpy (namebuf, sechdr + sectname_offset, MACH_O_NAME_LEN);
|
|
|
|
namebuf[MACH_O_NAME_LEN] = '\0';
|
|
|
|
|
|
|
|
name = &namebuf[0];
|
|
|
|
if (strtab != NULL && name[0] == '_' && name[1] == '_')
|
|
|
|
{
|
|
|
|
unsigned long stringoffset;
|
|
|
|
|
|
|
|
if (sscanf (name + 2, "%08lX", &stringoffset) == 1)
|
|
|
|
{
|
|
|
|
if (stringoffset >= strtab_size)
|
|
|
|
{
|
|
|
|
*errmsg = "section name offset out of range";
|
|
|
|
*err = 0;
|
|
|
|
XDELETEVEC (index);
|
|
|
|
XDELETEVEC (nametab);
|
|
|
|
XDELETEVEC (strtab);
|
|
|
|
XDELETEVEC (secdata);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
name = strtab + stringoffset;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
/* Otherwise, make a name like __segment,__section as per the
|
|
|
|
convention in mach-o asm. */
|
|
|
|
name = &namebuf[0];
|
|
|
|
memcpy (namebuf, (char *) sechdr + segname_offset, MACH_O_NAME_LEN);
|
2013-01-04 20:00:06 +01:00
|
|
|
namebuf[MACH_O_NAME_LEN] = '\0';
|
2011-10-26 14:37:59 +02:00
|
|
|
l = strlen (namebuf);
|
|
|
|
namebuf[l] = ',';
|
|
|
|
memcpy (namebuf + l + 1, (char *) sechdr + sectname_offset,
|
|
|
|
MACH_O_NAME_LEN);
|
2013-01-04 20:00:06 +01:00
|
|
|
namebuf[l + 1 + MACH_O_NAME_LEN] = '\0';
|
2011-10-26 14:37:59 +02:00
|
|
|
}
|
|
|
|
|
2010-11-02 15:40:44 +01:00
|
|
|
simple_object_mach_o_section_info (omr->is_big_endian, is_32, sechdr,
|
|
|
|
&secoffset, &secsize);
|
|
|
|
|
|
|
|
if (!(*pfn) (data, name, secoffset, secsize))
|
|
|
|
{
|
|
|
|
*errmsg = NULL;
|
|
|
|
*err = 0;
|
2011-10-26 14:37:59 +02:00
|
|
|
XDELETEVEC (index);
|
|
|
|
XDELETEVEC (nametab);
|
2010-11-02 15:40:44 +01:00
|
|
|
XDELETEVEC (strtab);
|
|
|
|
XDELETEVEC (secdata);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
XDELETEVEC (index);
|
|
|
|
XDELETEVEC (nametab);
|
2010-11-02 15:40:44 +01:00
|
|
|
XDELETEVEC (strtab);
|
|
|
|
XDELETEVEC (secdata);
|
|
|
|
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Find all sections in a Mach-O file. */
|
|
|
|
|
|
|
|
static const char *
|
|
|
|
simple_object_mach_o_find_sections (simple_object_read *sobj,
|
|
|
|
int (*pfn) (void *, const char *,
|
|
|
|
off_t offset, off_t length),
|
|
|
|
void *data,
|
|
|
|
int *err)
|
|
|
|
{
|
|
|
|
struct simple_object_mach_o_read *omr =
|
|
|
|
(struct simple_object_mach_o_read *) sobj->data;
|
|
|
|
off_t offset;
|
|
|
|
size_t seghdrsize;
|
|
|
|
unsigned int (*fetch_32) (const unsigned char *);
|
|
|
|
const char *errmsg;
|
|
|
|
unsigned int i;
|
|
|
|
|
|
|
|
if (omr->magic == MACH_O_MH_MAGIC)
|
|
|
|
{
|
|
|
|
offset = sizeof (struct mach_o_header_32);
|
|
|
|
seghdrsize = sizeof (struct mach_o_segment_command_32);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
offset = sizeof (struct mach_o_header_64);
|
|
|
|
seghdrsize = sizeof (struct mach_o_segment_command_64);
|
|
|
|
}
|
|
|
|
|
|
|
|
fetch_32 = (omr->is_big_endian
|
|
|
|
? simple_object_fetch_big_32
|
|
|
|
: simple_object_fetch_little_32);
|
|
|
|
|
|
|
|
for (i = 0; i < omr->ncmds; ++i)
|
|
|
|
{
|
|
|
|
unsigned char loadbuf[sizeof (struct mach_o_load_command)];
|
|
|
|
unsigned int cmd;
|
|
|
|
unsigned int cmdsize;
|
|
|
|
|
|
|
|
if (!simple_object_internal_read (sobj->descriptor,
|
|
|
|
sobj->offset + offset,
|
|
|
|
loadbuf,
|
|
|
|
sizeof (struct mach_o_load_command),
|
|
|
|
&errmsg, err))
|
|
|
|
return errmsg;
|
|
|
|
|
|
|
|
cmd = (*fetch_32) (loadbuf + offsetof (struct mach_o_load_command, cmd));
|
|
|
|
cmdsize = (*fetch_32) (loadbuf
|
|
|
|
+ offsetof (struct mach_o_load_command, cmdsize));
|
|
|
|
|
|
|
|
if (cmd == MACH_O_LC_SEGMENT || cmd == MACH_O_LC_SEGMENT_64)
|
|
|
|
{
|
|
|
|
unsigned char segbuf[sizeof (struct mach_o_segment_command_64)];
|
|
|
|
int r;
|
|
|
|
|
|
|
|
if (!simple_object_internal_read (sobj->descriptor,
|
|
|
|
sobj->offset + offset,
|
|
|
|
segbuf, seghdrsize, &errmsg, err))
|
|
|
|
return errmsg;
|
|
|
|
|
|
|
|
r = simple_object_mach_o_segment (sobj, offset, segbuf, pfn,
|
|
|
|
data, &errmsg, err);
|
|
|
|
if (!r)
|
|
|
|
return errmsg;
|
|
|
|
}
|
|
|
|
|
|
|
|
offset += cmdsize;
|
|
|
|
}
|
|
|
|
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Fetch the attributes for an simple_object_read. */
|
|
|
|
|
|
|
|
static void *
|
|
|
|
simple_object_mach_o_fetch_attributes (simple_object_read *sobj,
|
|
|
|
const char **errmsg ATTRIBUTE_UNUSED,
|
|
|
|
int *err ATTRIBUTE_UNUSED)
|
|
|
|
{
|
|
|
|
struct simple_object_mach_o_read *omr =
|
|
|
|
(struct simple_object_mach_o_read *) sobj->data;
|
|
|
|
struct simple_object_mach_o_attributes *ret;
|
|
|
|
|
|
|
|
ret = XNEW (struct simple_object_mach_o_attributes);
|
|
|
|
ret->magic = omr->magic;
|
|
|
|
ret->is_big_endian = omr->is_big_endian;
|
|
|
|
ret->cputype = omr->cputype;
|
|
|
|
ret->cpusubtype = omr->cpusubtype;
|
|
|
|
ret->flags = omr->flags;
|
|
|
|
ret->reserved = omr->reserved;
|
|
|
|
return ret;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Release the private data for an simple_object_read. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
simple_object_mach_o_release_read (void *data)
|
|
|
|
{
|
|
|
|
struct simple_object_mach_o_read *omr =
|
|
|
|
(struct simple_object_mach_o_read *) data;
|
|
|
|
|
|
|
|
free (omr->segment_name);
|
|
|
|
XDELETE (omr);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Compare two attributes structures. */
|
|
|
|
|
|
|
|
static const char *
|
2010-11-17 02:03:06 +01:00
|
|
|
simple_object_mach_o_attributes_merge (void *todata, void *fromdata, int *err)
|
2010-11-02 15:40:44 +01:00
|
|
|
{
|
2010-11-17 02:03:06 +01:00
|
|
|
struct simple_object_mach_o_attributes *to =
|
|
|
|
(struct simple_object_mach_o_attributes *) todata;
|
|
|
|
struct simple_object_mach_o_attributes *from =
|
|
|
|
(struct simple_object_mach_o_attributes *) fromdata;
|
|
|
|
|
|
|
|
if (to->magic != from->magic
|
|
|
|
|| to->is_big_endian != from->is_big_endian
|
|
|
|
|| to->cputype != from->cputype)
|
2010-11-02 15:40:44 +01:00
|
|
|
{
|
|
|
|
*err = 0;
|
|
|
|
return "Mach-O object format mismatch";
|
|
|
|
}
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Release the private data for an attributes structure. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
simple_object_mach_o_release_attributes (void *data)
|
|
|
|
{
|
|
|
|
XDELETE (data);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Prepare to write out a file. */
|
|
|
|
|
|
|
|
static void *
|
|
|
|
simple_object_mach_o_start_write (void *attributes_data,
|
|
|
|
const char **errmsg ATTRIBUTE_UNUSED,
|
|
|
|
int *err ATTRIBUTE_UNUSED)
|
|
|
|
{
|
|
|
|
struct simple_object_mach_o_attributes *attrs =
|
|
|
|
(struct simple_object_mach_o_attributes *) attributes_data;
|
|
|
|
struct simple_object_mach_o_attributes *ret;
|
|
|
|
|
|
|
|
/* We're just going to record the attributes, but we need to make a
|
|
|
|
copy because the user may delete them. */
|
|
|
|
ret = XNEW (struct simple_object_mach_o_attributes);
|
|
|
|
*ret = *attrs;
|
|
|
|
return ret;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Write out the header of a Mach-O file. */
|
|
|
|
|
|
|
|
static int
|
|
|
|
simple_object_mach_o_write_header (simple_object_write *sobj, int descriptor,
|
|
|
|
size_t nsects, const char **errmsg,
|
|
|
|
int *err)
|
|
|
|
{
|
|
|
|
struct simple_object_mach_o_attributes *attrs =
|
|
|
|
(struct simple_object_mach_o_attributes *) sobj->data;
|
|
|
|
void (*set_32) (unsigned char *, unsigned int);
|
|
|
|
unsigned char hdrbuf[sizeof (struct mach_o_header_64)];
|
|
|
|
unsigned char *hdr;
|
|
|
|
size_t wrsize;
|
|
|
|
|
|
|
|
set_32 = (attrs->is_big_endian
|
|
|
|
? simple_object_set_big_32
|
|
|
|
: simple_object_set_little_32);
|
|
|
|
|
|
|
|
memset (hdrbuf, 0, sizeof hdrbuf);
|
|
|
|
|
|
|
|
/* The 32-bit and 64-bit headers start out the same. */
|
|
|
|
|
|
|
|
hdr = &hdrbuf[0];
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_header_32, magic), attrs->magic);
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_header_32, cputype), attrs->cputype);
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_header_32, cpusubtype),
|
|
|
|
attrs->cpusubtype);
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_header_32, filetype), MACH_O_MH_OBJECT);
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_header_32, ncmds), 1);
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_header_32, flags), attrs->flags);
|
|
|
|
if (attrs->magic == MACH_O_MH_MAGIC)
|
|
|
|
{
|
|
|
|
wrsize = sizeof (struct mach_o_header_32);
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_header_32, sizeofcmds),
|
|
|
|
(sizeof (struct mach_o_segment_command_32)
|
|
|
|
+ nsects * sizeof (struct mach_o_section_32)));
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_header_64, sizeofcmds),
|
|
|
|
(sizeof (struct mach_o_segment_command_64)
|
|
|
|
+ nsects * sizeof (struct mach_o_section_64)));
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_header_64, reserved),
|
|
|
|
attrs->reserved);
|
|
|
|
wrsize = sizeof (struct mach_o_header_64);
|
|
|
|
}
|
|
|
|
|
|
|
|
return simple_object_internal_write (descriptor, 0, hdrbuf, wrsize,
|
|
|
|
errmsg, err);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Write a Mach-O section header. */
|
|
|
|
|
|
|
|
static int
|
|
|
|
simple_object_mach_o_write_section_header (simple_object_write *sobj,
|
|
|
|
int descriptor,
|
|
|
|
size_t sechdr_offset,
|
2011-10-26 14:37:59 +02:00
|
|
|
const char *name, const char *segn,
|
|
|
|
size_t secaddr, size_t secsize,
|
|
|
|
size_t offset, unsigned int align,
|
2010-11-02 15:40:44 +01:00
|
|
|
const char **errmsg, int *err)
|
|
|
|
{
|
|
|
|
struct simple_object_mach_o_attributes *attrs =
|
|
|
|
(struct simple_object_mach_o_attributes *) sobj->data;
|
|
|
|
void (*set_32) (unsigned char *, unsigned int);
|
|
|
|
unsigned char hdrbuf[sizeof (struct mach_o_section_64)];
|
|
|
|
unsigned char *hdr;
|
|
|
|
size_t sechdrsize;
|
|
|
|
|
|
|
|
set_32 = (attrs->is_big_endian
|
|
|
|
? simple_object_set_big_32
|
|
|
|
: simple_object_set_little_32);
|
|
|
|
|
|
|
|
memset (hdrbuf, 0, sizeof hdrbuf);
|
|
|
|
|
|
|
|
hdr = &hdrbuf[0];
|
|
|
|
if (attrs->magic == MACH_O_MH_MAGIC)
|
|
|
|
{
|
|
|
|
strncpy ((char *) hdr + offsetof (struct mach_o_section_32, sectname),
|
|
|
|
name, MACH_O_NAME_LEN);
|
|
|
|
strncpy ((char *) hdr + offsetof (struct mach_o_section_32, segname),
|
2011-10-26 14:37:59 +02:00
|
|
|
segn, MACH_O_NAME_LEN);
|
2010-11-02 15:40:44 +01:00
|
|
|
set_32 (hdr + offsetof (struct mach_o_section_32, addr), secaddr);
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_section_32, size), secsize);
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_section_32, offset), offset);
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_section_32, align), align);
|
|
|
|
/* reloff left as zero. */
|
|
|
|
/* nreloc left as zero. */
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_section_32, flags),
|
|
|
|
MACH_O_S_ATTR_DEBUG);
|
|
|
|
/* reserved1 left as zero. */
|
|
|
|
/* reserved2 left as zero. */
|
|
|
|
sechdrsize = sizeof (struct mach_o_section_32);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
#ifdef UNSIGNED_64BIT_TYPE
|
|
|
|
void (*set_64) (unsigned char *, ulong_type);
|
|
|
|
|
|
|
|
set_64 = (attrs->is_big_endian
|
|
|
|
? simple_object_set_big_64
|
|
|
|
: simple_object_set_little_64);
|
|
|
|
|
|
|
|
strncpy ((char *) hdr + offsetof (struct mach_o_section_64, sectname),
|
|
|
|
name, MACH_O_NAME_LEN);
|
|
|
|
strncpy ((char *) hdr + offsetof (struct mach_o_section_64, segname),
|
2011-10-26 14:37:59 +02:00
|
|
|
segn, MACH_O_NAME_LEN);
|
2010-11-02 15:40:44 +01:00
|
|
|
set_64 (hdr + offsetof (struct mach_o_section_64, addr), secaddr);
|
|
|
|
set_64 (hdr + offsetof (struct mach_o_section_64, size), secsize);
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_section_64, offset), offset);
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_section_64, align), align);
|
|
|
|
/* reloff left as zero. */
|
|
|
|
/* nreloc left as zero. */
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_section_64, flags),
|
|
|
|
MACH_O_S_ATTR_DEBUG);
|
|
|
|
/* reserved1 left as zero. */
|
|
|
|
/* reserved2 left as zero. */
|
|
|
|
/* reserved3 left as zero. */
|
|
|
|
#endif
|
|
|
|
sechdrsize = sizeof (struct mach_o_section_64);
|
|
|
|
}
|
|
|
|
|
|
|
|
return simple_object_internal_write (descriptor, sechdr_offset, hdr,
|
|
|
|
sechdrsize, errmsg, err);
|
|
|
|
}
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
/* Write out the single (anonymous) segment containing the sections of a Mach-O
|
|
|
|
Object file.
|
|
|
|
|
|
|
|
As a GNU extension to mach-o, when the caller specifies a segment name in
|
|
|
|
sobj->segment_name, all the sections passed will be output under a single
|
|
|
|
mach-o section header. The caller's sections are indexed within this
|
|
|
|
'wrapper' section by a table stored in a second mach-o section. Finally,
|
|
|
|
arbitrary length section names are permitted by the extension and these are
|
|
|
|
stored in a table in a third mach-o section.
|
|
|
|
|
|
|
|
Note that this is only likely to make any sense for the __GNU_LTO segment
|
|
|
|
at present.
|
|
|
|
|
|
|
|
If the wrapper extension is not in force, we assume that the section name
|
|
|
|
is in the form __SEGMENT_NAME,__section_name as per Mach-O asm. */
|
2010-11-02 15:40:44 +01:00
|
|
|
|
|
|
|
static int
|
|
|
|
simple_object_mach_o_write_segment (simple_object_write *sobj, int descriptor,
|
2011-10-26 14:37:59 +02:00
|
|
|
size_t *nsects, const char **errmsg,
|
2010-11-02 15:40:44 +01:00
|
|
|
int *err)
|
|
|
|
{
|
|
|
|
struct simple_object_mach_o_attributes *attrs =
|
|
|
|
(struct simple_object_mach_o_attributes *) sobj->data;
|
|
|
|
void (*set_32) (unsigned char *, unsigned int);
|
|
|
|
size_t hdrsize;
|
|
|
|
size_t seghdrsize;
|
|
|
|
size_t sechdrsize;
|
|
|
|
size_t cmdsize;
|
|
|
|
size_t offset;
|
|
|
|
size_t sechdr_offset;
|
|
|
|
size_t secaddr;
|
|
|
|
unsigned int name_offset;
|
|
|
|
simple_object_write_section *section;
|
|
|
|
unsigned char hdrbuf[sizeof (struct mach_o_segment_command_64)];
|
|
|
|
unsigned char *hdr;
|
2011-10-26 14:37:59 +02:00
|
|
|
size_t nsects_in;
|
|
|
|
unsigned int *index;
|
|
|
|
char *snames;
|
|
|
|
unsigned int sect;
|
2010-11-02 15:40:44 +01:00
|
|
|
|
|
|
|
set_32 = (attrs->is_big_endian
|
|
|
|
? simple_object_set_big_32
|
|
|
|
: simple_object_set_little_32);
|
|
|
|
|
|
|
|
/* Write out the sections first. */
|
|
|
|
|
|
|
|
if (attrs->magic == MACH_O_MH_MAGIC)
|
|
|
|
{
|
|
|
|
hdrsize = sizeof (struct mach_o_header_32);
|
|
|
|
seghdrsize = sizeof (struct mach_o_segment_command_32);
|
|
|
|
sechdrsize = sizeof (struct mach_o_section_32);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
hdrsize = sizeof (struct mach_o_header_64);
|
|
|
|
seghdrsize = sizeof (struct mach_o_segment_command_64);
|
|
|
|
sechdrsize = sizeof (struct mach_o_section_64);
|
|
|
|
}
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
name_offset = 0;
|
|
|
|
*nsects = nsects_in = 0;
|
|
|
|
|
|
|
|
/* Count the number of sections we start with. */
|
|
|
|
|
|
|
|
for (section = sobj->sections; section != NULL; section = section->next)
|
|
|
|
nsects_in++;
|
|
|
|
|
|
|
|
if (sobj->segment_name != NULL)
|
|
|
|
{
|
|
|
|
/* We will only write 3 sections: wrapped data, index and names. */
|
|
|
|
|
|
|
|
*nsects = 3;
|
|
|
|
|
|
|
|
/* The index has four entries per wrapped section:
|
|
|
|
Section Offset, length, Name offset, length.
|
|
|
|
Where the offsets are based at the start of the wrapper and name
|
|
|
|
sections respectively.
|
|
|
|
The values are stored as 32 bit int for both 32 and 64 bit mach-o
|
|
|
|
since the size of a mach-o MH_OBJECT cannot exceed 4G owing to
|
|
|
|
other constraints. */
|
|
|
|
|
|
|
|
index = XNEWVEC (unsigned int, nsects_in * 4);
|
|
|
|
|
|
|
|
/* We now need to figure out the size of the names section. This just
|
|
|
|
stores the names as null-terminated c strings, packed without any
|
|
|
|
alignment padding. */
|
|
|
|
|
|
|
|
for (section = sobj->sections, sect = 0; section != NULL;
|
|
|
|
section = section->next, sect++)
|
|
|
|
{
|
|
|
|
index[sect*4+2] = name_offset;
|
|
|
|
index[sect*4+3] = strlen (section->name) + 1;
|
|
|
|
name_offset += strlen (section->name) + 1;
|
|
|
|
}
|
|
|
|
snames = XNEWVEC (char, name_offset);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
*nsects = nsects_in;
|
|
|
|
index = NULL;
|
|
|
|
snames = NULL;
|
|
|
|
}
|
|
|
|
|
2010-11-02 15:40:44 +01:00
|
|
|
sechdr_offset = hdrsize + seghdrsize;
|
2011-10-26 14:37:59 +02:00
|
|
|
cmdsize = seghdrsize + *nsects * sechdrsize;
|
2010-11-02 15:40:44 +01:00
|
|
|
offset = hdrsize + cmdsize;
|
|
|
|
secaddr = 0;
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
for (section = sobj->sections, sect = 0;
|
|
|
|
section != NULL; section = section->next, sect++)
|
2010-11-02 15:40:44 +01:00
|
|
|
{
|
|
|
|
size_t mask;
|
|
|
|
size_t new_offset;
|
|
|
|
size_t secsize;
|
|
|
|
struct simple_object_write_section_buffer *buffer;
|
|
|
|
|
|
|
|
mask = (1U << section->align) - 1;
|
|
|
|
new_offset = offset + mask;
|
|
|
|
new_offset &= ~ mask;
|
|
|
|
while (new_offset > offset)
|
|
|
|
{
|
|
|
|
unsigned char zeroes[16];
|
|
|
|
size_t write;
|
|
|
|
|
|
|
|
memset (zeroes, 0, sizeof zeroes);
|
|
|
|
write = new_offset - offset;
|
|
|
|
if (write > sizeof zeroes)
|
|
|
|
write = sizeof zeroes;
|
|
|
|
if (!simple_object_internal_write (descriptor, offset, zeroes, write,
|
|
|
|
errmsg, err))
|
|
|
|
return 0;
|
|
|
|
offset += write;
|
|
|
|
}
|
|
|
|
|
|
|
|
secsize = 0;
|
|
|
|
for (buffer = section->buffers; buffer != NULL; buffer = buffer->next)
|
|
|
|
{
|
|
|
|
if (!simple_object_internal_write (descriptor, offset + secsize,
|
|
|
|
((const unsigned char *)
|
|
|
|
buffer->buffer),
|
|
|
|
buffer->size, errmsg, err))
|
|
|
|
return 0;
|
|
|
|
secsize += buffer->size;
|
|
|
|
}
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
if (sobj->segment_name != NULL)
|
|
|
|
{
|
|
|
|
index[sect*4+0] = (unsigned int) offset;
|
|
|
|
index[sect*4+1] = secsize;
|
|
|
|
/* Stash the section name in our table. */
|
|
|
|
memcpy (snames + index[sect * 4 + 2], section->name,
|
|
|
|
index[sect * 4 + 3]);
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
char namebuf[MACH_O_NAME_LEN + 1];
|
|
|
|
char segnbuf[MACH_O_NAME_LEN + 1];
|
|
|
|
char *comma;
|
|
|
|
|
|
|
|
/* Try to extract segment,section from the input name. */
|
|
|
|
|
|
|
|
memset (namebuf, 0, sizeof namebuf);
|
|
|
|
memset (segnbuf, 0, sizeof segnbuf);
|
|
|
|
comma = strchr (section->name, ',');
|
|
|
|
if (comma != NULL)
|
|
|
|
{
|
|
|
|
int len = comma - section->name;
|
|
|
|
len = len > MACH_O_NAME_LEN ? MACH_O_NAME_LEN : len;
|
|
|
|
strncpy (namebuf, section->name, len);
|
|
|
|
strncpy (segnbuf, comma + 1, MACH_O_NAME_LEN);
|
|
|
|
}
|
|
|
|
else /* just try to copy the name, leave segment blank. */
|
|
|
|
strncpy (namebuf, section->name, MACH_O_NAME_LEN);
|
|
|
|
|
|
|
|
if (!simple_object_mach_o_write_section_header (sobj, descriptor,
|
|
|
|
sechdr_offset,
|
|
|
|
namebuf, segnbuf,
|
|
|
|
secaddr, secsize,
|
|
|
|
offset,
|
|
|
|
section->align,
|
|
|
|
errmsg, err))
|
|
|
|
return 0;
|
|
|
|
sechdr_offset += sechdrsize;
|
|
|
|
}
|
|
|
|
|
|
|
|
offset += secsize;
|
|
|
|
secaddr += secsize;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (sobj->segment_name != NULL)
|
|
|
|
{
|
|
|
|
size_t secsize;
|
|
|
|
unsigned int i;
|
|
|
|
|
|
|
|
/* Write the section header for the wrapper. */
|
|
|
|
/* Account for any initial aligment - which becomes the alignment for this
|
|
|
|
created section. */
|
|
|
|
|
|
|
|
secsize = (offset - index[0]);
|
2010-11-02 15:40:44 +01:00
|
|
|
if (!simple_object_mach_o_write_section_header (sobj, descriptor,
|
2011-10-26 14:37:59 +02:00
|
|
|
sechdr_offset,
|
|
|
|
GNU_WRAPPER_SECTS,
|
|
|
|
sobj->segment_name,
|
|
|
|
0 /*secaddr*/,
|
|
|
|
secsize, index[0],
|
|
|
|
sobj->sections->align,
|
2010-11-02 15:40:44 +01:00
|
|
|
errmsg, err))
|
|
|
|
return 0;
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
/* Subtract the wrapper section start from the begining of each sub
|
|
|
|
section. */
|
|
|
|
|
|
|
|
for (i = 1; i < nsects_in; ++i)
|
|
|
|
index[4 * i] -= index[0];
|
|
|
|
index[0] = 0;
|
|
|
|
|
2010-11-02 15:40:44 +01:00
|
|
|
sechdr_offset += sechdrsize;
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
/* Write out the section names.
|
|
|
|
... the header ...
|
|
|
|
name_offset contains the length of the section. It is not aligned. */
|
2010-11-02 15:40:44 +01:00
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
if (!simple_object_mach_o_write_section_header (sobj, descriptor,
|
|
|
|
sechdr_offset,
|
|
|
|
GNU_WRAPPER_NAMES,
|
|
|
|
sobj->segment_name,
|
|
|
|
0 /*secaddr*/,
|
|
|
|
name_offset,
|
|
|
|
offset,
|
|
|
|
0, errmsg, err))
|
|
|
|
return 0;
|
2010-11-02 15:40:44 +01:00
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
/* ... and the content.. */
|
|
|
|
if (!simple_object_internal_write (descriptor, offset,
|
|
|
|
(const unsigned char *) snames,
|
|
|
|
name_offset, errmsg, err))
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
sechdr_offset += sechdrsize;
|
|
|
|
secaddr += name_offset;
|
|
|
|
offset += name_offset;
|
|
|
|
|
|
|
|
/* Now do the index, we'll align this to 4 bytes although the read code
|
|
|
|
will handle unaligned. */
|
|
|
|
|
|
|
|
offset += 3;
|
|
|
|
offset &= ~0x03;
|
|
|
|
if (!simple_object_mach_o_write_section_header (sobj, descriptor,
|
|
|
|
sechdr_offset,
|
|
|
|
GNU_WRAPPER_INDEX,
|
|
|
|
sobj->segment_name,
|
|
|
|
0 /*secaddr*/,
|
|
|
|
nsects_in * 16,
|
|
|
|
offset,
|
|
|
|
2, errmsg, err))
|
|
|
|
return 0;
|
2010-11-02 15:40:44 +01:00
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
/* ... and the content.. */
|
2010-11-02 15:40:44 +01:00
|
|
|
if (!simple_object_internal_write (descriptor, offset,
|
2011-10-26 14:37:59 +02:00
|
|
|
(const unsigned char *) index,
|
|
|
|
nsects_in*16, errmsg, err))
|
2010-11-02 15:40:44 +01:00
|
|
|
return 0;
|
2011-10-26 14:37:59 +02:00
|
|
|
|
|
|
|
XDELETEVEC (index);
|
|
|
|
XDELETEVEC (snames);
|
2010-11-02 15:40:44 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Write out the segment header. */
|
|
|
|
|
|
|
|
memset (hdrbuf, 0, sizeof hdrbuf);
|
|
|
|
|
|
|
|
hdr = &hdrbuf[0];
|
|
|
|
if (attrs->magic == MACH_O_MH_MAGIC)
|
|
|
|
{
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_segment_command_32, cmd),
|
|
|
|
MACH_O_LC_SEGMENT);
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_segment_command_32, cmdsize),
|
|
|
|
cmdsize);
|
2011-10-26 14:37:59 +02:00
|
|
|
/* MH_OBJECTS have a single, anonymous, segment - so the segment name
|
|
|
|
is left empty. */
|
2010-11-02 15:40:44 +01:00
|
|
|
/* vmaddr left as zero. */
|
|
|
|
/* vmsize left as zero. */
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_segment_command_32, fileoff),
|
|
|
|
hdrsize + cmdsize);
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_segment_command_32, filesize),
|
|
|
|
offset - (hdrsize + cmdsize));
|
|
|
|
/* maxprot left as zero. */
|
|
|
|
/* initprot left as zero. */
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_segment_command_32, nsects),
|
2011-10-26 14:37:59 +02:00
|
|
|
*nsects);
|
2010-11-02 15:40:44 +01:00
|
|
|
/* flags left as zero. */
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
#ifdef UNSIGNED_64BIT_TYPE
|
|
|
|
void (*set_64) (unsigned char *, ulong_type);
|
|
|
|
|
|
|
|
set_64 = (attrs->is_big_endian
|
|
|
|
? simple_object_set_big_64
|
|
|
|
: simple_object_set_little_64);
|
|
|
|
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_segment_command_64, cmd),
|
|
|
|
MACH_O_LC_SEGMENT);
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_segment_command_64, cmdsize),
|
|
|
|
cmdsize);
|
2011-10-26 14:37:59 +02:00
|
|
|
/* MH_OBJECTS have a single, anonymous, segment - so the segment name
|
|
|
|
is left empty. */
|
2010-11-02 15:40:44 +01:00
|
|
|
/* vmaddr left as zero. */
|
|
|
|
/* vmsize left as zero. */
|
|
|
|
set_64 (hdr + offsetof (struct mach_o_segment_command_64, fileoff),
|
|
|
|
hdrsize + cmdsize);
|
|
|
|
set_64 (hdr + offsetof (struct mach_o_segment_command_64, filesize),
|
|
|
|
offset - (hdrsize + cmdsize));
|
|
|
|
/* maxprot left as zero. */
|
|
|
|
/* initprot left as zero. */
|
|
|
|
set_32 (hdr + offsetof (struct mach_o_segment_command_64, nsects),
|
2011-10-26 14:37:59 +02:00
|
|
|
*nsects);
|
2010-11-02 15:40:44 +01:00
|
|
|
/* flags left as zero. */
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
return simple_object_internal_write (descriptor, hdrsize, hdr, seghdrsize,
|
|
|
|
errmsg, err);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Write out a complete Mach-O file. */
|
|
|
|
|
|
|
|
static const char *
|
|
|
|
simple_object_mach_o_write_to_file (simple_object_write *sobj, int descriptor,
|
|
|
|
int *err)
|
|
|
|
{
|
2011-10-26 14:37:59 +02:00
|
|
|
size_t nsects = 0;
|
2010-11-02 15:40:44 +01:00
|
|
|
const char *errmsg;
|
|
|
|
|
2011-10-26 14:37:59 +02:00
|
|
|
if (!simple_object_mach_o_write_segment (sobj, descriptor, &nsects,
|
|
|
|
&errmsg, err))
|
|
|
|
return errmsg;
|
2010-11-02 15:40:44 +01:00
|
|
|
|
|
|
|
if (!simple_object_mach_o_write_header (sobj, descriptor, nsects,
|
|
|
|
&errmsg, err))
|
|
|
|
return errmsg;
|
|
|
|
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Release the private data for an simple_object_write structure. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
simple_object_mach_o_release_write (void *data)
|
|
|
|
{
|
|
|
|
XDELETE (data);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* The Mach-O functions. */
|
|
|
|
|
|
|
|
const struct simple_object_functions simple_object_mach_o_functions =
|
|
|
|
{
|
|
|
|
simple_object_mach_o_match,
|
|
|
|
simple_object_mach_o_find_sections,
|
|
|
|
simple_object_mach_o_fetch_attributes,
|
|
|
|
simple_object_mach_o_release_read,
|
2010-11-17 02:03:06 +01:00
|
|
|
simple_object_mach_o_attributes_merge,
|
2010-11-02 15:40:44 +01:00
|
|
|
simple_object_mach_o_release_attributes,
|
|
|
|
simple_object_mach_o_start_write,
|
|
|
|
simple_object_mach_o_write_to_file,
|
re PR go/78628 (GO fails to build a translation unit decl)
2017-08-21 Richard Biener <rguenther@suse.de>
include/
* simple-object.h (simple_object_copy_lto_debug_sections): New
function.
libiberty/
* simple-object-common.h (struct simple_object_functions): Add
copy_lto_debug_sections hook.
* simple-object.c: Include fcntl.h.
(handle_lto_debug_sections): New helper function.
(simple_object_copy_lto_debug_sections): New function copying
early LTO debug sections to regular debug sections in a new file.
(simple_object_start_write): Handle NULL segment_name.
* simple-object-coff.c (simple_object_coff_functions): Adjust
for not implemented copy_lto_debug_sections hook.
* simple-object-mach-o.c (simple_object_mach_o_functions): Likewise.
* simple-object-xcoff.c (simple_object_xcoff_functions): Likewise.
* simple-object-elf.c (SHT_NULL, SHT_SYMTAB, SHT_RELA, SHT_REL,
SHT_GROUP): Add various sectopn header types.
(SHF_EXCLUDE): Add flag.
(Elf32_External_Sym, Elf64_External_Sym): Add symbol struct.
(ELF_ST_BIND, ELF_ST_TYPE, ELF_ST_INFO): Add accessors.
(STT_OBJECT, STT_FUNC, STT_TLS, STT_GNU_IFUNC): Add Symbol types.
(STV_DEFAULT): Add symbol visibility.
(SHN_COMMON): Add special section index name.
(struct simple_object_elf_write): New.
(simple_object_elf_start_write): Adjust for new private data.
(simple_object_elf_write_shdr): Pass in values for all fields
we write.
(simple_object_elf_write_to_file): Adjust. Copy from recorded
section headers if requested.
(simple_object_elf_release_write): Release private data.
(simple_object_elf_copy_lto_debug_sections): Copy and rename sections
as denoted by PFN and all their dependences, symbols and relocations
to the empty destination file.
(simple_object_elf_functions): Adjust for copy_lto_debug_sections hook.
gcc/
* debug.h (struct gcc_debug_hooks): Add die_ref_for_decl and
register_external_die hooks.
(debug_false_tree_charstarstar_uhwistar): Declare.
(debug_nothing_tree_charstar_uhwi): Likewise.
* debug.c (do_nothing_debug_hooks): Adjust.
(debug_false_tree_charstarstar_uhwistar): New do nothing.
(debug_nothing_tree_charstar_uhwi): Likewise.
* dbxout.c (dbx_debug_hooks): Adjust.
(xcoff_debug_hooks): Likewise.
* sdbout.c (sdb_debug_hooks): Likewise.
* vmsdbgout.c (vmsdbg_debug_hooks): Likewise.
* dwarf2out.c (macinfo_label_base): New global.
(dwarf2out_register_external_die): New function for the
register_external_die hook.
(dwarf2out_die_ref_for_decl): Likewise for die_ref_for_decl.
(dwarf2_debug_hooks): Use them.
(dwarf2_lineno_debug_hooks): Adjust.
(struct die_struct): Add with_offset flag.
(DEBUG_LTO_DWO_INFO_SECTION, DEBUG_LTO_INFO_SECTION,
DEBUG_LTO_DWO_ABBREV_SECTION, DEBUG_LTO_ABBREV_SECTION,
DEBUG_LTO_DWO_MACINFO_SECTION, DEBUG_LTO_MACINFO_SECTION,
DEBUG_LTO_DWO_MACRO_SECTION, DEBUG_LTO_MACRO_SECTION,
DEBUG_LTO_LINE_SECTION, DEBUG_LTO_DWO_STR_OFFSETS_SECTION,
DEBUG_LTO_STR_DWO_SECTION, DEBUG_STR_LTO_SECTION): New macros
defining section names for the early LTO debug variants.
(reset_indirect_string): New helper.
(add_AT_external_die_ref): Helper for dwarf2out_register_external_die.
(print_dw_val): Add support for offsetted symbol references.
(get_ultimate_context): Split out from is_cxx.
(is_cxx): Use get_ultimate_context.
(is_fortran): Add decl overload.
(compute_comp_unit_symbol): Split out worker from
compute_section_prefix.
(compute_section_prefix): Call compute_comp_unit_symbol and
set comdat_type_p here.
(output_die): Skip DIE symbol output for the LTO added one.
Handle DIE symbol references with offset.
(output_comp_unit): Guard section name mangling properly.
For LTO debug sections emit a symbol at the section beginning
which we use to refer to its DIEs.
(add_abstract_origin_attribute): For DIEs registered via
dwarf2out_register_external_die directly refer to the early
DIE rather than indirectly through the shadow one we created.
Remove obsolete call to dwarf2out_abstract_function for
non-function/block origins.
(gen_array_type_die): When generating early LTO debug do
not emit DW_AT_string_length.
(gen_formal_parameter_die): Do not re-create DIEs for PARM_DECLs
late when in LTO. As suggested place a gcc_unreachable for
the DECL_ABSTRACT_P case.
(gen_subprogram_die): Avoid another specification DIE
for early built declarations/definitions for the late LTO case.
(gen_variable_die): Add type references for late duplicated VLA dies
when in late LTO.
(gen_inlined_subroutine_die): Do not call dwarf2out_abstract_function,
we have the abstract instance already.
(process_scope_var): Adjust decl DIE contexts in LTO which
first puts them in limbo.
(gen_decl_die): Do not generate type DIEs late apart from
types for VLAs or for decls we do not yet have a DIE. Do not
call dwarf2out_abstract_function late.
(dwarf2out_early_global_decl): Make sure to create DIEs
for abstract instances of a decl first.
(dwarf2out_late_global_decl): Adjust comment.
(output_macinfo_op): With multiple macro sections use
macinfo_label_base to distinguish labels.
(output_macinfo): Likewise. Update macinfo_label_base.
Pass in the line info label.
(note_variable_value_in_expr): When generating LTO resolve
all variable values here by generating DIEs as needed.
(init_sections_and_labels): Add early LTO debug flag parameter
and generate different sections and names if set. Add generation
counter for the labels so we can have multiple of them.
(reset_dies): Helper to allow DIEs to be output multiple times.
(dwarf2out_finish): When outputting DIEs to the fat part of an
LTO object first reset DIEs.
(dwarf2out_early_finish): Output early DIEs when generating LTO.
(modified_type_die): Check for decl_ultimate_origin being self
before recursing.
(gen_type_die_with_usage): Likewise.
(gen_typedef_die): Allow decl_ultimate_origin being self.
(set_decl_abstract_flags): Remove.
(set_block_abstract_flags): Likewise.
(dwarf2out_abstract_function): Treat the early generated DIEs
as the abstract copy and only add DW_AT_inline and
DW_AT_artificial here and call set_decl_origin_self.
If the DIE has an abstract origin don't do anything.
* tree.c (free_lang_data): Build a dummy TRANSLATION_UNIT_DECL
if we have none yet (Go fails to build one, PR78628).
(variably_modified_type_p): Prevent endless recursion for Ada
cyclic pointer types.
* lto-streamer-in.c: Include debug.h.
(dref_queue): New global.
(lto_read_tree_1): Stream in DIE references.
(lto_input_tree): Register DIE references.
(input_function): Stream DECL_DEBUG_ARGS.
* lto-streamer-out.c: Include debug.h.
(lto_write_tree_1): Output DIE references.
(DFS::DFS_write_tree_body): Follow DECL_ABSTRACT_ORIGIN.
Force a TRANSLATION_UNIT_DECL DECL_CONTEXT for file-scope decls.
(output_function): Stream DECL_DEBUG_ARGS.
* tree-streamer-in.c (lto_input_ts_decl_common_tree_pointers):
Stream DECL_ABSTRACT_ORIGIN.
* tree-streamer-out.c (write_ts_decl_common_tree_pointers): Likewise.
(write_ts_decl_minimal_tree_pointers): Force a TRANSLATION_UNIT_DECL
DECL_CONTEXT for file-scope decls.
* lto-streamer.h (struct dref_entry): Declare.
(dref_queue): Likewise.
* cfgexpand.c (pass_expand::execute): Do not call the
outlining_inline_function hook here.
* lto-wrapper.c (debug_obj): New global.
(tool_cleanup): Unlink it if required.
(debug_objcopy): New function.
(run_gcc): Handle early debug sections in the IL files by
extracting them to separate files, partially linkin them and
feeding the result back as result to the linker.
* config/darwin.h (DEBUG_LTO_INFO_SECTION, DEBUG_LTO_ABBREV_SECTION,
DEBUG_LTO_MACINFO_SECTION, DEBUG_LTO_LINE_SECTION,
DEBUG_STR_LTO_SECTION, DEBUG_LTO_MACRO_SECTION): Put early debug
sections into a separate segment.
* config/darwin.c (darwin_asm_named_section): Handle __GNU_DWARF_LTO
segments.
(darwin_asm_dwarf_section): Likewise.
(darwin_asm_output_dwarf_offset): Likewise.
* config/i386/i386.c (make_resolver_func): Set DECL_IGNORED_P.
lto/
* lto.c (unify_scc): Truncate DIE reference queue for dropped SCCs.
(lto_read_decls): Process TRANSLATION_UNIT_DECLs. Remove
TYPE_DECL debug processing, register DIE references from
prevailing SCCs with the debug machinery.
(lto_section_with_id): Handle LTO debug sections.
libstdc++/
* testsuite/libstdc++-prettyprinters/prettyprinters.exp: Run all
tests with -flto as well if supported.
testsuite/
* c-c++-common/asan/global-overflow-1.c: Adjust diagnostic location
regex to handle the LTO case.
* c-c++-common/asan/heap-overflow-1.c: Likewise.
* c-c++-common/asan/misalign-1.c: Likewise.
* c-c++-common/asan/misalign-2.c: Likewise.
* c-c++-common/asan/null-deref-1.c: Likewise.
* c-c++-common/asan/stack-overflow-1.c: Likewise.
* c-c++-common/asan/strncpy-overflow-1.c: Likewise.
* c-c++-common/asan/use-after-free-1.c: Likewise.
* c-c++-common/asan/alloca_big_alignment.c: Likewise.
* c-c++-common/asan/alloca_detect_custom_size.c: Likewise.
* c-c++-common/asan/alloca_overflow_partial.c: Likewise.
* c-c++-common/asan/alloca_overflow_right.c: Likewise.
* c-c++-common/asan/alloca_underflow_left.c: Likewise.
* g++.dg/asan/large-func-test-1.C: Likewise.
* gfortran.dg/save_6.f90: Add -flto -g variant of save_5.f90.
From-SVN: r251220
2017-08-21 12:29:00 +02:00
|
|
|
simple_object_mach_o_release_write,
|
|
|
|
NULL
|
2010-11-02 15:40:44 +01:00
|
|
|
};
|