julia

dlsym dlopen

1.5.2

31 / 1327 files match, 9 filtered matches.

src/staticdata.c
src/sys.c
src/dlload.c
src/runtime_intrinsics.c
src/init.c
src/julia.h
src/flisp/print.c
src/flisp/flisp.h
src/flisp/cvalues.c

src/staticdata.c

|     int imaging_mode = jl_generating_output() && !jl_options.incremental;
|     // in --build mode only use sysimg data, not precompiled native code
|     if (!imaging_mode && jl_options.use_sysimage_native_code==JL_OPTIONS_USE_SYSIMAGE_NATIVE_CODE_YES) {
|         jl_dlsym(jl_sysimg_handle, "jl_sysimg_gvars_base", (void **)&sysimg_gvars_base, 1);
|         jl_dlsym(jl_sysimg_handle, "jl_sysimg_gvars_offsets", (void **)&sysimg_gvars_offsets, 1);
|         sysimg_gvars_offsets += 1;
|         assert(sysimg_fptrs.base);
|         uintptr_t *tls_getter_slot;
|         jl_dlsym(jl_sysimg_handle, "jl_get_ptls_states_slot", (void **)&tls_getter_slot, 1);
|         *tls_getter_slot = (uintptr_t)jl_get_ptls_states_getter();
|         size_t *tls_offset_idx;
|         jl_dlsym(jl_sysimg_handle, "jl_tls_offset", (void **)&tls_offset_idx, 1);
|         *tls_offset_idx = (uintptr_t)(jl_tls_offset == -1 ? 0 : jl_tls_offset);
| 
|         memset(&sysimg_fptrs, 0, sizeof(sysimg_fptrs));
|     }
|     const char *sysimg_data;
|     jl_dlsym(jl_sysimg_handle, "jl_system_image_data", (void **)&sysimg_data, 1);
|     size_t *plen;
|     jl_dlsym(jl_sysimg_handle, "jl_system_image_size", (void **)&plen, 1);
|     jl_restore_system_image_data(sysimg_data, *plen);
| }
| JL_DLLEXPORT void jl_set_sysimg_so(void *handle)
| {
|     void* *jl_RTLD_DEFAULT_handle_pointer;
|     int symbol_found = jl_dlsym(handle, "jl_RTLD_DEFAULT_handle_pointer", (void **)&jl_RTLD_DEFAULT_handle_pointer, 0);
|     if (!symbol_found || (void*)&jl_RTLD_DEFAULT_handle != *jl_RTLD_DEFAULT_handle_pointer)
|         jl_error("System image file failed consistency check: maybe opened the wrong version?");

src/sys.c

| #elif defined(_OS_WINDOWS_)
|     //Try to get WIN7 API method
|     GAPC gapc;
|     if (jl_dlsym(jl_kernel32_handle, "GetActiveProcessorCount", (void **)&gapc, 0)) {
|         return gapc(ALL_PROCESSOR_GROUPS);
|     }

src/dlload.c

|     return handle;
| }
| 
| JL_DLLEXPORT int jl_dlsym(void *handle, const char *symbol, void ** value, int throw_err)
| {
|     int symbol_found = 0;
| const char *jl_dlfind_win32(const char *f_name)
| {
|     void * dummy;
|     if (jl_dlsym(jl_exe_handle, f_name, &dummy, 0))
|         return JL_EXE_LIBNAME;
|     if (jl_dlsym(jl_dl_handle, f_name, &dummy, 0))
|         return JL_DL_LIBNAME;
|     if (jl_dlsym(jl_kernel32_handle, f_name, &dummy, 0))
|         return "kernel32";
|     if (jl_dlsym(jl_ntdll_handle, f_name, &dummy, 0))
|         return "ntdll";
|     if (jl_dlsym(jl_crtdll_handle, f_name, &dummy, 0))
| #if defined(_MSC_VER)
| #if _MSC_VER == 1800
| #else
|         return "msvcrt";
| #endif
|     if (jl_dlsym(jl_winsock_handle, f_name, &dummy, 0))
|         return "ws2_32";
|     // additional common libraries (libc?) could be added here, but in general,

src/runtime_intrinsics.c

| #endif
| 
|     void *ptr;
|     jl_dlsym(jl_get_library(f_lib), f_name, &ptr, 1);
|     jl_value_t *jv = jl_gc_alloc_1w();
|     jl_set_typeof(jv, rt);

src/init.c

|     needsSymRefreshModuleList = 0;
|     HMODULE jl_dbghelp = (HMODULE) jl_dlopen("dbghelp.dll", 0);
|     if (jl_dbghelp)
|         jl_dlsym(jl_dbghelp, "SymRefreshModuleList", (void **)&hSymRefreshModuleList, 1);
| #else
|     jl_exe_handle = jl_dlopen(NULL, JL_RTLD_NOW);

src/julia.h

| JL_DLLEXPORT jl_uv_libhandle jl_load_dynamic_library(const char *fname, unsigned flags, int throw_err);
| JL_DLLEXPORT jl_uv_libhandle jl_dlopen(const char *filename, unsigned flags);
| JL_DLLEXPORT int jl_dlclose(jl_uv_libhandle handle);
| JL_DLLEXPORT int jl_dlsym(jl_uv_libhandle handle, const char *symbol, void ** value, int throw_err);
| 
| // compiler

src/flisp/print.c

|             if (init == 0) {
| #if defined(RTLD_SELF)
|                 jl_static_print = (size_t (*)(ios_t*, void*))
|                     (uintptr_t)dlsym(RTLD_SELF, "jl_static_show");
| #elif defined(RTLD_DEFAULT)
|                 jl_static_print = (size_t (*)(ios_t*, void*))
|                     (uintptr_t)dlsym(RTLD_DEFAULT, "jl_static_show");
| #elif defined(_OS_WINDOWS_)
|                 HMODULE handle;
| 
|     if (cv_class(cv) == fl_ctx->builtintype) {
|         void *fptr = *(void**)data;
|         label = (value_t)ptrhash_get(&fl_ctx->reverse_dlsym_lookup_table, cv);
|         if (label == (value_t)HT_NOTFOUND) {
|             fl_ctx->HPOS += ios_printf(f, "#<builtin @0x%08zx>", (size_t)fptr);

src/flisp/flisp.h

|     value_t binding;   // global value binding
|     struct _fltype_t *type;
|     uint32_t hash;
|     void *dlcache;     // dlsym address
|     // below fields are private
|     struct _symbol_t *left;
|     value_t arraysym, cfunctionsym, voidsym, pointersym;
| 
|     htable_t TypeTable;
|     htable_t reverse_dlsym_lookup_table;
| 
|     fltype_t *int8type, *uint8type;

src/flisp/cvalues.c

| 
|     value_t sym = symbol(fl_ctx, name);
|     ((symbol_t*)ptr(sym))->dlcache = cv;
|     ptrhash_put(&fl_ctx->reverse_dlsym_lookup_table, cv, (void*)sym);
| 
|     return tagptr(cv, TAG_CVALUE);
|     fl_ctx->maxfinalizers = 0;
| 
|     htable_new(&fl_ctx->TypeTable, 256);
|     htable_new(&fl_ctx->reverse_dlsym_lookup_table, 256);
| 
|     fl_ctx->builtintype = define_opaque_type(fl_ctx->builtinsym, sizeof(builtin_t), NULL, NULL);