/* * CDDL HEADER START * * The contents of this file are subject to the terms of the * Common Development and Distribution License (the "License"). * You may not use this file except in compliance with the License. * * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE * or http://www.opensolaris.org/os/licensing. * See the License for the specific language governing permissions * and limitations under the License. * * When distributing Covered Code, include this CDDL HEADER in each * file and include the License file at usr/src/OPENSOLARIS.LICENSE. * If applicable, add the following below this CDDL HEADER, with the * fields enclosed by brackets "[]" replaced with your own identifying * information: Portions Copyright [yyyy] [name of copyright owner] * * CDDL HEADER END */ /* * Copyright (c) 1988 AT&T * All Rights Reserved * * Copyright (c) 1989, 2010, Oracle and/or its affiliates. All rights reserved. * * Copyright 2011, Richard Lowe. */ /* * This file contains the functions responsible for opening the output file * image, associating the appropriate input elf structures with the new image, * and obtaining new elf structures to define the new image. */ #include #include #include #include #include #include #include #include #include #include "msg.h" #include "_libld.h" /* * Determine a least common multiplier. Input sections contain an alignment * requirement, which elf_update() uses to insure that the section is aligned * correctly off of the base of the elf image. We must also insure that the * sections mapping is congruent with this alignment requirement. For each * input section associated with a loadable segment determine whether the * segments alignment must be adjusted to compensate for a sections alignment * requirements. */ Xword ld_lcm(Xword a, Xword b) { Xword _r, _a, _b; if ((_a = a) == 0) return (b); if ((_b = b) == 0) return (a); if (_a > _b) _a = b, _b = a; while ((_r = _b % _a) != 0) _b = _a, _a = _r; return ((a / _a) * b); } /* * Open the output file and insure the correct access modes. */ uintptr_t ld_open_outfile(Ofl_desc * ofl) { mode_t mode; struct stat status; /* * Determine the required file mode from the type of output file we * are creating. */ mode = (ofl->ofl_flags & (FLG_OF_EXEC | FLG_OF_SHAROBJ)) ? 0777 : 0666; /* Determine if the output file already exists */ if (stat(ofl->ofl_name, &status) == 0) { if ((status.st_mode & S_IFMT) != S_IFREG) { /* * It is not a regular file, so don't delete it * or allow it to be deleted. This allows root * users to specify /dev/null output file for * verification links. */ ofl->ofl_flags1 |= FLG_OF1_NONREG; } else { /* * It's a regular file, so unlink it. In standard * Unix fashion, the old file will continue to * exist until its link count drops to 0 and no * process has the file open. In the meantime, we * create a new file (inode) under the same name, * available for new use. * * The advantage of this policy is that creating * a new executable or sharable library does not * corrupt existing processes using the old file. * A possible disadvantage is that if the existing * file has a (link_count > 1), the other names will * continue to reference the old inode, thus * breaking the link. * * A subtlety here is that POSIX says we are not * supposed to replace a non-writable file, which * is something that unlink() is happy to do. The * only 100% reliable test against this is to open * the file for non-destructive write access. If the * open succeeds, we are clear to unlink it, and if * not, then the error generated is the error we * need to report. */ if ((ofl->ofl_fd = open(ofl->ofl_name, O_RDWR, mode)) < 0) { int err = errno; if (err != ENOENT) { ld_eprintf(ofl, ERR_FATAL, MSG_INTL(MSG_SYS_OPEN), ofl->ofl_name, strerror(err)); return (S_ERROR); } } else { (void) close(ofl->ofl_fd); } if ((unlink(ofl->ofl_name) == -1) && (errno != ENOENT)) { int err = errno; ld_eprintf(ofl, ERR_FATAL, MSG_INTL(MSG_SYS_UNLINK), ofl->ofl_name, strerror(err)); return (S_ERROR); } } } /* * Open (or create) the output file name (ofl_fd acts as a global * flag to ldexit() signifying whether the output file should be * removed or not on error). */ if ((ofl->ofl_fd = open(ofl->ofl_name, O_RDWR | O_CREAT | O_TRUNC, mode)) < 0) { int err = errno; ld_eprintf(ofl, ERR_FATAL, MSG_INTL(MSG_SYS_OPEN), ofl->ofl_name, strerror(err)); return (S_ERROR); } return (1); } /* * If we are creating a memory model we need to update the present memory image. * Use elf_update(ELF_C_NULL) to calculate the offset of each section and their * associated data buffers. From this information determine what padding is * required. * * Two actions are necessary to convert the present disc image into a memory * image: * * - Loadable segments must be padded so that the next segment virtual * address and file offset are the same. * * - NOBITS sections must be converted into allocated, null filled sections. */ static uintptr_t pad_outfile(Ofl_desc *ofl) { Aliste idx1; off_t offset; Elf_Scn *oscn = 0; Sg_desc *sgp; Ehdr *ehdr; /* * Update all the elf structures. This will assign offsets to the * section headers and data buffers as they relate to the new image. */ if (elf_update(ofl->ofl_welf, ELF_C_NULL) == -1) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_UPDATE), ofl->ofl_name); return (S_ERROR); } if ((ehdr = elf_getehdr(ofl->ofl_welf)) == NULL) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_GETEHDR), ofl->ofl_name); return (S_ERROR); } /* * Initialize the offset by skipping the Elf header and program * headers. */ offset = ehdr->e_phoff + (ehdr->e_phnum * ehdr->e_phentsize); /* * Traverse the segment list looking for loadable segments. */ for (APLIST_TRAVERSE(ofl->ofl_segs, idx1, sgp)) { Phdr *phdr = &(sgp->sg_phdr); Os_desc *osp; Aliste idx2; /* * If we've already processed a loadable segment, the `scn' * variable will be initialized to the last section that was * part of that segment. Add sufficient padding to this section * to cause the next segments virtual address and file offset to * be the same. */ if (oscn && (phdr->p_type == PT_LOAD)) { Elf_Data * data; size_t size; size = (size_t)(S_ROUND(offset, phdr->p_align) - offset); if ((data = elf_newdata(oscn)) == NULL) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_NEWDATA), ofl->ofl_name); return (S_ERROR); } if ((data->d_buf = libld_calloc(1, size)) == NULL) return (S_ERROR); data->d_type = ELF_T_BYTE; data->d_size = size; data->d_align = 1; data->d_version = ofl->ofl_dehdr->e_version; } /* * Traverse the output sections for this segment calculating the * offset of each section. Retain the final section descriptor * as this will be where any padding buffer will be added. */ for (APLIST_TRAVERSE(sgp->sg_osdescs, idx2, osp)) { Shdr *shdr = osp->os_shdr; offset = (off_t)S_ROUND(offset, shdr->sh_addralign); offset += shdr->sh_size; /* * If this is a NOBITS output section convert all of * its associated input sections into real, null filled, * data buffers, and change the section to PROGBITS. */ if (shdr->sh_type == SHT_NOBITS) shdr->sh_type = SHT_PROGBITS; } /* * If this is a loadable segment retain the last output section * descriptor. This acts both as a flag that a loadable * segment has been seen, and as the segment to which a padding * buffer will be added. */ if (phdr->p_type == PT_LOAD) oscn = osp->os_scn; } return (1); } /* * Create an output section. The first instance of an input section triggers * the creation of a new output section. */ static uintptr_t create_outsec(Ofl_desc *ofl, Sg_desc *sgp, Os_desc *osp, Word ptype, int shidx, Boolean fixalign) { Elf_Scn *scn; Shdr *shdr; /* * Get a section descriptor for the section. */ if ((scn = elf_newscn(ofl->ofl_welf)) == NULL) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_NEWSCN), ofl->ofl_name); return (S_ERROR); } osp->os_scn = scn; /* * Get a new section header table entry and copy the pertinent * information from the in-core descriptor. */ if ((shdr = elf_getshdr(scn)) == NULL) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_GETSHDR), ofl->ofl_name); return (S_ERROR); } *shdr = *(osp->os_shdr); osp->os_shdr = shdr; /* * If this is the first section within a loadable segment, and the * alignment needs to be updated, record this section. */ if ((fixalign == TRUE) && (ptype == PT_LOAD) && (shidx == 1)) sgp->sg_fscn = scn; /* * If not building a relocatable object, remove any of the * following flags, as they have been acted upon and are not * meaningful in the output: * SHF_ORDERED, SHF_LINK_ORDER, SHF_GROUP * For relocatable objects, we allow them to propagate to * the output object to be handled by the next linker that * sees them. */ if ((ofl->ofl_flags & FLG_OF_RELOBJ) == 0) osp->os_shdr->sh_flags &= ~(ALL_SHF_ORDER|SHF_GROUP); /* * If this is a TLS section, save it so that the PT_TLS program header * information can be established after the output image has been * initially created. At this point, all TLS input sections are ordered * as they will appear in the output image. */ if ((ofl->ofl_flags & FLG_OF_TLSPHDR) && (osp->os_shdr->sh_flags & SHF_TLS) && (aplist_append(&ofl->ofl_ostlsseg, osp, AL_CNT_OFL_OSTLSSEG) == NULL)) return (S_ERROR); return (0); } /* * Create the elf structures that allow the input data to be associated with the * new image: * * - define the new elf image using elf_begin(), * * - obtain an elf header for the image, * * - traverse the input segments and create a program header array to define * the required segments, * * - traverse the output sections for each segment assigning a new section * descriptor and section header for each, * * - traverse the input sections associated with each output section and * assign a new data descriptor to each (each output section becomes a * linked list of input data buffers). */ uintptr_t ld_create_outfile(Ofl_desc *ofl) { Sg_desc *sgp; Os_desc *osp; Is_desc *isp; Elf_Data *tlsdata = 0; Aliste idx1; ofl_flag_t flags = ofl->ofl_flags; ofl_flag_t flags1 = ofl->ofl_flags1; size_t ndx; Elf_Cmd cmd; Boolean fixalign = FALSE; int fd, nseg = 0, shidx, dataidx, ptloadidx = 0; DBG_CALL(Dbg_basic_create(ofl->ofl_lml)); /* * If DF_1_NOHDR or FLG_OF1_VADDR were set, * we need to do alignment adjustment. */ if ((flags1 & FLG_OF1_VADDR) || (ofl->ofl_dtflags_1 & DF_1_NOHDR)) { fixalign = TRUE; } if (flags1 & FLG_OF1_MEMORY) { cmd = ELF_C_IMAGE; fd = 0; } else { fd = ofl->ofl_fd; cmd = ELF_C_WRITE; } /* * If there are any ordered sections, handle them here. */ if ((ofl->ofl_ordered != NULL) && (ld_sort_ordered(ofl) == S_ERROR)) return (S_ERROR); /* * Tell the access library about our new temporary file. */ if ((ofl->ofl_welf = elf_begin(fd, cmd, 0)) == NULL) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_BEGIN), ofl->ofl_name); return (S_ERROR); } /* * Obtain a new Elf header. */ if ((ofl->ofl_nehdr = elf_newehdr(ofl->ofl_welf)) == NULL) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_NEWEHDR), ofl->ofl_name); return (S_ERROR); } ofl->ofl_nehdr->e_machine = ofl->ofl_dehdr->e_machine; DBG_CALL(Dbg_util_nl(ofl->ofl_lml, DBG_NL_STD)); for (APLIST_TRAVERSE(ofl->ofl_segs, idx1, sgp)) { int frst = 0; Phdr *phdr = &(sgp->sg_phdr); Word ptype = phdr->p_type; Aliste idx2; Os_desc *nonempty = NULL; /* First non-empty section */ /* * Count the number of segments that will go in the program * header table. If a segment is empty, ignore it. */ if (!(flags & FLG_OF_RELOBJ)) { /* * If the program header type belongs to the os range, * the resulting object is ELFOSABI_SOLARIS. */ if ((ptype >= PT_LOOS) && (ptype <= PT_HIOS)) ofl->ofl_flags |= FLG_OF_OSABI; if (ptype == PT_PHDR) { /* * If we are generating an interp section (and * thus an associated PT_INTERP program header * entry) also generate a PT_PHDR program header * entry. This allows the kernel to generate * the appropriate aux vector entries to pass to * the interpreter (refer to exec/elf/elf.c). * Note that if an image was generated with an * interp section, but no associated PT_PHDR * program header entry, the kernel will simply * pass the interpreter an open file descriptor * when the image is executed). */ if (ofl->ofl_osinterp) nseg++; } else if (ptype == PT_INTERP) { if (ofl->ofl_osinterp) nseg++; } else if (ptype == PT_DYNAMIC) { if (flags & FLG_OF_DYNAMIC) nseg++; } else if (ptype == PT_TLS) { if (flags & FLG_OF_TLSPHDR) nseg++; } else if (ptype == PT_SUNW_UNWIND) { if (ofl->ofl_unwindhdr) nseg++; } else if (ptype == PT_SUNWDTRACE) { if (ofl->ofl_dtracesym) nseg++; } else if (ptype == PT_SUNWCAP) { if (ofl->ofl_oscap) nseg++; } else if (ptype == PT_SUNWSTACK) { if ((sgp->sg_flags & FLG_SG_DISABLED) == 0) nseg++; } else if (sgp->sg_flags & FLG_SG_EMPTY) { nseg++; } else if (aplist_nitems(sgp->sg_osdescs) != 0) { if ((sgp->sg_flags & FLG_SG_PHREQ) == 0) { /* * If this is a segment for which * we are not making a program header, * don't increment nseg */ ptype = (sgp->sg_phdr).p_type = PT_NULL; } else if (ptype != PT_NULL) nseg++; } } /* * Establish any processing unique to the first loadable * segment. */ if ((ptype == PT_LOAD) && (ptloadidx == 0)) { ptloadidx++; /* * If the first loadable segment is not supposed to * include the ELF or program headers, alignments * of the following segments need to be fixed, * plus a .dynamic FLAGS1 setting is required. */ if (ofl->ofl_dtflags_1 & DF_1_NOHDR) fixalign = TRUE; } shidx = 0; for (APLIST_TRAVERSE(sgp->sg_osdescs, idx2, osp)) { Aliste idx3; int os_isdescs_idx; dataidx = 0; OS_ISDESCS_TRAVERSE(os_isdescs_idx, osp, idx3, isp) { Elf_Data *data; Ifl_desc *ifl = isp->is_file; /* * An input section in the list that has * been previously marked to be discarded * should be completely ignored. */ if (isp->is_flags & FLG_IS_DISCARD) continue; /* * At this point we know whether a section has * been referenced. If it hasn't, and the whole * file hasn't been referenced (which would have * been caught in ignore_section_processing()), * give a diagnostic (-D unused,detail) or * discard the section if -zignore is in effect. */ if (ifl && (((ifl->ifl_flags & FLG_IF_FILEREF) == 0) || ((ptype == PT_LOAD) && ((isp->is_flags & FLG_IS_SECTREF) == 0) && (isp->is_shdr->sh_size > 0)))) { Lm_list *lml = ofl->ofl_lml; if (ifl->ifl_flags & FLG_IF_IGNORE) { isp->is_flags |= FLG_IS_DISCARD; DBG_CALL(Dbg_unused_sec(lml, isp)); continue; } else { DBG_CALL(Dbg_unused_sec(lml, isp)); } } /* * If this section provides no data, and isn't * referenced, then it can be discarded as well. * Note, if this is the first input section * associated to an output section, let it * through, there may be a legitimate reason why * the user wants a null section. Discarding * additional sections is intended to remove the * empty clutter the compilers have a habit of * creating. Don't provide an unused diagnostic * as these sections aren't typically the users * creation. */ if (ifl && dataidx && ((isp->is_flags & FLG_IS_SECTREF) == 0) && (isp->is_shdr->sh_size == 0)) { isp->is_flags |= FLG_IS_DISCARD; continue; } /* * The first input section triggers the creation * of the associated output section. */ if (osp->os_scn == NULL) { shidx++; if (create_outsec(ofl, sgp, osp, ptype, shidx, fixalign) == S_ERROR) return (S_ERROR); } dataidx++; /* * Create a new output data buffer for each * input data buffer, thus linking the new * buffers to the new elf output structures. * Simply make the new data buffers point to * the old data. */ if ((data = elf_newdata(osp->os_scn)) == NULL) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_NEWDATA), ofl->ofl_name); return (S_ERROR); } *data = *(isp->is_indata); isp->is_indata = data; if ((fixalign == TRUE) && (ptype == PT_LOAD) && (shidx == 1) && (dataidx == 1)) data->d_align = sgp->sg_align; /* * Save the first TLS data buffer, as this is * the start of the TLS segment. Realign this * buffer based on the alignment requirements * of all the TLS input sections. */ if ((flags & FLG_OF_TLSPHDR) && (isp->is_shdr->sh_flags & SHF_TLS)) { if (tlsdata == 0) tlsdata = data; tlsdata->d_align = ld_lcm(tlsdata->d_align, isp->is_shdr->sh_addralign); } #if defined(_ELF64) && defined(_ILP32) /* * 4106312, the 32-bit ELF64 version of ld * needs to be able to create large .bss * sections. The d_size member of Elf_Data * only allows 32-bits in _ILP32, so we build * multiple data-items that each fit into 32- * bits. libelf (4106398) can summ these up * into a 64-bit quantity. This only works * for NOBITS sections which don't have any * real data to maintain and don't require * large file support. */ if (isp->is_shdr->sh_type == SHT_NOBITS) { Xword sz = isp->is_shdr->sh_size; while (sz >> 32) { data->d_size = SIZE_MAX; sz -= (Xword)SIZE_MAX; data = elf_newdata(osp->os_scn); if (data == NULL) return (S_ERROR); } data->d_size = (size_t)sz; } #endif /* * If this segment requires rounding realign the * first data buffer associated with the first * section. */ if ((frst++ == 0) && (sgp->sg_flags & FLG_SG_ROUND)) { Xword align; if (data->d_align) align = (Xword) S_ROUND(data->d_align, sgp->sg_round); else align = sgp->sg_round; data->d_align = (size_t)align; } if ((data->d_size != 0) && (nonempty == NULL)) { nonempty = osp; } } /* * Clear the szoutrels counter so that it can be used * again in the building of relocs. See machrel.c. */ osp->os_szoutrels = 0; } /* * We need to raise the alignment of any empty sections at the * start of a segment to be at least as aligned as the first * non-empty section, such that the empty and first non-empty * sections are placed at the same offset. */ if (nonempty != NULL) { Elf_Data *ne = NULL; Xword pad_align = 1; ne = elf_getdata(nonempty->os_scn, NULL); assert(ne != NULL); do { pad_align = ld_lcm(pad_align, ne->d_align); ne = elf_getdata(nonempty->os_scn, ne); } while (ne != NULL); for (APLIST_TRAVERSE(sgp->sg_osdescs, idx2, osp)) { Elf_Data *d = NULL; /* Stop at the first non-empty section */ if (osp == nonempty) break; d = elf_getdata(osp->os_scn, NULL); if (d != NULL) d->d_align = pad_align; } } } /* * Did we use ELF features from the osabi range? If so, * update the ELF header osabi fields. If this doesn't happen, * those fields remain 0, reflecting a generic System V ELF ABI. */ if (ofl->ofl_flags & FLG_OF_OSABI) { ofl->ofl_nehdr->e_ident[EI_OSABI] = ELFOSABI_SOLARIS; ofl->ofl_nehdr->e_ident[EI_ABIVERSION] = EAV_SUNW_CURRENT; } /* * Build an empty PHDR. */ if (nseg) { if ((ofl->ofl_phdr = elf_newphdr(ofl->ofl_welf, nseg)) == NULL) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_NEWPHDR), ofl->ofl_name); return (S_ERROR); } } /* * If we need to generate a memory model, pad the image. */ if (flags1 & FLG_OF1_MEMORY) { if (pad_outfile(ofl) == S_ERROR) return (S_ERROR); } /* * After all the basic input file processing, all data pointers are * referencing two types of memory: * * - allocated memory, ie. elf structures, internal link editor * structures, and any new sections that have been created. * * - original input file mmap'ed memory, ie. the actual data * sections of the input file images. * * Up until now, the only memory modifications have been carried out on * the allocated memory. Before carrying out any relocations, write the * new output file image and reassign any necessary data pointers to the * output files memory image. This insures that any relocation * modifications are made to the output file image and not to the input * file image, thus preventing the creation of dirty pages and reducing * the overall swap space requirement. * * Write out the elf structure so as to create the new file image. */ if ((ofl->ofl_size = (size_t)elf_update(ofl->ofl_welf, ELF_C_WRIMAGE)) == (size_t)-1) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_UPDATE), ofl->ofl_name); return (S_ERROR); } /* * Initialize the true `ofl' information with the memory images address * and size. This will be used to write() out the image once any * relocation processing has been completed. We also use this image * information to setup a new Elf descriptor, which is used to obtain * all the necessary elf pointers within the new output image. */ if ((ofl->ofl_elf = elf_begin(0, ELF_C_IMAGE, ofl->ofl_welf)) == NULL) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_BEGIN), ofl->ofl_name); return (S_ERROR); } if ((ofl->ofl_nehdr = elf_getehdr(ofl->ofl_elf)) == NULL) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_GETEHDR), ofl->ofl_name); return (S_ERROR); } if (!(flags & FLG_OF_RELOBJ)) if ((ofl->ofl_phdr = elf_getphdr(ofl->ofl_elf)) == NULL) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_GETPHDR), ofl->ofl_name); return (S_ERROR); } /* * Reinitialize the section descriptors, section headers and obtain new * output data buffer pointers (these will be used to perform any * relocations). */ ndx = 0; for (APLIST_TRAVERSE(ofl->ofl_segs, idx1, sgp)) { Phdr *_phdr = &(sgp->sg_phdr); Os_desc *osp; Aliste idx2; Boolean recorded = FALSE; for (APLIST_TRAVERSE(sgp->sg_osdescs, idx2, osp)) { /* * Make sure that an output section was originally * created. Input sections that had been marked as * discarded may have made an output section * unnecessary. Remove this alist entry so that * future output section descriptor processing doesn't * have to compensate for this empty section. */ if (osp->os_scn == NULL) { aplist_delete(sgp->sg_osdescs, &idx2); continue; } if ((osp->os_scn = elf_getscn(ofl->ofl_elf, ++ndx)) == NULL) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_GETSCN), ofl->ofl_name, ndx); return (S_ERROR); } if ((osp->os_shdr = elf_getshdr(osp->os_scn)) == NULL) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_GETSHDR), ofl->ofl_name); return (S_ERROR); } if ((fixalign == TRUE) && sgp->sg_fscn && (recorded == FALSE)) { size_t fndx; Elf_Scn *scn; scn = sgp->sg_fscn; if ((fndx = elf_ndxscn(scn)) == SHN_UNDEF) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_NDXSCN), ofl->ofl_name); return (S_ERROR); } if (ndx == fndx) { sgp->sg_fscn = osp->os_scn; recorded = TRUE; } } if ((osp->os_outdata = elf_getdata(osp->os_scn, NULL)) == NULL) { ld_eprintf(ofl, ERR_ELF, MSG_INTL(MSG_ELF_GETDATA), ofl->ofl_name); return (S_ERROR); } /* * If this section is part of a loadable segment insure * that the segments alignment is appropriate. */ if (_phdr->p_type == PT_LOAD) { _phdr->p_align = ld_lcm(_phdr->p_align, osp->os_shdr->sh_addralign); } } } return (1); }