cl:compile with clang++

runtime/internal/clite/debug/_wrap/debug.cpp

@@ -0,0 +1,40 @@
+#if defined(__linux__)
+#define UNW_LOCAL_ONLY
+#ifndef _GNU_SOURCE
+#define _GNU_SOURCE
+#endif
+#include <features.h>
+#endif
+
+#include <dlfcn.h>
+#include <libunwind.h>
+
+extern "C" {
+
+void *llgo_address() { return __builtin_return_address(0); }
+
+int llgo_addrinfo(void *addr, Dl_info *info) { return dladdr(addr, info); }
+
+void llgo_stacktrace(int skip, void *ctx, int (*fn)(void *ctx, void *pc, void *offset, void *sp, char *name)) {
+    unw_cursor_t cursor;
+    unw_context_t context;
+    unw_word_t offset, pc, sp;
+    char fname[256];
+    unw_getcontext(&context);
+    unw_init_local(&cursor, &context);
+    int depth = 0;
+    while (unw_step(&cursor) > 0) {
+        if (depth < skip) {
+            depth++;
+            continue;
+        }
+        if (unw_get_reg(&cursor, UNW_REG_IP, &pc) == 0) {
+            unw_get_proc_name(&cursor, fname, sizeof(fname), &offset);
+            unw_get_reg(&cursor, UNW_REG_SP, &sp);
+            if (fn(ctx, (void *)pc, (void *)offset, (void *)sp, fname) == 0) {
+                return;
+            }
+        }
+    }
+}
+}