[2878] | 1 | /* $Id: kLdrModPE.c 2974 2007-02-14 10:12:44Z bird $ */
|
---|
[2854] | 2 | /** @file
|
---|
| 3 | *
|
---|
| 4 | * kLdr - The Module Interpreter for the Portable Executable (PE) Format.
|
---|
| 5 | *
|
---|
| 6 | * Copyright (c) 2006 knut st. osmundsen <bird-kbuild-src@anduin.net>
|
---|
| 7 | *
|
---|
| 8 | *
|
---|
| 9 | * This file is part of kLdr.
|
---|
| 10 | *
|
---|
| 11 | * kLdr is free software; you can redistribute it and/or modify
|
---|
| 12 | * it under the terms of the GNU General Public License as published by
|
---|
| 13 | * the Free Software Foundation; either version 2 of the License, or
|
---|
| 14 | * (at your option) any later version.
|
---|
| 15 | *
|
---|
| 16 | * kLdr is distributed in the hope that it will be useful,
|
---|
| 17 | * but WITHOUT ANY WARRANTY; without even the implied warranty of
|
---|
| 18 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
---|
| 19 | * GNU General Public License for more details.
|
---|
| 20 | *
|
---|
| 21 | * You should have received a copy of the GNU General Public License
|
---|
| 22 | * along with kLdr; if not, write to the Free Software
|
---|
| 23 | * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
---|
| 24 | *
|
---|
| 25 | */
|
---|
| 26 |
|
---|
| 27 |
|
---|
| 28 | /*******************************************************************************
|
---|
| 29 | * Header Files *
|
---|
| 30 | *******************************************************************************/
|
---|
| 31 | #include <kLdr.h>
|
---|
| 32 | #include "kLdrHlp.h"
|
---|
| 33 | #include "kLdrInternal.h"
|
---|
| 34 | #include "kLdrModPE.h"
|
---|
| 35 |
|
---|
[2856] | 36 |
|
---|
[2854] | 37 | /*******************************************************************************
|
---|
| 38 | * Defined Constants And Macros *
|
---|
| 39 | *******************************************************************************/
|
---|
| 40 | /** @def KLDRMODPE_STRICT
|
---|
| 41 | * Define KLDRMODPE_STRICT to enabled strict checks in KLDRMODPE. */
|
---|
[2877] | 42 | #define KLDRMODPE_STRICT 1
|
---|
[2854] | 43 |
|
---|
| 44 | /** @def KLDRMODPE_ASSERT
|
---|
| 45 | * Assert that an expression is true when KLDR_STRICT is defined.
|
---|
| 46 | */
|
---|
| 47 | #ifdef KLDRMODPE_STRICT
|
---|
| 48 | # define KLDRMODPE_ASSERT(expr) kldrHlpAssert(expr)
|
---|
| 49 | #else
|
---|
| 50 | # define KLDRMODPE_ASSERT(expr) do {} while (0)
|
---|
| 51 | #endif
|
---|
| 52 |
|
---|
| 53 | /** @def KLDRMODPE_RVA2TYPE
|
---|
| 54 | * Converts a RVA to a pointer of the specified type.
|
---|
| 55 | * @param pvBits The bits (image base).
|
---|
| 56 | * @param uRVA The image relative virtual address.
|
---|
| 57 | * @param type The type to cast to.
|
---|
| 58 | */
|
---|
| 59 | #define KLDRMODPE_RVA2TYPE(pvBits, uRVA, type) \
|
---|
[2883] | 60 | ( (type) ((uintptr_t)(pvBits) + (uintptr_t)(uRVA)) )
|
---|
[2854] | 61 |
|
---|
[2857] | 62 | /** @def KLDRMODPE_VALID_RVA
|
---|
| 63 | * Checks that the specified RVA value is non-zero and within the bounds of the image.
|
---|
| 64 | * @returns true/false.
|
---|
| 65 | * @param pModPE The PE module interpreter instance.
|
---|
| 66 | * @param uRVA The RVA to validate.
|
---|
| 67 | */
|
---|
| 68 | #define KLDRMODPE_VALID_RVA(pModPE, uRVA) \
|
---|
| 69 | ( (uRVA) && (uRVA) < (pModPE)->Hdrs.OptionalHeader.SizeOfImage )
|
---|
[2854] | 70 |
|
---|
| 71 |
|
---|
[2857] | 72 |
|
---|
[2854] | 73 | /*******************************************************************************
|
---|
| 74 | * Structures and Typedefs *
|
---|
| 75 | *******************************************************************************/
|
---|
| 76 | /**
|
---|
| 77 | * Instance data for the PE module interpreter.
|
---|
| 78 | */
|
---|
| 79 | typedef struct KLDRMODPE
|
---|
| 80 | {
|
---|
| 81 | /** Pointer to the module. (Follows the section table.) */
|
---|
| 82 | PKLDRMOD pMod;
|
---|
| 83 | /** Pointer to the RDR mapping of the raw file bits. NULL if not mapped. */
|
---|
| 84 | const void *pvBits;
|
---|
[2856] | 85 | /** Pointer to the user mapping. */
|
---|
| 86 | const void *pvMapping;
|
---|
[2854] | 87 | /** Reserved flags. */
|
---|
[2856] | 88 | uint32_t f32Reserved;
|
---|
[2854] | 89 | /** The number of imported modules.
|
---|
| 90 | * If ~(uint32_t)0 this hasn't been determined yet. */
|
---|
| 91 | uint32_t cImportModules;
|
---|
| 92 | /** The offset of the NT headers. */
|
---|
[2974] | 93 | KLDRFOFF offHdrs;
|
---|
[2854] | 94 | /** Copy of the NT headers. */
|
---|
| 95 | IMAGE_NT_HEADERS64 Hdrs;
|
---|
| 96 | /** The section header table . */
|
---|
| 97 | IMAGE_SECTION_HEADER aShdrs[1];
|
---|
| 98 | } KLDRMODPE, *PKLDRMODPE;
|
---|
| 99 |
|
---|
| 100 |
|
---|
| 101 | /*******************************************************************************
|
---|
| 102 | * Internal Functions *
|
---|
| 103 | *******************************************************************************/
|
---|
[2855] | 104 | static int32_t kldrModPENumberOfImports(PKLDRMOD pMod, const void *pvBits);
|
---|
[2857] | 105 | static int kldrModPERelocateBits(PKLDRMOD pMod, void *pvBits, KLDRADDR NewBaseAddress, KLDRADDR OldBaseAddress,
|
---|
| 106 | PFNKLDRMODGETIMPORT pfnGetImport, void *pvUser);
|
---|
[2854] | 107 |
|
---|
[2974] | 108 | static int kldrModPEDoCreate(PKLDRRDR pRdr, KLDRFOFF offNewHdr, PKLDRMODPE *ppMod);
|
---|
[2899] | 109 | /*static void kldrModPEDoLoadConfigConversion(PIMAGE_LOAD_CONFIG_DIRECTORY64 pLoadCfg); */
|
---|
[2857] | 110 | static int kLdrModPEDoOptionalHeaderValidation(PKLDRMODPE pModPE);
|
---|
| 111 | static int kLdrModPEDoSectionHeadersValidation(PKLDRMODPE pModPE);
|
---|
| 112 | static void kldrModPEDoOptionalHeaderConversion(PIMAGE_OPTIONAL_HEADER64 pOptionalHeader);
|
---|
| 113 | static int kldrModPEDoForwarderQuery(PKLDRMODPE pModPE, const void *pvBits, const char *pszForwarder,
|
---|
| 114 | PFNKLDRMODGETIMPORT pfnGetImport, void *pvUser, PKLDRADDR puValue, uint32_t *pfKind);
|
---|
| 115 | static int kldrModPEDoFixups(PKLDRMODPE pModPE, void *pvMapping, KLDRADDR NewBaseAddress, KLDRADDR OldBaseAddress);
|
---|
| 116 | static int kldrModPEDoImports32Bit(PKLDRMODPE pModPE, void *pvMapping, const IMAGE_IMPORT_DESCRIPTOR *pImpDesc,
|
---|
| 117 | PFNKLDRMODGETIMPORT pfnGetImport, void *pvUser);
|
---|
| 118 | static int kldrModPEDoImports64Bit(PKLDRMODPE pModPE, void *pvMapping, const IMAGE_IMPORT_DESCRIPTOR *pImpDesc,
|
---|
| 119 | PFNKLDRMODGETIMPORT pfnGetImport, void *pvUser);
|
---|
| 120 | static int kldrModPEDoImports(PKLDRMODPE pModPE, void *pvMapping, PFNKLDRMODGETIMPORT pfnGetImport, void *pvUser);
|
---|
| 121 | static int kldrModPEDoCallDLL(PKLDRMODPE pModPE, unsigned uOp, uintptr_t uHandle);
|
---|
| 122 | static int kldrModPEDoCallTLS(PKLDRMODPE pModPE, unsigned uOp, uintptr_t uHandle);
|
---|
| 123 | static int32_t kldrModPEDoCall(uintptr_t uEntrypoint, uintptr_t uHandle, uint32_t uOp, void *pvReserved);
|
---|
[2854] | 124 |
|
---|
[2857] | 125 |
|
---|
[2854] | 126 | /**
|
---|
| 127 | * Create a loader module instance interpreting the executable image found
|
---|
| 128 | * in the specified file provider instance.
|
---|
| 129 | *
|
---|
| 130 | * @returns 0 on success and *ppMod pointing to a module instance.
|
---|
| 131 | * On failure, a non-zero OS specific error code is returned.
|
---|
| 132 | * @param pOps Pointer to the registered method table.
|
---|
| 133 | * @param pRdr The file provider instance to use.
|
---|
| 134 | * @param offNewHdr The offset of the new header in MZ files. -1 if not found.
|
---|
| 135 | * @param ppMod Where to store the module instance pointer.
|
---|
| 136 | */
|
---|
[2974] | 137 | static int kldrModPECreate(PCKLDRMODOPS pOps, PKLDRRDR pRdr, KLDRFOFF offNewHdr, PPKLDRMOD ppMod)
|
---|
[2854] | 138 | {
|
---|
| 139 | PKLDRMODPE pModPE;
|
---|
| 140 | int rc;
|
---|
| 141 |
|
---|
| 142 | /*
|
---|
| 143 | * Create the instance data and do a minimal header validation.
|
---|
| 144 | */
|
---|
[2857] | 145 | rc = kldrModPEDoCreate(pRdr, offNewHdr, &pModPE);
|
---|
[2854] | 146 | if (!rc)
|
---|
| 147 | {
|
---|
| 148 | pModPE->pMod->pOps = pOps;
|
---|
| 149 | pModPE->pMod->u32Magic = KLDRMOD_MAGIC;
|
---|
| 150 | *ppMod = pModPE->pMod;
|
---|
| 151 | return 0;
|
---|
| 152 | }
|
---|
| 153 | kldrHlpFree(pModPE);
|
---|
| 154 | return rc;
|
---|
| 155 | }
|
---|
| 156 |
|
---|
| 157 |
|
---|
| 158 | /**
|
---|
| 159 | * Separate function for reading creating the PE module instance to
|
---|
| 160 | * simplify cleanup on failure.
|
---|
| 161 | */
|
---|
[2974] | 162 | static int kldrModPEDoCreate(PKLDRRDR pRdr, KLDRFOFF offNewHdr, PKLDRMODPE *ppModPE)
|
---|
[2854] | 163 | {
|
---|
| 164 | struct
|
---|
| 165 | {
|
---|
| 166 | uint32_t Signature;
|
---|
| 167 | IMAGE_FILE_HEADER FileHdr;
|
---|
| 168 | } s;
|
---|
| 169 | PKLDRMODPE pModPE;
|
---|
| 170 | PKLDRMOD pMod;
|
---|
| 171 | size_t cb;
|
---|
| 172 | size_t cchFilename;
|
---|
[2974] | 173 | KLDRFOFF off;
|
---|
[2854] | 174 | uint32_t i;
|
---|
| 175 | int rc;
|
---|
| 176 | *ppModPE = NULL;
|
---|
| 177 |
|
---|
| 178 | /*
|
---|
| 179 | * Read the signature and file header.
|
---|
| 180 | */
|
---|
| 181 | rc = kLdrRdrRead(pRdr, &s, sizeof(s), offNewHdr > 0 ? offNewHdr : 0);
|
---|
| 182 | if (rc)
|
---|
| 183 | return rc;
|
---|
| 184 | if (s.Signature != IMAGE_NT_SIGNATURE)
|
---|
| 185 | return KLDR_ERR_UNKNOWN_FORMAT;
|
---|
| 186 |
|
---|
| 187 | /* sanity checks. */
|
---|
[2883] | 188 | if ( s.FileHdr.NumberOfSections > 4096
|
---|
[2854] | 189 | || ( s.FileHdr.SizeOfOptionalHeader != sizeof(IMAGE_OPTIONAL_HEADER32)
|
---|
| 190 | && s.FileHdr.SizeOfOptionalHeader != sizeof(IMAGE_OPTIONAL_HEADER64))
|
---|
[2859] | 191 | || !(s.FileHdr.Characteristics & IMAGE_FILE_EXECUTABLE_IMAGE)
|
---|
[2854] | 192 | )
|
---|
| 193 | return KLDR_ERR_PE_BAD_FILE_HEADER;
|
---|
| 194 | if ( s.FileHdr.Machine != IMAGE_FILE_MACHINE_I386
|
---|
| 195 | && s.FileHdr.Machine != IMAGE_FILE_MACHINE_AMD64
|
---|
| 196 | )
|
---|
| 197 | return KLDR_ERR_PE_UNSUPPORTED_MACHINE;
|
---|
| 198 |
|
---|
| 199 | /*
|
---|
| 200 | * Calc the instance size, allocate and initialize it.
|
---|
| 201 | */
|
---|
| 202 | cchFilename = kLdrHlpStrLen(kLdrRdrName(pRdr));
|
---|
[2858] | 203 | cb = KLDR_ALIGN_Z(KLDR_OFFSETOF(KLDRMODPE, aShdrs[s.FileHdr.NumberOfSections]), 16)
|
---|
| 204 | + KLDR_OFFSETOF(KLDRMOD, aSegments[s.FileHdr.NumberOfSections + 1])
|
---|
[2854] | 205 | + cchFilename + 1;
|
---|
| 206 | pModPE = (PKLDRMODPE)kldrHlpAlloc(cb);
|
---|
| 207 | if (!pModPE)
|
---|
| 208 | return KLDR_ERR_NO_MEMORY;
|
---|
[2858] | 209 | *ppModPE = pModPE;
|
---|
[2854] | 210 |
|
---|
| 211 | /* KLDRMOD */
|
---|
[2858] | 212 | pMod = (PKLDRMOD)((uint8_t *)pModPE + KLDR_ALIGN_Z(KLDR_OFFSETOF(KLDRMODPE, aShdrs[s.FileHdr.NumberOfSections]), 16));
|
---|
[2854] | 213 | pMod->pvData = pModPE;
|
---|
| 214 | pMod->pRdr = pRdr;
|
---|
| 215 | pMod->pOps = NULL; /* set upon success. */
|
---|
| 216 | pMod->cSegments = s.FileHdr.NumberOfSections + 1;
|
---|
| 217 | pMod->cchFilename = cchFilename;
|
---|
| 218 | pMod->pszFilename = (char *)&pMod->aSegments[pMod->cSegments];
|
---|
| 219 | kLdrHlpMemCopy((char *)pMod->pszFilename, kLdrRdrName(pRdr), cchFilename + 1);
|
---|
| 220 | pMod->pszName = kldrHlpGetFilename(pMod->pszFilename);
|
---|
| 221 | pMod->cchName = cchFilename - (pMod->pszName - pMod->pszFilename);
|
---|
| 222 | switch (s.FileHdr.Machine)
|
---|
| 223 | {
|
---|
| 224 | case IMAGE_FILE_MACHINE_I386:
|
---|
| 225 | pMod->enmCpu = KLDRCPU_I386;
|
---|
| 226 | pMod->enmArch = KLDRARCH_X86_32;
|
---|
| 227 | pMod->enmEndian = KLDRENDIAN_LITTLE;
|
---|
| 228 | break;
|
---|
| 229 |
|
---|
| 230 | case IMAGE_FILE_MACHINE_AMD64:
|
---|
| 231 | pMod->enmCpu = KLDRCPU_K8;
|
---|
| 232 | pMod->enmArch = KLDRARCH_AMD64;
|
---|
| 233 | pMod->enmEndian = KLDRENDIAN_LITTLE;
|
---|
| 234 | break;
|
---|
| 235 | default:
|
---|
| 236 | kldrHlpAssert(0);
|
---|
| 237 | break;
|
---|
| 238 | }
|
---|
| 239 | pMod->enmFmt = KLDRFMT_PE;
|
---|
[2859] | 240 | if (s.FileHdr.Characteristics & IMAGE_FILE_DLL)
|
---|
[2869] | 241 | pMod->enmType = !(s.FileHdr.Characteristics & IMAGE_FILE_RELOCS_STRIPPED)
|
---|
[2859] | 242 | ? KLDRTYPE_SHARED_LIBRARY_RELOCATABLE
|
---|
| 243 | : KLDRTYPE_SHARED_LIBRARY_FIXED;
|
---|
| 244 | else
|
---|
[2869] | 245 | pMod->enmType = !(s.FileHdr.Characteristics & IMAGE_FILE_RELOCS_STRIPPED)
|
---|
[2859] | 246 | ? KLDRTYPE_EXECUTABLE_RELOCATABLE
|
---|
| 247 | : KLDRTYPE_EXECUTABLE_FIXED;
|
---|
[2854] | 248 | pMod->u32Magic = 0; /* set upon success. */
|
---|
| 249 |
|
---|
| 250 | /* KLDRMODPE */
|
---|
| 251 | pModPE->pMod = pMod;
|
---|
| 252 | pModPE->pvBits = NULL;
|
---|
[2947] | 253 | pModPE->pvMapping = NULL;
|
---|
[2856] | 254 | pModPE->f32Reserved = 0;
|
---|
[2854] | 255 | pModPE->cImportModules = ~(uint32_t)0;
|
---|
| 256 | pModPE->offHdrs = offNewHdr >= 0 ? offNewHdr : 0;
|
---|
| 257 | pModPE->Hdrs.Signature = s.Signature;
|
---|
| 258 | pModPE->Hdrs.FileHeader = s.FileHdr;
|
---|
| 259 |
|
---|
| 260 | /*
|
---|
| 261 | * Read the optional header and the section table.
|
---|
| 262 | */
|
---|
| 263 | off = pModPE->offHdrs + sizeof(pModPE->Hdrs.Signature) + sizeof(pModPE->Hdrs.FileHeader);
|
---|
| 264 | rc = kLdrRdrRead(pRdr, &pModPE->Hdrs.OptionalHeader, pModPE->Hdrs.FileHeader.SizeOfOptionalHeader, off);
|
---|
| 265 | if (rc)
|
---|
| 266 | return rc;
|
---|
| 267 | if (pModPE->Hdrs.FileHeader.SizeOfOptionalHeader != sizeof(pModPE->Hdrs.OptionalHeader))
|
---|
[2857] | 268 | kldrModPEDoOptionalHeaderConversion(&pModPE->Hdrs.OptionalHeader);
|
---|
[2854] | 269 | off += pModPE->Hdrs.FileHeader.SizeOfOptionalHeader;
|
---|
| 270 | rc = kLdrRdrRead(pRdr, &pModPE->aShdrs[0], sizeof(IMAGE_SECTION_HEADER) * pModPE->Hdrs.FileHeader.NumberOfSections, off);
|
---|
| 271 | if (rc)
|
---|
| 272 | return rc;
|
---|
| 273 |
|
---|
| 274 | /*
|
---|
| 275 | * Validate the two.
|
---|
| 276 | */
|
---|
[2857] | 277 | rc = kLdrModPEDoOptionalHeaderValidation(pModPE);
|
---|
[2854] | 278 | if (rc)
|
---|
| 279 | return rc;
|
---|
| 280 | for (i = 0; i < pModPE->Hdrs.FileHeader.NumberOfSections; i++)
|
---|
| 281 | {
|
---|
[2857] | 282 | rc = kLdrModPEDoSectionHeadersValidation(pModPE);
|
---|
[2854] | 283 | if (rc)
|
---|
| 284 | return rc;
|
---|
| 285 | }
|
---|
| 286 |
|
---|
| 287 | /*
|
---|
| 288 | * Setup the KLDRMOD segment array.
|
---|
| 289 | */
|
---|
| 290 | /* The implied headers section. */
|
---|
| 291 | pMod->aSegments[0].pvUser = NULL;
|
---|
| 292 | pMod->aSegments[0].pchName = "TheHeaders";
|
---|
| 293 | pMod->aSegments[0].cchName = sizeof("TheHeaders") - 1;
|
---|
[2859] | 294 | pMod->aSegments[0].enmProt = KLDRPROT_READONLY;
|
---|
[2854] | 295 | pMod->aSegments[0].cb = pModPE->Hdrs.OptionalHeader.SizeOfHeaders;
|
---|
[2859] | 296 | pMod->aSegments[0].Alignment = pModPE->Hdrs.OptionalHeader.SectionAlignment;
|
---|
[2854] | 297 | pMod->aSegments[0].LinkAddress = pModPE->Hdrs.OptionalHeader.ImageBase;
|
---|
[2859] | 298 | pMod->aSegments[0].offFile = 0;
|
---|
| 299 | pMod->aSegments[0].cbFile = pModPE->Hdrs.OptionalHeader.SizeOfHeaders;
|
---|
| 300 | pMod->aSegments[0].RVA = 0;
|
---|
| 301 | if (pMod->cSegments > 1)
|
---|
| 302 | pMod->aSegments[0].cbMapped = pModPE->aShdrs[0].VirtualAddress;
|
---|
| 303 | else
|
---|
| 304 | pMod->aSegments[0].cbMapped = pModPE->Hdrs.OptionalHeader.SizeOfHeaders;
|
---|
| 305 | pMod->aSegments[0].MapAddress = 0;
|
---|
[2854] | 306 |
|
---|
| 307 | /* The section headers. */
|
---|
| 308 | for (i = 0; i < pModPE->Hdrs.FileHeader.NumberOfSections; i++)
|
---|
| 309 | {
|
---|
[2883] | 310 | const char *pch;
|
---|
[2859] | 311 |
|
---|
| 312 | /* unused */
|
---|
[2854] | 313 | pMod->aSegments[i + 1].pvUser = NULL;
|
---|
[2859] | 314 | pMod->aSegments[i + 1].MapAddress = 0;
|
---|
[2948] | 315 | pMod->aSegments[i + 1].SelFlat = 0;
|
---|
| 316 | pMod->aSegments[i + 1].Sel16bit = 0;
|
---|
| 317 | pMod->aSegments[i + 1].fFlags = 0;
|
---|
[2859] | 318 |
|
---|
| 319 | /* name */
|
---|
[2883] | 320 | pMod->aSegments[i + 1].pchName = pch = (const char *)&pModPE->aShdrs[i].Name[0];
|
---|
[2854] | 321 | cb = IMAGE_SIZEOF_SHORT_NAME;
|
---|
| 322 | while ( cb > 0
|
---|
| 323 | && (pch[cb - 1] == ' ' || pch[cb - 1] == '\0'))
|
---|
| 324 | cb--;
|
---|
| 325 | pMod->aSegments[i + 1].cchName = cb;
|
---|
[2859] | 326 |
|
---|
| 327 | /* size and addresses */
|
---|
[2854] | 328 | if (!(pModPE->aShdrs[i].Characteristics & IMAGE_SCN_TYPE_NOLOAD))
|
---|
| 329 | {
|
---|
[2859] | 330 | pMod->aSegments[i + 1].cb = pModPE->aShdrs[i].Misc.VirtualSize;
|
---|
| 331 | pMod->aSegments[i + 1].LinkAddress = pModPE->aShdrs[i].VirtualAddress
|
---|
| 332 | + pModPE->Hdrs.OptionalHeader.ImageBase;
|
---|
| 333 | pMod->aSegments[i + 1].RVA = pModPE->aShdrs[i].VirtualAddress;
|
---|
| 334 | pMod->aSegments[i + 1].cbMapped = pModPE->aShdrs[i].Misc.VirtualSize;
|
---|
| 335 | if (i + 2 < pMod->cSegments)
|
---|
| 336 | pMod->aSegments[i + 1].cbMapped= pModPE->aShdrs[i + 1].VirtualAddress
|
---|
| 337 | - pModPE->aShdrs[i].VirtualAddress;
|
---|
[2854] | 338 | }
|
---|
| 339 | else
|
---|
| 340 | {
|
---|
[2859] | 341 | pMod->aSegments[i + 1].cb = 0;
|
---|
| 342 | pMod->aSegments[i + 1].cbMapped = 0;
|
---|
[2854] | 343 | pMod->aSegments[i + 1].LinkAddress = NIL_KLDRADDR;
|
---|
[2859] | 344 | pMod->aSegments[i + 1].RVA = 0;
|
---|
[2854] | 345 | }
|
---|
[2859] | 346 |
|
---|
| 347 | /* file location */
|
---|
| 348 | pMod->aSegments[i + 1].offFile = pModPE->aShdrs[i].PointerToRawData;
|
---|
| 349 | pMod->aSegments[i + 1].cbFile = pModPE->aShdrs[i].SizeOfRawData;
|
---|
| 350 | if ( pMod->aSegments[i + 1].cbMapped > 0 /* if mapped */
|
---|
| 351 | && (KLDRSIZE)pMod->aSegments[i + 1].cbFile > pMod->aSegments[i + 1].cbMapped)
|
---|
| 352 | pMod->aSegments[i + 1].cbFile = pMod->aSegments[i + 1].cbMapped;
|
---|
| 353 |
|
---|
| 354 | /* protection */
|
---|
[2854] | 355 | switch ( pModPE->aShdrs[i].Characteristics
|
---|
| 356 | & (IMAGE_SCN_MEM_SHARED | IMAGE_SCN_MEM_EXECUTE | IMAGE_SCN_MEM_READ | IMAGE_SCN_MEM_WRITE))
|
---|
| 357 | {
|
---|
| 358 | case 0:
|
---|
| 359 | case IMAGE_SCN_MEM_SHARED:
|
---|
| 360 | pMod->aSegments[i + 1].enmProt = KLDRPROT_NOACCESS;
|
---|
| 361 | break;
|
---|
| 362 | case IMAGE_SCN_MEM_READ:
|
---|
| 363 | case IMAGE_SCN_MEM_READ | IMAGE_SCN_MEM_SHARED:
|
---|
| 364 | pMod->aSegments[i + 1].enmProt = KLDRPROT_READONLY;
|
---|
| 365 | break;
|
---|
| 366 | case IMAGE_SCN_MEM_WRITE:
|
---|
| 367 | case IMAGE_SCN_MEM_WRITE | IMAGE_SCN_MEM_READ:
|
---|
| 368 | pMod->aSegments[i + 1].enmProt = KLDRPROT_WRITECOPY;
|
---|
| 369 | break;
|
---|
| 370 | case IMAGE_SCN_MEM_WRITE | IMAGE_SCN_MEM_SHARED:
|
---|
| 371 | case IMAGE_SCN_MEM_WRITE | IMAGE_SCN_MEM_SHARED | IMAGE_SCN_MEM_READ:
|
---|
| 372 | pMod->aSegments[i + 1].enmProt = KLDRPROT_READWRITE;
|
---|
| 373 | break;
|
---|
| 374 | case IMAGE_SCN_MEM_EXECUTE:
|
---|
| 375 | case IMAGE_SCN_MEM_EXECUTE | IMAGE_SCN_MEM_SHARED:
|
---|
| 376 | pMod->aSegments[i + 1].enmProt = KLDRPROT_EXECUTE;
|
---|
| 377 | break;
|
---|
| 378 | case IMAGE_SCN_MEM_EXECUTE | IMAGE_SCN_MEM_READ:
|
---|
| 379 | case IMAGE_SCN_MEM_EXECUTE | IMAGE_SCN_MEM_READ | IMAGE_SCN_MEM_SHARED:
|
---|
| 380 | pMod->aSegments[i + 1].enmProt = KLDRPROT_EXECUTE_READ;
|
---|
| 381 | break;
|
---|
| 382 | case IMAGE_SCN_MEM_EXECUTE | IMAGE_SCN_MEM_WRITE:
|
---|
| 383 | case IMAGE_SCN_MEM_EXECUTE | IMAGE_SCN_MEM_WRITE | IMAGE_SCN_MEM_READ:
|
---|
| 384 | pMod->aSegments[i + 1].enmProt = KLDRPROT_EXECUTE_WRITECOPY;
|
---|
| 385 | break;
|
---|
| 386 | case IMAGE_SCN_MEM_EXECUTE | IMAGE_SCN_MEM_WRITE | IMAGE_SCN_MEM_SHARED:
|
---|
| 387 | case IMAGE_SCN_MEM_EXECUTE | IMAGE_SCN_MEM_WRITE | IMAGE_SCN_MEM_SHARED | IMAGE_SCN_MEM_READ:
|
---|
| 388 | pMod->aSegments[i + 1].enmProt = KLDRPROT_EXECUTE_READWRITE;
|
---|
| 389 | break;
|
---|
| 390 | }
|
---|
[2859] | 391 |
|
---|
| 392 | /* alignment. */
|
---|
[2854] | 393 | switch (pModPE->aShdrs[i].Characteristics & IMAGE_SCN_ALIGN_MASK)
|
---|
| 394 | {
|
---|
[2859] | 395 | case 0: /* hope this is right... */
|
---|
| 396 | pMod->aSegments[i + 1].Alignment = pModPE->Hdrs.OptionalHeader.SectionAlignment;
|
---|
| 397 | break;
|
---|
[2854] | 398 | case IMAGE_SCN_ALIGN_1BYTES: pMod->aSegments[i + 1].Alignment = 1; break;
|
---|
| 399 | case IMAGE_SCN_ALIGN_2BYTES: pMod->aSegments[i + 1].Alignment = 2; break;
|
---|
| 400 | case IMAGE_SCN_ALIGN_4BYTES: pMod->aSegments[i + 1].Alignment = 4; break;
|
---|
| 401 | case IMAGE_SCN_ALIGN_8BYTES: pMod->aSegments[i + 1].Alignment = 8; break;
|
---|
| 402 | case IMAGE_SCN_ALIGN_16BYTES: pMod->aSegments[i + 1].Alignment = 16; break;
|
---|
| 403 | case IMAGE_SCN_ALIGN_32BYTES: pMod->aSegments[i + 1].Alignment = 32; break;
|
---|
| 404 | case IMAGE_SCN_ALIGN_64BYTES: pMod->aSegments[i + 1].Alignment = 64; break;
|
---|
| 405 | case IMAGE_SCN_ALIGN_128BYTES: pMod->aSegments[i + 1].Alignment = 128; break;
|
---|
| 406 | case IMAGE_SCN_ALIGN_256BYTES: pMod->aSegments[i + 1].Alignment = 256; break;
|
---|
| 407 | case IMAGE_SCN_ALIGN_512BYTES: pMod->aSegments[i + 1].Alignment = 512; break;
|
---|
| 408 | case IMAGE_SCN_ALIGN_1024BYTES: pMod->aSegments[i + 1].Alignment = 1024; break;
|
---|
| 409 | case IMAGE_SCN_ALIGN_2048BYTES: pMod->aSegments[i + 1].Alignment = 2048; break;
|
---|
| 410 | case IMAGE_SCN_ALIGN_4096BYTES: pMod->aSegments[i + 1].Alignment = 4096; break;
|
---|
| 411 | case IMAGE_SCN_ALIGN_8192BYTES: pMod->aSegments[i + 1].Alignment = 8192; break;
|
---|
[2859] | 412 | default: kldrHlpAssert(0); pMod->aSegments[i + 1].Alignment = 0; break;
|
---|
[2854] | 413 | }
|
---|
| 414 | }
|
---|
| 415 |
|
---|
| 416 | /*
|
---|
| 417 | * We're done.
|
---|
| 418 | */
|
---|
| 419 | *ppModPE = pModPE;
|
---|
| 420 | return 0;
|
---|
| 421 | }
|
---|
| 422 |
|
---|
| 423 |
|
---|
| 424 | /**
|
---|
| 425 | * Converts a 32-bit optional header to a 64-bit one
|
---|
| 426 | *
|
---|
| 427 | * @param pOptHdr The optional header to convert.
|
---|
| 428 | */
|
---|
[2857] | 429 | static void kldrModPEDoOptionalHeaderConversion(PIMAGE_OPTIONAL_HEADER64 pOptHdr)
|
---|
[2854] | 430 | {
|
---|
| 431 | /* volatile everywhere! */
|
---|
| 432 | IMAGE_OPTIONAL_HEADER32 volatile *pOptHdr32 = (IMAGE_OPTIONAL_HEADER32 volatile *)pOptHdr;
|
---|
| 433 | IMAGE_OPTIONAL_HEADER64 volatile *pOptHdr64 = pOptHdr;
|
---|
| 434 | uint32_t volatile *pu32Dst;
|
---|
| 435 | uint32_t volatile *pu32Src;
|
---|
| 436 | uint32_t volatile *pu32SrcLast;
|
---|
| 437 | uint32_t u32;
|
---|
| 438 |
|
---|
| 439 | /* From LoaderFlags and out the difference is 4 * 32-bits. */
|
---|
| 440 | pu32Dst = (uint32_t *)&pOptHdr64->DataDirectory[IMAGE_NUMBEROF_DIRECTORY_ENTRIES] - 1;
|
---|
| 441 | pu32Src = (uint32_t *)&pOptHdr32->DataDirectory[IMAGE_NUMBEROF_DIRECTORY_ENTRIES] - 1;
|
---|
| 442 | pu32SrcLast = (uint32_t *)&pOptHdr32->LoaderFlags;
|
---|
| 443 | while (pu32Src >= pu32SrcLast)
|
---|
| 444 | *pu32Dst-- = *pu32Src--;
|
---|
| 445 |
|
---|
| 446 | /* The previous 4 fields are 32/64 and needs special attention. */
|
---|
| 447 | pOptHdr64->SizeOfHeapCommit = pOptHdr32->SizeOfHeapCommit;
|
---|
| 448 | pOptHdr64->SizeOfHeapReserve = pOptHdr32->SizeOfHeapReserve;
|
---|
| 449 | pOptHdr64->SizeOfStackCommit = pOptHdr32->SizeOfStackCommit;
|
---|
| 450 | u32 = pOptHdr32->SizeOfStackReserve;
|
---|
| 451 | pOptHdr64->SizeOfStackReserve = u32;
|
---|
| 452 |
|
---|
| 453 | /*
|
---|
| 454 | * The rest matches except for BaseOfData which has been merged into ImageBase in the 64-bit version.
|
---|
| 455 | * Thus, ImageBase needs some special treatement. It will probably work fine assigning one to the
|
---|
| 456 | * other since this is all declared volatile, but taking now chances, we'll use a temp variable.
|
---|
| 457 | */
|
---|
| 458 | u32 = pOptHdr32->ImageBase;
|
---|
| 459 | pOptHdr64->ImageBase = u32;
|
---|
| 460 | }
|
---|
| 461 |
|
---|
| 462 |
|
---|
[2899] | 463 | #if 0
|
---|
[2854] | 464 | /**
|
---|
| 465 | * Converts a 32-bit load config directory to a 64 bit one.
|
---|
| 466 | *
|
---|
| 467 | * @param pOptHdr The load config to convert.
|
---|
| 468 | */
|
---|
[2857] | 469 | static void kldrModPEDoLoadConfigConversion(PIMAGE_LOAD_CONFIG_DIRECTORY64 pLoadCfg)
|
---|
[2854] | 470 | {
|
---|
| 471 | /* volatile everywhere! */
|
---|
| 472 | IMAGE_LOAD_CONFIG_DIRECTORY32 volatile *pLoadCfg32 = (IMAGE_LOAD_CONFIG_DIRECTORY32 volatile *)pLoadCfg;
|
---|
| 473 | IMAGE_LOAD_CONFIG_DIRECTORY64 volatile *pLoadCfg64 = pLoadCfg;
|
---|
| 474 | uint32_t u32;
|
---|
| 475 |
|
---|
| 476 | pLoadCfg64->SEHandlerCount = pLoadCfg32->SEHandlerCount;
|
---|
| 477 | pLoadCfg64->SEHandlerTable = pLoadCfg32->SEHandlerTable;
|
---|
| 478 | pLoadCfg64->SecurityCookie = pLoadCfg32->SecurityCookie;
|
---|
| 479 | pLoadCfg64->EditList = pLoadCfg32->EditList;
|
---|
| 480 | pLoadCfg64->Reserved1 = pLoadCfg32->Reserved1;
|
---|
| 481 | pLoadCfg64->CSDVersion = pLoadCfg32->CSDVersion;
|
---|
| 482 | /* (ProcessHeapFlags switched place with ProcessAffinityMask, but we're
|
---|
| 483 | * more than 16 byte off by now so it doesn't matter.) */
|
---|
| 484 | pLoadCfg64->ProcessHeapFlags = pLoadCfg32->ProcessHeapFlags;
|
---|
| 485 | pLoadCfg64->ProcessAffinityMask = pLoadCfg32->ProcessAffinityMask;
|
---|
| 486 | pLoadCfg64->VirtualMemoryThreshold = pLoadCfg32->VirtualMemoryThreshold;
|
---|
| 487 | pLoadCfg64->MaximumAllocationSize = pLoadCfg32->MaximumAllocationSize;
|
---|
| 488 | pLoadCfg64->LockPrefixTable = pLoadCfg32->LockPrefixTable;
|
---|
| 489 | pLoadCfg64->DeCommitTotalFreeThreshold = pLoadCfg32->DeCommitTotalFreeThreshold;
|
---|
| 490 | u32 = pLoadCfg32->DeCommitFreeBlockThreshold;
|
---|
| 491 | pLoadCfg64->DeCommitFreeBlockThreshold = u32;
|
---|
| 492 | /* the remainder matches. */
|
---|
| 493 | }
|
---|
[2899] | 494 | #endif
|
---|
[2854] | 495 |
|
---|
| 496 |
|
---|
[2857] | 497 | /**
|
---|
| 498 | * Internal worker which validates the section headers.
|
---|
| 499 | */
|
---|
| 500 | static int kLdrModPEDoOptionalHeaderValidation(PKLDRMODPE pModPE)
|
---|
| 501 | {
|
---|
| 502 | const unsigned fIs32Bit = pModPE->Hdrs.FileHeader.SizeOfOptionalHeader == sizeof(IMAGE_OPTIONAL_HEADER32);
|
---|
| 503 |
|
---|
| 504 | /* the magic */
|
---|
| 505 | if ( pModPE->Hdrs.OptionalHeader.Magic
|
---|
| 506 | != (fIs32Bit ? IMAGE_NT_OPTIONAL_HDR32_MAGIC : IMAGE_NT_OPTIONAL_HDR64_MAGIC))
|
---|
| 507 | return KLDR_ERR_PE_BAD_OPTIONAL_HEADER;
|
---|
| 508 |
|
---|
| 509 | /** @todo validate more */
|
---|
| 510 | return 0;
|
---|
| 511 | }
|
---|
| 512 |
|
---|
| 513 |
|
---|
| 514 | /**
|
---|
| 515 | * Internal worker which validates the section headers.
|
---|
| 516 | */
|
---|
| 517 | static int kLdrModPEDoSectionHeadersValidation(PKLDRMODPE pModPE)
|
---|
| 518 | {
|
---|
| 519 | /** @todo validate shdrs */
|
---|
| 520 | return 0;
|
---|
| 521 | }
|
---|
| 522 |
|
---|
| 523 |
|
---|
[2854] | 524 | /** @copydoc KLDRMODOPS::pfnDestroy */
|
---|
| 525 | static int kldrModPEDestroy(PKLDRMOD pMod)
|
---|
| 526 | {
|
---|
| 527 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 528 | int rc = 0;
|
---|
[2947] | 529 | KLDRMODPE_ASSERT(!pModPE->pvMapping);
|
---|
[2854] | 530 |
|
---|
| 531 | if (pMod->pRdr)
|
---|
| 532 | {
|
---|
| 533 | rc = kLdrRdrClose(pMod->pRdr);
|
---|
| 534 | pMod->pRdr = NULL;
|
---|
| 535 | }
|
---|
| 536 | pMod->u32Magic = 0;
|
---|
| 537 | pMod->pOps = NULL;
|
---|
| 538 | kldrHlpFree(pModPE);
|
---|
| 539 | return rc;
|
---|
| 540 | }
|
---|
| 541 |
|
---|
| 542 |
|
---|
| 543 | /**
|
---|
[2856] | 544 | * Performs the mapping of the image.
|
---|
| 545 | *
|
---|
| 546 | * This can be used to do the internal mapping as well as the
|
---|
| 547 | * user requested mapping. fForReal indicates which is desired.
|
---|
| 548 | *
|
---|
| 549 | * @returns 0 on success, non-zero OS or kLdr status code on failure.
|
---|
| 550 | * @param pModPE The interpreter module instance
|
---|
| 551 | * @param fForReal If set, do the user mapping. if clear, do the internal mapping.
|
---|
| 552 | */
|
---|
| 553 | static int kldrModPEDoMap(PKLDRMODPE pModPE, unsigned fForReal)
|
---|
| 554 | {
|
---|
[2860] | 555 | PKLDRMOD pMod = pModPE->pMod;
|
---|
| 556 | unsigned fFixed;
|
---|
| 557 | void *pvBase;
|
---|
| 558 | int rc;
|
---|
| 559 | uint32_t i;
|
---|
| 560 |
|
---|
| 561 | /*
|
---|
[2861] | 562 | * Map it.
|
---|
[2860] | 563 | */
|
---|
| 564 | /* fixed image? */
|
---|
| 565 | fFixed = fForReal
|
---|
| 566 | && ( pMod->enmType == KLDRTYPE_EXECUTABLE_FIXED
|
---|
| 567 | || pMod->enmType == KLDRTYPE_SHARED_LIBRARY_FIXED);
|
---|
| 568 | if (!fFixed)
|
---|
| 569 | pvBase = NULL;
|
---|
| 570 | else
|
---|
| 571 | {
|
---|
| 572 | pvBase = (void *)(uintptr_t)pMod->aSegments[0].LinkAddress;
|
---|
| 573 | if ((uintptr_t)pvBase != pMod->aSegments[0].LinkAddress)
|
---|
| 574 | return KLDR_ERR_ADDRESS_OVERFLOW;
|
---|
| 575 | }
|
---|
| 576 |
|
---|
| 577 | /* try do the prepare */
|
---|
[2861] | 578 | rc = kLdrRdrMap(pMod->pRdr, &pvBase, pMod->cSegments, pMod->aSegments, fFixed);
|
---|
[2860] | 579 | if (rc)
|
---|
| 580 | return rc;
|
---|
| 581 |
|
---|
| 582 | /*
|
---|
[2861] | 583 | * Update the segments with their map addresses.
|
---|
[2860] | 584 | */
|
---|
[2861] | 585 | if (fForReal)
|
---|
[2860] | 586 | {
|
---|
[2861] | 587 | for (i = 0; i < pMod->cSegments; i++)
|
---|
[2860] | 588 | {
|
---|
[2861] | 589 | if (pMod->aSegments[i].RVA != NIL_KLDRADDR)
|
---|
| 590 | pMod->aSegments[i].MapAddress = (uintptr_t)pvBase + (uintptr_t)pMod->aSegments[i].RVA;
|
---|
[2860] | 591 | }
|
---|
[2861] | 592 | pModPE->pvMapping = pvBase;
|
---|
[2860] | 593 | }
|
---|
| 594 | else
|
---|
[2861] | 595 | pModPE->pvBits = pvBase;
|
---|
| 596 | return 0;
|
---|
[2856] | 597 | }
|
---|
| 598 |
|
---|
| 599 |
|
---|
| 600 | /**
|
---|
| 601 | * Unmaps a image mapping.
|
---|
| 602 | *
|
---|
| 603 | * This can be used to do the internal mapping as well as the
|
---|
| 604 | * user requested mapping. fForReal indicates which is desired.
|
---|
| 605 | *
|
---|
| 606 | * @returns 0 on success, non-zero OS or kLdr status code on failure.
|
---|
| 607 | * @param pModPE The interpreter module instance
|
---|
[2857] | 608 | * @param pvMapping The mapping to unmap.
|
---|
[2856] | 609 | */
|
---|
[2857] | 610 | static int kldrModPEDoUnmap(PKLDRMODPE pModPE, const void *pvMapping)
|
---|
[2856] | 611 | {
|
---|
[2860] | 612 | PKLDRMOD pMod = pModPE->pMod;
|
---|
[2861] | 613 | int rc;
|
---|
[2860] | 614 | uint32_t i;
|
---|
| 615 |
|
---|
| 616 | /*
|
---|
[2861] | 617 | * Try unmap the image.
|
---|
[2860] | 618 | */
|
---|
[2861] | 619 | rc = kLdrRdrUnmap(pMod->pRdr, (void *)pvMapping, pMod->cSegments, pMod->aSegments);
|
---|
| 620 | if (rc)
|
---|
| 621 | return rc;
|
---|
[2860] | 622 |
|
---|
| 623 | /*
|
---|
[2861] | 624 | * Update the segments to reflect that they aren't mapped any longer.
|
---|
[2860] | 625 | */
|
---|
[2861] | 626 | if (pModPE->pvMapping == pvMapping)
|
---|
[2860] | 627 | {
|
---|
[2861] | 628 | pModPE->pvMapping = NULL;
|
---|
| 629 | for (i = 0; i < pMod->cSegments; i++)
|
---|
| 630 | pMod->aSegments[i].MapAddress = 0;
|
---|
[2860] | 631 | }
|
---|
[2861] | 632 | if (pModPE->pvBits == pvMapping)
|
---|
| 633 | pModPE->pvBits = NULL;
|
---|
[2860] | 634 |
|
---|
[2861] | 635 | return 0;
|
---|
[2856] | 636 | }
|
---|
| 637 |
|
---|
| 638 |
|
---|
| 639 | /**
|
---|
[2854] | 640 | * Gets usable bits and the right base address.
|
---|
| 641 | *
|
---|
| 642 | * @returns 0 on success.
|
---|
| 643 | * @returns A non-zero status code if the BaseAddress isn't right or some problem is encountered
|
---|
| 644 | * featch in a temp mapping the bits.
|
---|
| 645 | * @param pModPE The interpreter module instance
|
---|
| 646 | * @param ppvBits The bits address, IN & OUT.
|
---|
| 647 | * @param pBaseAddress The base address, IN & OUT. Optional.
|
---|
| 648 | */
|
---|
| 649 | static int kldrModPEBitsAndBaseAddress(PKLDRMODPE pModPE, const void **ppvBits, PKLDRADDR pBaseAddress)
|
---|
| 650 | {
|
---|
| 651 | int rc = 0;
|
---|
| 652 |
|
---|
| 653 | /*
|
---|
| 654 | * Correct the base address.
|
---|
| 655 | *
|
---|
| 656 | * We don't use the base address for interpreting the bits in this
|
---|
| 657 | * interpreter, which makes things relativly simple.
|
---|
| 658 | */
|
---|
| 659 | if (pBaseAddress)
|
---|
| 660 | {
|
---|
| 661 | if (*pBaseAddress == KLDRMOD_BASEADDRESS_MAP)
|
---|
| 662 | *pBaseAddress = pModPE->pMod->aSegments[0].MapAddress;
|
---|
| 663 | else if (*pBaseAddress == KLDRMOD_BASEADDRESS_LINK)
|
---|
| 664 | *pBaseAddress = pModPE->Hdrs.OptionalHeader.ImageBase;
|
---|
| 665 | }
|
---|
| 666 |
|
---|
| 667 | /*
|
---|
| 668 | * Get bits.
|
---|
| 669 | */
|
---|
[2859] | 670 | if (ppvBits && !*ppvBits)
|
---|
[2854] | 671 | {
|
---|
[2856] | 672 | if (pModPE->pvMapping)
|
---|
| 673 | *ppvBits = pModPE->pvMapping;
|
---|
[2854] | 674 | else if (pModPE->pvBits)
|
---|
| 675 | *ppvBits = pModPE->pvBits;
|
---|
| 676 | else
|
---|
| 677 | {
|
---|
[2861] | 678 | /* create an internal mapping. */
|
---|
| 679 | rc = kldrModPEDoMap(pModPE, 0 /* not for real */);
|
---|
| 680 | if (rc)
|
---|
| 681 | return rc;
|
---|
| 682 | KLDRMODPE_ASSERT(pModPE->pvBits);
|
---|
| 683 | *ppvBits = pModPE->pvBits;
|
---|
[2854] | 684 | }
|
---|
| 685 | }
|
---|
| 686 |
|
---|
| 687 | return 0;
|
---|
| 688 | }
|
---|
| 689 |
|
---|
| 690 |
|
---|
| 691 | /** @copydoc kLdrModQuerySymbol */
|
---|
[2859] | 692 | static int kldrModPEQuerySymbol(PKLDRMOD pMod, const void *pvBits, KLDRADDR BaseAddress, uint32_t iSymbol,
|
---|
[2893] | 693 | const char *pchSymbol, size_t cchSymbol, const char *pszVersion,
|
---|
[2891] | 694 | PFNKLDRMODGETIMPORT pfnGetForwarder, void *pvUser, PKLDRADDR puValue, uint32_t *pfKind)
|
---|
| 695 |
|
---|
[2854] | 696 | {
|
---|
| 697 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 698 | const uint32_t *paExportRVAs;
|
---|
| 699 | const IMAGE_EXPORT_DIRECTORY *pExpDir;
|
---|
| 700 | uint32_t iExpOrd;
|
---|
| 701 | uint32_t uRVA;
|
---|
| 702 | int rc;
|
---|
| 703 |
|
---|
| 704 | /*
|
---|
| 705 | * Make sure we've got mapped bits and resolve any base address aliases.
|
---|
| 706 | */
|
---|
| 707 | rc = kldrModPEBitsAndBaseAddress(pModPE, &pvBits, &BaseAddress);
|
---|
| 708 | if (rc)
|
---|
| 709 | return rc;
|
---|
| 710 | if ( pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT].Size
|
---|
| 711 | < sizeof(IMAGE_EXPORT_DIRECTORY))
|
---|
| 712 | return KLDR_ERR_SYMBOL_NOT_FOUND;
|
---|
[2891] | 713 | if (pszVersion && *pszVersion)
|
---|
| 714 | return KLDR_ERR_SYMBOL_NOT_FOUND;
|
---|
[2854] | 715 |
|
---|
| 716 | pExpDir = KLDRMODPE_RVA2TYPE(pvBits,
|
---|
| 717 | pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT].VirtualAddress,
|
---|
| 718 | PIMAGE_EXPORT_DIRECTORY);
|
---|
[2891] | 719 | if (!pchSymbol)
|
---|
[2854] | 720 | {
|
---|
| 721 | /*
|
---|
| 722 | * Simple, calculate the unbased ordinal and bounds check it.
|
---|
| 723 | */
|
---|
[2859] | 724 | iExpOrd = iSymbol - pExpDir->Base;
|
---|
[2854] | 725 | if (iExpOrd >= KLDR_MAX(pExpDir->NumberOfNames, pExpDir->NumberOfFunctions))
|
---|
| 726 | return KLDR_ERR_SYMBOL_NOT_FOUND;
|
---|
| 727 | }
|
---|
| 728 | else
|
---|
| 729 | {
|
---|
| 730 | /*
|
---|
| 731 | * Do a binary search for the name.
|
---|
| 732 | * (The name table is sorted in ascending ordered by the linker.)
|
---|
| 733 | */
|
---|
| 734 | const uint32_t *paRVANames = KLDRMODPE_RVA2TYPE(pvBits, pExpDir->AddressOfNames, const uint32_t *);
|
---|
| 735 | const uint16_t *paOrdinals = KLDRMODPE_RVA2TYPE(pvBits, pExpDir->AddressOfNameOrdinals, const uint16_t *);
|
---|
| 736 | int32_t iStart = 1; /* one based binary searching is simpler. */
|
---|
| 737 | int32_t iEnd = pExpDir->NumberOfNames;
|
---|
| 738 |
|
---|
| 739 | for (;;)
|
---|
| 740 | {
|
---|
| 741 | int32_t i;
|
---|
| 742 | int diff;
|
---|
| 743 | const char *pszName;
|
---|
| 744 |
|
---|
| 745 | /* done? */
|
---|
| 746 | if (iStart > iEnd)
|
---|
| 747 | {
|
---|
| 748 | #ifdef KLDRMODPE_STRICT /* Make sure the linker and we both did our job right. */
|
---|
[2877] | 749 | for (i = 0; i < (int32_t)pExpDir->NumberOfNames; i++)
|
---|
[2854] | 750 |
|
---|
| 751 | {
|
---|
| 752 | pszName = KLDRMODPE_RVA2TYPE(pvBits, paRVANames[i], const char *);
|
---|
[2891] | 753 | KLDRMODPE_ASSERT(kLdrHlpStrNComp(pszName, pchSymbol, cchSymbol) || pszName[cchSymbol]);
|
---|
[2854] | 754 | KLDRMODPE_ASSERT(i == 0 || kLdrHlpStrComp(pszName, KLDRMODPE_RVA2TYPE(pvBits, paRVANames[i - 1], const char *)));
|
---|
| 755 | }
|
---|
| 756 | #endif
|
---|
| 757 | return KLDR_ERR_SYMBOL_NOT_FOUND;
|
---|
| 758 | }
|
---|
| 759 |
|
---|
| 760 | i = (iEnd - iStart) / 2 + iStart;
|
---|
| 761 | pszName = KLDRMODPE_RVA2TYPE(pvBits, paRVANames[i - 1], const char *);
|
---|
[2891] | 762 | diff = kLdrHlpStrNComp(pszName, pchSymbol, cchSymbol);
|
---|
| 763 | if (!diff)
|
---|
| 764 | diff = pszName[cchSymbol] - 0;
|
---|
[2854] | 765 | if (diff < 0)
|
---|
| 766 | iStart = i + 1; /* The symbol must be after the current name. */
|
---|
| 767 | else if (diff)
|
---|
| 768 | iEnd = i - 1; /* The symbol must be before the current name. */
|
---|
| 769 | else
|
---|
| 770 | {
|
---|
| 771 | iExpOrd = paOrdinals[i - 1]; /* match! */
|
---|
| 772 | break;
|
---|
| 773 | }
|
---|
| 774 | }
|
---|
| 775 | }
|
---|
| 776 |
|
---|
| 777 | /*
|
---|
| 778 | * Lookup the address in the 'symbol' table.
|
---|
| 779 | */
|
---|
| 780 | paExportRVAs = KLDRMODPE_RVA2TYPE(pvBits, pExpDir->AddressOfFunctions, const uint32_t *);
|
---|
| 781 | uRVA = paExportRVAs[iExpOrd];
|
---|
| 782 | if ( uRVA - pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT].VirtualAddress
|
---|
| 783 | < pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT].Size)
|
---|
[2857] | 784 | return kldrModPEDoForwarderQuery(pModPE, pvBits, KLDRMODPE_RVA2TYPE(pvBits, uRVA, const char *),
|
---|
| 785 | pfnGetForwarder, pvUser, puValue, pfKind);
|
---|
[2854] | 786 |
|
---|
| 787 | /*
|
---|
| 788 | * Set the return value.
|
---|
| 789 | */
|
---|
| 790 | if (puValue)
|
---|
| 791 | *puValue = BaseAddress + uRVA;
|
---|
| 792 | if (pfKind)
|
---|
| 793 | *pfKind = (pModPE->Hdrs.FileHeader.SizeOfOptionalHeader == sizeof(IMAGE_OPTIONAL_HEADER32)
|
---|
| 794 | ? KLDRSYMKIND_32BIT : KLDRSYMKIND_64BIT)
|
---|
| 795 | | KLDRSYMKIND_NO_TYPE;
|
---|
| 796 | return 0;
|
---|
| 797 | }
|
---|
| 798 |
|
---|
| 799 |
|
---|
| 800 | /**
|
---|
| 801 | * Deal with a forwarder entry.
|
---|
| 802 | *
|
---|
| 803 | * We do this seprately from kldrModPEQuerySymbol because the code is clumsy (as is all PE code
|
---|
| 804 | * thanks to the descriptive field names), and because it uses quite a bit more stack and we're
|
---|
| 805 | * trying to avoid allocating stack unless we have to.
|
---|
| 806 | *
|
---|
| 807 | * @returns See kLdrModQuerySymbol.
|
---|
| 808 | * @param pModPE The PE module interpreter instance.
|
---|
| 809 | * @param pvBits Where to read the image from.
|
---|
| 810 | * @param pszForwarder The forwarder entry name.
|
---|
| 811 | * @param pfnGetForwarder The callback for resolving forwarder symbols. (optional)
|
---|
| 812 | * @param pvUser The user argument for the callback.
|
---|
| 813 | * @param puValue Where to put the value. (optional)
|
---|
| 814 | * @param pfKind Where to put the symbol kind. (optional)
|
---|
| 815 | */
|
---|
[2857] | 816 | static int kldrModPEDoForwarderQuery(PKLDRMODPE pModPE, const void *pvBits, const char *pszForwarder,
|
---|
| 817 | PFNKLDRMODGETIMPORT pfnGetForwarder, void *pvUser, PKLDRADDR puValue, uint32_t *pfKind)
|
---|
[2854] | 818 | {
|
---|
| 819 | const IMAGE_IMPORT_DESCRIPTOR *paImpDir;
|
---|
| 820 | uint32_t iImpModule;
|
---|
| 821 | uint32_t cchImpModule;
|
---|
| 822 | const char *pszSymbol;
|
---|
[2859] | 823 | uint32_t iSymbol;
|
---|
[2854] | 824 | int rc;
|
---|
| 825 |
|
---|
| 826 | if (!pfnGetForwarder)
|
---|
| 827 | return KLDR_ERR_FORWARDER_SYMBOL;
|
---|
| 828 |
|
---|
| 829 | /*
|
---|
| 830 | * Separate the name into a module name and a symbol name or ordinal.
|
---|
| 831 | *
|
---|
| 832 | * The module name ends at the first dot ('.').
|
---|
| 833 | * After the dot follows either a symbol name or a hash ('#') + ordinal.
|
---|
| 834 | */
|
---|
| 835 | pszSymbol = pszForwarder;
|
---|
| 836 | while (*pszSymbol != '.')
|
---|
| 837 | pszSymbol++;
|
---|
| 838 | if (!*pszSymbol)
|
---|
| 839 | return KLDR_ERR_PE_BAD_FORWARDER;
|
---|
| 840 | cchImpModule = pszSymbol - pszForwarder;
|
---|
| 841 |
|
---|
| 842 | pszSymbol++; /* skip the dot */
|
---|
| 843 | if (!*pszSymbol)
|
---|
| 844 | return KLDR_ERR_PE_BAD_FORWARDER;
|
---|
| 845 | if (*pszSymbol == '#')
|
---|
| 846 | {
|
---|
| 847 | unsigned uBase;
|
---|
| 848 | pszSymbol++; /* skip the hash */
|
---|
| 849 |
|
---|
| 850 | /* base detection */
|
---|
| 851 | uBase = 10;
|
---|
| 852 | if (pszSymbol[0] == '0' && (pszSymbol[1] == 'x' || pszSymbol[1] == 'X'))
|
---|
| 853 | {
|
---|
| 854 | uBase = 16;
|
---|
| 855 | pszSymbol += 2;
|
---|
| 856 | }
|
---|
| 857 |
|
---|
| 858 | /* ascii to integer */
|
---|
[2859] | 859 | iSymbol = 0;
|
---|
[2854] | 860 | for (;;)
|
---|
| 861 | {
|
---|
| 862 | /* convert char to digit. */
|
---|
| 863 | unsigned uDigit = *pszSymbol++;
|
---|
| 864 | if (uDigit >= '0' && uDigit <= '9')
|
---|
| 865 | uDigit -= '0';
|
---|
| 866 | else if (uDigit >= 'a' && uDigit <= 'z')
|
---|
| 867 | uDigit -= 'a' + 10;
|
---|
| 868 | else if (uDigit >= 'A' && uDigit <= 'Z')
|
---|
| 869 | uDigit -= 'A' + 10;
|
---|
| 870 | else if (!uDigit)
|
---|
| 871 | break;
|
---|
| 872 | else
|
---|
| 873 | return KLDR_ERR_PE_BAD_FORWARDER;
|
---|
| 874 | if (uDigit >= uBase)
|
---|
| 875 | return KLDR_ERR_PE_BAD_FORWARDER;
|
---|
| 876 |
|
---|
| 877 | /* insert the digit */
|
---|
[2859] | 878 | iSymbol *= uBase;
|
---|
| 879 | iSymbol += uDigit;
|
---|
[2854] | 880 | }
|
---|
| 881 |
|
---|
| 882 | pszSymbol = NULL; /* no symbol name. */
|
---|
| 883 | }
|
---|
| 884 | else
|
---|
[2859] | 885 | iSymbol = NIL_KLDRMOD_SYM_ORDINAL; /* no ordinal number. */
|
---|
[2854] | 886 |
|
---|
| 887 |
|
---|
| 888 | /*
|
---|
| 889 | * Find the import module name.
|
---|
| 890 | *
|
---|
| 891 | * We ASSUME the linker will make sure there is an import
|
---|
| 892 | * entry for the module... not sure if this is right though.
|
---|
| 893 | */
|
---|
[2855] | 894 | if ( !pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_IMPORT].Size
|
---|
| 895 | || !pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_IMPORT].VirtualAddress)
|
---|
| 896 | return KLDR_ERR_PE_FORWARDER_IMPORT_NOT_FOUND;
|
---|
[2854] | 897 | paImpDir = KLDRMODPE_RVA2TYPE(pvBits,
|
---|
| 898 | pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_IMPORT].VirtualAddress,
|
---|
| 899 | const IMAGE_IMPORT_DESCRIPTOR *);
|
---|
[2855] | 900 |
|
---|
| 901 | kldrModPENumberOfImports(pModPE->pMod, pvBits);
|
---|
| 902 | for (iImpModule = 0; iImpModule < pModPE->cImportModules; iImpModule++)
|
---|
[2854] | 903 | {
|
---|
[2855] | 904 | const char *pszName = KLDRMODPE_RVA2TYPE(pvBits, paImpDir[iImpModule].Name, const char *);
|
---|
| 905 | size_t cchName = kLdrHlpStrLen(pszName);
|
---|
[2854] | 906 | if ( ( cchName == cchImpModule
|
---|
| 907 | || ( cchName > cchImpModule
|
---|
| 908 | && pszName[cchImpModule] == '.'
|
---|
| 909 | && (pszName[cchImpModule + 1] == 'd' || pszName[cchImpModule + 1] == 'D')
|
---|
| 910 | && (pszName[cchImpModule + 2] == 'l' || pszName[cchImpModule + 2] == 'L')
|
---|
| 911 | && (pszName[cchImpModule + 3] == 'l' || pszName[cchImpModule + 3] == 'L'))
|
---|
| 912 | )
|
---|
| 913 | && kLdrHlpMemIComp(pszName, pszForwarder, cchImpModule)
|
---|
| 914 | )
|
---|
[2855] | 915 | {
|
---|
| 916 | /*
|
---|
| 917 | * Now the rest is up to the callback (almost).
|
---|
| 918 | */
|
---|
[2893] | 919 | rc = pfnGetForwarder(pModPE->pMod, iImpModule, iSymbol, pszSymbol,
|
---|
[2891] | 920 | pszSymbol ? kLdrHlpStrLen(pszSymbol) : 0, NULL, puValue, pfKind, pvUser);
|
---|
[2855] | 921 | if (!rc && pfKind)
|
---|
| 922 | *pfKind |= KLDRSYMKIND_FORWARDER;
|
---|
| 923 | return rc;
|
---|
| 924 | }
|
---|
[2854] | 925 | }
|
---|
[2855] | 926 | return KLDR_ERR_PE_FORWARDER_IMPORT_NOT_FOUND;
|
---|
[2854] | 927 | }
|
---|
| 928 |
|
---|
| 929 |
|
---|
| 930 | /** @copydoc kLdrModEnumSymbols */
|
---|
[2858] | 931 | static int kldrModPEEnumSymbols(PKLDRMOD pMod, const void *pvBits, KLDRADDR BaseAddress,
|
---|
| 932 | uint32_t fFlags, PFNKLDRMODENUMSYMS pfnCallback, void *pvUser)
|
---|
[2854] | 933 | {
|
---|
| 934 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 935 | const uint32_t *paFunctions;
|
---|
| 936 | const IMAGE_EXPORT_DIRECTORY *pExpDir;
|
---|
| 937 | const uint32_t *paRVANames;
|
---|
| 938 | const uint16_t *paOrdinals;
|
---|
| 939 | uint32_t iFunction;
|
---|
| 940 | uint32_t cFunctions;
|
---|
| 941 | uint32_t cNames;
|
---|
| 942 | int rc;
|
---|
| 943 |
|
---|
| 944 | /*
|
---|
| 945 | * Make sure we've got mapped bits and resolve any base address aliases.
|
---|
| 946 | */
|
---|
| 947 | rc = kldrModPEBitsAndBaseAddress(pModPE, &pvBits, &BaseAddress);
|
---|
| 948 | if (rc)
|
---|
| 949 | return rc;
|
---|
| 950 |
|
---|
| 951 | if ( pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT].Size
|
---|
| 952 | < sizeof(IMAGE_EXPORT_DIRECTORY))
|
---|
[2859] | 953 | return 0; /* no exports to enumerate, return success. */
|
---|
| 954 |
|
---|
[2854] | 955 | pExpDir = KLDRMODPE_RVA2TYPE(pvBits,
|
---|
| 956 | pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT].VirtualAddress,
|
---|
| 957 | PIMAGE_EXPORT_DIRECTORY);
|
---|
| 958 |
|
---|
| 959 | /*
|
---|
| 960 | * Enumerate the ordinal exports.
|
---|
| 961 | */
|
---|
| 962 | paRVANames = KLDRMODPE_RVA2TYPE(pvBits, pExpDir->AddressOfNames, const uint32_t *);
|
---|
| 963 | paOrdinals = KLDRMODPE_RVA2TYPE(pvBits, pExpDir->AddressOfNameOrdinals, const uint16_t *);
|
---|
| 964 | paFunctions = KLDRMODPE_RVA2TYPE(pvBits, pExpDir->AddressOfFunctions, const uint32_t *);
|
---|
| 965 | cFunctions = pExpDir->NumberOfFunctions;
|
---|
| 966 | cNames = pExpDir->NumberOfNames;
|
---|
| 967 | for (iFunction = 0; iFunction < cFunctions; iFunction++)
|
---|
| 968 | {
|
---|
| 969 | unsigned fFoundName;
|
---|
| 970 | uint32_t iName;
|
---|
| 971 | const uint32_t uRVA = paFunctions[iFunction];
|
---|
| 972 | const KLDRADDR uValue = BaseAddress + uRVA;
|
---|
| 973 | uint32_t fKind = (pModPE->Hdrs.FileHeader.SizeOfOptionalHeader == sizeof(IMAGE_OPTIONAL_HEADER32)
|
---|
| 974 | ? KLDRSYMKIND_32BIT : KLDRSYMKIND_64BIT)
|
---|
| 975 | | KLDRSYMKIND_NO_TYPE;
|
---|
| 976 | if ( uRVA - pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT].VirtualAddress
|
---|
| 977 | < pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT].Size)
|
---|
| 978 | fKind |= KLDRSYMKIND_FORWARDER;
|
---|
| 979 |
|
---|
| 980 | /*
|
---|
| 981 | * Any symbol names?
|
---|
| 982 | */
|
---|
| 983 | fFoundName = 0;
|
---|
| 984 | for (iName = 0; iName < cNames; iName++)
|
---|
| 985 | {
|
---|
[2891] | 986 | const char *pszName;
|
---|
[2859] | 987 | if (paOrdinals[iName] != iFunction)
|
---|
[2854] | 988 | continue;
|
---|
| 989 | fFoundName = 1;
|
---|
[2891] | 990 | pszName = KLDRMODPE_RVA2TYPE(pvBits, paRVANames[iName], const char *);
|
---|
| 991 | rc = pfnCallback(pMod, iFunction + pExpDir->Base, pszName, kLdrHlpStrLen(pszName), NULL,
|
---|
[2854] | 992 | uValue, fKind, pvUser);
|
---|
| 993 | if (rc)
|
---|
| 994 | return rc;
|
---|
| 995 | }
|
---|
| 996 |
|
---|
| 997 | /*
|
---|
| 998 | * If no names, call once with the ordinal only.
|
---|
| 999 | */
|
---|
| 1000 | if (!fFoundName)
|
---|
| 1001 | {
|
---|
[2891] | 1002 | rc = pfnCallback(pMod, iFunction + pExpDir->Base, NULL, 0, NULL, uValue, fKind, pvUser);
|
---|
[2854] | 1003 | if (rc)
|
---|
| 1004 | return rc;
|
---|
| 1005 | }
|
---|
| 1006 | }
|
---|
| 1007 |
|
---|
| 1008 | return 0;
|
---|
| 1009 | }
|
---|
| 1010 |
|
---|
| 1011 |
|
---|
| 1012 | /** @copydoc kLdrModGetImport */
|
---|
[2858] | 1013 | static int kldrModPEGetImport(PKLDRMOD pMod, const void *pvBits, uint32_t iImport, char *pszName, size_t cchName)
|
---|
[2855] | 1014 | {
|
---|
| 1015 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1016 | const IMAGE_IMPORT_DESCRIPTOR *pImpDesc;
|
---|
| 1017 | const char *pszImportName;
|
---|
| 1018 | size_t cchImportName;
|
---|
| 1019 | int rc;
|
---|
| 1020 |
|
---|
| 1021 | /*
|
---|
| 1022 | * Make sure we've got mapped bits and resolve any base address aliases.
|
---|
| 1023 | */
|
---|
| 1024 | rc = kldrModPEBitsAndBaseAddress(pModPE, &pvBits, NULL);
|
---|
| 1025 | if (rc)
|
---|
| 1026 | return rc;
|
---|
| 1027 |
|
---|
| 1028 | /*
|
---|
| 1029 | * Simple bounds check.
|
---|
| 1030 | */
|
---|
| 1031 | if (iImport >= (uint32_t)kldrModPENumberOfImports(pMod, pvBits))
|
---|
| 1032 | return KLDR_ERR_IMPORT_ORDINAL_OUT_OF_BOUNDS;
|
---|
| 1033 |
|
---|
| 1034 | /*
|
---|
| 1035 | * Get the name.
|
---|
| 1036 | */
|
---|
| 1037 | pImpDesc = KLDRMODPE_RVA2TYPE(pvBits,
|
---|
| 1038 | pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_IMPORT].VirtualAddress
|
---|
| 1039 | + sizeof(IMAGE_IMPORT_DESCRIPTOR) * iImport,
|
---|
| 1040 | const IMAGE_IMPORT_DESCRIPTOR *);
|
---|
| 1041 | pszImportName = KLDRMODPE_RVA2TYPE(pvBits, pImpDesc->Name, const char *);
|
---|
[2883] | 1042 | cchImportName = kLdrHlpStrLen(pszImportName);
|
---|
[2855] | 1043 | if (cchImportName < cchName)
|
---|
| 1044 | {
|
---|
| 1045 | kLdrHlpMemCopy(pszName, pszImportName, cchImportName + 1);
|
---|
| 1046 | rc = 0;
|
---|
| 1047 | }
|
---|
| 1048 | else
|
---|
| 1049 | {
|
---|
| 1050 | kLdrHlpMemCopy(pszName, pszImportName, cchName);
|
---|
| 1051 | if (cchName)
|
---|
| 1052 | pszName[cchName - 1] = '\0';
|
---|
| 1053 | rc = KLDR_ERR_BUFFER_OVERFLOW;
|
---|
| 1054 | }
|
---|
| 1055 |
|
---|
| 1056 | return rc;
|
---|
| 1057 | }
|
---|
| 1058 |
|
---|
| 1059 |
|
---|
[2854] | 1060 | /** @copydoc kLdrModNumberOfImports */
|
---|
[2855] | 1061 | static int32_t kldrModPENumberOfImports(PKLDRMOD pMod, const void *pvBits)
|
---|
| 1062 | {
|
---|
| 1063 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1064 | if (pModPE->cImportModules == ~(uint32_t)0)
|
---|
| 1065 | {
|
---|
| 1066 | /*
|
---|
| 1067 | * We'll have to walk the import descriptors to figure out their number.
|
---|
[2856] | 1068 | * First, make sure we've got mapped bits.
|
---|
[2855] | 1069 | */
|
---|
| 1070 | if (kldrModPEBitsAndBaseAddress(pModPE, &pvBits, NULL))
|
---|
| 1071 | return -1;
|
---|
| 1072 | pModPE->cImportModules = 0;
|
---|
| 1073 | if ( pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_IMPORT].Size
|
---|
| 1074 | && pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_IMPORT].VirtualAddress)
|
---|
| 1075 | {
|
---|
| 1076 | const IMAGE_IMPORT_DESCRIPTOR *pImpDesc;
|
---|
| 1077 |
|
---|
| 1078 | pImpDesc = KLDRMODPE_RVA2TYPE(pvBits,
|
---|
| 1079 | pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_IMPORT].VirtualAddress,
|
---|
| 1080 | const IMAGE_IMPORT_DESCRIPTOR *);
|
---|
| 1081 | while (pImpDesc->Name && pImpDesc->FirstThunk)
|
---|
| 1082 | {
|
---|
[2859] | 1083 | pModPE->cImportModules++;
|
---|
[2855] | 1084 | pImpDesc++;
|
---|
| 1085 | }
|
---|
| 1086 | }
|
---|
| 1087 | }
|
---|
| 1088 | return pModPE->cImportModules;
|
---|
| 1089 | }
|
---|
| 1090 |
|
---|
| 1091 |
|
---|
[2854] | 1092 | /** @copydoc kLdrModGetStackInfo */
|
---|
[2855] | 1093 | static int kldrModPEGetStackInfo(PKLDRMOD pMod, const void *pvBits, KLDRADDR BaseAddress, PKLDRSTACKINFO pStackInfo)
|
---|
| 1094 | {
|
---|
| 1095 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1096 |
|
---|
| 1097 | pStackInfo->Address = NIL_KLDRADDR;
|
---|
| 1098 | pStackInfo->LinkAddress = NIL_KLDRADDR;
|
---|
| 1099 | pStackInfo->cbStack = pStackInfo->cbStackThread = pModPE->Hdrs.OptionalHeader.SizeOfStackReserve;
|
---|
| 1100 |
|
---|
| 1101 | return 0;
|
---|
| 1102 | }
|
---|
| 1103 |
|
---|
| 1104 |
|
---|
[2854] | 1105 | /** @copydoc kLdrModQueryMainEntrypoint */
|
---|
[2855] | 1106 | static int kldrModPEQueryMainEntrypoint(PKLDRMOD pMod, const void *pvBits, KLDRADDR BaseAddress, PKLDRADDR pMainEPAddress)
|
---|
| 1107 | {
|
---|
| 1108 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1109 | int rc;
|
---|
| 1110 |
|
---|
[2856] | 1111 | /*
|
---|
| 1112 | * Resolve base address alias if any.
|
---|
| 1113 | */
|
---|
[2855] | 1114 | rc = kldrModPEBitsAndBaseAddress(pModPE, NULL, &BaseAddress);
|
---|
| 1115 | if (rc)
|
---|
| 1116 | return rc;
|
---|
| 1117 |
|
---|
[2856] | 1118 | /*
|
---|
| 1119 | * Convert the address from the header.
|
---|
| 1120 | */
|
---|
[2855] | 1121 | *pMainEPAddress = pModPE->Hdrs.OptionalHeader.AddressOfEntryPoint
|
---|
| 1122 | ? BaseAddress + pModPE->Hdrs.OptionalHeader.AddressOfEntryPoint
|
---|
| 1123 | : NIL_KLDRADDR;
|
---|
| 1124 | return 0;
|
---|
| 1125 | }
|
---|
| 1126 |
|
---|
| 1127 |
|
---|
[2854] | 1128 | /** @copydoc kLdrModEnumDbgInfo */
|
---|
[2856] | 1129 | static int kldrModPEEnumDbgInfo(PKLDRMOD pMod, const void *pvBits, PFNKLDRENUMDBG pfnCallback, void *pvUser)
|
---|
| 1130 | {
|
---|
| 1131 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1132 | const IMAGE_DEBUG_DIRECTORY *pDbgDir;
|
---|
| 1133 | uint32_t iDbgInfo;
|
---|
| 1134 | uint32_t cb;
|
---|
| 1135 | int rc;
|
---|
[2855] | 1136 |
|
---|
[2856] | 1137 | /*
|
---|
| 1138 | * Check that there is a debug directory first.
|
---|
| 1139 | */
|
---|
| 1140 | cb = pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_DEBUG].Size;
|
---|
| 1141 | if ( cb < sizeof(IMAGE_DEBUG_DIRECTORY) /* screw borland linkers */
|
---|
| 1142 | || !pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_DEBUG].VirtualAddress)
|
---|
| 1143 | return 0;
|
---|
| 1144 |
|
---|
| 1145 | /*
|
---|
| 1146 | * Make sure we've got mapped bits.
|
---|
| 1147 | */
|
---|
| 1148 | rc = kldrModPEBitsAndBaseAddress(pModPE, &pvBits, NULL);
|
---|
| 1149 | if (rc)
|
---|
| 1150 | return rc;
|
---|
| 1151 |
|
---|
| 1152 | /*
|
---|
| 1153 | * Enumerate the debug directory.
|
---|
| 1154 | */
|
---|
| 1155 | pDbgDir = KLDRMODPE_RVA2TYPE(pvBits,
|
---|
| 1156 | pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_DEBUG].VirtualAddress,
|
---|
| 1157 | const IMAGE_DEBUG_DIRECTORY *);
|
---|
| 1158 | for (iDbgInfo = 0;; iDbgInfo++, pDbgDir++, cb -= sizeof(IMAGE_DEBUG_DIRECTORY))
|
---|
| 1159 | {
|
---|
| 1160 | KLDRDBGINFOTYPE enmDbgInfoType;
|
---|
| 1161 |
|
---|
| 1162 | /* convert the type. */
|
---|
| 1163 | switch (pDbgDir->Type)
|
---|
| 1164 | {
|
---|
| 1165 | case IMAGE_DEBUG_TYPE_UNKNOWN:
|
---|
| 1166 | case IMAGE_DEBUG_TYPE_FPO:
|
---|
[2883] | 1167 | case IMAGE_DEBUG_TYPE_COFF: /*stabs dialect??*/
|
---|
[2856] | 1168 | case IMAGE_DEBUG_TYPE_MISC:
|
---|
| 1169 | case IMAGE_DEBUG_TYPE_EXCEPTION:
|
---|
| 1170 | case IMAGE_DEBUG_TYPE_FIXUP:
|
---|
| 1171 | case IMAGE_DEBUG_TYPE_BORLAND:
|
---|
| 1172 | default:
|
---|
| 1173 | enmDbgInfoType = KLDRDBGINFOTYPE_UNKNOWN;
|
---|
| 1174 | break;
|
---|
| 1175 | case IMAGE_DEBUG_TYPE_CODEVIEW:
|
---|
| 1176 | enmDbgInfoType = KLDRDBGINFOTYPE_CODEVIEW;
|
---|
| 1177 | break;
|
---|
| 1178 | }
|
---|
| 1179 |
|
---|
| 1180 | rc = pfnCallback(pMod, iDbgInfo,
|
---|
| 1181 | enmDbgInfoType, pDbgDir->MajorVersion, pDbgDir->MinorVersion,
|
---|
| 1182 | pDbgDir->PointerToRawData ? pDbgDir->PointerToRawData : -1,
|
---|
| 1183 | pDbgDir->AddressOfRawData ? pDbgDir->AddressOfRawData : NIL_KLDRADDR,
|
---|
| 1184 | pDbgDir->SizeOfData,
|
---|
| 1185 | NULL,
|
---|
| 1186 | pvUser);
|
---|
| 1187 | if (rc)
|
---|
| 1188 | break;
|
---|
| 1189 |
|
---|
| 1190 | /* next */
|
---|
| 1191 | if (cb <= sizeof(IMAGE_DEBUG_DIRECTORY))
|
---|
| 1192 | break;
|
---|
| 1193 | }
|
---|
| 1194 |
|
---|
| 1195 | return rc;
|
---|
| 1196 | }
|
---|
| 1197 |
|
---|
| 1198 |
|
---|
[2854] | 1199 | /** @copydoc kLdrModHasDbgInfo */
|
---|
[2856] | 1200 | static int kldrModPEHasDbgInfo(PKLDRMOD pMod, const void *pvBits)
|
---|
| 1201 | {
|
---|
| 1202 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1203 |
|
---|
| 1204 | /*
|
---|
| 1205 | * Base this entirely on the presence of a debug directory.
|
---|
| 1206 | */
|
---|
| 1207 | if ( pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_DEBUG].Size
|
---|
| 1208 | < sizeof(IMAGE_DEBUG_DIRECTORY) /* screw borland linkers */
|
---|
| 1209 | || !pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_DEBUG].VirtualAddress)
|
---|
| 1210 | return KLDR_ERR_NO_DEBUG_INFO;
|
---|
| 1211 | return 0;
|
---|
| 1212 | }
|
---|
| 1213 |
|
---|
| 1214 |
|
---|
[2854] | 1215 | /** @copydoc kLdrModMap */
|
---|
[2856] | 1216 | static int kldrModPEMap(PKLDRMOD pMod)
|
---|
| 1217 | {
|
---|
| 1218 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1219 | int rc;
|
---|
| 1220 |
|
---|
| 1221 | /*
|
---|
| 1222 | * Already mapped?
|
---|
| 1223 | */
|
---|
| 1224 | if (pModPE->pvMapping)
|
---|
| 1225 | return KLDR_ERR_ALREADY_MAPPED;
|
---|
| 1226 |
|
---|
| 1227 | /*
|
---|
| 1228 | * We've got a common worker which does this.
|
---|
| 1229 | */
|
---|
| 1230 | rc = kldrModPEDoMap(pModPE, 1 /* the real thing */);
|
---|
| 1231 | if (rc)
|
---|
| 1232 | return rc;
|
---|
| 1233 | KLDRMODPE_ASSERT(pModPE->pvMapping);
|
---|
| 1234 | return 0;
|
---|
| 1235 | }
|
---|
| 1236 |
|
---|
| 1237 |
|
---|
[2854] | 1238 | /** @copydoc kLdrModUnmap */
|
---|
[2856] | 1239 | static int kldrModPEUnmap(PKLDRMOD pMod)
|
---|
| 1240 | {
|
---|
| 1241 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1242 | int rc;
|
---|
| 1243 |
|
---|
| 1244 | /*
|
---|
| 1245 | * Mapped?
|
---|
| 1246 | */
|
---|
| 1247 | if (!pModPE->pvMapping)
|
---|
| 1248 | return KLDR_ERR_NOT_MAPPED;
|
---|
| 1249 |
|
---|
| 1250 | /*
|
---|
| 1251 | * We've got a common worker which does this.
|
---|
| 1252 | */
|
---|
[2857] | 1253 | rc = kldrModPEDoUnmap(pModPE, pModPE->pvMapping);
|
---|
[2856] | 1254 | if (rc)
|
---|
| 1255 | return rc;
|
---|
[2959] | 1256 | KLDRMODPE_ASSERT(!pModPE->pvMapping);
|
---|
[2856] | 1257 | return 0;
|
---|
| 1258 |
|
---|
| 1259 | }
|
---|
| 1260 |
|
---|
| 1261 |
|
---|
[2854] | 1262 | /** @copydoc kLdrModAllocTLS */
|
---|
[2856] | 1263 | static int kldrModPEAllocTLS(PKLDRMOD pMod)
|
---|
| 1264 | {
|
---|
| 1265 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1266 |
|
---|
| 1267 | /*
|
---|
| 1268 | * Mapped?
|
---|
| 1269 | */
|
---|
| 1270 | if (!pModPE->pvMapping)
|
---|
| 1271 | return KLDR_ERR_NOT_MAPPED;
|
---|
| 1272 |
|
---|
| 1273 | /*
|
---|
| 1274 | * If no TLS directory then there is nothing to do.
|
---|
| 1275 | */
|
---|
| 1276 | if ( !pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_TLS].Size
|
---|
| 1277 | || !pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_TLS].VirtualAddress)
|
---|
| 1278 | return 0;
|
---|
| 1279 | /** @todo implement TLS. */
|
---|
| 1280 | return -1;
|
---|
| 1281 | }
|
---|
| 1282 |
|
---|
| 1283 |
|
---|
[2854] | 1284 | /** @copydoc kLdrModFreeTLS */
|
---|
[2856] | 1285 | static void kldrModPEFreeTLS(PKLDRMOD pMod)
|
---|
| 1286 | {
|
---|
| 1287 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1288 |
|
---|
| 1289 | /*
|
---|
| 1290 | * Mapped?
|
---|
| 1291 | */
|
---|
| 1292 | if (!pModPE->pvMapping)
|
---|
| 1293 | return;
|
---|
| 1294 |
|
---|
| 1295 | /*
|
---|
| 1296 | * If no TLS directory then there is nothing to do.
|
---|
| 1297 | */
|
---|
| 1298 | if ( !pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_TLS].Size
|
---|
| 1299 | || !pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_TLS].VirtualAddress)
|
---|
| 1300 | return;
|
---|
| 1301 | /** @todo implement TLS. */
|
---|
| 1302 | return;
|
---|
| 1303 | }
|
---|
| 1304 |
|
---|
| 1305 |
|
---|
[2854] | 1306 | /** @copydoc kLdrModReload */
|
---|
[2856] | 1307 | static int kldrModPEReload(PKLDRMOD pMod)
|
---|
| 1308 | {
|
---|
[2861] | 1309 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
[2856] | 1310 |
|
---|
| 1311 | /*
|
---|
| 1312 | * Mapped?
|
---|
| 1313 | */
|
---|
| 1314 | if (!pModPE->pvMapping)
|
---|
| 1315 | return KLDR_ERR_NOT_MAPPED;
|
---|
| 1316 |
|
---|
[2861] | 1317 | /* the file provider does it all */
|
---|
| 1318 | return kLdrRdrRefresh(pMod->pRdr, (void *)pModPE->pvMapping, pMod->cSegments, pMod->aSegments);
|
---|
[2856] | 1319 | }
|
---|
| 1320 |
|
---|
| 1321 |
|
---|
[2854] | 1322 | /** @copydoc kLdrModFixupMapping */
|
---|
[2856] | 1323 | static int kldrModPEFixupMapping(PKLDRMOD pMod, PFNKLDRMODGETIMPORT pfnGetImport, void *pvUser)
|
---|
| 1324 | {
|
---|
| 1325 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1326 | int rc, rc2;
|
---|
| 1327 |
|
---|
| 1328 | /*
|
---|
| 1329 | * Mapped?
|
---|
| 1330 | */
|
---|
| 1331 | if (!pModPE->pvMapping)
|
---|
| 1332 | return KLDR_ERR_NOT_MAPPED;
|
---|
| 1333 |
|
---|
| 1334 | /*
|
---|
| 1335 | * Before doing anything we'll have to make all pages writable.
|
---|
| 1336 | */
|
---|
[2861] | 1337 | rc = kLdrRdrProtect(pMod->pRdr, (void *)pModPE->pvMapping, pMod->cSegments, pMod->aSegments, 1 /* unprotect */);
|
---|
[2856] | 1338 | if (rc)
|
---|
| 1339 | return rc;
|
---|
| 1340 |
|
---|
| 1341 | /*
|
---|
[2857] | 1342 | * Apply base relocations.
|
---|
[2856] | 1343 | */
|
---|
[2857] | 1344 | rc = kldrModPEDoFixups(pModPE, (void *)pModPE->pvMapping, (uintptr_t)pModPE->pvMapping,
|
---|
| 1345 | pModPE->Hdrs.OptionalHeader.ImageBase);
|
---|
[2856] | 1346 |
|
---|
| 1347 | /*
|
---|
| 1348 | * Resolve imports.
|
---|
| 1349 | */
|
---|
| 1350 | if (!rc)
|
---|
| 1351 | rc = kldrModPEDoImports(pModPE, (void *)pModPE->pvMapping, pfnGetImport, pvUser);
|
---|
| 1352 |
|
---|
| 1353 | /*
|
---|
| 1354 | * Restore protection.
|
---|
| 1355 | */
|
---|
[2861] | 1356 | rc2 = kLdrRdrProtect(pMod->pRdr, (void *)pModPE->pvMapping, pMod->cSegments, pMod->aSegments, 0 /* protect */);
|
---|
[2856] | 1357 | if (!rc && rc2)
|
---|
| 1358 | rc = rc2;
|
---|
| 1359 | return rc;
|
---|
| 1360 | }
|
---|
| 1361 |
|
---|
| 1362 |
|
---|
[2857] | 1363 | /**
|
---|
| 1364 | * Applies base relocations to a (unprotected) image mapping.
|
---|
| 1365 | *
|
---|
| 1366 | * @returns 0 on success, non-zero kLdr status code on failure.
|
---|
| 1367 | * @param pModPE The PE module interpreter instance.
|
---|
| 1368 | * @param pvMapping The mapping to fixup.
|
---|
| 1369 | * @param NewBaseAddress The address to fixup the mapping to.
|
---|
| 1370 | * @param OldBaseAddress The address the mapping is currently fixed up to.
|
---|
| 1371 | */
|
---|
| 1372 | static int kldrModPEDoFixups(PKLDRMODPE pModPE, void *pvMapping, KLDRADDR NewBaseAddress, KLDRADDR OldBaseAddress)
|
---|
| 1373 | {
|
---|
| 1374 | const KLDRADDR Delta = NewBaseAddress - OldBaseAddress;
|
---|
| 1375 | uint32_t cbLeft = pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_BASERELOC].Size;
|
---|
| 1376 | const IMAGE_BASE_RELOCATION *pBR, *pFirstBR;
|
---|
| 1377 |
|
---|
| 1378 | /*
|
---|
| 1379 | * Don't don anything if the delta is 0 or there aren't any relocations.
|
---|
| 1380 | */
|
---|
| 1381 | if ( !Delta
|
---|
| 1382 | || !cbLeft
|
---|
| 1383 | || !pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_BASERELOC].VirtualAddress)
|
---|
| 1384 | return 0;
|
---|
| 1385 |
|
---|
| 1386 | /*
|
---|
| 1387 | * Process the fixups block by block.
|
---|
| 1388 | * (These blocks appears to be 4KB on all archs despite the native page size.)
|
---|
| 1389 | */
|
---|
| 1390 | pBR = pFirstBR = KLDRMODPE_RVA2TYPE(pvMapping,
|
---|
| 1391 | pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_BASERELOC].VirtualAddress,
|
---|
| 1392 | const IMAGE_BASE_RELOCATION *);
|
---|
| 1393 | while ( cbLeft > sizeof(IMAGE_BASE_RELOCATION)
|
---|
| 1394 | && pBR->SizeOfBlock >= sizeof(IMAGE_BASE_RELOCATION) /* paranoia */)
|
---|
| 1395 | {
|
---|
| 1396 | union
|
---|
| 1397 | {
|
---|
| 1398 | uint8_t *pu8;
|
---|
| 1399 | uint16_t *pu16;
|
---|
| 1400 | uint32_t *pu32;
|
---|
| 1401 | uint64_t *pu64;
|
---|
| 1402 | } uChunk,
|
---|
| 1403 | u;
|
---|
| 1404 | const uint16_t *poffFixup = (const uint16_t *)(pBR + 1);
|
---|
| 1405 | const uint32_t cbBlock = KLDR_MIN(cbLeft, pBR->SizeOfBlock) - sizeof(IMAGE_BASE_RELOCATION); /* more caution... */
|
---|
| 1406 | uint32_t cFixups = cbBlock / sizeof(poffFixup[0]);
|
---|
| 1407 | uChunk.pu8 = KLDRMODPE_RVA2TYPE(pvMapping, pBR->VirtualAddress, uint8_t *);
|
---|
| 1408 |
|
---|
| 1409 | /*
|
---|
| 1410 | * Loop thru the fixups in this chunk.
|
---|
| 1411 | */
|
---|
| 1412 | while (cFixups > 0)
|
---|
| 1413 | {
|
---|
| 1414 | u.pu8 = uChunk.pu8 + (*poffFixup & 0xfff);
|
---|
| 1415 | switch (*poffFixup >> 12) /* ordered by value. */
|
---|
| 1416 | {
|
---|
| 1417 | /* 0 - Alignment placeholder. */
|
---|
| 1418 | case IMAGE_REL_BASED_ABSOLUTE:
|
---|
| 1419 | break;
|
---|
| 1420 |
|
---|
| 1421 | /* 1 - 16-bit, add 2nd 16-bit part of the delta. (rare) */
|
---|
| 1422 | case IMAGE_REL_BASED_HIGH:
|
---|
| 1423 | *u.pu16 += (uint16_t)(Delta >> 16);
|
---|
| 1424 | break;
|
---|
| 1425 |
|
---|
| 1426 | /* 2 - 16-bit, add 1st 16-bit part of the delta. (rare) */
|
---|
| 1427 | case IMAGE_REL_BASED_LOW:
|
---|
| 1428 | *u.pu16 += (uint16_t)Delta;
|
---|
| 1429 | break;
|
---|
| 1430 |
|
---|
| 1431 | /* 3 - 32-bit, add delta. (frequent in 32-bit images) */
|
---|
| 1432 | case IMAGE_REL_BASED_HIGHLOW:
|
---|
| 1433 | *u.pu32 += (uint32_t)Delta;
|
---|
| 1434 | break;
|
---|
| 1435 |
|
---|
| 1436 | /* 4 - 16-bit, add 2nd 16-bit of the delta, sign adjust for the lower 16-bit. one arg. (rare) */
|
---|
| 1437 | case IMAGE_REL_BASED_HIGHADJ:
|
---|
| 1438 | {
|
---|
| 1439 | int32_t i32;
|
---|
| 1440 | if (cFixups <= 1)
|
---|
| 1441 | return KLDR_ERR_PE_BAD_FIXUP;
|
---|
| 1442 |
|
---|
| 1443 | i32 = (uint32_t)*u.pu16 << 16;
|
---|
| 1444 | i32 |= *++poffFixup; cFixups--; /* the addend argument */
|
---|
| 1445 | i32 += (uint32_t)Delta;
|
---|
| 1446 | i32 += 0x8000;
|
---|
| 1447 | *u.pu16 = (uint16_t)(i32 >> 16);
|
---|
| 1448 | break;
|
---|
| 1449 | }
|
---|
| 1450 |
|
---|
| 1451 | /* 5 - 32-bit MIPS JMPADDR, no implemented. */
|
---|
| 1452 | case IMAGE_REL_BASED_MIPS_JMPADDR:
|
---|
[2883] | 1453 | *u.pu32 = (*u.pu32 & 0xc0000000)
|
---|
[2857] | 1454 | | ((uint32_t)((*u.pu32 << 2) + (uint32_t)Delta) >> 2);
|
---|
| 1455 | break;
|
---|
| 1456 |
|
---|
| 1457 | /* 6 - Intra section? Reserved value in later specs. Not implemented. */
|
---|
| 1458 | case IMAGE_REL_BASED_SECTION:
|
---|
| 1459 | KLDRMODPE_ASSERT(!"SECTION");
|
---|
| 1460 | return KLDR_ERR_PE_BAD_FIXUP;
|
---|
| 1461 |
|
---|
| 1462 | /* 7 - Relative intra section? Reserved value in later specs. Not implemented. */
|
---|
| 1463 | case IMAGE_REL_BASED_REL32:
|
---|
| 1464 | KLDRMODPE_ASSERT(!"SECTION");
|
---|
| 1465 | return KLDR_ERR_PE_BAD_FIXUP;
|
---|
| 1466 |
|
---|
| 1467 | /* 8 - reserved according to binutils... */
|
---|
| 1468 | case 8:
|
---|
| 1469 | KLDRMODPE_ASSERT(!"RESERVERED8");
|
---|
| 1470 | return KLDR_ERR_PE_BAD_FIXUP;
|
---|
| 1471 |
|
---|
| 1472 | /* 9 - IA64_IMM64 (/ MIPS_JMPADDR16), no specs nor need to support the platform yet.
|
---|
| 1473 | * Bet this requires more code than all the other fixups put together in good IA64 spirit :-) */
|
---|
| 1474 | case IMAGE_REL_BASED_IA64_IMM64:
|
---|
| 1475 | KLDRMODPE_ASSERT(!"IA64_IMM64 / MIPS_JMPADDR16");
|
---|
| 1476 | return KLDR_ERR_PE_BAD_FIXUP;
|
---|
| 1477 |
|
---|
| 1478 | /* 10 - 64-bit, add delta. (frequently in 64-bit images) */
|
---|
| 1479 | case IMAGE_REL_BASED_DIR64:
|
---|
| 1480 | *u.pu64 += (uint64_t)Delta;
|
---|
| 1481 | break;
|
---|
| 1482 |
|
---|
| 1483 | /* 11 - 16-bit, add 3rd 16-bit of the delta, sign adjust for the lower 32-bit. two args. (rare) */
|
---|
| 1484 | case IMAGE_REL_BASED_HIGH3ADJ:
|
---|
| 1485 | {
|
---|
| 1486 | int64_t i64;
|
---|
| 1487 | if (cFixups <= 2)
|
---|
| 1488 | return KLDR_ERR_PE_BAD_FIXUP;
|
---|
| 1489 |
|
---|
| 1490 | i64 = (uint64_t)*u.pu16 << 32
|
---|
| 1491 | | ((uint32_t)poffFixup[2] << 16)
|
---|
| 1492 | | poffFixup[1];
|
---|
| 1493 | i64 += Delta;
|
---|
| 1494 | i64 += 0x80008000UL;
|
---|
| 1495 | *u.pu16 = (uint16_t)(i64 >> 32);
|
---|
| 1496 | /* skip the addends arguments */
|
---|
| 1497 | poffFixup += 2;
|
---|
| 1498 | cFixups -= 2;
|
---|
| 1499 | break;
|
---|
| 1500 | }
|
---|
| 1501 |
|
---|
| 1502 | /* the rest are yet to be defined.*/
|
---|
| 1503 | default:
|
---|
| 1504 | return KLDR_ERR_PE_BAD_FIXUP;
|
---|
| 1505 | }
|
---|
| 1506 |
|
---|
| 1507 | /*
|
---|
| 1508 | * Next relocation.
|
---|
| 1509 | */
|
---|
| 1510 | poffFixup++;
|
---|
| 1511 | cFixups--;
|
---|
| 1512 | }
|
---|
| 1513 |
|
---|
| 1514 |
|
---|
| 1515 | /*
|
---|
| 1516 | * Next block.
|
---|
| 1517 | */
|
---|
| 1518 | cbLeft -= pBR->SizeOfBlock;
|
---|
| 1519 | pBR = (PIMAGE_BASE_RELOCATION)((uintptr_t)pBR + pBR->SizeOfBlock);
|
---|
| 1520 | }
|
---|
| 1521 |
|
---|
| 1522 | return 0;
|
---|
| 1523 | }
|
---|
| 1524 |
|
---|
| 1525 |
|
---|
| 1526 |
|
---|
| 1527 | /**
|
---|
| 1528 | * Resolves imports.
|
---|
| 1529 | *
|
---|
| 1530 | * @returns 0 on success, non-zero kLdr status code on failure.
|
---|
| 1531 | * @param pModPE The PE module interpreter instance.
|
---|
| 1532 | * @param pvMapping The mapping which imports should be resolved.
|
---|
| 1533 | * @param pfnGetImport The callback for resolving an imported symbol.
|
---|
| 1534 | * @param pvUser User argument to the callback.
|
---|
| 1535 | */
|
---|
| 1536 | static int kldrModPEDoImports(PKLDRMODPE pModPE, void *pvMapping, PFNKLDRMODGETIMPORT pfnGetImport, void *pvUser)
|
---|
| 1537 | {
|
---|
| 1538 | const IMAGE_IMPORT_DESCRIPTOR *pImpDesc;
|
---|
| 1539 |
|
---|
| 1540 | /*
|
---|
| 1541 | * If no imports, there is nothing to do.
|
---|
| 1542 | */
|
---|
| 1543 | kldrModPENumberOfImports(pModPE->pMod, pvMapping);
|
---|
| 1544 | if (!pModPE->cImportModules)
|
---|
| 1545 | return 0;
|
---|
| 1546 |
|
---|
| 1547 | pImpDesc = KLDRMODPE_RVA2TYPE(pvMapping,
|
---|
| 1548 | pModPE->Hdrs.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_IMPORT].VirtualAddress,
|
---|
| 1549 | const IMAGE_IMPORT_DESCRIPTOR *);
|
---|
| 1550 | if (pModPE->Hdrs.FileHeader.SizeOfOptionalHeader == sizeof(IMAGE_OPTIONAL_HEADER32))
|
---|
| 1551 | return kldrModPEDoImports32Bit(pModPE, pvMapping, pImpDesc, pfnGetImport, pvUser);
|
---|
| 1552 | return kldrModPEDoImports64Bit(pModPE, pvMapping, pImpDesc, pfnGetImport, pvUser);
|
---|
| 1553 | }
|
---|
| 1554 |
|
---|
| 1555 |
|
---|
| 1556 | /**
|
---|
| 1557 | * Resolves imports, 32-bit image.
|
---|
| 1558 | *
|
---|
| 1559 | * @returns 0 on success, non-zero kLdr status code on failure.
|
---|
| 1560 | * @param pModPE The PE module interpreter instance.
|
---|
| 1561 | * @param pvMapping The mapping which imports should be resolved.
|
---|
| 1562 | * @param pImpDesc Pointer to the first import descriptor.
|
---|
| 1563 | * @param pfnGetImport The callback for resolving an imported symbol.
|
---|
| 1564 | * @param pvUser User argument to the callback.
|
---|
| 1565 | */
|
---|
| 1566 | static int kldrModPEDoImports32Bit(PKLDRMODPE pModPE, void *pvMapping, const IMAGE_IMPORT_DESCRIPTOR *pImpDesc,
|
---|
| 1567 | PFNKLDRMODGETIMPORT pfnGetImport, void *pvUser)
|
---|
| 1568 | {
|
---|
| 1569 | PKLDRMOD pMod = pModPE->pMod;
|
---|
| 1570 | uint32_t iImp;
|
---|
| 1571 |
|
---|
| 1572 | /*
|
---|
| 1573 | * Iterate the import descriptors.
|
---|
| 1574 | */
|
---|
| 1575 | for (iImp = 0; iImp < pModPE->cImportModules; iImp++, pImpDesc++)
|
---|
| 1576 | {
|
---|
| 1577 | PIMAGE_THUNK_DATA32 pFirstThunk = KLDRMODPE_RVA2TYPE(pvMapping, pImpDesc->FirstThunk, PIMAGE_THUNK_DATA32);
|
---|
| 1578 | const IMAGE_THUNK_DATA32 *pThunk = pImpDesc->u.OriginalFirstThunk
|
---|
| 1579 | ? KLDRMODPE_RVA2TYPE(pvMapping, pImpDesc->u.OriginalFirstThunk, const IMAGE_THUNK_DATA32 *)
|
---|
| 1580 | : KLDRMODPE_RVA2TYPE(pvMapping, pImpDesc->FirstThunk, const IMAGE_THUNK_DATA32 *);
|
---|
| 1581 |
|
---|
| 1582 | /* Iterate the thunks. */
|
---|
| 1583 | while (pThunk->u1.Ordinal != 0)
|
---|
| 1584 | {
|
---|
| 1585 | KLDRADDR Value;
|
---|
[2966] | 1586 | uint32_t fKind = KLDRSYMKIND_REQ_FLAT;
|
---|
[2857] | 1587 | int rc;
|
---|
| 1588 |
|
---|
| 1589 | /* Ordinal or name import? */
|
---|
| 1590 | if (IMAGE_SNAP_BY_ORDINAL32(pThunk->u1.Ordinal))
|
---|
[2891] | 1591 | rc = pfnGetImport(pMod, iImp, IMAGE_ORDINAL32(pThunk->u1.Ordinal), NULL, 0, NULL, &Value, &fKind, pvUser);
|
---|
[2857] | 1592 | else if (KLDRMODPE_VALID_RVA(pModPE, pThunk->u1.Ordinal))
|
---|
[2869] | 1593 | {
|
---|
| 1594 | const IMAGE_IMPORT_BY_NAME *pName = KLDRMODPE_RVA2TYPE(pvMapping, pThunk->u1.Ordinal, const IMAGE_IMPORT_BY_NAME *);
|
---|
[2893] | 1595 | rc = pfnGetImport(pMod, iImp, NIL_KLDRMOD_SYM_ORDINAL, (const char *)pName->Name,
|
---|
[2891] | 1596 | kLdrHlpStrLen((const char *)pName->Name), NULL, &Value, &fKind, pvUser);
|
---|
[2869] | 1597 | }
|
---|
[2857] | 1598 | else
|
---|
| 1599 | {
|
---|
| 1600 | KLDRMODPE_ASSERT(!"bad 32-bit import");
|
---|
| 1601 | return KLDR_ERR_PE_BAD_IMPORT;
|
---|
| 1602 | }
|
---|
[2966] | 1603 | if (rc)
|
---|
| 1604 | return rc;
|
---|
[2857] | 1605 |
|
---|
| 1606 | /* Apply it. */
|
---|
| 1607 | pFirstThunk->u1.Function = (uint32_t)Value;
|
---|
| 1608 | if (pFirstThunk->u1.Function != Value)
|
---|
| 1609 | {
|
---|
| 1610 | KLDRMODPE_ASSERT(!"overflow");
|
---|
| 1611 | return KLDR_ERR_ADDRESS_OVERFLOW;
|
---|
| 1612 | }
|
---|
| 1613 |
|
---|
| 1614 | /* next */
|
---|
| 1615 | pThunk++;
|
---|
| 1616 | pFirstThunk++;
|
---|
| 1617 | }
|
---|
| 1618 | }
|
---|
| 1619 |
|
---|
| 1620 | return 0;
|
---|
| 1621 | }
|
---|
| 1622 |
|
---|
| 1623 |
|
---|
| 1624 | /**
|
---|
| 1625 | * Resolves imports, 64-bit image.
|
---|
| 1626 | *
|
---|
| 1627 | * @returns 0 on success, non-zero kLdr status code on failure.
|
---|
| 1628 | * @param pModPE The PE module interpreter instance.
|
---|
| 1629 | * @param pvMapping The mapping which imports should be resolved.
|
---|
| 1630 | * @param pImpDesc Pointer to the first import descriptor.
|
---|
| 1631 | * @param pfnGetImport The callback for resolving an imported symbol.
|
---|
| 1632 | * @param pvUser User argument to the callback.
|
---|
| 1633 | */
|
---|
| 1634 | static int kldrModPEDoImports64Bit(PKLDRMODPE pModPE, void *pvMapping, const IMAGE_IMPORT_DESCRIPTOR *pImpDesc,
|
---|
| 1635 | PFNKLDRMODGETIMPORT pfnGetImport, void *pvUser)
|
---|
| 1636 | {
|
---|
| 1637 | PKLDRMOD pMod = pModPE->pMod;
|
---|
| 1638 | uint32_t iImp;
|
---|
| 1639 |
|
---|
| 1640 | /*
|
---|
| 1641 | * Iterate the import descriptors.
|
---|
| 1642 | */
|
---|
| 1643 | for (iImp = 0; iImp < pModPE->cImportModules; iImp++, pImpDesc++)
|
---|
| 1644 | {
|
---|
| 1645 | PIMAGE_THUNK_DATA64 pFirstThunk = KLDRMODPE_RVA2TYPE(pvMapping, pImpDesc->FirstThunk, PIMAGE_THUNK_DATA64);
|
---|
| 1646 | const IMAGE_THUNK_DATA64 *pThunk = pImpDesc->u.OriginalFirstThunk
|
---|
| 1647 | ? KLDRMODPE_RVA2TYPE(pvMapping, pImpDesc->u.OriginalFirstThunk, const IMAGE_THUNK_DATA64 *)
|
---|
| 1648 | : KLDRMODPE_RVA2TYPE(pvMapping, pImpDesc->FirstThunk, const IMAGE_THUNK_DATA64 *);
|
---|
| 1649 |
|
---|
| 1650 | /* Iterate the thunks. */
|
---|
| 1651 | while (pThunk->u1.Ordinal != 0)
|
---|
| 1652 | {
|
---|
| 1653 | KLDRADDR Value;
|
---|
[2966] | 1654 | uint32_t fKind = KLDRSYMKIND_REQ_FLAT;
|
---|
[2857] | 1655 | int rc;
|
---|
| 1656 |
|
---|
| 1657 | /* Ordinal or name import? */
|
---|
| 1658 | if (IMAGE_SNAP_BY_ORDINAL64(pThunk->u1.Ordinal))
|
---|
[2891] | 1659 | rc = pfnGetImport(pMod, iImp, (uint32_t)IMAGE_ORDINAL64(pThunk->u1.Ordinal), NULL, 0, NULL, &Value, &fKind, pvUser);
|
---|
[2857] | 1660 | else if (KLDRMODPE_VALID_RVA(pModPE, pThunk->u1.Ordinal))
|
---|
[2891] | 1661 | {
|
---|
| 1662 | const IMAGE_IMPORT_BY_NAME *pName = KLDRMODPE_RVA2TYPE(pvMapping, pThunk->u1.Ordinal, const IMAGE_IMPORT_BY_NAME *);
|
---|
[2893] | 1663 | rc = pfnGetImport(pMod, iImp, NIL_KLDRMOD_SYM_ORDINAL, (const char *)pName->Name,
|
---|
[2891] | 1664 | kLdrHlpStrLen((const char *)pName->Name), NULL, &Value, &fKind, pvUser);
|
---|
| 1665 | }
|
---|
[2857] | 1666 | else
|
---|
| 1667 | {
|
---|
| 1668 | KLDRMODPE_ASSERT(!"bad 64-bit import");
|
---|
| 1669 | return KLDR_ERR_PE_BAD_IMPORT;
|
---|
| 1670 | }
|
---|
[2966] | 1671 | if (rc)
|
---|
| 1672 | return rc;
|
---|
[2857] | 1673 |
|
---|
| 1674 | /* Apply it. */
|
---|
| 1675 | pFirstThunk->u1.Function = Value;
|
---|
| 1676 |
|
---|
| 1677 | /* next */
|
---|
| 1678 | pThunk++;
|
---|
| 1679 | pFirstThunk++;
|
---|
| 1680 | }
|
---|
| 1681 | }
|
---|
| 1682 |
|
---|
| 1683 | return 0;
|
---|
| 1684 | }
|
---|
| 1685 |
|
---|
| 1686 |
|
---|
| 1687 |
|
---|
[2854] | 1688 | /** @copydoc kLdrModCallInit */
|
---|
[2856] | 1689 | static int kldrModPECallInit(PKLDRMOD pMod, uintptr_t uHandle)
|
---|
| 1690 | {
|
---|
| 1691 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1692 | int rc;
|
---|
| 1693 |
|
---|
| 1694 | /*
|
---|
| 1695 | * Mapped?
|
---|
| 1696 | */
|
---|
| 1697 | if (!pModPE->pvMapping)
|
---|
| 1698 | return KLDR_ERR_NOT_MAPPED;
|
---|
| 1699 |
|
---|
| 1700 | /*
|
---|
| 1701 | * Do TLS callbacks first and then call the init/term function if it's a DLL.
|
---|
| 1702 | */
|
---|
| 1703 | rc = kldrModPEDoCallTLS(pModPE, DLL_PROCESS_ATTACH, uHandle);
|
---|
| 1704 | if ( !rc
|
---|
| 1705 | && (pModPE->Hdrs.FileHeader.Characteristics & IMAGE_FILE_DLL))
|
---|
| 1706 | {
|
---|
| 1707 | rc = kldrModPEDoCallDLL(pModPE, DLL_PROCESS_ATTACH, uHandle);
|
---|
| 1708 | if (rc)
|
---|
| 1709 | kldrModPEDoCallTLS(pModPE, DLL_PROCESS_DETACH, uHandle);
|
---|
| 1710 | }
|
---|
| 1711 |
|
---|
| 1712 | return rc;
|
---|
| 1713 | }
|
---|
| 1714 |
|
---|
| 1715 |
|
---|
[2857] | 1716 | /**
|
---|
| 1717 | * Call the DLL entrypoint.
|
---|
| 1718 | *
|
---|
| 1719 | * @returns 0 on success.
|
---|
| 1720 | * @returns KLDR_ERR_MODULE_INIT_FAILED or KLDR_ERR_THREAD_ATTACH_FAILED on failure.
|
---|
| 1721 | * @param pModPE The PE module interpreter instance.
|
---|
| 1722 | * @param uOp The operation (DLL_*).
|
---|
| 1723 | * @param uHandle The module handle to present.
|
---|
| 1724 | */
|
---|
| 1725 | static int kldrModPEDoCallDLL(PKLDRMODPE pModPE, unsigned uOp, uintptr_t uHandle)
|
---|
| 1726 | {
|
---|
| 1727 | int rc;
|
---|
| 1728 |
|
---|
| 1729 | /*
|
---|
| 1730 | * If no entrypoint there isn't anything to be done.
|
---|
| 1731 | */
|
---|
| 1732 | if (!pModPE->Hdrs.OptionalHeader.AddressOfEntryPoint)
|
---|
| 1733 | return 0;
|
---|
| 1734 |
|
---|
| 1735 | /*
|
---|
| 1736 | * Invoke the entrypoint and convert the boolean result to a kLdr status code.
|
---|
| 1737 | */
|
---|
| 1738 | rc = kldrModPEDoCall((uintptr_t)pModPE->pvMapping + pModPE->Hdrs.OptionalHeader.AddressOfEntryPoint,
|
---|
| 1739 | uHandle, uOp, NULL);
|
---|
| 1740 | if (rc)
|
---|
| 1741 | rc = 0;
|
---|
| 1742 | else if (uOp == DLL_PROCESS_ATTACH)
|
---|
| 1743 | rc = KLDR_ERR_MODULE_INIT_FAILED;
|
---|
| 1744 | else if (uOp == DLL_THREAD_ATTACH)
|
---|
| 1745 | rc = KLDR_ERR_THREAD_ATTACH_FAILED;
|
---|
| 1746 | else /* detach: ignore failures */
|
---|
| 1747 | rc = 0;
|
---|
| 1748 | return rc;
|
---|
| 1749 | }
|
---|
| 1750 |
|
---|
| 1751 |
|
---|
| 1752 | /**
|
---|
| 1753 | * Call the TLS entrypoints.
|
---|
| 1754 | *
|
---|
| 1755 | * @returns 0 on success.
|
---|
| 1756 | * @returns KLDR_ERR_THREAD_ATTACH_FAILED on failure.
|
---|
| 1757 | * @param pModPE The PE module interpreter instance.
|
---|
| 1758 | * @param uOp The operation (DLL_*).
|
---|
| 1759 | * @param uHandle The module handle to present.
|
---|
| 1760 | */
|
---|
| 1761 | static int kldrModPEDoCallTLS(PKLDRMODPE pModPE, unsigned uOp, uintptr_t uHandle)
|
---|
| 1762 | {
|
---|
| 1763 | /** @todo implement TLS support. */
|
---|
| 1764 | return 0;
|
---|
| 1765 | }
|
---|
| 1766 |
|
---|
| 1767 |
|
---|
| 1768 | /**
|
---|
| 1769 | * Do a 3 parameter callback.
|
---|
| 1770 | *
|
---|
| 1771 | * @returns 32-bit callback return.
|
---|
| 1772 | * @param uEntrypoint The address of the function to be called.
|
---|
| 1773 | * @param uHandle The first argument, the module handle.
|
---|
| 1774 | * @param uOp The second argumnet, the reason we're calling.
|
---|
| 1775 | * @param pvReserved The third argument, reserved argument. (figure this one out)
|
---|
| 1776 | */
|
---|
| 1777 | static int32_t kldrModPEDoCall(uintptr_t uEntrypoint, uintptr_t uHandle, uint32_t uOp, void *pvReserved)
|
---|
| 1778 | {
|
---|
| 1779 | int32_t rc;
|
---|
| 1780 |
|
---|
| 1781 | /** @todo try/except */
|
---|
| 1782 | #if defined(__X86__) || defined(__i386__) || defined(_M_IX86)
|
---|
| 1783 | /*
|
---|
| 1784 | * Be very careful.
|
---|
| 1785 | * Not everyone will have got the calling convention right.
|
---|
| 1786 | */
|
---|
| 1787 | # ifdef __GNUC__
|
---|
| 1788 | __asm__ __volatile__(
|
---|
| 1789 | "pushl %2\n\t"
|
---|
| 1790 | "pushl %1\n\t"
|
---|
| 1791 | "pushl %0\n\t"
|
---|
| 1792 | "lea 12(%%esp), %2\n\t"
|
---|
| 1793 | "call *%3\n\t"
|
---|
| 1794 | "movl %2, %%esp\n\t"
|
---|
| 1795 | : "=a" (rc)
|
---|
| 1796 | : "d" (uOp),
|
---|
| 1797 | "S" (0),
|
---|
| 1798 | "c" (uEntrypoint),
|
---|
| 1799 | "0" (uHandle));
|
---|
| 1800 | # elif defined(_MSC_VER)
|
---|
| 1801 | __asm {
|
---|
| 1802 | mov eax, [uHandle]
|
---|
| 1803 | mov edx, [uOp]
|
---|
| 1804 | mov ecx, 0
|
---|
| 1805 | mov ebx, [uEntrypoint]
|
---|
| 1806 | push edi
|
---|
| 1807 | mov edi, esp
|
---|
| 1808 | push ecx
|
---|
| 1809 | push edx
|
---|
| 1810 | push eax
|
---|
| 1811 | call ebx
|
---|
| 1812 | mov esp, edi
|
---|
| 1813 | pop edi
|
---|
| 1814 | mov [rc], eax
|
---|
| 1815 | }
|
---|
| 1816 | # else
|
---|
| 1817 | # error "port me!"
|
---|
| 1818 | # endif
|
---|
| 1819 |
|
---|
| 1820 | #elif defined(__AMD64__) || defined(__x86_64__) || defined(_M_IX86)
|
---|
| 1821 | /*
|
---|
| 1822 | * For now, let's just get the work done...
|
---|
| 1823 | */
|
---|
| 1824 | /** @todo Deal with GCC / MSC differences in some sensible way. */
|
---|
| 1825 | int (*pfn)(uintptr_t uHandle, uint32_t uOp, void *pvReserved);
|
---|
| 1826 | pfn = (int (*)(uintptr_t uHandle, uint32_t uOp, void *pvReserved))uEntrypoint;
|
---|
| 1827 | rc = pfn(uHandle, uOp, NULL);
|
---|
| 1828 |
|
---|
| 1829 | #else
|
---|
| 1830 | # error "port me"
|
---|
| 1831 | #endif
|
---|
| 1832 |
|
---|
| 1833 | return rc;
|
---|
| 1834 | }
|
---|
| 1835 |
|
---|
| 1836 |
|
---|
[2854] | 1837 | /** @copydoc kLdrModCallTerm */
|
---|
[2856] | 1838 | static int kldrModPECallTerm(PKLDRMOD pMod, uintptr_t uHandle)
|
---|
| 1839 | {
|
---|
| 1840 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1841 |
|
---|
| 1842 | /*
|
---|
| 1843 | * Mapped?
|
---|
| 1844 | */
|
---|
| 1845 | if (!pModPE->pvMapping)
|
---|
| 1846 | return KLDR_ERR_NOT_MAPPED;
|
---|
| 1847 |
|
---|
| 1848 | /*
|
---|
| 1849 | * Do TLS callbacks first.
|
---|
| 1850 | */
|
---|
| 1851 | kldrModPEDoCallTLS(pModPE, DLL_PROCESS_DETACH, uHandle);
|
---|
| 1852 | if (pModPE->Hdrs.FileHeader.Characteristics & IMAGE_FILE_DLL)
|
---|
| 1853 | kldrModPEDoCallDLL(pModPE, DLL_PROCESS_DETACH, uHandle);
|
---|
| 1854 |
|
---|
| 1855 | return 0;
|
---|
| 1856 | }
|
---|
| 1857 |
|
---|
| 1858 |
|
---|
[2854] | 1859 | /** @copydoc kLdrModCallThread */
|
---|
[2856] | 1860 | static int kldrModPECallThread(PKLDRMOD pMod, uintptr_t uHandle, unsigned fAttachingOrDetaching)
|
---|
| 1861 | {
|
---|
| 1862 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1863 | unsigned uOp = fAttachingOrDetaching ? DLL_THREAD_ATTACH : DLL_THREAD_DETACH;
|
---|
| 1864 | int rc;
|
---|
| 1865 |
|
---|
| 1866 | /*
|
---|
| 1867 | * Do TLS callbacks first and then call the init/term function if it's a DLL.
|
---|
| 1868 | */
|
---|
| 1869 | rc = kldrModPEDoCallTLS(pModPE, uOp, uHandle);
|
---|
| 1870 | if (!fAttachingOrDetaching)
|
---|
| 1871 | rc = 0;
|
---|
| 1872 | if ( !rc
|
---|
| 1873 | && (pModPE->Hdrs.FileHeader.Characteristics & IMAGE_FILE_DLL))
|
---|
| 1874 | {
|
---|
| 1875 | rc = kldrModPEDoCallDLL(pModPE, uOp, uHandle);
|
---|
| 1876 | if (!fAttachingOrDetaching)
|
---|
| 1877 | rc = 0;
|
---|
| 1878 | if (rc)
|
---|
| 1879 | kldrModPEDoCallTLS(pModPE, uOp, uHandle);
|
---|
| 1880 | }
|
---|
| 1881 |
|
---|
| 1882 | return rc;
|
---|
| 1883 | }
|
---|
| 1884 |
|
---|
| 1885 |
|
---|
[2854] | 1886 | /** @copydoc kLdrModSize */
|
---|
[2856] | 1887 | static KLDRADDR kldrModPESize(PKLDRMOD pMod)
|
---|
| 1888 | {
|
---|
| 1889 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1890 | return pModPE->Hdrs.OptionalHeader.SizeOfImage;
|
---|
| 1891 | }
|
---|
| 1892 |
|
---|
| 1893 |
|
---|
[2854] | 1894 | /** @copydoc kLdrModGetBits */
|
---|
[2856] | 1895 | static int kldrModPEGetBits(PKLDRMOD pMod, void *pvBits, KLDRADDR BaseAddress, PFNKLDRMODGETIMPORT pfnGetImport, void *pvUser)
|
---|
| 1896 | {
|
---|
| 1897 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1898 | uint32_t i;
|
---|
| 1899 | int rc;
|
---|
| 1900 |
|
---|
| 1901 | /*
|
---|
[2857] | 1902 | * Zero the entire buffer first to simplify things.
|
---|
| 1903 | */
|
---|
| 1904 | kLdrHlpMemSet(pvBits, 0, pModPE->Hdrs.OptionalHeader.SizeOfImage);
|
---|
| 1905 |
|
---|
| 1906 | /*
|
---|
[2856] | 1907 | * Iterate the segments and read the data within them.
|
---|
| 1908 | */
|
---|
| 1909 | for (i = 0; i < pMod->cSegments; i++)
|
---|
| 1910 | {
|
---|
[2857] | 1911 | /* skip it? */
|
---|
| 1912 | if ( pMod->aSegments[i].cbFile == -1
|
---|
| 1913 | || pMod->aSegments[i].offFile == -1
|
---|
| 1914 | || pMod->aSegments[i].LinkAddress == NIL_KLDRADDR
|
---|
| 1915 | || !pMod->aSegments[i].Alignment)
|
---|
| 1916 | continue;
|
---|
| 1917 | rc = kLdrRdrRead(pMod->pRdr,
|
---|
| 1918 | (uint8_t *)pvBits + (pMod->aSegments[i].LinkAddress - pModPE->Hdrs.OptionalHeader.ImageBase),
|
---|
| 1919 | pMod->aSegments[i].cbFile,
|
---|
| 1920 | pMod->aSegments[i].offFile);
|
---|
| 1921 | if (rc)
|
---|
| 1922 | return rc;
|
---|
[2856] | 1923 | }
|
---|
| 1924 |
|
---|
| 1925 | /*
|
---|
| 1926 | * Perform relocations.
|
---|
| 1927 | */
|
---|
| 1928 | return kldrModPERelocateBits(pMod, pvBits, BaseAddress, pModPE->Hdrs.OptionalHeader.ImageBase, pfnGetImport, pvUser);
|
---|
| 1929 |
|
---|
| 1930 | }
|
---|
| 1931 |
|
---|
| 1932 |
|
---|
[2854] | 1933 | /** @copydoc kLdrModRelocateBits */
|
---|
[2856] | 1934 | static int kldrModPERelocateBits(PKLDRMOD pMod, void *pvBits, KLDRADDR NewBaseAddress, KLDRADDR OldBaseAddress,
|
---|
| 1935 | PFNKLDRMODGETIMPORT pfnGetImport, void *pvUser)
|
---|
| 1936 | {
|
---|
| 1937 | PKLDRMODPE pModPE = (PKLDRMODPE)pMod->pvData;
|
---|
| 1938 | int rc;
|
---|
[2854] | 1939 |
|
---|
[2856] | 1940 | /*
|
---|
| 1941 | * Call workers to do the jobs.
|
---|
| 1942 | */
|
---|
| 1943 | rc = kldrModPEDoFixups(pModPE, pvBits, NewBaseAddress, OldBaseAddress);
|
---|
| 1944 | if (!rc)
|
---|
| 1945 | rc = kldrModPEDoImports(pModPE, pvBits, pfnGetImport, pvUser);
|
---|
| 1946 |
|
---|
| 1947 | return rc;
|
---|
| 1948 | }
|
---|
| 1949 |
|
---|
[2858] | 1950 |
|
---|
| 1951 | /**
|
---|
| 1952 | * The PE module interpreter method table.
|
---|
| 1953 | */
|
---|
| 1954 | KLDRMODOPS g_kLdrModPEOps =
|
---|
| 1955 | {
|
---|
| 1956 | "PE",
|
---|
| 1957 | NULL,
|
---|
| 1958 | kldrModPECreate,
|
---|
| 1959 | kldrModPEDestroy,
|
---|
| 1960 | kldrModPEQuerySymbol,
|
---|
| 1961 | kldrModPEEnumSymbols,
|
---|
| 1962 | kldrModPEGetImport,
|
---|
| 1963 | kldrModPENumberOfImports,
|
---|
| 1964 | NULL /* can execute one is optional */,
|
---|
| 1965 | kldrModPEGetStackInfo,
|
---|
| 1966 | kldrModPEQueryMainEntrypoint,
|
---|
[2891] | 1967 | NULL, /** @todo resources */
|
---|
| 1968 | NULL, /** @todo resources */
|
---|
[2858] | 1969 | kldrModPEEnumDbgInfo,
|
---|
| 1970 | kldrModPEHasDbgInfo,
|
---|
| 1971 | kldrModPEMap,
|
---|
| 1972 | kldrModPEUnmap,
|
---|
| 1973 | kldrModPEAllocTLS,
|
---|
| 1974 | kldrModPEFreeTLS,
|
---|
| 1975 | kldrModPEReload,
|
---|
| 1976 | kldrModPEFixupMapping,
|
---|
| 1977 | kldrModPECallInit,
|
---|
| 1978 | kldrModPECallTerm,
|
---|
| 1979 | kldrModPECallThread,
|
---|
| 1980 | kldrModPESize,
|
---|
| 1981 | kldrModPEGetBits,
|
---|
| 1982 | kldrModPERelocateBits,
|
---|
[2891] | 1983 | NULL, /** @todo mostly done */
|
---|
[2858] | 1984 | 42 /* the end */
|
---|
| 1985 | };
|
---|