1// Test that __orc_rt_macho_jit_dlopen and __orc_rt_macho_jit_dlclose work as
2// expected for a straightforward dlopen; dlclose sequence: first the
3// constructors should be run, then destructors.
4//
5// RUN: %clang -c -o %t.inits.o %p/Inputs/standalone-ctor-and-cxa-atexit-dtor.S
6// RUN: %clang -c -o %t.test.o %s
7// RUN: %llvm_jitlink \
8// RUN: -alias Platform:_dlopen=___orc_rt_macho_jit_dlopen \
9// RUN: -alias Platform:_dlclose=___orc_rt_macho_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
17int printf(const char * restrict format, ...);
18void *dlopen(const char* path, int mode);
19int dlclose(void *handle);
20
21int main(int argc, char *argv[]) {
22 printf(restrict: "entering main\n");
23 void *H = dlopen(path: "inits", mode: 0);
24 if (!H) {
25 printf(restrict: "failed\n");
26 return -1;
27 }
28 if (dlclose(handle: H) == -1) {
29 printf(restrict: "failed\n");
30 return -1;
31 }
32 printf(restrict: "leaving main\n");
33 return 0;
34}
35

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