dyld-132.13.tar.gz

[apple/dyld.git] / src / ImageLoaderMachOClassic.cpp

/* -*- 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 = &regions[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 = &regions[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 = &sectionsStart[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 = &sectionsStart[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 = &sectionsStart[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 = &sectionsStart[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 = &sectionsStart[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;
}