1// Test that __orc_rt_coff_jit_dlopen and __orc_rt_coff_jit_dlclose work as
2// expected for a straightforward dlopen; dlclose sequence: first the
3// constructors should be run.
4//
5// RUN: %clang_cl -MD -c -o %t.inits.o %p/Inputs/standalone-dylib.c
6// RUN: %clang_cl -MD -c -o %t.test.o %s
7// RUN: %llvm_jitlink \
8// RUN: -alias Platform:dlopen=__orc_rt_coff_jit_dlopen \
9// RUN: -alias Platform:dlclose=__orc_rt_coff_jit_dlclose \
10// RUN: %t.test.o -jd inits %t.inits.o -lmain | FileCheck %s
11
12// CHECK: entering main
13// CHECK-NEXT: constructor
14// CHECK-NEXT: destructor
15// CHECK-NEXT: leaving main
16
17#include <stdio.h>
18void *dlopen(const char *path, int mode);
19int dlclose(void *handle);
20
21int main(int argc, char *argv[]) {
22 printf(format: "entering main\n");
23 void *H = dlopen(path: "inits", mode: 0);
24 if (!H) {
25 printf(format: "failed\n");
26 return -1;
27 }
28 if (dlclose(handle: H) == -1) {
29 printf(format: "failed\n");
30 return -1;
31 }
32 printf(format: "leaving main\n");
33 return 0;
34}
35

source code of compiler-rt/test/orc/TestCases/Windows/x86-64/trivial-jit-dlopen.c