1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
#include <stdio.h>
#include "module.h"
#if SPECIAL_MAGIC_DEFINE != 42
#error "SPECIAL_MAGIC_DEFINE is not defined"
#endif
int func_from_language_runtime(void);
typedef int (*fptr) (void);
#ifdef _WIN32
#include <windows.h>
static wchar_t*
win32_get_last_error (void)
{
wchar_t *msg = NULL;
FormatMessageW (FORMAT_MESSAGE_ALLOCATE_BUFFER
| FORMAT_MESSAGE_IGNORE_INSERTS
| FORMAT_MESSAGE_FROM_SYSTEM,
NULL, GetLastError (), 0,
(LPWSTR) &msg, 0, NULL);
return msg;
}
int main(int argc, char **argv)
{
HINSTANCE handle;
fptr importedfunc;
int expected, actual;
int ret = 1;
if(argc==0) {};
handle = LoadLibraryA (argv[1]);
if (!handle) {
wchar_t *msg = win32_get_last_error ();
printf ("Could not open %s: %S\n", argv[1], msg);
goto nohandle;
}
importedfunc = (fptr) GetProcAddress (handle, "func");
if (importedfunc == NULL) {
wchar_t *msg = win32_get_last_error ();
printf ("Could not find 'func': %S\n", msg);
goto out;
}
actual = importedfunc ();
expected = func_from_language_runtime ();
if (actual != expected) {
printf ("Got %i instead of %i\n", actual, expected);
goto out;
}
ret = 0;
out:
FreeLibrary (handle);
nohandle:
return ret;
}
#else
#include<dlfcn.h>
#include<assert.h>
int main(int argc, char **argv) {
void *dl;
fptr importedfunc;
int expected, actual;
char *error;
int ret = 1;
if(argc==0) {};
dlerror();
dl = dlopen(argv[1], RTLD_LAZY);
error = dlerror();
if(error) {
printf("Could not open %s: %s\n", argv[1], error);
goto nodl;
}
importedfunc = (fptr) dlsym(dl, "func");
if (importedfunc == NULL) {
printf ("Could not find 'func'\n");
goto out;
}
assert(importedfunc != func_from_language_runtime);
actual = (*importedfunc)();
expected = func_from_language_runtime ();
if (actual != expected) {
printf ("Got %i instead of %i\n", actual, expected);
goto out;
}
ret = 0;
out:
dlclose(dl);
nodl:
return ret;
}
#endif
|
