mirror of
https://github.com/JuliaLang/julia.git
synced 2026-05-28 03:10:33 +08:00
77 lines
2.2 KiB
C
77 lines
2.2 KiB
C
// This file is a part of Julia. License is MIT: https://julialang.org/license
|
|
|
|
// This defines a bare-bones loader that opens `libjulia` and immediately invokes its `load_repl()` function.
|
|
#include "loader.h"
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
/* Bring in helper functions for windows without libgcc. */
|
|
#ifdef _OS_WINDOWS_
|
|
#include "loader_win_utils.c"
|
|
#endif
|
|
|
|
JULIA_DEFINE_FAST_TLS
|
|
|
|
#ifdef _COMPILER_ASAN_ENABLED_
|
|
JL_DLLEXPORT const char* __asan_default_options(void)
|
|
{
|
|
return "allow_user_segv_handler=1:detect_leaks=0";
|
|
// FIXME: enable LSAN after fixing leaks & defining __lsan_default_suppressions(),
|
|
// or defining __lsan_default_options = exitcode=0 once publicly available
|
|
// (here and in flisp/flmain.c)
|
|
}
|
|
#endif
|
|
|
|
#ifdef _OS_WINDOWS_
|
|
int mainCRTStartup(void)
|
|
{
|
|
int argc;
|
|
LPWSTR * wargv = CommandLineToArgv(GetCommandLine(), &argc);
|
|
char ** argv = (char **)malloc(sizeof(char*) * (argc + 1));
|
|
setup_stdio();
|
|
#else
|
|
int main(int argc, char * argv[])
|
|
{
|
|
#endif
|
|
|
|
#if defined(_COMPILER_ASAN_ENABLED_) || defined(_COMPILER_TSAN_ENABLED_) || defined(_COMPILER_MSAN_ENABLED_)
|
|
// ASAN/TSAN do not support RTLD_DEEPBIND
|
|
// https://github.com/google/sanitizers/issues/611
|
|
putenv("LBT_USE_RTLD_DEEPBIND=0");
|
|
#endif
|
|
|
|
// Convert Windows wchar_t values to UTF8
|
|
#ifdef _OS_WINDOWS_
|
|
for (int i = 0; i < argc; i++) {
|
|
argv[i] = wchar_to_utf8(wargv[i]);
|
|
if (!argv[i]) {
|
|
jl_loader_print_stderr("Unable to convert all arguments to UTF-8!\n");
|
|
return 1;
|
|
}
|
|
}
|
|
argv[argc] = NULL;
|
|
#endif
|
|
|
|
// Call load_repl with our initialization arguments:
|
|
int ret = jl_load_repl(argc, argv);
|
|
|
|
// On Windows we're running without the CRT that would do this for us
|
|
exit(ret);
|
|
return ret;
|
|
}
|
|
|
|
#if defined(__GLIBC__) && (defined(_COMPILER_ASAN_ENABLED_) || defined(_COMPILER_TSAN_ENABLED_))
|
|
// fork is generally bad news, but it is better if we prevent applications from
|
|
// making it worse as openblas threadpools cause it to hang
|
|
int __register_atfork232(void (*prepare)(void), void (*parent)(void), void (*child)(void), void *dso_handle) {
|
|
return 0;
|
|
}
|
|
__asm__ (".symver __register_atfork232, __register_atfork@@GLIBC_2.3.2");
|
|
#endif
|
|
|
|
#ifdef __cplusplus
|
|
} // extern "C"
|
|
#endif
|