summaryrefslogtreecommitdiffstats
path: root/openmp/offload/src/offload_util.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'openmp/offload/src/offload_util.cpp')
-rw-r--r--openmp/offload/src/offload_util.cpp206
1 files changed, 0 insertions, 206 deletions
diff --git a/openmp/offload/src/offload_util.cpp b/openmp/offload/src/offload_util.cpp
deleted file mode 100644
index 68462c8059d..00000000000
--- a/openmp/offload/src/offload_util.cpp
+++ /dev/null
@@ -1,206 +0,0 @@
-//===----------------------------------------------------------------------===//
-//
-// The LLVM Compiler Infrastructure
-//
-// This file is dual licensed under the MIT and the University of Illinois Open
-// Source Licenses. See LICENSE.txt for details.
-//
-//===----------------------------------------------------------------------===//
-
-
-#include "offload_util.h"
-#include <errno.h>
-#include "liboffload_error_codes.h"
-
-#ifdef TARGET_WINNT
-void *thread_getspecific(pthread_key_t key)
-{
- if (key == 0) {
- return NULL;
- }
- else {
- return TlsGetValue(key);
- }
-}
-
-int thread_setspecific(pthread_key_t key, const void *value)
-{
- return (TlsSetValue(key, (LPVOID)value)) ? 0 : GetLastError();
-}
-#endif // TARGET_WINNT
-
-bool __offload_parse_size_string(const char *str, uint64_t &new_size)
-{
- uint64_t val;
- char *suffix;
-
- errno = 0;
-#ifdef TARGET_WINNT
- val = strtoul(str, &suffix, 10);
-#else // TARGET_WINNT
- val = strtoull(str, &suffix, 10);
-#endif // TARGET_WINNT
- if (errno != 0 || suffix == str) {
- return false;
- }
-
- if (suffix[0] == '\0') {
- // default is Kilobytes
- new_size = val * 1024;
- return true;
- }
- else if (suffix[1] == '\0') {
- // Optional suffixes: B (bytes), K (Kilobytes), M (Megabytes),
- // G (Gigabytes), or T (Terabytes) specify the units.
- switch (suffix[0]) {
- case 'b':
- case 'B':
- new_size = val;
- break;
-
- case 'k':
- case 'K':
- new_size = val * 1024;
- break;
-
- case 'm':
- case 'M':
- new_size = val * 1024 * 1024;
- break;
-
- case 'g':
- case 'G':
- new_size = val * 1024 * 1024 * 1024;
- break;
-
- case 't':
- case 'T':
- new_size = val * 1024 * 1024 * 1024 * 1024;
- break;
-
- default:
- return false;
- }
- return true;
- }
-
- return false;
-}
-
-bool __offload_parse_int_string(const char *str, int64_t &value)
-{
- int64_t val;
- char *suffix;
-
- errno = 0;
-#ifdef TARGET_WINNT
- val = strtol(str, &suffix, 0);
-#else
- val = strtoll(str, &suffix, 0);
-#endif
- if (errno == 0 && suffix != str && *suffix == '\0') {
- value = val;
- return true;
- }
- return false;
-}
-
-#ifdef TARGET_WINNT
-extern void* DL_open(const char *path)
-{
- void *handle;
- int error_mode;
-
- /*
- * do not display message box with error if it the call below fails to
- * load dynamic library.
- */
- error_mode = SetErrorMode(SEM_FAILCRITICALERRORS | SEM_NOOPENFILEERRORBOX);
-
- /* load dynamic library */
- handle = (void*) LoadLibrary(path);
-
- /* restore error mode */
- SetErrorMode(error_mode);
-
- return handle;
-}
-
-extern int DL_addr(const void *addr, Dl_info *dl_info)
-{
- MEMORY_BASIC_INFORMATION mem_info;
- char mod_name[MAX_PATH];
- HMODULE mod_handle;
-
- /* Fill MEMORY_BASIC_INFORMATION struct */
- if (!VirtualQuery(addr, &mem_info, sizeof(mem_info))) {
- return 0;
- }
- mod_handle = (HMODULE)mem_info.AllocationBase;
-
- /* ANSI file name for module */
- if (!GetModuleFileNameA(mod_handle, (char*) mod_name, sizeof(mod_name))) {
- return 0;
- }
- strcpy(dl_info->dli_fname, mod_name);
- dl_info->dli_fbase = mem_info.BaseAddress;
- dl_info->dli_saddr = addr;
- strcpy(dl_info->dli_sname, mod_name);
- return 1;
-}
-
-// Run once
-static BOOL CALLBACK __offload_run_once_wrapper(
- PINIT_ONCE initOnce,
- PVOID parameter,
- PVOID *context
-)
-{
- void (*init_routine)(void) = (void(*)(void)) parameter;
- init_routine();
- return true;
-}
-
-void __offload_run_once(OffloadOnceControl *ctrl, void (*func)(void))
-{
- InitOnceExecuteOnce(ctrl, __offload_run_once_wrapper, (void*) func, 0);
-}
-#endif // TARGET_WINNT
-
-/* ARGSUSED */ // version is not used on windows
-void* DL_sym(void *handle, const char *name, const char *version)
-{
-#ifdef TARGET_WINNT
- return GetProcAddress((HMODULE) handle, name);
-#else // TARGET_WINNT
- if (version == 0) {
- return dlsym(handle, name);
- }
- else {
- return dlvsym(handle, name, version);
- }
-#endif // TARGET_WINNT
-}
-
-int64_t get_el_value(
- char *base,
- int64_t offset,
- int64_t size)
-{
- int64_t val = 0;
- switch (size) {
- case 1:
- val = static_cast<int64_t>(*((char *)(base + offset)));
- break;
- case 2:
- val = static_cast<int64_t>(*((short *)(base + offset)));
- break;
- case 4:
- val = static_cast<int64_t>(*((int *)(base + offset)));
- break;
- default:
- val = *((int64_t *)(base + offset));
- break;
- }
- return val;
-}
OpenPOWER on IntegriCloud