Debugging an issue on linux/arm64 (IX)

Author: FrancescAlted

src/miniexpr.c

@@ -5823,6 +5823,35 @@ static bool dsl_jit_compile_libtcc_in_memory(me_dsl_compiled_program *program) {
 }
 #endif
 
+#if !ME_USE_LIBTCC_FALLBACK
+static bool dsl_jit_module_path_from_symbol(const void *symbol, char *out, size_t out_size) {
+    if (!symbol || !out || out_size == 0) {
+        return false;
+    }
+#if defined(_WIN32) || defined(_WIN64)
+    HMODULE module = NULL;
+    if (!GetModuleHandleExA(GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS |
+                            GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT,
+                            (LPCSTR)symbol, &module)) {
+        return false;
+    }
+    DWORD n = GetModuleFileNameA(module, out, (DWORD)out_size);
+    if (n == 0 || n >= (DWORD)out_size) {
+        return false;
+    }
+    out[n] = '\0';
+    return true;
+#else
+    Dl_info info;
+    if (dladdr(symbol, &info) == 0 || !info.dli_fname || info.dli_fname[0] == '\0') {
+        return false;
+    }
+    int n = snprintf(out, out_size, "%s", info.dli_fname);
+    return n > 0 && (size_t)n < out_size;
+#endif
+}
+#endif
+
 #if !defined(_WIN32) && !defined(_WIN64) && !defined(__EMSCRIPTEN__)
 static bool dsl_jit_cc_math_bridge_available(void) {
     for (size_t i = 0; i < sizeof(dsl_jit_bridge_symbol_names) / sizeof(dsl_jit_bridge_symbol_names[0]); i++) {