mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-12-25 07:50:27 +00:00
Code Issues 1 Releases Wiki Activity

Address #1001 - don't process names passed to dlopen.

Browse Source
This commit is contained in:
Calvin Rose 2022-07-19 20:04:17 -05:00
parent e001efa9fd
commit fb5b056f7b
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/core/ffi.c
View File

@ -1183,9 +1183,7 @@ JANET_CORE_FN(janet_core_raw_native,
"Returns a `core/native`.") { "Returns a `core/native`.") {
janet_arity(argc, 0, 1); janet_arity(argc, 0, 1);
const char *path = janet_optcstring(argv, argc, 0, NULL); const char *path = janet_optcstring(argv, argc, 0, NULL);
char *processed_name = (NULL == path) ? NULL : get_processed_name(path); Clib lib = load_clib(path);
Clib lib = load_clib(processed_name);
if (NULL != path && path != processed_name) janet_free(processed_name);
if (!lib) janet_panic(error_clib()); if (!lib) janet_panic(error_clib());
JanetAbstractNative *anative = janet_abstract(&janet_native_type, sizeof(JanetAbstractNative)); JanetAbstractNative *anative = janet_abstract(&janet_native_type, sizeof(JanetAbstractNative));
anative->clib = lib; anative->clib = lib;