1 //===- dlfcn_wrapper.cpp --------------------------------------------------===//
2 //
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4 // See https://llvm.org/LICENSE.txt for license information.
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6 //
7 //===----------------------------------------------------------------------===//
8 //
9 // This file is a part of the ORC runtime support library.
10 //
11 //===----------------------------------------------------------------------===//
12
13 #include "adt.h"
14 #include "common.h"
15 #include "wrapper_function_utils.h"
16
17 #include <vector>
18
19 using namespace __orc_rt;
20
21 extern "C" const char *__orc_rt_jit_dlerror();
22 extern "C" void *__orc_rt_jit_dlopen(const char *path, int mode);
23 extern "C" int __orc_rt_jit_dlclose(void *dso_handle);
24
25 ORC_RT_INTERFACE orc_rt_CWrapperFunctionResult
__orc_rt_jit_dlerror_wrapper(const char * ArgData,size_t ArgSize)26 __orc_rt_jit_dlerror_wrapper(const char *ArgData, size_t ArgSize) {
27 return WrapperFunction<SPSString()>::handle(
28 ArgData, ArgSize,
29 []() { return std::string(__orc_rt_jit_dlerror()); })
30 .release();
31 }
32
33 ORC_RT_INTERFACE orc_rt_CWrapperFunctionResult
__orc_rt_jit_dlopen_wrapper(const char * ArgData,size_t ArgSize)34 __orc_rt_jit_dlopen_wrapper(const char *ArgData, size_t ArgSize) {
35 return WrapperFunction<SPSExecutorAddr(SPSString, int32_t)>::handle(
36 ArgData, ArgSize,
37 [](const std::string &Path, int32_t mode) {
38 return ExecutorAddr::fromPtr(
39 __orc_rt_jit_dlopen(Path.c_str(), mode));
40 })
41 .release();
42 }
43
44 ORC_RT_INTERFACE orc_rt_CWrapperFunctionResult
__orc_rt_jit_dlclose_wrapper(const char * ArgData,size_t ArgSize)45 __orc_rt_jit_dlclose_wrapper(const char *ArgData, size_t ArgSize) {
46 return WrapperFunction<int32_t(SPSExecutorAddr)>::handle(
47 ArgData, ArgSize,
48 [](ExecutorAddr &DSOHandle) {
49 return __orc_rt_jit_dlclose(DSOHandle.toPtr<void *>());
50 })
51 .release();
52 }
53