annotate dynload/dynload_syms_pe.c @ 357:d982a00c2177

- PPC64 asm syntax fix, specifying explicitly comparison mode for cmpi (newer toolchains complain, older ones took optional field of instruction which happened to be same value)
author Tassilo Philipp
date Tue, 25 Feb 2020 18:16:13 +0100
parents f5577f6bf97a
children a29af998e457
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
1 /*
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
2
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
3 Package: dyncall
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
4 Library: dynload
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
5 File: dynload/dynload_syms_pe.c
281
f5577f6bf97a - file header cleanups for release
Tassilo Philipp
parents: 230
diff changeset
6 Description:
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
7 License:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
8
281
f5577f6bf97a - file header cleanups for release
Tassilo Philipp
parents: 230
diff changeset
9 Copyright (c) 2007-2018 Daniel Adler <dadler@uni-goettingen.de>,
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
10 Tassilo Philipp <tphilipp@potion-studios.com>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
11 Olivier Chafik <olivier.chafik@gmail.com>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
12
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
13 Permission to use, copy, modify, and distribute this software for any
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
14 purpose with or without fee is hereby granted, provided that the above
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
15 copyright notice and this permission notice appear in all copies.
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
16
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
17 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
18 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
19 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
20 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
21 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
22 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
23 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
24
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
25 */
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
26
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
27
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
28
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
29 #include "dynload.h"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
30 #include "dynload_alloc.h"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
31
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
32 #include <windows.h>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
33
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
34 struct DLSyms_
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
35 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
36 DLLib* pLib;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
37 const char* pBase;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
38 const DWORD* pNames;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
39 const DWORD* pFuncs;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
40 const unsigned short* pOrds;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
41 size_t count;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
42 };
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
43
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
44
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
45 DLSyms* dlSymsInit(const char* libPath)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
46 {
230
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
47 DLLib* pLib;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
48 DLSyms* pSyms;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
49 IMAGE_DOS_HEADER* pDOSHeader;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
50 IMAGE_NT_HEADERS* pNTHeader;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
51 IMAGE_DATA_DIRECTORY* pExportsDataDir;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
52 IMAGE_EXPORT_DIRECTORY* pExports;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
53 const char* base;
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
54
230
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
55 pLib = dlLoadLibrary(libPath);
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
56 if(!pLib)
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
57 return NULL;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
58
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
59 base = (const char*)pLib;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
60 pDOSHeader = (IMAGE_DOS_HEADER*)base;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
61 pNTHeader = (IMAGE_NT_HEADERS*)(base + pDOSHeader->e_lfanew);
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
62 pExportsDataDir = &pNTHeader->OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT];
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
63 pExports = (IMAGE_EXPORT_DIRECTORY*)(base + pExportsDataDir->VirtualAddress);
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
64
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
65 pSyms = (DLSyms*)dlAllocMem(sizeof(DLSyms));
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
66 pSyms->pBase = base;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
67 pSyms->pNames = (DWORD*)(base + pExports->AddressOfNames);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
68 pSyms->pFuncs = (DWORD*)(base + pExports->AddressOfFunctions);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
69 pSyms->pOrds = (unsigned short*)(base + pExports->AddressOfNameOrdinals);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
70 pSyms->count = (size_t)pExports->NumberOfNames;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
71 pSyms->pLib = pLib;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
72
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
73 return pSyms;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
74 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
75
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
76
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
77 void dlSymsCleanup(DLSyms* pSyms)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
78 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
79 if(pSyms) {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
80 dlFreeLibrary(pSyms->pLib);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
81 dlFreeMem(pSyms);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
82 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
83 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
84
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
85
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
86 int dlSymsCount(DLSyms* pSyms)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
87 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
88 return (int)pSyms->count;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
89 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
90
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
91
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
92 const char* dlSymsName(DLSyms* pSyms, int index)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
93 {
230
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
94 return pSyms->pBase + pSyms->pNames[index];
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
95 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
96
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
97
230
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
98 const char* dlSymsNameFromValue(DLSyms* pSyms, void* value)
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
99 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
100 int i, c=dlSymsCount(pSyms);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
101 for(i=0; i<c; ++i)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
102 {
230
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
103 if((void*)(pSyms->pBase + pSyms->pFuncs[pSyms->pOrds[i]]) == value)
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
104 return dlSymsName(pSyms, i);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
105 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
106
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
107 /* Not found. */
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
108 return NULL;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
109 }
230
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
110