From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001 From: upstream source tree Date: Sun, 15 Mar 2015 20:14:05 -0400 Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream tarball. downloading a git-generated archive based on the 'upstream' tag should provide you with a source tree that is binary identical to the one extracted from the above tarball. if you have obtained the source via the command 'git clone', however, do note that line-endings of files in your working directory might differ from line-endings of the respective files in the upstream repository. --- gcc/collect2-aix.c | 369 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 369 insertions(+) create mode 100644 gcc/collect2-aix.c (limited to 'gcc/collect2-aix.c') diff --git a/gcc/collect2-aix.c b/gcc/collect2-aix.c new file mode 100644 index 000000000..101826519 --- /dev/null +++ b/gcc/collect2-aix.c @@ -0,0 +1,369 @@ +/* AIX cross support for collect2. + Copyright (C) 2009, 2010 Free Software Foundation, Inc. + +This file is part of GCC. + +GCC 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 3, or (at your option) any later +version. + +GCC 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 GCC; see the file COPYING3. If not see +. */ + +#include "config.h" +#include "system.h" +#include "coretypes.h" +#include "tm.h" +#include "collect2-aix.h" + +#ifdef CROSS_AIX_SUPPORT + +/* Read SIZE bytes starting at DATA as a big-endian value. */ + +static inline bfd_vma +read_value (char *data, unsigned int size) +{ + bfd_vma value; + unsigned int i; + + value = 0; + for (i = 0; i < size; i++) + { + value <<= 8; + value += (unsigned char) data[i]; + } + return value; +} + +/* FIELD is a char array. Read the contents as a big-endian integer. */ +#define READ_FIELD(FIELD) \ + read_value (FIELD, sizeof (FIELD)) + +/* OBJECT is a char pointer to an in-file object of type struct TYPE. + Return the address of field FIELD. */ +#define OBJECT_FIELD(OBJECT, TYPE, FIELD) \ + (OBJECT) + offsetof (struct TYPE, FIELD) + +/* Return the size of FIELD, which is a field of struct TYPE. */ +#define FIELD_SIZE(TYPE, FIELD) \ + sizeof (((struct TYPE *) (0))->FIELD) + +/* OBJECT is a char pointer to an in-file object of type struct TYPE. + Read the value of field FIELD as a big-endian integer. */ +#define READ_OBJECT(OBJECT, TYPE, FIELD) \ + read_value (OBJECT_FIELD (OBJECT, TYPE, FIELD), FIELD_SIZE (TYPE, FIELD)) + +/* Copy FIELD from an external structure of type TYPE at address FROM + to an internal structure pointed to by TO. */ +#define COPY_FIELD(TO, FROM, TYPE, FIELD) \ + ((TO)->FIELD = READ_OBJECT (FROM, TYPE, FIELD)) + +/* Return true if STRING is less than SIZE bytes long. EXTRA_TERMINATOR + is another character (besides '\0') that acts as a terminator, + or '\0' if none. */ + +static bool +string_within_bounds_p (const char *string, size_t size, char extra_terminator) +{ + const char *p; + + for (p = string; p < string + size; p++) + if (*p == '\0' || *p == extra_terminator) + return true; + return false; +} + +/* STRING is a pointer to a char array. Try to read its value as an + ASCII-encoded integer. On success, return true and store the result + in TARGET. */ +#define PARSE_INTEGER(TARGET, STRING) \ + (string_within_bounds_p (&(STRING)[0], sizeof (STRING), ' ') \ + && ((TARGET) = strtoul (STRING, NULL, 0), true)) + +/* Check that LDFILE's current object has SIZE bytes starting at OFFSET. */ + +static inline bool +within_object_p (LDFILE *ldfile, size_t offset, size_t size) +{ + return offset <= ldfile->object_size && offset + size <= ldfile->object_size; +} + +/* Try to read the file header for an XCOFF object at OFFSET bytes into + LDFILE. The object is expected to be OBJECT_SIZE bytes in size. + If the object is a member of an archive, NEXT_MEMBER is the offset + of the next member, otherwise it is -1. + + Return true on success, recording the object information in LDFILE. */ + +static bool +read_xcoff_object (LDFILE *ldfile, size_t offset, size_t object_size, + off_t next_member) +{ + struct internal_filehdr *internal; + char *external; + void *map; + size_t page_size; + + /* First try to map the file into memory. */ + page_size = getpagesize (); + ldfile->page_offset = offset & (page_size - 1); + map = mmap (NULL, object_size + ldfile->page_offset, PROT_READ, + MAP_SHARED, ldfile->fd, offset - ldfile->page_offset); + if (map == MAP_FAILED) + return false; + + /* Record the success. */ + ldfile->object = (char *) map + ldfile->page_offset; + ldfile->object_size = object_size; + ldfile->next_member = next_member; + + /* Read the magic value to determine the type of file. */ + if (!within_object_p (ldfile, 0, F_MAGIC_SIZE)) + return false; + + internal = &ldfile->filehdr; + external = ldfile->object; + internal->f_magic = read_value (external, F_MAGIC_SIZE); + if (internal->f_magic == U802TOCMAGIC) + { + if (!within_object_p (ldfile, 0, sizeof (struct external_filehdr_32))) + return false; + + COPY_FIELD (internal, external, external_filehdr_32, f_nscns); + COPY_FIELD (internal, external, external_filehdr_32, f_timdat); + COPY_FIELD (internal, external, external_filehdr_32, f_symptr); + COPY_FIELD (internal, external, external_filehdr_32, f_nsyms); + COPY_FIELD (internal, external, external_filehdr_32, f_opthdr); + COPY_FIELD (internal, external, external_filehdr_32, f_flags); + return true; + } + else if (internal->f_magic == U803XTOCMAGIC + || internal->f_magic == U64_TOCMAGIC) + { + if (!within_object_p (ldfile, 0, sizeof (struct external_filehdr_64))) + return false; + + COPY_FIELD (internal, external, external_filehdr_64, f_nscns); + COPY_FIELD (internal, external, external_filehdr_64, f_timdat); + COPY_FIELD (internal, external, external_filehdr_64, f_symptr); + COPY_FIELD (internal, external, external_filehdr_64, f_nsyms); + COPY_FIELD (internal, external, external_filehdr_64, f_opthdr); + COPY_FIELD (internal, external, external_filehdr_64, f_flags); + return true; + } + return false; +} + +/* Try to read an archive member at OFFSET bytes into LDFILE. + Return true on success, recording the member and object + information in LDFILE. */ + +static bool +read_archive_member (LDFILE *ldfile, size_t offset) +{ + struct external_big_ar_member member; + size_t namlen; + size_t size; + off_t next_member; + + if (lseek (ldfile->fd, offset, SEEK_SET) >= 0 + && read (ldfile->fd, &member, sizeof (member)) == sizeof (member) + && PARSE_INTEGER (namlen, member.ar_namlen) + /* Stop once we reach the member table entry, which has a name + of length 0. */ + && namlen > 0 + && PARSE_INTEGER (size, member.ar_size) + && PARSE_INTEGER (next_member, member.ar_nextoff)) + { + /* The archive is followed by an even-padded name, then by + a magic string of length SXCOFFARFMAG. The object itself + starts after that. */ + offset += sizeof (member) + namlen + SXCOFFARFMAG; + offset += offset & 1; + return read_xcoff_object (ldfile, offset, size, next_member); + } + return false; +} + +/* Try to treat LDFILE as a non-empty big archive. Return true + on success, storing the member and object information for + the first member in LDFILE. */ + +static bool +read_big_archive (LDFILE *ldfile) +{ + struct external_big_ar_filehdr filehdr; + size_t offset; + + return (lseek (ldfile->fd, 0L, SEEK_SET) == 0 + && read (ldfile->fd, &filehdr, sizeof (filehdr)) == sizeof (filehdr) + && memcmp (filehdr.fl_magic, FL_MAGIC_BIG_AR, FL_MAGIC_SIZE) == 0 + && PARSE_INTEGER (offset, filehdr.fl_firstmemoff) + && read_archive_member (ldfile, offset)); +} + +/* LDFILE is a zero-initialized structure. Try to open FILENAME, + returning true on success. */ + +static bool +open_file (LDFILE *ldfile, const char *filename) +{ + struct stat st; + + ldfile->fd = open (filename, O_RDONLY); + if (ldfile->fd < 0) + return false; + + if (read_big_archive (ldfile)) + return true; + + if (fstat (ldfile->fd, &st) < 0) + return false; + + return read_xcoff_object (ldfile, 0, st.st_size, -1); +} + +/* Release the memory associated with the current object, if one has + been mapped. */ + +static void +free_object (LDFILE *ldfile) +{ + if (ldfile->object) + munmap (ldfile->object - ldfile->page_offset, + ldfile->object_size + ldfile->page_offset); +} + +/* Free LDFILE and all resources associated with it. */ + +static void +free_ldfile (LDFILE *ldfile) +{ + if (ldfile->fd >= 0) + close (ldfile->fd); + XDELETE (ldfile); +} + +/* Implement the API-defined ldopen function. */ + +LDFILE * +ldopen (char *filename, LDFILE *ldfile) +{ + if (ldfile == NULL) + { + ldfile = XCNEW (LDFILE); + if (!open_file (ldfile, filename)) + { + free_object (ldfile); + free_ldfile (ldfile); + return NULL; + } + } + return ldfile; +} + +/* Implement the API-defined ldtbread function. */ + +int +ldtbread (LDFILE *ldfile, long index, SYMENT *internal) +{ + size_t offset, name_length; + char *external; + + /* Make sure that the symbol index is valid. */ + if (index < 0 || index >= HEADER (ldfile).f_nsyms) + return FAILURE; + + /* Work out the offset of the symbol table entry. */ + offset = HEADER (ldfile).f_symptr + index * sizeof (struct external_syment); + if (!within_object_p (ldfile, offset, sizeof (struct external_syment))) + return FAILURE; + + /* Read all the fields. The format differs between 32-bit and + 64-bit files. */ + external = ldfile->object + offset; + if (HEADER (ldfile).f_magic == U802TOCMAGIC) + { + /* Copy the n_zeroes/n_offset interpretation. */ + internal->n_zeroes = READ_OBJECT (external, external_syment, + u.xcoff32.u.u.n_zeroes); + internal->n_offset = READ_OBJECT (external, external_syment, + u.xcoff32.u.u.n_offset); + + /* Copy the n_name interpretation. The internal version has room + for a null terminator. */ + name_length = FIELD_SIZE (external_syment, u.xcoff32.u.n_name); + memcpy (internal->n_name, + external + offsetof (struct external_syment, u.xcoff32.u.n_name), + name_length); + internal->n_name[name_length] = 0; + + internal->n_value = READ_OBJECT (external, external_syment, + u.xcoff32.n_value); + } + else + { + internal->n_zeroes = 0; + internal->n_offset = READ_OBJECT (external, external_syment, + u.xcoff64.n_offset); + internal->n_value = READ_OBJECT (external, external_syment, + u.xcoff64.n_value); + } + COPY_FIELD (internal, external, external_syment, n_scnum); + COPY_FIELD (internal, external, external_syment, n_type); + COPY_FIELD (internal, external, external_syment, n_sclass); + COPY_FIELD (internal, external, external_syment, n_numaux); + return SUCCESS; +} + +/* Implement the API-defined ldgetname function. */ + +char * +ldgetname (LDFILE *ldfile, SYMENT *symbol) +{ + char *name; + size_t offset; + + /* If the zeroes field is nonzero, the name is in the symbol table + entry itself. */ + if (symbol->n_zeroes != 0) + return symbol->n_name; + + /* Otherwise, the symbol table entry contains an offset into the + string table, which starts after the end of the symbol table. */ + offset = (HEADER (ldfile).f_symptr + + HEADER (ldfile).f_nsyms * sizeof (struct external_syment) + + symbol->n_offset); + if (offset >= ldfile->object_size) + return NULL; + + /* Make sure that the name is entirely contained within the object. */ + name = ldfile->object + offset; + if (!string_within_bounds_p (name, ldfile->object_size - offset, '\0')) + return NULL; + + return name; +} + +/* Implement the API-defined ldclose function. */ + +int +ldclose (LDFILE *ldfile) +{ + free_object (ldfile); + if (ldfile->next_member >= 0 + && read_archive_member (ldfile, ldfile->next_member)) + return FAILURE; + + free_ldfile (ldfile); + return SUCCESS; +} + +#endif -- cgit v1.2.3