From 54d353375cfce3be603c081c9d0ec17f125cabc7 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Mon, 4 Jul 2011 23:35:25 +0900
Subject: [PATCH] printing foreign function names on disasm

---
 lib/chibi/disasm.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/chibi/disasm.c b/lib/chibi/disasm.c
index a9facc5d..ea2c2f8f 100644
--- a/lib/chibi/disasm.c
+++ b/lib/chibi/disasm.c
@@ -5,7 +5,7 @@
 #include "chibi/eval.h"
 #include "../../opt/opcode_names.h"
 
-#define SEXP_DISASM_MAX_DEPTH 8
+#define SEXP_DISASM_MAX_DEPTH 16
 #define SEXP_DISASM_PAD_WIDTH 4
 
 #if SEXP_64_BIT
@@ -86,6 +86,8 @@ static sexp disasm (sexp ctx, sexp self, sexp bc, sexp out, int depth) {
   case SEXP_OP_FCALL3:
   case SEXP_OP_FCALL4:
     sexp_write_pointer(ctx, ((sexp*)ip)[0], out);
+    sexp_write_string(ctx, ": ", out);
+    sexp_write_string(ctx, sexp_opcode_name(((sexp*)ip)[0]), out);
     ip += sizeof(sexp);
     break;
   case SEXP_OP_SLOT_REF: