summaryloggraphiclog1graphiclog2commitcommitdifftreerefseditfork
rawpatchinlineside by side (parent: 0b858ab)
rawpatchinlineside by side (parent: 0b858ab)
| author | Yukihiro "Matz" Matsumoto <[email protected]> | |
| Mon, 13 May 2013 02:15:08 +0000 (13 11:15 +0900) | ||
| committer | Yukihiro "Matz" Matsumoto <[email protected]> | |
| Mon, 13 May 2013 02:15:08 +0000 (13 11:15 +0900) |
| src/backtrace.c | [new file with mode: 0644] | patchblob |
diff --git a/src/backtrace.c b/src/backtrace.c
--- /dev/null
+++ b/src/backtrace.c
@@ -0,0 +1,73 @@
+/*
+** backtrace.c -
+**
+** See Copyright Notice in mruby.h
+*/
+
+#include "mruby.h"
+#include "mruby/variable.h"
+#include "mruby/proc.h"
+
+void
+mrb_print_backtrace(mrb_state *mrb)
+{
+#ifdef ENABLE_STDIO
+ mrb_callinfo *ci;
+ mrb_int ciidx;
+ const char *filename, *method, *sep;
+ int i, line;
+
+ printf("trace:\n");
+ ciidx = mrb_fixnum(mrb_obj_iv_get(mrb, mrb->exc, mrb_intern(mrb, "ciidx")));
+ if (ciidx >= mrb->ciend - mrb->cibase)
+ ciidx = 10; /* ciidx is broken... */
+
+ for (i = ciidx; i >= 0; i--) {
+ ci = &mrb->cibase[i];
+ filename = "(unknown)";
+ line = -1;
+
+ if (MRB_PROC_CFUNC_P(ci->proc)) {
+ continue;
+ }
+ else {
+ mrb_irep *irep = ci->proc->body.irep;
+ if (irep->filename != NULL)
+ filename = irep->filename;
+ if (irep->lines != NULL) {
+ mrb_code *pc;
+
+ if (i+1 <= ciidx) {
+ pc = mrb->cibase[i+1].pc;
+ }
+ else {
+ pc = (mrb_code*)mrb_voidp(mrb_obj_iv_get(mrb, mrb->exc, mrb_intern(mrb, "lastpc")));
+ }
+ if (irep->iseq <= pc && pc < irep->iseq + irep->ilen) {
+ line = irep->lines[pc - irep->iseq - 1];
+ }
+ }
+ }
+ if (line == -1) continue;
+ if (ci->target_class == ci->proc->target_class)
+ sep = ".";
+ else
+ sep = "#";
+
+ method = mrb_sym2name(mrb, ci->mid);
+ if (method) {
+ const char *cn = mrb_class_name(mrb, ci->proc->target_class);
+
+ if (cn) {
+ printf("\t[%d] %s:%d:in %s%s%s\n", i, filename, line, cn, sep, method);
+ }
+ else {
+ printf("\t[%d] %s:%d:in %s\n", i, filename, line, method);
+ }
+ }
+ else {
+ printf("\t[%d] %s:%d\n", i, filename, line);
+ }
+ }
+#endif
+}