VirtualBox

source: vbox/trunk/src/VBox/Runtime/testcase/tstLdr.cpp@ 53401

Last change on this file since 53401 was 52213, checked in by vboxsync, 10 years ago

SUP,IPRT: Implemented forwarder support in RTLdr and cleaned up some the ordinal mess. Resolved imports when doing the process verification/purification runs other than SUPHARDNTVPKIND_CHILD_PURIFICATION. This is necessary since 32-bit windows combine .text with .rdata, and we don't want to overwrite the import table after it has been snapped. Include read-only sections in the verfication runs.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id Revision
File size: 12.4 KB
Line 
1/* $Id: tstLdr.cpp 52213 2014-07-28 17:52:58Z vboxsync $ */
2/** @file
3 * IPRT - Testcase for parts of RTLdr*.
4 */
5
6/*
7 * Copyright (C) 2006-2012 Oracle Corporation
8 *
9 * This file is part of VirtualBox Open Source Edition (OSE), as
10 * available from http://www.virtualbox.org. This file is free software;
11 * you can redistribute it and/or modify it under the terms of the GNU
12 * General Public License (GPL) as published by the Free Software
13 * Foundation, in version 2 as it comes in the "COPYING" file of the
14 * VirtualBox OSE distribution. VirtualBox OSE is distributed in the
15 * hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.
16 *
17 * The contents of this file may alternatively be used under the terms
18 * of the Common Development and Distribution License Version 1.0
19 * (CDDL) only, as it comes in the "COPYING.CDDL" file of the
20 * VirtualBox OSE distribution, in which case the provisions of the
21 * CDDL are applicable instead of those of the GPL.
22 *
23 * You may elect to license modified versions of this file under the
24 * terms and conditions of either the GPL or the CDDL or both.
25 */
26
27
28/*******************************************************************************
29* Header Files *
30*******************************************************************************/
31#include <iprt/ldr.h>
32#include <iprt/alloc.h>
33#include <iprt/stream.h>
34#include <iprt/assert.h>
35#include <iprt/initterm.h>
36#include <iprt/err.h>
37#include <iprt/string.h>
38
39
40/*******************************************************************************
41* Global Variables *
42*******************************************************************************/
43/** If set, don't bitch when failing to resolve symbols. */
44static bool g_fDontBitchOnResolveFailure = false;
45/** Whether it's kernel model code or not.. */
46static bool g_fKernel = true;
47/** Module architecture bit count. */
48static uint32_t g_cBits = HC_ARCH_BITS;
49
50
51/**
52 * Resolve an external symbol during RTLdrGetBits().
53 *
54 * @returns iprt status code.
55 * @param hLdrMod The loader module handle.
56 * @param pszModule Module name.
57 * @param pszSymbol Symbol name, NULL if uSymbol should be used.
58 * @param uSymbol Symbol ordinal, ~0 if pszSymbol should be used.
59 * @param pValue Where to store the symbol value (address).
60 * @param pvUser User argument.
61 */
62static DECLCALLBACK(int) testGetImport(RTLDRMOD hLdrMod, const char *pszModule, const char *pszSymbol, unsigned uSymbol, RTUINTPTR *pValue, void *pvUser)
63{
64 /* check the name format and only permit certain names... later, right? */
65
66 if (g_cBits == 32)
67 *pValue = 0xabcdef0f;
68 else
69 {
70 RTUINTPTR BaseAddr = *(PCRTUINTPTR)pvUser;
71 if (g_fKernel)
72 *pValue = BaseAddr & RT_BIT(31) ? -(int32_t)0x76634935 : 0x7f304938;
73 else
74 *pValue = (int32_t)0x76634935 * ((BaseAddr >> 8) & 7);
75 }
76 return VINF_SUCCESS;
77}
78
79
80/**
81 * One test iteration with one file.
82 *
83 * The test is very simple, we load the file three times
84 * into two different regions. The first two into each of the
85 * regions the for compare usage. The third is loaded into one
86 * and then relocated between the two and other locations a few times.
87 *
88 * @returns number of errors.
89 * @param pszFilename The file to load the mess with.
90 */
91static int testLdrOne(const char *pszFilename)
92{
93 int rcRet = 0;
94 size_t cbImage = 0;
95 struct Load
96 {
97 RTLDRMOD hLdrMod;
98 void *pvBits;
99 RTUINTPTR Addr;
100 const char *pszName;
101 } aLoads[6] =
102 {
103 { NULL, NULL, (RTUINTPTR)0xefefef00, "foo" },
104 { NULL, NULL, (RTUINTPTR)0x40404040, "bar" },
105 { NULL, NULL, (RTUINTPTR)0xefefef00, "foobar" },
106 { NULL, NULL, (RTUINTPTR)0xefefef00, "kLdr-foo" },
107 { NULL, NULL, (RTUINTPTR)0x40404040, "kLdr-bar" },
108 { NULL, NULL, (RTUINTPTR)0xefefef00, "kLdr-foobar" }
109 };
110 unsigned i;
111
112 /*
113 * Load them.
114 */
115 for (i = 0; i < RT_ELEMENTS(aLoads); i++)
116 {
117 /* adjust load address and announce our intentions */
118 if (g_cBits == 32)
119 aLoads[i].Addr &= UINT32_C(0xffffffff);
120 RTPrintf("tstLdr: Loading image at %RTptr\n", aLoads[i].Addr);
121
122 /* open it */
123 int rc;
124 if (!strncmp(aLoads[i].pszName, RT_STR_TUPLE("kLdr-")))
125 rc = RTLdrOpenkLdr(pszFilename, 0, RTLDRARCH_WHATEVER, &aLoads[i].hLdrMod);
126 else
127 rc = RTLdrOpen(pszFilename, 0, RTLDRARCH_WHATEVER, &aLoads[i].hLdrMod);
128 if (RT_FAILURE(rc))
129 {
130 RTPrintf("tstLdr: Failed to open '%s'/%d, rc=%Rrc. aborting test.\n", pszFilename, i, rc);
131 Assert(aLoads[i].hLdrMod == NIL_RTLDRMOD);
132 rcRet++;
133 break;
134 }
135
136 /* size it */
137 size_t cb = RTLdrSize(aLoads[i].hLdrMod);
138 if (cbImage && cb != cbImage)
139 {
140 RTPrintf("tstLdr: Size mismatch '%s'/%d. aborting test.\n", pszFilename, i);
141 rcRet++;
142 break;
143 }
144 cbImage = cb;
145
146 /* Allocate bits. */
147 aLoads[i].pvBits = RTMemAlloc(cb);
148 if (!aLoads[i].pvBits)
149 {
150 RTPrintf("tstLdr: Out of memory '%s'/%d cbImage=%d. aborting test.\n", pszFilename, i, cbImage);
151 rcRet++;
152 break;
153 }
154
155 /* Get the bits. */
156 rc = RTLdrGetBits(aLoads[i].hLdrMod, aLoads[i].pvBits, aLoads[i].Addr, testGetImport, &aLoads[i].Addr);
157 if (RT_FAILURE(rc))
158 {
159 RTPrintf("tstLdr: Failed to get bits for '%s'/%d, rc=%Rrc. aborting test\n", pszFilename, i, rc);
160 rcRet++;
161 break;
162 }
163 }
164
165 /*
166 * Continue with the relocations and symbol resolving.
167 */
168 if (!rcRet)
169 {
170 static RTUINTPTR aRels[] =
171 {
172 (RTUINTPTR)0xefefef00, /* same. */
173 (RTUINTPTR)0x40404040, /* the other. */
174 (RTUINTPTR)0xefefef00, /* back. */
175 (RTUINTPTR)0x40404040, /* the other. */
176 (RTUINTPTR)0xefefef00, /* back again. */
177 (RTUINTPTR)0x77773420, /* somewhere entirely else. */
178 (RTUINTPTR)0xf0000000, /* somewhere entirely else. */
179 (RTUINTPTR)0x40404040, /* the other. */
180 (RTUINTPTR)0xefefef00 /* back again. */
181 };
182 struct Symbols
183 {
184 /** The symbol offset. -1 indicates the first time. */
185 unsigned off;
186 /** The symbol name. */
187 const char *pszName;
188 } aSyms[] =
189 {
190 { ~0U, "Entrypoint" },
191 { ~0U, "SomeExportFunction1" },
192 { ~0U, "SomeExportFunction2" },
193 { ~0U, "SomeExportFunction3" },
194 { ~0U, "SomeExportFunction4" },
195 { ~0U, "SomeExportFunction5" },
196 { ~0U, "SomeExportFunction5" },
197 { ~0U, "DISCoreOne" }
198 };
199
200 unsigned iRel = 0;
201 for (;;)
202 {
203 /* Compare all which are at the same address. */
204 for (i = 0; i < RT_ELEMENTS(aLoads) - 1; i++)
205 {
206 for (unsigned j = i + 1; j < RT_ELEMENTS(aLoads); j++)
207 {
208 if (aLoads[j].Addr == aLoads[i].Addr)
209 {
210 if (memcmp(aLoads[j].pvBits, aLoads[i].pvBits, cbImage))
211 {
212 RTPrintf("tstLdr: Mismatch between load %d and %d. ('%s')\n", j, i, pszFilename);
213#if 1
214 const uint8_t *pu8J = (const uint8_t *)aLoads[j].pvBits;
215 const uint8_t *pu8I = (const uint8_t *)aLoads[i].pvBits;
216 for (uint32_t off = 0; off < cbImage; off++, pu8J++, pu8I++)
217 if (*pu8J != *pu8I)
218 RTPrintf(" %08x %02x != %02x\n", off, *pu8J, *pu8I);
219#else
220 const uint32_t *pu32J = (const uint32_t *)aLoads[j].pvBits;
221 const uint32_t *pu32I = (const uint32_t *)aLoads[i].pvBits;
222 for (uint32_t off = 0; off < cbImage; off += 4, pu32J++, pu32I++)
223 if (*pu32J != *pu32I)
224 RTPrintf(" %08x %08x != %08x\n", off, *pu32J, *pu32I);
225#endif
226 rcRet++;
227 break;
228 }
229 }
230 }
231 }
232
233 /* compare symbols. */
234 for (i = 0; i < RT_ELEMENTS(aLoads); i++)
235 {
236 for (unsigned iSym = 0; iSym < RT_ELEMENTS(aSyms); iSym++)
237 {
238 RTUINTPTR Value;
239 int rc = RTLdrGetSymbolEx(aLoads[i].hLdrMod, aLoads[i].pvBits, aLoads[i].Addr,
240 UINT32_MAX, aSyms[iSym].pszName, &Value);
241 if (RT_SUCCESS(rc))
242 {
243 unsigned off = Value - aLoads[i].Addr;
244 if (off < cbImage)
245 {
246 if (aSyms[iSym].off == ~0U)
247 aSyms[iSym].off = off;
248 else if (off != aSyms[iSym].off)
249 {
250 RTPrintf("tstLdr: Mismatching symbol '%s' in '%s'/%d. expected off=%d got %d\n",
251 aSyms[iSym].pszName, pszFilename, i, aSyms[iSym].off, off);
252 rcRet++;
253 }
254 }
255 else
256 {
257 RTPrintf("tstLdr: Invalid value for symbol '%s' in '%s'/%d. off=%#x Value=%#x\n",
258 aSyms[iSym].pszName, pszFilename, i, off, Value);
259 rcRet++;
260 }
261 }
262 else if (!g_fDontBitchOnResolveFailure)
263 {
264 RTPrintf("tstLdr: Failed to resolve symbol '%s' in '%s'/%d.\n", aSyms[iSym].pszName, pszFilename, i);
265 rcRet++;
266 }
267 }
268 }
269
270 if (iRel >= RT_ELEMENTS(aRels))
271 break;
272
273 /* adjust load address and announce our intentions */
274 if (g_cBits == 32)
275 aRels[iRel] &= UINT32_C(0xffffffff);
276
277 /* relocate it stuff. */
278 RTPrintf("tstLdr: Relocating image 2 from %RTptr to %RTptr\n", aLoads[2].Addr, aRels[iRel]);
279 int rc = RTLdrRelocate(aLoads[2].hLdrMod, aLoads[2].pvBits, aRels[iRel], aLoads[2].Addr, testGetImport, &aRels[iRel]);
280 if (RT_FAILURE(rc))
281 {
282 RTPrintf("tstLdr: Relocate of '%s' from %#x to %#x failed, rc=%Rrc. Aborting test.\n",
283 pszFilename, aRels[iRel], aLoads[2].Addr, rc);
284 rcRet++;
285 break;
286 }
287 aLoads[2].Addr = aRels[iRel];
288
289 /* next */
290 iRel++;
291 }
292 }
293
294 /*
295 * Clean up.
296 */
297 for (i = 0; i < RT_ELEMENTS(aLoads); i++)
298 {
299 if (aLoads[i].pvBits)
300 RTMemFree(aLoads[i].pvBits);
301 if (aLoads[i].hLdrMod)
302 {
303 int rc = RTLdrClose(aLoads[i].hLdrMod);
304 if (RT_FAILURE(rc))
305 {
306 RTPrintf("tstLdr: Failed to close '%s' i=%d, rc=%Rrc.\n", pszFilename, i, rc);
307 rcRet++;
308 }
309 }
310 }
311
312 return rcRet;
313}
314
315
316
317int main(int argc, char **argv)
318{
319 RTR3InitExe(argc, &argv, 0);
320
321 int rcRet = 0;
322 if (argc <= 1)
323 {
324 RTPrintf("usage: %s [-32|-64] [-kernel] <module> [more options/modules]\n", argv[0]);
325 return 1;
326 }
327
328 /*
329 * Iterate the files.
330 */
331 for (int argi = 1; argi < argc; argi++)
332 {
333 if (!strcmp(argv[argi], "-n"))
334 g_fDontBitchOnResolveFailure = true;
335 else if (!strcmp(argv[argi], "-32"))
336 g_cBits = 32;
337 else if (!strcmp(argv[argi], "-64"))
338 g_cBits = 64;
339 else if (!strcmp(argv[argi], "-kernel"))
340 g_fKernel = true;
341 else
342 {
343 RTPrintf("tstLdr: TESTING '%s'...\n", argv[argi]);
344 rcRet += testLdrOne(argv[argi]);
345 }
346 }
347
348 /*
349 * Test result summary.
350 */
351 if (!rcRet)
352 RTPrintf("tstLdr: SUCCESS\n");
353 else
354 RTPrintf("tstLdr: FAILURE - %d errors\n", rcRet);
355 return !!rcRet;
356}
Note: See TracBrowser for help on using the repository browser.

© 2024 Oracle Support Privacy / Do Not Sell My Info Terms of Use Trademark Policy Automated Access Etiquette