+/* -*- mode: C++; c-basic-offset: 4; tab-width: 4 -*-
+ *
+ * Copyright (c) 2004-2008 Apple Inc. All rights reserved.
+ *
+ * @APPLE_LICENSE_HEADER_START@
+ *
+ * This file contains Original Code and/or Modifications of Original Code
+ * as defined in and that are subject to the Apple Public Source License
+ * Version 2.0 (the 'License'). You may not use this file except in
+ * compliance with the License. Please obtain a copy of the License at
+ * http://www.opensource.apple.com/apsl/ and read it before using this
+ * file.
+ *
+ * The Original Code and all software distributed under the License are
+ * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
+ * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
+ * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
+ * Please see the License for the specific language governing rights and
+ * limitations under the License.
+ *
+ * @APPLE_LICENSE_HEADER_END@
+ */
+
+// work around until conformance work is complete rdar://problem/4508801
+#define __srr0 srr0
+#define __eip eip
+#define __rip rip
+
+
+#include <string.h>
+#include <fcntl.h>
+#include <errno.h>
+#include <sys/types.h>
+#include <sys/fcntl.h>
+#include <sys/stat.h>
+#include <sys/mman.h>
+#include <mach/mach.h>
+#include <mach/thread_status.h>
+#include <mach-o/loader.h>
+#include <mach-o/reloc.h>
+#include <mach-o/nlist.h>
+#include <sys/sysctl.h>
+#include <libkern/OSAtomic.h>
+#include <libkern/OSCacheControl.h>
+
+#if __ppc__ || __ppc64__
+ #include <mach-o/ppc/reloc.h>
+#endif
+#if __x86_64__
+ #include <mach-o/x86_64/reloc.h>
+#endif
+#if __arm__
+ #include <mach-o/arm/reloc.h>
+#endif
+
+#include "ImageLoaderMachOClassic.h"
+#include "mach-o/dyld_images.h"
+
+// optimize strcmp for ppc
+#if __ppc__
+ #include <ppc_intrinsics.h>
+#else
+ #define astrcmp(a,b) strcmp(a,b)
+#endif
+
+
+// in dyldStartup.s
+extern "C" void fast_stub_binding_helper_interface();
+
+
+#if __x86_64__
+ #define POINTER_RELOC X86_64_RELOC_UNSIGNED
+#else
+ #define POINTER_RELOC GENERIC_RELOC_VANILLA
+#endif
+
+
+// relocation_info.r_length field has value 3 for 64-bit executables and value 2 for 32-bit executables
+#if __LP64__
+ #define RELOC_SIZE 3
+ #define LC_SEGMENT_COMMAND LC_SEGMENT_64
+ #define LC_ROUTINES_COMMAND LC_ROUTINES_64
+ struct macho_segment_command : public segment_command_64 {};
+ struct macho_section : public section_64 {};
+ struct macho_routines_command : public routines_command_64 {};
+#else
+ #define RELOC_SIZE 2
+ #define LC_SEGMENT_COMMAND LC_SEGMENT
+ #define LC_ROUTINES_COMMAND LC_ROUTINES
+ struct macho_segment_command : public segment_command {};
+ struct macho_section : public section {};
+ struct macho_routines_command : public routines_command {};
+#endif
+
+
+
+
+// create image for main executable
+ImageLoaderMachOClassic* ImageLoaderMachOClassic::instantiateMainExecutable(const macho_header* mh, uintptr_t slide, const char* path,
+ unsigned int segCount, unsigned int libCount, const LinkContext& context)
+{
+ ImageLoaderMachOClassic* image = ImageLoaderMachOClassic::instantiateStart(mh, path, segCount, libCount);
+
+ // set slide for PIE programs
+ image->setSlide(slide);
+
+ // for PIE record end of program, to know where to start loading dylibs
+ if ( (mh->flags & MH_PIE) && !context.noPIE )
+ fgNextPIEDylibAddress = (uintptr_t)image->getEnd();
+
+ image->instantiateFinish(context);
+
+#if __i386__
+ // kernel may have mapped in __IMPORT segment read-only, we need it read/write to do binding
+ if ( image->fReadOnlyImportSegment ) {
+ for(unsigned int i=0; i < image->fSegmentsCount; ++i) {
+ if ( image->segIsReadOnlyImport(i) )
+ image->segMakeWritable(i, context);
+ }
+ }
+#endif
+
+ if ( context.verboseMapping ) {
+ dyld::log("dyld: Main executable mapped %s\n", path);
+ for(unsigned int i=0, e=image->segmentCount(); i < e; ++i) {
+ const char* name = image->segName(i);
+ if ( (strcmp(name, "__PAGEZERO") == 0) || (strcmp(name, "__UNIXSTACK") == 0) )
+ dyld::log("%18s at 0x%08lX->0x%08lX\n", name, image->segPreferredLoadAddress(i), image->segPreferredLoadAddress(i)+image->segSize(i));
+ else
+ dyld::log("%18s at 0x%08lX->0x%08lX\n", name, image->segActualLoadAddress(i), image->segActualEndAddress(i));
+ }
+ }
+
+ return image;
+}
+
+// create image by mapping in a mach-o file
+ImageLoaderMachOClassic* ImageLoaderMachOClassic::instantiateFromFile(const char* path, int fd, const uint8_t* fileData,
+ uint64_t offsetInFat, uint64_t lenInFat, const struct stat& info,
+ unsigned int segCount, unsigned int libCount, const LinkContext& context)
+{
+ ImageLoaderMachOClassic* image = ImageLoaderMachOClassic::instantiateStart((macho_header*)fileData, path, segCount, libCount);
+ try {
+ // record info about file
+ image->setFileInfo(info.st_dev, info.st_ino, info.st_mtime);
+
+ // mmap segments
+ image->mapSegmentsClassic(fd, offsetInFat, lenInFat, info.st_size, context);
+
+ #if CODESIGNING_SUPPORT
+ // if this code is signed, validate the signature before accessing any mapped pages
+ image->loadCodeSignature(fileData, fd, offsetInFat);
+ #endif
+
+ // if path happens to be same as in LC_DYLIB_ID load command use that, otherwise malloc a copy of the path
+ const char* installName = image->getInstallPath();
+ if ( (installName != NULL) && (strcmp(installName, path) == 0) && (path[0] == '/') )
+ image->setPathUnowned(installName);
+ else if ( path[0] != '/' ) {
+ // rdar://problem/5135363 turn relative paths into absolute paths so gdb, Symbolication can later find them
+ char realPath[MAXPATHLEN];
+ if ( realpath(path, realPath) != NULL )
+ image->setPath(realPath);
+ else
+ image->setPath(path);
+ }
+ else
+ image->setPath(path);
+
+ // pre-fetch content of __DATA segment for faster launches
+ // don't do this on prebound images or if prefetching is disabled
+ if ( !context.preFetchDisabled && !image->isPrebindable())
+ image->preFetchDATA(fd, offsetInFat, context);
+
+ // finish up
+ image->instantiateFinish(context);
+ }
+ catch (...) {
+ // ImageLoader::setMapped() can throw an exception to block loading of image
+ // <rdar://problem/6169686> Leaked fSegmentsArray and image segments during failed dlopen_preflight
+ delete image;
+ throw;
+ }
+
+ return image;
+}
+
+// create image by using cached mach-o file
+ImageLoaderMachOClassic* ImageLoaderMachOClassic::instantiateFromCache(const macho_header* mh, const char* path, const struct stat& info,
+ unsigned int segCount, unsigned int libCount, const LinkContext& context)
+{
+ ImageLoaderMachOClassic* image = ImageLoaderMachOClassic::instantiateStart(mh, path, segCount, libCount);
+ try {
+ // record info about file
+ image->setFileInfo(info.st_dev, info.st_ino, info.st_mtime);
+
+ // remember this is from shared cache and cannot be unloaded
+ image->fInSharedCache = true;
+ image->setNeverUnload();
+
+ // segments already mapped in cache
+ if ( context.verboseMapping ) {
+ dyld::log("dyld: Using shared cached for %s\n", path);
+ for(unsigned int i=0, e=image->segmentCount(); i < e; ++i) {
+ dyld::log("%18s at 0x%08lX->0x%08lX\n", image->segName(i), image->segActualLoadAddress(i), image->segActualEndAddress(i));
+ }
+ }
+
+ image->instantiateFinish(context);
+ }
+ catch (...) {
+ // ImageLoader::setMapped() can throw an exception to block loading of image
+ // <rdar://problem/6169686> Leaked fSegmentsArray and image segments during failed dlopen_preflight
+ delete image;
+ throw;
+ }
+
+ return image;
+}
+
+// create image by copying an in-memory mach-o file
+ImageLoaderMachOClassic* ImageLoaderMachOClassic::instantiateFromMemory(const char* moduleName, const macho_header* mh, uint64_t len,
+ unsigned int segCount, unsigned int libCount, const LinkContext& context)
+{
+ ImageLoaderMachOClassic* image = ImageLoaderMachOClassic::instantiateStart(mh, moduleName, segCount, libCount);
+ try {
+ // map segments
+ if ( mh->filetype == MH_EXECUTE )
+ throw "can't load another MH_EXECUTE";
+
+ // vmcopy segments
+ image->ImageLoaderMachO::mapSegments((const void*)mh, len, context);
+
+ // for compatibility, never unload dylibs loaded from memory
+ image->setNeverUnload();
+
+ // bundle loads need path copied
+ if ( moduleName != NULL )
+ image->setPath(moduleName);
+
+ image->instantiateFinish(context);
+ }
+ catch (...) {
+ // ImageLoader::setMapped() can throw an exception to block loading of image
+ // <rdar://problem/6169686> Leaked fSegmentsArray and image segments during failed dlopen_preflight
+ delete image;
+ throw;
+ }
+
+ return image;
+}
+
+
+ImageLoaderMachOClassic::ImageLoaderMachOClassic(const macho_header* mh, const char* path,
+ unsigned int segCount, uint32_t segOffsets[], unsigned int libCount)
+ : ImageLoaderMachO(mh, path, segCount, segOffsets, libCount), fStrings(NULL), fSymbolTable(NULL), fDynamicInfo(NULL)
+{
+}
+
+// construct ImageLoaderMachOClassic using "placement new" with SegmentMachO objects array at end
+ImageLoaderMachOClassic* ImageLoaderMachOClassic::instantiateStart(const macho_header* mh, const char* path,
+ unsigned int segCount, unsigned int libCount)
+{
+ size_t size = sizeof(ImageLoaderMachOClassic) + segCount * sizeof(uint32_t) + libCount * sizeof(ImageLoader*);
+ ImageLoaderMachOClassic* allocatedSpace = static_cast<ImageLoaderMachOClassic*>(malloc(size));
+ if ( allocatedSpace == NULL )
+ throw "malloc failed";
+ uint32_t* segOffsets = ((uint32_t*)(((uint8_t*)allocatedSpace) + sizeof(ImageLoaderMachOClassic)));
+ bzero(&segOffsets[segCount], libCount*sizeof(void*)); // zero out lib array
+ return new (allocatedSpace) ImageLoaderMachOClassic(mh, path, segCount, segOffsets, libCount);
+}
+
+
+
+// common code to finish initializing object
+void ImageLoaderMachOClassic::instantiateFinish(const LinkContext& context)
+{
+ // now that segments are mapped in, get real fMachOData, fLinkEditBase, and fSlide
+ this->parseLoadCmds();
+
+ // notify state change
+ this->setMapped(context);
+}
+
+ImageLoaderMachOClassic::~ImageLoaderMachOClassic()
+{
+ // don't do clean up in ~ImageLoaderMachO() because virtual call to segmentCommandOffsets() won't work
+ destroy();
+}
+
+uint32_t* ImageLoaderMachOClassic::segmentCommandOffsets() const
+{
+ return ((uint32_t*)(((uint8_t*)this) + sizeof(ImageLoaderMachOClassic)));
+}
+
+
+ImageLoader* ImageLoaderMachOClassic::libImage(unsigned int libIndex) const
+{
+ const uintptr_t* images = ((uintptr_t*)(((uint8_t*)this) + sizeof(ImageLoaderMachOClassic) + fSegmentsCount*sizeof(uint32_t)));
+ // mask off low bit
+ return (ImageLoader*)(images[libIndex] & (-2));
+}
+
+bool ImageLoaderMachOClassic::libReExported(unsigned int libIndex) const
+{
+ const uintptr_t* images = ((uintptr_t*)(((uint8_t*)this) + sizeof(ImageLoaderMachOClassic) + fSegmentsCount*sizeof(uint32_t)));
+ // re-export flag is low bit
+ return ((images[libIndex] & 1) != 0);
+}
+
+
+void ImageLoaderMachOClassic::setLibImage(unsigned int libIndex, ImageLoader* image, bool reExported)
+{
+ uintptr_t* images = ((uintptr_t*)(((uint8_t*)this) + sizeof(ImageLoaderMachOClassic) + fSegmentsCount*sizeof(uint32_t)));
+ uintptr_t value = (uintptr_t)image;
+ if ( reExported )
+ value |= 1;
+ images[libIndex] = value;
+}
+
+
+void ImageLoaderMachOClassic::setSymbolTableInfo(const macho_nlist* symbols, const char* strings, const dysymtab_command* dynSym)
+{
+ fSymbolTable = symbols;
+ fStrings = strings;
+ fDynamicInfo = dynSym;
+}
+
+void ImageLoaderMachOClassic::prefetchLINKEDIT(const LinkContext& context)
+{
+ // always prefetch a subrange of __LINKEDIT pages
+ uintptr_t symbolTableStart = (uintptr_t)fSymbolTable;
+ uintptr_t stringTableStart = (uintptr_t)fStrings;
+ uintptr_t start;
+ // if image did not load at preferred address
+ if ( segPreferredLoadAddress(0) != (uintptr_t)fMachOData ) {
+ // local relocations will be processed, so start pre-fetch at local symbols
+ start = (uintptr_t)fMachOData + fDynamicInfo->locreloff;
+ }
+ else {
+ // otherwise start pre-fetch at global symbols section of symbol table
+ start = symbolTableStart + fDynamicInfo->iextdefsym * sizeof(macho_nlist);
+ }
+ // prefetch ends at end of last undefined string in string pool
+ uintptr_t end = stringTableStart;
+ if ( fDynamicInfo->nundefsym != 0 )
+ end += fSymbolTable[fDynamicInfo->iundefsym+fDynamicInfo->nundefsym-1].n_un.n_strx;
+ else if ( fDynamicInfo->nextdefsym != 0 )
+ end += fSymbolTable[fDynamicInfo->iextdefsym+fDynamicInfo->nextdefsym-1].n_un.n_strx;
+
+ // round to whole pages
+ start = start & (-4096);
+ end = (end + 4095) & (-4096);
+
+ // skip if there is only one page
+ if ( (end-start) > 4096 ) {
+ madvise((void*)start, end-start, MADV_WILLNEED);
+ fgTotalBytesPreFetched += (end-start);
+ if ( context.verboseMapping ) {
+ dyld::log("%18s prefetching 0x%0lX -> 0x%0lX\n", "__LINKEDIT", start, end-1);
+ }
+ }
+}
+
+
+#if SPLIT_SEG_DYLIB_SUPPORT
+unsigned int
+ImageLoaderMachOClassic::getExtraZeroFillEntriesCount()
+{
+ // calculate mapping entries
+ unsigned int extraZeroFillEntries = 0;
+ for(unsigned int i=0; i < fSegmentsCount; ++i) {
+ if ( segHasTrailingZeroFill(i) )
+ ++extraZeroFillEntries;
+ }
+
+ return extraZeroFillEntries;
+}
+
+void
+ImageLoaderMachOClassic::initMappingTable(uint64_t offsetInFat,
+ shared_file_mapping_np *mappingTable)
+{
+ for(unsigned int i=0,entryIndex=0; i < fSegmentsCount; ++i, ++entryIndex) {
+ shared_file_mapping_np* entry = &mappingTable[entryIndex];
+ entry->sfm_address = segActualLoadAddress(i);
+ entry->sfm_size = segFileSize(i);
+ entry->sfm_file_offset = segFileOffset(i) + offsetInFat;
+ entry->sfm_init_prot = VM_PROT_NONE;
+ if ( !segUnaccessible(i) ) {
+ if ( segExecutable(i) )
+ entry->sfm_init_prot |= VM_PROT_EXECUTE;
+ if ( segReadable(i) )
+ entry->sfm_init_prot |= VM_PROT_READ;
+ if ( segWriteable(i) )
+ entry->sfm_init_prot |= VM_PROT_WRITE | VM_PROT_COW;
+ }
+ entry->sfm_max_prot = entry->sfm_init_prot;
+ if ( segHasTrailingZeroFill(i) ) {
+ shared_file_mapping_np* zfentry = &mappingTable[++entryIndex];
+ zfentry->sfm_address = entry->sfm_address + segFileSize(i);
+ zfentry->sfm_size = segSize(i) - segFileSize(i);
+ zfentry->sfm_file_offset = 0;
+ zfentry->sfm_init_prot = entry->sfm_init_prot | VM_PROT_COW | VM_PROT_ZF;
+ zfentry->sfm_max_prot = zfentry->sfm_init_prot;
+ }
+ }
+}
+
+int
+ImageLoaderMachOClassic::mapSplitSegDylibOutsideSharedRegion(int fd,
+ uint64_t offsetInFat,
+ uint64_t lenInFat,
+ uint64_t fileLen,
+ const LinkContext& context)
+{
+ uintptr_t nextAltLoadAddress = 0;
+ const unsigned int segmentCount = fSegmentsCount;
+ const unsigned int extraZeroFillEntries = getExtraZeroFillEntriesCount();
+ const unsigned int regionCount = segmentCount+extraZeroFillEntries;
+ shared_file_mapping_np regions[regionCount];
+ initMappingTable(offsetInFat, regions);
+ int r = -1;
+ // find space somewhere to allocate split seg
+ bool foundRoom = false;
+ while ( ! foundRoom ) {
+ foundRoom = true;
+ for(unsigned int i=0; i < regionCount; ++i) {
+ vm_address_t addr = nextAltLoadAddress + regions[i].sfm_address - regions[0].sfm_address;
+ vm_size_t size = regions[i].sfm_size ;
+ r = vm_allocate(mach_task_self(), &addr, size, false /*only this range*/);
+ if ( 0 != r ) {
+ // no room here, deallocate what has succeeded so far
+ for(unsigned int j=0; j < i; ++j) {
+ vm_address_t addr = nextAltLoadAddress + regions[j].sfm_address - regions[0].sfm_address;
+ vm_size_t size = regions[j].sfm_size ;
+ (void)vm_deallocate(mach_task_self(), addr, size);
+ }
+ nextAltLoadAddress += 0x00100000; // skip ahead 1MB and try again
+ // skip over shared region
+ if ( (SHARED_REGION_BASE <= nextAltLoadAddress) && (nextAltLoadAddress < (SHARED_REGION_BASE + SHARED_REGION_SIZE)) )
+ nextAltLoadAddress = (SHARED_REGION_BASE + SHARED_REGION_SIZE);
+ if ( nextAltLoadAddress > 0xFF000000 )
+ throw "can't map split seg anywhere";
+ foundRoom = false;
+ break;
+ }
+ }
+ }
+
+ // map in each region
+ uintptr_t slide = nextAltLoadAddress - regions[0].sfm_address;
+ this->setSlide(slide);
+ for(unsigned int i=0; i < regionCount; ++i) {
+ if ( ((regions[i].sfm_init_prot & VM_PROT_ZF) != 0) || (regions[i].sfm_size == 0) ) {
+ // nothing to mmap for zero-fills areas, they are just vm_allocated
+ }
+ else {
+ void* mmapAddress = (void*)(uintptr_t)(regions[i].sfm_address + slide);
+ size_t size = regions[i].sfm_size;
+ int protection = 0;
+ if ( regions[i].sfm_init_prot & VM_PROT_EXECUTE )
+ protection |= PROT_EXEC;
+ if ( regions[i].sfm_init_prot & VM_PROT_READ )
+ protection |= PROT_READ;
+ if ( regions[i].sfm_init_prot & VM_PROT_WRITE )
+ protection |= PROT_WRITE;
+ off_t offset = regions[i].sfm_file_offset;
+ //dyld::log("mmap(%p, 0x%08lX, %s\n", mmapAddress, size, fPath);
+ mmapAddress = mmap(mmapAddress, size, protection, MAP_FIXED | MAP_PRIVATE, fd, offset);
+ if ( mmapAddress == ((void*)(-1)) )
+ throw "mmap error";
+ }
+ }
+
+ // logging
+ if ( context.verboseMapping ) {
+ dyld::log("dyld: Mapping split-seg outside shared region, slid by 0x%08lX %s\n", this->fSlide, this->getPath());
+ for(unsigned int segIndex=0,entryIndex=0; segIndex < segmentCount; ++segIndex, ++entryIndex){
+ const shared_file_mapping_np* entry = ®ions[entryIndex];
+ if ( (entry->sfm_init_prot & VM_PROT_ZF) == 0 )
+ dyld::log("%18s at 0x%08lX->0x%08lX\n",
+ segName(segIndex), segActualLoadAddress(segIndex), segActualEndAddress(segIndex)-1);
+ if ( entryIndex < (regionCount-1) ) {
+ const shared_file_mapping_np* nextEntry = ®ions[entryIndex+1];
+ if ( (nextEntry->sfm_init_prot & VM_PROT_ZF) != 0 ) {
+ uint64_t segOffset = nextEntry->sfm_address - entry->sfm_address;
+ dyld::log("%18s at 0x%08lX->0x%08lX (zerofill)\n",
+ segName(segIndex), (uintptr_t)(segActualLoadAddress(segIndex) + segOffset), (uintptr_t)(segActualLoadAddress(segIndex) + segOffset + nextEntry->sfm_size - 1));
+ ++entryIndex;
+ }
+ }
+ }
+ }
+
+ return r;
+}
+#endif // SPLIT_SEG_DYLIB_SUPPORT
+
+
+void ImageLoaderMachOClassic::mapSegmentsClassic(int fd, uint64_t offsetInFat, uint64_t lenInFat, uint64_t fileLen, const LinkContext& context)
+{
+ // non-split segment libraries handled by super class
+ if ( !fIsSplitSeg )
+ return ImageLoaderMachO::mapSegments(fd, offsetInFat, lenInFat, fileLen, context);
+
+#if SPLIT_SEG_SHARED_REGION_SUPPORT
+ // try to map into shared region at preferred address
+ if ( mapSplitSegDylibInfoSharedRegion(fd, offsetInFat, lenInFat, fileLen, context) == 0)
+ return;
+ // if there is a problem, fall into case where we map file somewhere outside the shared region
+#endif
+
+#if SPLIT_SEG_DYLIB_SUPPORT
+ // support old split-seg dylibs by mapping them where ever we find space
+ if ( mapSplitSegDylibOutsideSharedRegion(fd, offsetInFat, lenInFat, fileLen, context) != 0 )
+#endif
+ throw "mapping error";
+}
+
+
+#if SPLIT_SEG_SHARED_REGION_SUPPORT
+static int _shared_region_map_np(int fd, uint32_t count, const shared_file_mapping_np mappings[])
+{
+ return syscall(295, fd, count, mappings);
+}
+
+int
+ImageLoaderMachOClassic::mapSplitSegDylibInfoSharedRegion(int fd,
+ uint64_t offsetInFat,
+ uint64_t lenInFat,
+ uint64_t fileLen,
+ const LinkContext& context)
+{
+ // build table of segments to map
+ const unsigned int segmentCount = fSegmentsCount;
+ const unsigned int extraZeroFillEntries = getExtraZeroFillEntriesCount();
+ const unsigned int mappingTableCount = segmentCount+extraZeroFillEntries;
+ shared_file_mapping_np mappingTable[mappingTableCount];
+ initMappingTable(offsetInFat, mappingTable);
+
+ // try to map it in shared
+ int r = _shared_region_map_np(fd, mappingTableCount, mappingTable);
+ if ( 0 == r ) {
+ this->setNeverUnload();
+ if ( context.verboseMapping ) {
+ dyld::log("dyld: Mapping split-seg shared %s\n", this->getPath());
+ for(unsigned int segIndex=0,entryIndex=0; segIndex < segmentCount; ++segIndex, ++entryIndex){
+ const shared_file_mapping_np* entry = &mappingTable[entryIndex];
+ if ( (entry->sfm_init_prot & VM_PROT_ZF) == 0 )
+ dyld::log("%18s at 0x%08lX->0x%08lX\n",
+ segName(segIndex), segActualLoadAddress(segIndex), segActualEndAddress(segIndex)-1);
+ if ( entryIndex < (mappingTableCount-1) ) {
+ const shared_file_mapping_np* nextEntry = &mappingTable[entryIndex+1];
+ if ( (nextEntry->sfm_init_prot & VM_PROT_ZF) != 0 ) {
+ uint64_t segOffset = nextEntry->sfm_address - entry->sfm_address;
+ dyld::log("%18s at 0x%08lX->0x%08lX\n",
+ segName(segIndex), (uintptr_t)(segActualLoadAddress(segIndex) + segOffset),
+ (uintptr_t)(segActualLoadAddress(segIndex) + segOffset + nextEntry->sfm_size - 1));
+ ++entryIndex;
+ }
+ }
+ }
+ }
+ }
+ return r;
+}
+
+#endif // SPLIT_SEG_SHARED_REGION_SUPPORT
+
+// test if this image is re-exported through parent (the image that loaded this one)
+bool ImageLoaderMachOClassic::isSubframeworkOf(const LinkContext& context, const ImageLoader* parent) const
+{
+ if ( fInUmbrella ) {
+ const uint32_t cmd_count = ((macho_header*)fMachOData)->ncmds;
+ const struct load_command* const cmds = (struct load_command*)&fMachOData[sizeof(macho_header)];
+ const struct load_command* cmd = cmds;
+ for (uint32_t i = 0; i < cmd_count; ++i) {
+ if (cmd->cmd == LC_SUB_FRAMEWORK) {
+ const struct sub_framework_command* subf = (struct sub_framework_command*)cmd;
+ const char* exportThruName = (char*)cmd + subf->umbrella.offset;
+ // need to match LC_SUB_FRAMEWORK string against the leaf name of the install location of parent...
+ const char* parentInstallPath = parent->getInstallPath();
+ if ( parentInstallPath != NULL ) {
+ const char* lastSlash = strrchr(parentInstallPath, '/');
+ if ( lastSlash != NULL ) {
+ if ( strcmp(&lastSlash[1], exportThruName) == 0 )
+ return true;
+ if ( context.imageSuffix != NULL ) {
+ // when DYLD_IMAGE_SUFFIX is used, lastSlash string needs imageSuffix removed from end
+ char reexportAndSuffix[strlen(context.imageSuffix)+strlen(exportThruName)+1];
+ strcpy(reexportAndSuffix, exportThruName);
+ strcat(reexportAndSuffix, context.imageSuffix);
+ if ( strcmp(&lastSlash[1], reexportAndSuffix) == 0 )
+ return true;
+ }
+ }
+ }
+ }
+ cmd = (const struct load_command*)(((char*)cmd)+cmd->cmdsize);
+ }
+ }
+ return false;
+}
+
+// test if child is re-exported
+bool ImageLoaderMachOClassic::hasSubLibrary(const LinkContext& context, const ImageLoader* child) const
+{
+ if ( fHasSubLibraries ) {
+ // need to match LC_SUB_LIBRARY string against the leaf name (without extension) of the install location of child...
+ const char* childInstallPath = child->getInstallPath();
+ if ( childInstallPath != NULL ) {
+ const char* lastSlash = strrchr(childInstallPath, '/');
+ if ( lastSlash != NULL ) {
+ const char* firstDot = strchr(lastSlash, '.');
+ int len;
+ if ( firstDot == NULL )
+ len = strlen(lastSlash);
+ else
+ len = firstDot-lastSlash-1;
+ char childLeafName[len+1];
+ strncpy(childLeafName, &lastSlash[1], len);
+ childLeafName[len] = '\0';
+ const uint32_t cmd_count = ((macho_header*)fMachOData)->ncmds;
+ const struct load_command* const cmds = (struct load_command*)&fMachOData[sizeof(macho_header)];
+ const struct load_command* cmd = cmds;
+ for (uint32_t i = 0; i < cmd_count; ++i) {
+ switch (cmd->cmd) {
+ case LC_SUB_LIBRARY:
+ {
+ const struct sub_library_command* lib = (struct sub_library_command*)cmd;
+ const char* aSubLibName = (char*)cmd + lib->sub_library.offset;
+ if ( strcmp(aSubLibName, childLeafName) == 0 )
+ return true;
+ if ( context.imageSuffix != NULL ) {
+ // when DYLD_IMAGE_SUFFIX is used, childLeafName string needs imageSuffix removed from end
+ char aSubLibNameAndSuffix[strlen(context.imageSuffix)+strlen(aSubLibName)+1];
+ strcpy(aSubLibNameAndSuffix, aSubLibName);
+ strcat(aSubLibNameAndSuffix, context.imageSuffix);
+ if ( strcmp(aSubLibNameAndSuffix, childLeafName) == 0 )
+ return true;
+ }
+ }
+ break;
+ }
+ cmd = (const struct load_command*)(((char*)cmd)+cmd->cmdsize);
+ }
+ }
+ }
+ }
+ if ( fHasSubUmbrella ) {
+ // need to match LC_SUB_UMBRELLA string against the leaf name of install location of child...
+ const char* childInstallPath = child->getInstallPath();
+ if ( childInstallPath != NULL ) {
+ const char* lastSlash = strrchr(childInstallPath, '/');
+ if ( lastSlash != NULL ) {
+ const uint32_t cmd_count = ((macho_header*)fMachOData)->ncmds;
+ const struct load_command* const cmds = (struct load_command*)&fMachOData[sizeof(macho_header)];
+ const struct load_command* cmd = cmds;
+ for (uint32_t i = 0; i < cmd_count; ++i) {
+ switch (cmd->cmd) {
+ case LC_SUB_UMBRELLA:
+ {
+ const struct sub_umbrella_command* um = (struct sub_umbrella_command*)cmd;
+ const char* aSubUmbrellaName = (char*)cmd + um->sub_umbrella.offset;
+ if ( strcmp(aSubUmbrellaName, &lastSlash[1]) == 0 )
+ return true;
+ if ( context.imageSuffix != NULL ) {
+ // when DYLD_IMAGE_SUFFIX is used, lastSlash string needs imageSuffix removed from end
+ char umbrellaAndSuffix[strlen(context.imageSuffix)+strlen(aSubUmbrellaName)+1];
+ strcpy(umbrellaAndSuffix, aSubUmbrellaName);
+ strcat(umbrellaAndSuffix, context.imageSuffix);
+ if ( strcmp(umbrellaAndSuffix, &lastSlash[1]) == 0 )
+ return true;
+ }
+ }
+ break;
+ }
+ cmd = (const struct load_command*)(((char*)cmd)+cmd->cmdsize);
+ }
+ }
+ }
+ }
+ return false;
+}
+
+
+uintptr_t ImageLoaderMachOClassic::getFirstWritableSegmentAddress()
+{
+ // in split segment libraries r_address is offset from first writable segment
+ for(unsigned int i=0; i < fSegmentsCount; ++i) {
+ if ( segWriteable(i) )
+ return segActualLoadAddress(i);
+ }
+ throw "no writable segment";
+}
+
+uintptr_t ImageLoaderMachOClassic::getRelocBase()
+{
+ // r_address is either an offset from the first segment address
+ // or from the first writable segment address
+#if __x86_64__
+ return getFirstWritableSegmentAddress();
+#else
+ if ( fIsSplitSeg )
+ return getFirstWritableSegmentAddress();
+ else
+ return segActualLoadAddress(0);
+#endif
+}
+
+
+#if __ppc__
+static inline void otherRelocsPPC(uintptr_t* locationToFix, uint8_t relocationType, uint16_t otherHalf, uintptr_t slide)
+{
+ // low 16 bits of 32-bit ppc instructions need fixing
+ struct ppcInstruction { uint16_t opcode; int16_t immediateValue; };
+ ppcInstruction* instruction = (ppcInstruction*)locationToFix;
+ //uint32_t before = *((uint32_t*)locationToFix);
+ switch ( relocationType )
+ {
+ case PPC_RELOC_LO16:
+ instruction->immediateValue = ((otherHalf << 16) | instruction->immediateValue) + slide;
+ break;
+ case PPC_RELOC_HI16:
+ instruction->immediateValue = ((((instruction->immediateValue << 16) | otherHalf) + slide) >> 16);
+ break;
+ case PPC_RELOC_HA16:
+ int16_t signedOtherHalf = (int16_t)(otherHalf & 0xffff);
+ uint32_t temp = (instruction->immediateValue << 16) + signedOtherHalf + slide;
+ if ( (temp & 0x00008000) != 0 )
+ temp += 0x00008000;
+ instruction->immediateValue = temp >> 16;
+ }
+ //uint32_t after = *((uint32_t*)locationToFix);
+ //dyld::log("dyld: ppc fixup %0p type %d from 0x%08X to 0x%08X\n", locationToFix, relocationType, before, after);
+}
+#endif
+
+#if PREBOUND_IMAGE_SUPPORT
+void ImageLoaderMachOClassic::resetPreboundLazyPointers(const LinkContext& context)
+{
+ // loop through all local (internal) relocation records looking for pre-bound-lazy-pointer values
+ const uintptr_t relocBase = this->getRelocBase();
+ register const uintptr_t slide = this->fSlide;
+ const relocation_info* const relocsStart = (struct relocation_info*)(&fLinkEditBase[fDynamicInfo->locreloff]);
+ const relocation_info* const relocsEnd = &relocsStart[fDynamicInfo->nlocrel];
+ for (const relocation_info* reloc=relocsStart; reloc < relocsEnd; ++reloc) {
+ if ( (reloc->r_address & R_SCATTERED) != 0 ) {
+ const struct scattered_relocation_info* sreloc = (struct scattered_relocation_info*)reloc;
+ if (sreloc->r_length == RELOC_SIZE) {
+ uintptr_t* locationToFix = (uintptr_t*)(sreloc->r_address + relocBase);
+ switch(sreloc->r_type) {
+ #if __ppc__
+ case PPC_RELOC_PB_LA_PTR:
+ *locationToFix = sreloc->r_value + slide;
+ break;
+ #endif
+ #if __i386__
+ case GENERIC_RELOC_PB_LA_PTR:
+ *locationToFix = sreloc->r_value + slide;
+ break;
+ #endif
+ #if __arm__
+ case ARM_RELOC_PB_LA_PTR:
+ *locationToFix = sreloc->r_value + slide;
+ break;
+ #endif
+ }
+ }
+ }
+ }
+}
+#endif
+
+
+
+
+void ImageLoaderMachOClassic::rebase(const LinkContext& context)
+{
+ register const uintptr_t slide = this->fSlide;
+ const uintptr_t relocBase = this->getRelocBase();
+
+ // prefetch any LINKEDIT pages needed
+ if ( !context.preFetchDisabled && !this->isPrebindable())
+ this->prefetchLINKEDIT(context);
+
+ // loop through all local (internal) relocation records
+ const relocation_info* const relocsStart = (struct relocation_info*)(&fLinkEditBase[fDynamicInfo->locreloff]);
+ const relocation_info* const relocsEnd = &relocsStart[fDynamicInfo->nlocrel];
+ for (const relocation_info* reloc=relocsStart; reloc < relocsEnd; ++reloc) {
+ try {
+ #if LINKEDIT_USAGE_DEBUG
+ noteAccessedLinkEditAddress(reloc);
+ #endif
+ #if __x86_64__
+ // only one kind of local relocation supported for x86_64
+ if ( reloc->r_length != 3 )
+ throw "bad local relocation length";
+ if ( reloc->r_type != X86_64_RELOC_UNSIGNED )
+ throw "unknown local relocation type";
+ if ( reloc->r_pcrel != 0 )
+ throw "bad local relocation pc_rel";
+ if ( reloc->r_extern != 0 )
+ throw "extern relocation found with local relocations";
+ *((uintptr_t*)(reloc->r_address + relocBase)) += slide;
+ #else
+ if ( (reloc->r_address & R_SCATTERED) == 0 ) {
+ if ( reloc->r_symbolnum == R_ABS ) {
+ // ignore absolute relocations
+ }
+ else if (reloc->r_length == RELOC_SIZE) {
+ switch(reloc->r_type) {
+ case GENERIC_RELOC_VANILLA:
+ *((uintptr_t*)(reloc->r_address + relocBase)) += slide;
+ break;
+ #if __ppc__
+ case PPC_RELOC_HI16:
+ case PPC_RELOC_LO16:
+ case PPC_RELOC_HA16:
+ // some tools leave object file relocations in linked images
+ otherRelocsPPC((uintptr_t*)(reloc->r_address + relocBase), reloc->r_type, reloc[1].r_address, slide);
+ ++reloc; // these relocations come in pairs, skip next
+ break;
+ #endif
+ default:
+ throw "unknown local relocation type";
+ }
+ }
+ else {
+ throw "bad local relocation length";
+ }
+ }
+ else {
+ const struct scattered_relocation_info* sreloc = (struct scattered_relocation_info*)reloc;
+ if (sreloc->r_length == RELOC_SIZE) {
+ uintptr_t* locationToFix = (uintptr_t*)(sreloc->r_address + relocBase);
+ switch(sreloc->r_type) {
+ case GENERIC_RELOC_VANILLA:
+ *locationToFix += slide;
+ break;
+ #if __ppc__
+ case PPC_RELOC_HI16:
+ case PPC_RELOC_LO16:
+ case PPC_RELOC_HA16:
+ // Metrowerks compiler sometimes leaves object file relocations in linked images???
+ ++reloc; // these relocations come in pairs, get next one
+ otherRelocsPPC(locationToFix, sreloc->r_type, reloc->r_address, slide);
+ break;
+ case PPC_RELOC_PB_LA_PTR:
+ // do nothing
+ break;
+ #elif __ppc64__
+ case PPC_RELOC_PB_LA_PTR:
+ // needed for compatibility with ppc64 binaries built with the first ld64
+ // which used PPC_RELOC_PB_LA_PTR relocs instead of GENERIC_RELOC_VANILLA for lazy pointers
+ *locationToFix += slide;
+ break;
+ #elif __i386__
+ case GENERIC_RELOC_PB_LA_PTR:
+ // do nothing
+ break;
+ #elif __arm__
+ case ARM_RELOC_PB_LA_PTR:
+ // do nothing
+ break;
+ #endif
+ default:
+ throw "unknown local scattered relocation type";
+ }
+ }
+ else {
+ throw "bad local scattered relocation length";
+ }
+ }
+ #endif // x86_64
+ }
+ catch (const char* msg) {
+ const uint8_t* r = (uint8_t*)reloc;
+ dyld::throwf("%s in %s. reloc record at %p: 0x%02X 0x%02X 0x%02X 0x%02X 0x%02X 0x%02X 0x%02X 0x%02X",
+ msg, this->getPath(), reloc, r[0], r[1], r[2], r[3], r[4], r[5], r[6], r[7]);
+ }
+ }
+
+ // update stats
+ fgTotalRebaseFixups += fDynamicInfo->nlocrel;
+}
+
+
+
+const struct macho_nlist* ImageLoaderMachOClassic::binarySearchWithToc(const char* key, const char stringPool[], const struct macho_nlist symbols[],
+ const struct dylib_table_of_contents toc[], uint32_t symbolCount, uint32_t hintIndex) const
+{
+ int32_t high = symbolCount-1;
+ int32_t mid = hintIndex;
+
+ // handle out of range hint
+ if ( mid >= (int32_t)symbolCount )
+ mid = symbolCount/2;
+ ++ImageLoaderMachO::fgSymbolTableBinarySearchs;
+ ++fgTotalBindImageSearches;
+
+ //dyld::log("dyld: binarySearchWithToc for %s in %s\n", key, this->getShortName());
+
+ for (int32_t low = 0; low <= high; mid = (low+high)/2) {
+ const uint32_t index = toc[mid].symbol_index;
+ const struct macho_nlist* pivot = &symbols[index];
+ const char* pivotStr = &stringPool[pivot->n_un.n_strx];
+#if LINKEDIT_USAGE_DEBUG
+ noteAccessedLinkEditAddress(&toc[mid]);
+ noteAccessedLinkEditAddress(pivot);
+ noteAccessedLinkEditAddress(pivotStr);
+#endif
+ int cmp = astrcmp(key, pivotStr);
+ if ( cmp == 0 )
+ return pivot;
+ if ( cmp > 0 ) {
+ // key > pivot
+ low = mid + 1;
+ }
+ else {
+ // key < pivot
+ high = mid - 1;
+ }
+ }
+ return NULL;
+}
+
+const struct macho_nlist* ImageLoaderMachOClassic::binarySearch(const char* key, const char stringPool[], const struct macho_nlist symbols[], uint32_t symbolCount) const
+{
+ // update stats
+ ++fgTotalBindImageSearches;
+ ++ImageLoaderMachO::fgSymbolTableBinarySearchs;
+
+ //dyld::log("dyld: binarySearch for %s in %s, stringpool=%p, symbols=%p, symbolCount=%u\n",
+ // key, this->getShortName(), stringPool, symbols, symbolCount);
+
+ const struct macho_nlist* base = symbols;
+ for (uint32_t n = symbolCount; n > 0; n /= 2) {
+ const struct macho_nlist* pivot = &base[n/2];
+ const char* pivotStr = &stringPool[pivot->n_un.n_strx];
+#if LINKEDIT_USAGE_DEBUG
+ noteAccessedLinkEditAddress(pivot);
+ noteAccessedLinkEditAddress(pivotStr);
+#endif
+ int cmp = astrcmp(key, pivotStr);
+ if ( cmp == 0 )
+ return pivot;
+ if ( cmp > 0 ) {
+ // key > pivot
+ // move base to symbol after pivot
+ base = &pivot[1];
+ --n;
+ }
+ else {
+ // key < pivot
+ // keep same base
+ }
+ }
+ return NULL;
+}
+
+
+const ImageLoader::Symbol* ImageLoaderMachOClassic::findExportedSymbol(const char* name, const ImageLoader** foundIn) const
+{
+ const struct macho_nlist* sym = NULL;
+ if ( fDynamicInfo->tocoff == 0 )
+ sym = binarySearch(name, fStrings, &fSymbolTable[fDynamicInfo->iextdefsym], fDynamicInfo->nextdefsym);
+ else
+ sym = binarySearchWithToc(name, fStrings, fSymbolTable, (dylib_table_of_contents*)&fLinkEditBase[fDynamicInfo->tocoff],
+ fDynamicInfo->ntoc, fDynamicInfo->nextdefsym);
+ if ( sym != NULL ) {
+ if ( foundIn != NULL )
+ *foundIn = (ImageLoader*)this;
+ return (const Symbol*)sym;
+ }
+ return NULL;
+}
+
+
+
+bool ImageLoaderMachOClassic::containsSymbol(const void* addr) const
+{
+ return ( (fSymbolTable <= addr) && (addr < fStrings) );
+}
+
+
+uintptr_t ImageLoaderMachOClassic::exportedSymbolAddress(const Symbol* symbol) const
+{
+ const struct macho_nlist* sym = (macho_nlist*)symbol;
+ uintptr_t result = sym->n_value + fSlide;
+ #if __arm__
+ // processor assumes code address with low bit set is thumb
+ if (sym->n_desc & N_ARM_THUMB_DEF)
+ result |= 1;
+ #endif
+ return result;
+}
+
+bool ImageLoaderMachOClassic::exportedSymbolIsWeakDefintion(const Symbol* symbol) const
+{
+ const struct macho_nlist* nlistSym = (const struct macho_nlist*)symbol;
+ return ( (nlistSym->n_desc & N_WEAK_DEF) != 0 );
+}
+
+const char* ImageLoaderMachOClassic::exportedSymbolName(const Symbol* symbol) const
+{
+ const struct macho_nlist* nlistSym = (const struct macho_nlist*)symbol;
+ return &fStrings[nlistSym->n_un.n_strx];
+}
+
+unsigned int ImageLoaderMachOClassic::exportedSymbolCount() const
+{
+ return fDynamicInfo->nextdefsym;
+}
+
+const ImageLoader::Symbol* ImageLoaderMachOClassic::exportedSymbolIndexed(unsigned int index) const
+{
+ if ( index < fDynamicInfo->nextdefsym ) {
+ const struct macho_nlist* sym = &fSymbolTable[fDynamicInfo->iextdefsym + index];
+ return (const ImageLoader::Symbol*)sym;
+ }
+ return NULL;
+}
+
+unsigned int ImageLoaderMachOClassic::importedSymbolCount() const
+{
+ return fDynamicInfo->nundefsym;
+}
+
+const ImageLoader::Symbol* ImageLoaderMachOClassic::importedSymbolIndexed(unsigned int index) const
+{
+ if ( index < fDynamicInfo->nundefsym ) {
+ const struct macho_nlist* sym = &fSymbolTable[fDynamicInfo->iundefsym + index];
+ return (const ImageLoader::Symbol*)sym;
+ }
+ return NULL;
+}
+
+const char* ImageLoaderMachOClassic::importedSymbolName(const Symbol* symbol) const
+{
+ const struct macho_nlist* nlistSym = (const struct macho_nlist*)symbol;
+ return &fStrings[nlistSym->n_un.n_strx];
+}
+
+
+
+bool ImageLoaderMachOClassic::symbolIsWeakDefinition(const struct macho_nlist* symbol)
+{
+ // if a define and weak ==> coalesced
+ if ( ((symbol->n_type & N_TYPE) == N_SECT) && ((symbol->n_desc & N_WEAK_DEF) != 0) )
+ return true;
+
+ // regular symbol
+ return false;
+}
+
+bool ImageLoaderMachOClassic::symbolIsWeakReference(const struct macho_nlist* symbol)
+{
+ // if an undefine and not referencing a weak symbol ==> coalesced
+ if ( ((symbol->n_type & N_TYPE) != N_SECT) && ((symbol->n_desc & N_REF_TO_WEAK) != 0) )
+ return true;
+
+ // regular symbol
+ return false;
+}
+
+uintptr_t ImageLoaderMachOClassic::getSymbolAddress(const macho_nlist* sym, const LinkContext& context) const
+{
+ return ImageLoaderMachO::getSymbolAddress((Symbol*)sym, this, context);
+}
+
+uintptr_t ImageLoaderMachOClassic::resolveUndefined(const LinkContext& context, const struct macho_nlist* undefinedSymbol,
+ bool twoLevel, bool dontCoalesce, const ImageLoader** foundIn)
+{
+ ++fgTotalBindSymbolsResolved;
+ const char* symbolName = &fStrings[undefinedSymbol->n_un.n_strx];
+
+#if LINKEDIT_USAGE_DEBUG
+ noteAccessedLinkEditAddress(undefinedSymbol);
+ noteAccessedLinkEditAddress(symbolName);
+#endif
+ if ( context.bindFlat || !twoLevel ) {
+ // flat lookup
+ if ( ((undefinedSymbol->n_type & N_PEXT) != 0) && ((undefinedSymbol->n_type & N_TYPE) == N_SECT) ) {
+ // is a multi-module private_extern internal reference that the linker did not optimize away
+ uintptr_t addr = this->getSymbolAddress(undefinedSymbol, context);
+ *foundIn = this;
+ return addr;
+ }
+ const Symbol* sym;
+ if ( context.flatExportFinder(symbolName, &sym, foundIn) ) {
+ if ( (*foundIn != this) && !(*foundIn)->neverUnload() )
+ this->addDynamicReference(*foundIn);
+ return (*foundIn)->getExportedSymbolAddress(sym, context, this);
+ }
+ // if a bundle is loaded privately the above will not find its exports
+ if ( this->isBundle() && this->hasHiddenExports() ) {
+ // look in self for needed symbol
+ sym = this->findExportedSymbol(symbolName, foundIn);
+ if ( sym != NULL )
+ return (*foundIn)->getExportedSymbolAddress(sym, context, this);
+ }
+ if ( (undefinedSymbol->n_desc & N_WEAK_REF) != 0 ) {
+ // definition can't be found anywhere
+ // if reference is weak_import, then it is ok, just return 0
+ return 0;
+ }
+ throwSymbolNotFound(symbolName, this->getPath(), "flat namespace");
+ }
+ else {
+ // symbol requires searching images with coalesced symbols (not done during prebinding)
+ if ( !context.prebinding && !dontCoalesce && (symbolIsWeakReference(undefinedSymbol) || symbolIsWeakDefinition(undefinedSymbol)) ) {
+ const Symbol* sym;
+ if ( context.coalescedExportFinder(symbolName, &sym, foundIn) ) {
+ if ( (*foundIn != this) && !(*foundIn)->neverUnload() )
+ this->addDynamicReference(*foundIn);
+ return (*foundIn)->getExportedSymbolAddress(sym, context, this);
+ }
+ //throwSymbolNotFound(symbolName, this->getPath(), "coalesced namespace");
+ //dyld::log("dyld: coalesced symbol %s not found in any coalesced image, falling back to two-level lookup", symbolName);
+ }
+
+ // if this is a real definition (not an undefined symbol) there is no ordinal
+ if ( (undefinedSymbol->n_type & N_TYPE) == N_SECT ) {
+ // static linker should never generate this case, but if it does, do something sane
+ uintptr_t addr = this->getSymbolAddress(undefinedSymbol, context);
+ *foundIn = this;
+ return addr;
+ }
+
+ // two level lookup
+ ImageLoader* target = NULL;
+ uint8_t ord = GET_LIBRARY_ORDINAL(undefinedSymbol->n_desc);
+ if ( ord == EXECUTABLE_ORDINAL ) {
+ target = context.mainExecutable;
+ }
+ else if ( ord == SELF_LIBRARY_ORDINAL ) {
+ target = this;
+ }
+ else if ( ord == DYNAMIC_LOOKUP_ORDINAL ) {
+ // rnielsen: HACKHACK
+ // flat lookup
+ const Symbol* sym;
+ if ( context.flatExportFinder(symbolName, &sym, foundIn) )
+ return (*foundIn)->getExportedSymbolAddress(sym, context, this);
+ // no image has exports this symbol
+ // report error
+ context.undefinedHandler(symbolName);
+ // try looking again
+ if ( context.flatExportFinder(symbolName, &sym, foundIn) )
+ return (*foundIn)->getExportedSymbolAddress(sym, context, this);
+
+ throwSymbolNotFound(symbolName, this->getPath(), "dynamic lookup");
+ }
+ else if ( ord <= libraryCount() ) {
+ target = libImage(ord-1);
+ if ( target == NULL ) {
+ // if target library not loaded and reference is weak or library is weak return 0
+ return 0;
+ }
+ }
+ else {
+ dyld::throwf("bad mach-o binary, library ordinal (%u) too big (max %u) for symbol %s in %s",
+ ord, libraryCount(), symbolName, this->getPath());
+ }
+
+ if ( target == NULL ) {
+ //dyld::log("resolveUndefined(%s) in %s\n", symbolName, this->getPath());
+ throw "symbol not found";
+ }
+
+ const Symbol* sym = target->findExportedSymbol(symbolName, true, foundIn);
+ if ( sym!= NULL ) {
+ return (*foundIn)->getExportedSymbolAddress(sym, context, this);
+ }
+ else if ( (undefinedSymbol->n_type & N_PEXT) != 0 ) {
+ // don't know why the static linker did not eliminate the internal reference to a private extern definition
+ *foundIn = this;
+ return this->getSymbolAddress(undefinedSymbol, context);
+ }
+ else if ( (undefinedSymbol->n_desc & N_WEAK_REF) != 0 ) {
+ // if definition not found and reference is weak return 0
+ return 0;
+ }
+
+ // nowhere to be found
+ throwSymbolNotFound(symbolName, this->getPath(), target->getPath());
+ }
+}
+
+
+
+// returns if 'addr' is within the address range of section 'sectionIndex'
+// fSlide is not used. 'addr' is assumed to be a prebound address in this image
+bool ImageLoaderMachOClassic::isAddrInSection(uintptr_t addr, uint8_t sectionIndex)
+{
+ uint8_t currentSectionIndex = 1;
+ const uint32_t cmd_count = ((macho_header*)fMachOData)->ncmds;
+ const struct load_command* const cmds = (struct load_command*)&fMachOData[sizeof(macho_header)];
+ const struct load_command* cmd = cmds;
+ for (uint32_t i = 0; i < cmd_count; ++i) {
+ if ( cmd->cmd == LC_SEGMENT_COMMAND ) {
+ const struct macho_segment_command* seg = (struct macho_segment_command*)cmd;
+ if ( (currentSectionIndex <= sectionIndex) && (sectionIndex < currentSectionIndex+seg->nsects) ) {
+ // 'sectionIndex' is in this segment, get section info
+ const struct macho_section* const sectionsStart = (struct macho_section*)((char*)seg + sizeof(struct macho_segment_command));
+ const struct macho_section* const section = §ionsStart[sectionIndex-currentSectionIndex];
+ return ( (section->addr <= addr) && (addr < section->addr+section->size) );
+ }
+ else {
+ // 'sectionIndex' not in this segment, skip to next segment
+ currentSectionIndex += seg->nsects;
+ }
+ }
+ cmd = (const struct load_command*)(((char*)cmd)+cmd->cmdsize);
+ }
+
+ return false;
+}
+
+void ImageLoaderMachOClassic::doBindExternalRelocations(const LinkContext& context)
+{
+ const uintptr_t relocBase = this->getRelocBase();
+ const bool twoLevel = this->usesTwoLevelNameSpace();
+ const bool prebound = this->isPrebindable();
+
+#if TEXT_RELOC_SUPPORT
+ // if there are __TEXT fixups, temporarily make __TEXT writable
+ if ( fTextSegmentBinds )
+ this->makeTextSegmentWritable(context, true);
+#endif
+ // cache last lookup
+ const struct macho_nlist* lastUndefinedSymbol = NULL;
+ uintptr_t symbolAddr = 0;
+ const ImageLoader* image = NULL;
+
+ // loop through all external relocation records and bind each
+ const relocation_info* const relocsStart = (struct relocation_info*)(&fLinkEditBase[fDynamicInfo->extreloff]);
+ const relocation_info* const relocsEnd = &relocsStart[fDynamicInfo->nextrel];
+ for (const relocation_info* reloc=relocsStart; reloc < relocsEnd; ++reloc) {
+ if (reloc->r_length == RELOC_SIZE) {
+ switch(reloc->r_type) {
+ case POINTER_RELOC:
+ {
+ const struct macho_nlist* undefinedSymbol = &fSymbolTable[reloc->r_symbolnum];
+ uintptr_t* location = ((uintptr_t*)(reloc->r_address + relocBase));
+ uintptr_t value = *location;
+ bool symbolAddrCached = true;
+ #if __i386__
+ if ( reloc->r_pcrel ) {
+ value += (uintptr_t)location + 4 - fSlide;
+ }
+ #endif
+ if ( prebound ) {
+ // we are doing relocations, so prebinding was not usable
+ // in a prebound executable, the n_value field of an undefined symbol is set to the address where the symbol was found when prebound
+ // so, subtracting that gives the initial displacement which we need to add to the newly found symbol address
+ // if mach-o relocation structs had an "addend" field this complication would not be necessary.
+ if ( ((undefinedSymbol->n_type & N_TYPE) == N_SECT) && ((undefinedSymbol->n_desc & N_WEAK_DEF) != 0) ) {
+ // weak symbols need special casing, since *location may have been prebound to a definition in another image.
+ // If *location is currently prebound to somewhere in the same section as the weak definition, we assume
+ // that we can subtract off the weak symbol address to get the addend.
+ // If prebound elsewhere, we've lost the addend and have to assume it is zero.
+ // The prebinding to elsewhere only happens with 10.4+ update_prebinding which only operates on a small set of Apple dylibs
+ if ( (value == undefinedSymbol->n_value) || this->isAddrInSection(value, undefinedSymbol->n_sect) ) {
+ value -= undefinedSymbol->n_value;
+ #if __arm__
+ // if weak and thumb subtract off extra thumb bit
+ if ( (undefinedSymbol->n_desc & N_ARM_THUMB_DEF) != 0 )
+ value -= 1;
+ #endif
+ }
+ else
+ value = 0;
+ }
+ #if __arm__
+ else if ( ((undefinedSymbol->n_type & N_TYPE) == N_SECT) && ((undefinedSymbol->n_desc & N_ARM_THUMB_DEF) != 0) ) {
+ // it was prebound to a defined symbol for thumb code in the same linkage unit
+ // we need to subtract off one to get real addend
+ value -= (undefinedSymbol->n_value+1);
+ }
+ #endif
+ else {
+ // is undefined or non-weak symbol, so do subtraction to get addend
+ value -= undefinedSymbol->n_value;
+ }
+ }
+ // if undefinedSymbol is same as last time, then symbolAddr and image will resolve to the same too
+ if ( undefinedSymbol != lastUndefinedSymbol ) {
+ bool dontCoalesce = true;
+ if ( symbolIsWeakReference(undefinedSymbol) ) {
+ // when weakbind() is run on a classic mach-o encoding, it won't try
+ // to coalesce N_REF_TO_WEAK symbols because they are not in the sorted
+ // range of global symbols. To handle that case we do the coalesing now.
+ dontCoalesce = false;
+ }
+ symbolAddr = this->resolveUndefined(context, undefinedSymbol, twoLevel, dontCoalesce, &image);
+ lastUndefinedSymbol = undefinedSymbol;
+ symbolAddrCached = false;
+ }
+ if ( context.verboseBind ) {
+ const char *path = NULL;
+ if ( image != NULL ) {
+ path = image->getShortName();
+ }
+ const char* cachedString = "(cached)";
+ if ( !symbolAddrCached )
+ cachedString = "";
+ if ( value == 0 ) {
+ dyld::log("dyld: bind: %s:0x%08lX = %s:%s, *0x%08lX = 0x%08lX%s\n",
+ this->getShortName(), (uintptr_t)location,
+ path, &fStrings[undefinedSymbol->n_un.n_strx], (uintptr_t)location, symbolAddr, cachedString);
+ }
+ else {
+ dyld::log("dyld: bind: %s:0x%08lX = %s:%s, *0x%08lX = 0x%08lX%s + %ld\n",
+ this->getShortName(), (uintptr_t)location,
+ path, &fStrings[undefinedSymbol->n_un.n_strx], (uintptr_t)location, symbolAddr, cachedString, value);
+ }
+ }
+ value += symbolAddr;
+ #if __i386__
+ if ( reloc->r_pcrel ) {
+ *location = value - ((uintptr_t)location + 4);
+ }
+ else {
+ // don't dirty page if prebound value was correct
+ if ( !prebound || (*location != value) )
+ *location = value;
+ }
+ #else
+ // don't dirty page if prebound value was correct
+ if ( !prebound || (*location != value) )
+ *location = value;
+ #endif
+ // update stats
+ ++fgTotalBindFixups;
+ }
+ break;
+ default:
+ throw "unknown external relocation type";
+ }
+ }
+ else {
+ throw "bad external relocation length";
+ }
+ }
+
+#if TEXT_RELOC_SUPPORT
+ // if there were __TEXT fixups, restore write protection
+ if ( fTextSegmentBinds ) {
+ this->makeTextSegmentWritable(context, true);
+ }
+#endif
+}
+
+
+
+uintptr_t ImageLoaderMachOClassic::bindIndirectSymbol(uintptr_t* ptrToBind, const struct macho_section* sect, const char* symbolName, uintptr_t targetAddr, const ImageLoader* targetImage, const LinkContext& context)
+{
+ if ( context.verboseBind ) {
+ const char* path = NULL;
+ if ( targetImage != NULL )
+ path = targetImage->getShortName();
+ dyld::log("dyld: bind indirect sym: %s:%s$%s = %s:%s, *0x%08lx = 0x%08lx\n",
+ this->getShortName(), symbolName, (((sect->flags & SECTION_TYPE)==S_NON_LAZY_SYMBOL_POINTERS) ? "non_lazy_ptr" : "lazy_ptr"),
+ ((path != NULL) ? path : "<weak_import-not-found>"), symbolName, (uintptr_t)ptrToBind, targetAddr);
+ }
+ if ( context.bindingHandler != NULL ) {
+ const char* path = NULL;
+ if ( targetImage != NULL )
+ path = targetImage->getShortName();
+ targetAddr = (uintptr_t)context.bindingHandler(path, symbolName, (void *)targetAddr);
+ }
+#if __i386__
+ // i386 has special self-modifying stubs that change from "CALL rel32" to "JMP rel32"
+ if ( ((sect->flags & SECTION_TYPE) == S_SYMBOL_STUBS) && ((sect->flags & S_ATTR_SELF_MODIFYING_CODE) != 0) && (sect->reserved2 == 5) ) {
+ uint32_t rel32 = targetAddr - (((uint32_t)ptrToBind)+5);
+ // re-write instruction in a thread-safe manner
+ // use 8-byte compare-and-swap to alter 5-byte jump table entries
+ // loop is required in case the extra three bytes that cover the next entry are altered by another thread
+ bool done = false;
+ while ( !done ) {
+ volatile int64_t* jumpPtr = (int64_t*)ptrToBind;
+ int pad = 0;
+ // By default the three extra bytes swapped follow the 5-byte JMP.
+ // But, if the 5-byte jump is up against the end of the __IMPORT segment
+ // We don't want to access bytes off the end of the segment, so we shift
+ // the extra bytes to precede the 5-byte JMP.
+ if ( (((uint32_t)ptrToBind + 8) & 0x00000FFC) == 0x00000000 ) {
+ jumpPtr = (int64_t*)((uint32_t)ptrToBind - 3);
+ pad = 3;
+ }
+ int64_t oldEntry = *jumpPtr;
+ union {
+ int64_t int64;
+ uint8_t bytes[8];
+ } newEntry;
+ newEntry.int64 = oldEntry;
+ newEntry.bytes[pad+0] = 0xE9; // JMP rel32
+ newEntry.bytes[pad+1] = rel32 & 0xFF;
+ newEntry.bytes[pad+2] = (rel32 >> 8) & 0xFF;
+ newEntry.bytes[pad+3] = (rel32 >> 16) & 0xFF;
+ newEntry.bytes[pad+4] = (rel32 >> 24) & 0xFF;
+ done = OSAtomicCompareAndSwap64Barrier(oldEntry, newEntry.int64, (int64_t*)jumpPtr);
+ }
+ }
+ else
+#endif
+ *ptrToBind = targetAddr;
+ return targetAddr;
+}
+
+uintptr_t ImageLoaderMachOClassic::doBindFastLazySymbol(uint32_t lazyBindingInfoOffset, const LinkContext& context)
+{
+ throw "compressed LINKEDIT lazy binder called with classic LINKEDIT";
+}
+
+uintptr_t ImageLoaderMachOClassic::doBindLazySymbol(uintptr_t* lazyPointer, const LinkContext& context)
+{
+ // scan for all lazy-pointer sections
+ const bool twoLevel = this->usesTwoLevelNameSpace();
+ const uint32_t cmd_count = ((macho_header*)fMachOData)->ncmds;
+ const struct load_command* const cmds = (struct load_command*)&fMachOData[sizeof(macho_header)];
+ const struct load_command* cmd = cmds;
+ const uint32_t* const indirectTable = (uint32_t*)&fLinkEditBase[fDynamicInfo->indirectsymoff];
+ for (uint32_t i = 0; i < cmd_count; ++i) {
+ switch (cmd->cmd) {
+ case LC_SEGMENT_COMMAND:
+ {
+ const struct macho_segment_command* seg = (struct macho_segment_command*)cmd;
+ const struct macho_section* const sectionsStart = (struct macho_section*)((char*)seg + sizeof(struct macho_segment_command));
+ const struct macho_section* const sectionsEnd = §ionsStart[seg->nsects];
+ for (const struct macho_section* sect=sectionsStart; sect < sectionsEnd; ++sect) {
+ const uint8_t type = sect->flags & SECTION_TYPE;
+ uint32_t symbolIndex = INDIRECT_SYMBOL_LOCAL;
+ if ( type == S_LAZY_SYMBOL_POINTERS ) {
+ const uint32_t pointerCount = sect->size / sizeof(uintptr_t);
+ uintptr_t* const symbolPointers = (uintptr_t*)(sect->addr + fSlide);
+ if ( (lazyPointer >= symbolPointers) && (lazyPointer < &symbolPointers[pointerCount]) ) {
+ const uint32_t indirectTableOffset = sect->reserved1;
+ const uint32_t lazyIndex = lazyPointer - symbolPointers;
+ symbolIndex = indirectTable[indirectTableOffset + lazyIndex];
+ }
+ }
+ #if __i386__
+ else if ( (type == S_SYMBOL_STUBS) && (sect->flags & S_ATTR_SELF_MODIFYING_CODE) && (sect->reserved2 == 5) ) {
+ // 5 bytes stubs on i386 are new "fast stubs"
+ uint8_t* const jmpTableBase = (uint8_t*)(sect->addr + fSlide);
+ uint8_t* const jmpTableEnd = jmpTableBase + sect->size;
+ // initial CALL instruction in jump table leaves pointer to next entry, so back up
+ uint8_t* const jmpTableEntryToPatch = ((uint8_t*)lazyPointer) - 5;
+ lazyPointer = (uintptr_t*)jmpTableEntryToPatch;
+ if ( (jmpTableEntryToPatch >= jmpTableBase) && (jmpTableEntryToPatch < jmpTableEnd) ) {
+ const uint32_t indirectTableOffset = sect->reserved1;
+ const uint32_t entryIndex = (jmpTableEntryToPatch - jmpTableBase)/5;
+ symbolIndex = indirectTable[indirectTableOffset + entryIndex];
+ }
+ }
+ #endif
+ if ( symbolIndex != INDIRECT_SYMBOL_ABS && symbolIndex != INDIRECT_SYMBOL_LOCAL ) {
+ const char* symbolName = &fStrings[fSymbolTable[symbolIndex].n_un.n_strx];
+ const ImageLoader* image = NULL;
+ uintptr_t symbolAddr = this->resolveUndefined(context, &fSymbolTable[symbolIndex], twoLevel, false, &image);
+ symbolAddr = this->bindIndirectSymbol(lazyPointer, sect, symbolName, symbolAddr, image, context);
+ ++fgTotalLazyBindFixups;
+ return symbolAddr;
+ }
+ }
+ }
+ break;
+ }
+ cmd = (const struct load_command*)(((char*)cmd)+cmd->cmdsize);
+ }
+ dyld::throwf("lazy pointer not found at address %p in image %s", lazyPointer, this->getPath());
+}
+
+
+
+void ImageLoaderMachOClassic::initializeCoalIterator(CoalIterator& it, unsigned int loadOrder)
+{
+ it.image = this;
+ it.symbolName = " ";
+ it.loadOrder = loadOrder;
+ it.weakSymbol = false;
+ it.symbolMatches = false;
+ it.done = false;
+ it.type = 0;
+ if ( fDynamicInfo->tocoff != 0 ) {
+ it.curIndex = 0;
+ it.endIndex = fDynamicInfo->ntoc;
+ }
+ else {
+ it.curIndex = 0;
+ it.endIndex = fDynamicInfo->nextdefsym;
+ }
+}
+
+
+bool ImageLoaderMachOClassic::incrementCoalIterator(CoalIterator& it)
+{
+ if ( it.done )
+ return false;
+
+ if ( fDynamicInfo->tocoff != 0 ) {
+ if ( it.curIndex >= fDynamicInfo->ntoc ) {
+ it.done = true;
+ it.symbolName = "~~~";
+ return true;
+ }
+ else {
+ const dylib_table_of_contents* toc = (dylib_table_of_contents*)&fLinkEditBase[fDynamicInfo->tocoff];
+ const uint32_t index = toc[it.curIndex].symbol_index;
+ const struct macho_nlist* sym = &fSymbolTable[index];
+ const char* symStr = &fStrings[sym->n_un.n_strx];
+ it.symbolName = symStr;
+ it.weakSymbol = (sym->n_desc & N_WEAK_DEF);
+ it.symbolMatches = false;
+ it.type = 0; // clear flag that says we applied updates for this symbol
+ //dyld::log("incrementCoalIterator() curIndex=%ld, symbolName=%s in %s\n", it.curIndex, symStr, this->getPath());
+ it.curIndex++;
+ return false;
+ }
+ }
+ else {
+ if ( it.curIndex >= fDynamicInfo->nextdefsym ) {
+ it.done = true;
+ it.symbolName = "~~~";
+ return true;
+ }
+ else {
+ const struct macho_nlist* sym = &fSymbolTable[fDynamicInfo->iextdefsym+it.curIndex];
+ const char* symStr = &fStrings[sym->n_un.n_strx];
+ it.symbolName = symStr;
+ it.weakSymbol = (sym->n_desc & N_WEAK_DEF);
+ it.symbolMatches = false;
+ it.type = 0; // clear flag that says we applied updates for this symbol
+ //dyld::log("incrementCoalIterator() curIndex=%ld, symbolName=%s in %s\n", it.curIndex, symStr, this->getPath());
+ it.curIndex++;
+ return false;
+ }
+ }
+
+ return false;
+}
+
+uintptr_t ImageLoaderMachOClassic::getAddressCoalIterator(CoalIterator& it, const LinkContext& context)
+{
+ uint32_t symbol_index = 0;
+ if ( fDynamicInfo->tocoff != 0 ) {
+ const dylib_table_of_contents* toc = (dylib_table_of_contents*)&fLinkEditBase[fDynamicInfo->tocoff];
+ symbol_index = toc[it.curIndex-1].symbol_index;
+ }
+ else {
+ symbol_index = fDynamicInfo->iextdefsym+it.curIndex-1;
+ }
+ const struct macho_nlist* sym = &fSymbolTable[symbol_index];
+ //dyld::log("getAddressCoalIterator() => 0x%llX, %s symbol_index=%d, in %s\n", (uint64_t)(sym->n_value + fSlide), &fStrings[sym->n_un.n_strx], symbol_index, this->getPath());
+ return sym->n_value + fSlide;
+}
+
+
+void ImageLoaderMachOClassic::updateUsesCoalIterator(CoalIterator& it, uintptr_t value, ImageLoader* targetImage, const LinkContext& context)
+{
+ // flat_namespace images with classic LINKEDIT do not need late coalescing.
+ // They still need to be iterated becuase they may implement
+ // something needed by other coalescing images.
+ // But they need no updating because during the bind phase every symbol lookup is a full scan.
+ if ( !this->usesTwoLevelNameSpace() )
+ return;
+
+ // <rdar://problem/6570879> weak binding done too early with inserted libraries
+ if ( this->getState() < dyld_image_state_bound )
+ return;
+
+ uint32_t symbol_index = 0;
+ if ( fDynamicInfo->tocoff != 0 ) {
+ const dylib_table_of_contents* toc = (dylib_table_of_contents*)&fLinkEditBase[fDynamicInfo->tocoff];
+ symbol_index = toc[it.curIndex-1].symbol_index;
+ }
+ else {
+ symbol_index = fDynamicInfo->iextdefsym+it.curIndex-1;
+ }
+
+ // if this image's copy of the symbol is not a weak definition nor a weak reference then nothing to coalesce here
+ if ( !symbolIsWeakReference(&fSymbolTable[symbol_index]) && !symbolIsWeakDefinition(&fSymbolTable[symbol_index]) ) {
+ return;
+ }
+
+ // <rdar://problem/6555720> malformed dylib with duplicate weak symbols causes re-binding
+ if ( it.type )
+ return;
+
+ bool boundSomething = false;
+ // scan external relocations for uses of symbol_index
+ const uintptr_t relocBase = this->getRelocBase();
+ const bool prebound = this->isPrebindable();
+ const relocation_info* const relocsStart = (struct relocation_info*)(&fLinkEditBase[fDynamicInfo->extreloff]);
+ const relocation_info* const relocsEnd = &relocsStart[fDynamicInfo->nextrel];
+ for (const relocation_info* reloc=relocsStart; reloc < relocsEnd; ++reloc) {
+ if ( reloc->r_symbolnum == symbol_index ) {
+ //dyld::log("found external reloc using symbol_index=%d in %s\n",symbol_index, this->getPath());
+ const struct macho_nlist* undefinedSymbol = &fSymbolTable[reloc->r_symbolnum];
+ const char* symbolName = &fStrings[undefinedSymbol->n_un.n_strx];
+ uintptr_t* location = ((uintptr_t*)(reloc->r_address + relocBase));
+ const uintptr_t initialValue = *location;
+ uintptr_t addend = 0;
+ if ( prebound ) {
+ // we are doing relocations, so prebinding was not usable
+ // in a prebound executable, the n_value field of an undefined symbol is set to the address where the symbol was found when prebound
+ // so, subtracting that gives the initial displacement which we need to add to the newly found symbol address
+ // if mach-o relocation structs had an "addend" field this complication would not be necessary.
+ if ( ((undefinedSymbol->n_type & N_TYPE) == N_SECT) && ((undefinedSymbol->n_desc & N_WEAK_DEF) != 0) ) {
+ // weak symbols need special casing, since *location may have been prebound to a definition in another image.
+ // If *location is currently prebound to somewhere in the same section as the weak definition, we assume
+ // that we can subtract off the weak symbol address to get the addend.
+ // If prebound elsewhere, we've lost the addend and have to assume it is zero.
+ // The prebinding to elsewhere only happens with 10.4+ update_prebinding which only operates on a small set of Apple dylibs
+ if ( (initialValue == undefinedSymbol->n_value) || this->isAddrInSection(initialValue, undefinedSymbol->n_sect) ) {
+ addend = initialValue - undefinedSymbol->n_value;
+ #if __arm__
+ // if weak and thumb subtract off extra thumb bit
+ if ( (undefinedSymbol->n_desc & N_ARM_THUMB_DEF) != 0 )
+ addend += 1;
+ #endif
+ }
+ }
+ #if __arm__
+ else if ( ((undefinedSymbol->n_type & N_TYPE) == N_SECT) && ((undefinedSymbol->n_desc & N_ARM_THUMB_DEF) != 0) ) {
+ // it was prebound to a defined symbol for thumb code in the same linkage unit
+ // we need to subtract off one to get real addend
+ addend = initialValue - (undefinedSymbol->n_value+1);
+ }
+ #endif
+ else {
+ // is undefined or non-weak symbol, so do subtraction to get addend
+ addend = initialValue - undefinedSymbol->n_value;
+ }
+ }
+ else {
+ // non-prebound case
+ if ( ((undefinedSymbol->n_type & N_TYPE) == N_SECT) && ((undefinedSymbol->n_desc & N_WEAK_DEF) != 0) ) {
+ // if target is weak-def in same linkage unit, then bind phase has already set initialValue
+ // to be definition address plus addend
+ //dyld::log("weak def, initialValue=0x%lX, undefAddr=0x%lX\n", initialValue, undefinedSymbol->n_value+fSlide);
+ addend = initialValue - (undefinedSymbol->n_value + fSlide);
+ }
+ else {
+ // nothing fixed up yet, addend is just initial value
+ //dyld::log("addend=0x%lX\n", initialValue);
+ addend = initialValue;
+ }
+ }
+
+ uint8_t type = BIND_TYPE_POINTER;
+ #if __i386__
+ if ( reloc->r_pcrel )
+ type = BIND_TYPE_TEXT_PCREL32;
+ #endif
+ this->bindLocation(context, (uintptr_t)location, value, targetImage, type, symbolName, addend, "weak ");
+ boundSomething = true;
+ }
+ }
+
+ // scan lazy and non-lazy pointers for uses of symbol_index
+ const uint32_t cmd_count = ((macho_header*)fMachOData)->ncmds;
+ const struct load_command* const cmds = (struct load_command*)&fMachOData[sizeof(macho_header)];
+ const struct load_command* cmd = cmds;
+ const uint32_t* const indirectTable = (uint32_t*)&fLinkEditBase[fDynamicInfo->indirectsymoff];
+ for (uint32_t i = 0; i < cmd_count; ++i) {
+ if ( cmd->cmd == LC_SEGMENT_COMMAND ) {
+ const struct macho_segment_command* seg = (struct macho_segment_command*)cmd;
+ const struct macho_section* const sectionsStart = (struct macho_section*)((char*)seg + sizeof(struct macho_segment_command));
+ const struct macho_section* const sectionsEnd = §ionsStart[seg->nsects];
+ for (const struct macho_section* sect=sectionsStart; sect < sectionsEnd; ++sect) {
+ uint32_t elementSize = sizeof(uintptr_t);
+ switch ( sect->flags & SECTION_TYPE ) {
+ #if __i386__
+ case S_SYMBOL_STUBS:
+ if ( ((sect->flags & S_ATTR_SELF_MODIFYING_CODE) ==0) || (sect->reserved2 != 5) )
+ continue;
+ elementSize = 5;
+ #endif
+ case S_NON_LAZY_SYMBOL_POINTERS:
+ case S_LAZY_SYMBOL_POINTERS:
+ {
+ uint32_t elementCount = sect->size / elementSize;
+ const uint32_t indirectTableOffset = sect->reserved1;
+ uint8_t* ptrToBind = (uint8_t*)(sect->addr + fSlide);
+ //dyld::log(" scanning section %s of %s starting at %p\n", sect->sectname, this->getShortName(), ptrToBind);
+ for (uint32_t j=0; j < elementCount; ++j, ptrToBind += elementSize) {
+ if ( indirectTable[indirectTableOffset + j] == symbol_index ) {
+ //dyld::log(" found symbol index match at %d/%d, ptrToBind=%p\n", j, elementCount, ptrToBind);
+ // update pointer
+ this->bindIndirectSymbol((uintptr_t*)ptrToBind, sect, it.symbolName, value, targetImage, context);
+ boundSomething = true;
+ }
+ }
+ }
+ break;
+ }
+ }
+ }
+ cmd = (const struct load_command*)(((char*)cmd)+cmd->cmdsize);
+ }
+ if ( boundSomething && (targetImage != this) && !targetImage->neverUnload() )
+ this->addDynamicReference(targetImage);
+
+ // mark that this symbol has already been bound, so we don't try to bind again
+ it.type = 1;
+}
+
+
+void ImageLoaderMachOClassic::bindIndirectSymbolPointers(const LinkContext& context, bool bindNonLazys, bool bindLazys)
+{
+ // scan for all non-lazy-pointer sections
+ const bool twoLevel = this->usesTwoLevelNameSpace();
+ const uint32_t cmd_count = ((macho_header*)fMachOData)->ncmds;
+ const struct load_command* const cmds = (struct load_command*)&fMachOData[sizeof(macho_header)];
+ const struct load_command* cmd = cmds;
+ const uint32_t* const indirectTable = (uint32_t*)&fLinkEditBase[fDynamicInfo->indirectsymoff];
+ for (uint32_t i = 0; i < cmd_count; ++i) {
+ switch (cmd->cmd) {
+ case LC_SEGMENT_COMMAND:
+ {
+ const struct macho_segment_command* seg = (struct macho_segment_command*)cmd;
+ const struct macho_section* const sectionsStart = (struct macho_section*)((char*)seg + sizeof(struct macho_segment_command));
+ const struct macho_section* const sectionsEnd = §ionsStart[seg->nsects];
+ for (const struct macho_section* sect=sectionsStart; sect < sectionsEnd; ++sect) {
+ bool isLazySymbol = false;
+ const uint8_t type = sect->flags & SECTION_TYPE;
+ uint32_t elementSize = sizeof(uintptr_t);
+ uint32_t elementCount = sect->size / elementSize;
+ if ( type == S_NON_LAZY_SYMBOL_POINTERS ) {
+ if ( ! bindNonLazys )
+ continue;
+ }
+ else if ( type == S_LAZY_SYMBOL_POINTERS ) {
+ // process each symbol pointer in this section
+ fgTotalPossibleLazyBindFixups += elementCount;
+ isLazySymbol = true;
+ if ( ! bindLazys )
+ continue;
+ }
+ #if __i386__
+ else if ( (type == S_SYMBOL_STUBS) && (sect->flags & S_ATTR_SELF_MODIFYING_CODE) && (sect->reserved2 == 5) ) {
+ // process each jmp entry in this section
+ elementCount = sect->size / 5;
+ elementSize = 5;
+ fgTotalPossibleLazyBindFixups += elementCount;
+ isLazySymbol = true;
+ if ( ! bindLazys )
+ continue;
+ }
+ #endif
+ else {
+ continue;
+ }
+ const uint32_t indirectTableOffset = sect->reserved1;
+ uint8_t* ptrToBind = (uint8_t*)(sect->addr + fSlide);
+ for (uint32_t j=0; j < elementCount; ++j, ptrToBind += elementSize) {
+ #if LINKEDIT_USAGE_DEBUG
+ noteAccessedLinkEditAddress(&indirectTable[indirectTableOffset + j]);
+ #endif
+ uint32_t symbolIndex = indirectTable[indirectTableOffset + j];
+ if ( symbolIndex == INDIRECT_SYMBOL_LOCAL) {
+ *((uintptr_t*)ptrToBind) += this->fSlide;
+ }
+ else if ( symbolIndex == INDIRECT_SYMBOL_ABS) {
+ // do nothing since already has absolute address
+ }
+ else {
+ const struct macho_nlist* sym = &fSymbolTable[symbolIndex];
+ if ( symbolIndex == 0 ) {
+ // This could be rdar://problem/3534709
+ if ( ((const macho_header*)fMachOData)->filetype == MH_EXECUTE ) {
+ static bool alreadyWarned = false;
+ if ( (sym->n_type & N_TYPE) != N_UNDF ) {
+ // The indirect table parallels the (non)lazy pointer sections. For
+ // instance, to find info about the fifth lazy pointer you look at the
+ // fifth entry in the indirect table. (try otool -Iv on a file).
+ // The entry in the indirect table contains an index into the symbol table.
+
+ // The bug in ld caused the entry in the indirect table to be zero
+ // (instead of a magic value that means a local symbol). So, if the
+ // symbolIndex == 0, we may be encountering the bug, or 0 may be a valid
+ // symbol table index. The check I put in place is to see if the zero'th
+ // symbol table entry is an import entry (usually it is a local symbol
+ // definition).
+ if ( context.verboseWarnings && !alreadyWarned ) {
+ dyld::log("dyld: malformed executable '%s', skipping indirect symbol to %s\n",
+ this->getPath(), &fStrings[sym->n_un.n_strx]);
+ alreadyWarned = true;
+ }
+ continue;
+ }
+ }
+ }
+ const ImageLoader* image = NULL;
+ // let weak definitions resolve to themselves, later coalescing may overwrite them
+ bool dontCoalesce = true;
+ if ( bindLazys && isLazySymbol ) {
+ // if this is something normally lazy bound, but we are forcing
+ // it to be bound now, do coalescing
+ dontCoalesce = false;
+ }
+ if ( symbolIsWeakReference(sym) ) {
+ // when weakbind() is run on a classic mach-o encoding, it won't try
+ // to coalesce N_REF_TO_WEAK symbols because they are not in the sorted
+ // range of global symbols. To handle that case we do the coalesing now.
+ dontCoalesce = false;
+ }
+ uintptr_t symbolAddr = resolveUndefined(context, sym, twoLevel, dontCoalesce, &image);
+ // update pointer
+ symbolAddr = this->bindIndirectSymbol((uintptr_t*)ptrToBind, sect, &fStrings[sym->n_un.n_strx], symbolAddr, image, context);
+ // update stats
+ ++fgTotalBindFixups;
+ }
+ }
+ }
+ }
+ break;
+ }
+ cmd = (const struct load_command*)(((char*)cmd)+cmd->cmdsize);
+ }
+}
+
+
+
+#if __i386__
+void ImageLoaderMachOClassic::initializeLazyStubs(const LinkContext& context)
+{
+ if ( ! this->usablePrebinding(context) ) {
+ // reset all "fast" stubs
+ const macho_header* mh = (macho_header*)fMachOData;
+ const uint32_t cmd_count = mh->ncmds;
+ const struct load_command* const cmds = (struct load_command*)&fMachOData[sizeof(macho_header)];
+ const struct load_command* cmd = cmds;
+ for (uint32_t i = 0; i < cmd_count; ++i) {
+ switch (cmd->cmd) {
+ case LC_SEGMENT_COMMAND:
+ {
+ const struct macho_segment_command* seg = (struct macho_segment_command*)cmd;
+ const struct macho_section* const sectionsStart = (struct macho_section*)((char*)seg + sizeof(struct macho_segment_command));
+ const struct macho_section* const sectionsEnd = §ionsStart[seg->nsects];
+ for (const struct macho_section* sect=sectionsStart; sect < sectionsEnd; ++sect) {
+ const uint8_t type = sect->flags & SECTION_TYPE;
+ if ( (type == S_SYMBOL_STUBS) && (sect->flags & S_ATTR_SELF_MODIFYING_CODE) && (sect->reserved2 == 5) ) {
+ // reset each jmp entry in this section
+ const uint32_t indirectTableOffset = sect->reserved1;
+ const uint32_t* const indirectTable = (uint32_t*)&fLinkEditBase[fDynamicInfo->indirectsymoff];
+ uint8_t* start = (uint8_t*)(sect->addr + this->fSlide);
+ uint8_t* end = start + sect->size;
+ uintptr_t dyldHandler = (uintptr_t)&fast_stub_binding_helper_interface;
+ uint32_t entryIndex = 0;
+ for (uint8_t* entry = start; entry < end; entry += 5, ++entryIndex) {
+ bool installLazyHandler = true;
+ // jump table entries that cross a (64-byte) cache line boundary have the potential to cause crashes
+ // if the instruction is updated by one thread while being executed by another
+ if ( ((uint32_t)entry & 0xFFFFFFC0) != ((uint32_t)entry+4 & 0xFFFFFFC0) ) {
+ // need to bind this now to avoid a potential problem if bound lazily
+ uint32_t symbolIndex = indirectTable[indirectTableOffset + entryIndex];
+ // the latest linker marks 64-byte crossing stubs with INDIRECT_SYMBOL_ABS so they are not used
+ if ( symbolIndex != INDIRECT_SYMBOL_ABS ) {
+ const char* symbolName = &fStrings[fSymbolTable[symbolIndex].n_un.n_strx];
+ const ImageLoader* image = NULL;
+ try {
+ uintptr_t symbolAddr = this->resolveUndefined(context, &fSymbolTable[symbolIndex], this->usesTwoLevelNameSpace(), false, &image);
+ symbolAddr = this->bindIndirectSymbol((uintptr_t*)entry, sect, symbolName, symbolAddr, image, context);
+ ++fgTotalBindFixups;
+ uint32_t rel32 = symbolAddr - (((uint32_t)entry)+5);
+ entry[0] = 0xE9; // JMP rel32
+ entry[1] = rel32 & 0xFF;
+ entry[2] = (rel32 >> 8) & 0xFF;
+ entry[3] = (rel32 >> 16) & 0xFF;
+ entry[4] = (rel32 >> 24) & 0xFF;
+ installLazyHandler = false;
+ }
+ catch (const char* msg) {
+ // ignore errors when binding symbols early
+ // maybe the function is never called, and therefore erroring out now would be a regression
+ }
+ }
+ }
+ if ( installLazyHandler ) {
+ uint32_t rel32 = dyldHandler - (((uint32_t)entry)+5);
+ entry[0] = 0xE8; // CALL rel32
+ entry[1] = rel32 & 0xFF;
+ entry[2] = (rel32 >> 8) & 0xFF;
+ entry[3] = (rel32 >> 16) & 0xFF;
+ entry[4] = (rel32 >> 24) & 0xFF;
+ }
+ }
+ }
+ }
+ }
+ }
+ cmd = (const struct load_command*)(((char*)cmd)+cmd->cmdsize);
+ }
+ }
+}
+#endif // __i386__
+
+
+void ImageLoaderMachOClassic::doBind(const LinkContext& context, bool forceLazysBound)
+{
+#if __i386__
+ this->initializeLazyStubs(context);
+#endif
+
+ // if prebound and loaded at prebound address, and all libraries are same as when this was prebound, then no need to bind
+ // note: flat-namespace binaries need to have imports rebound (even if correctly prebound)
+ if ( this->usablePrebinding(context) ) {
+ // binding already up to date
+ }
+ else {
+ // no valid prebinding, so bind symbols.
+ // values bound by name are stored two different ways in classic mach-o:
+
+ // 1) external relocations are used for data initialized to external symbols
+ this->doBindExternalRelocations(context);
+
+ // 2) "indirect symbols" are used for code references to external symbols
+ // if this image is in the shared cache, there is no way to reset the lazy pointers, so bind them now
+ this->bindIndirectSymbolPointers(context, true, forceLazysBound || fInSharedCache);
+
+ }
+
+ // set up dyld entry points in image
+ this->setupLazyPointerHandler(context);
+}
+
+void ImageLoaderMachOClassic::doBindJustLazies(const LinkContext& context)
+{
+ // some API called requested that all lazy pointers in this image be force bound
+ this->bindIndirectSymbolPointers(context, false, true);
+}
+
+const char* ImageLoaderMachOClassic::findClosestSymbol(const void* addr, const void** closestAddr) const
+{
+ uintptr_t targetAddress = (uintptr_t)addr - fSlide;
+ const struct macho_nlist* bestSymbol = NULL;
+ // first walk all global symbols
+ const struct macho_nlist* const globalsStart = &fSymbolTable[fDynamicInfo->iextdefsym];
+ const struct macho_nlist* const globalsEnd= &globalsStart[fDynamicInfo->nextdefsym];
+ for (const struct macho_nlist* s = globalsStart; s < globalsEnd; ++s) {
+ if ( (s->n_type & N_TYPE) == N_SECT ) {
+ if ( bestSymbol == NULL ) {
+ if ( s->n_value <= targetAddress )
+ bestSymbol = s;
+ }
+ else if ( (s->n_value <= targetAddress) && (bestSymbol->n_value < s->n_value) ) {
+ bestSymbol = s;
+ }
+ }
+ }
+ // next walk all local symbols
+ const struct macho_nlist* const localsStart = &fSymbolTable[fDynamicInfo->ilocalsym];
+ const struct macho_nlist* const localsEnd= &localsStart[fDynamicInfo->nlocalsym];
+ for (const struct macho_nlist* s = localsStart; s < localsEnd; ++s) {
+ if ( ((s->n_type & N_TYPE) == N_SECT) && ((s->n_type & N_STAB) == 0) ) {
+ if ( bestSymbol == NULL ) {
+ if ( s->n_value <= targetAddress )
+ bestSymbol = s;
+ }
+ else if ( (s->n_value <= targetAddress) && (bestSymbol->n_value < s->n_value) ) {
+ bestSymbol = s;
+ }
+ }
+ }
+ if ( bestSymbol != NULL ) {
+ *closestAddr = (void*)(bestSymbol->n_value + fSlide);
+ return &fStrings[bestSymbol->n_un.n_strx];
+ }
+ return NULL;
+}
+
+
projects / apple / dyld.git / commitdiff
