Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-05 20:26:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

printing foreign function names on disasm

Browse source
This commit is contained in:
Alex Shinn 2011-07-04 23:35:25 +09:00
parent 0de463a7c4
commit 54d353375c
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/disasm.c
View file

@ -5,7 +5,7 @@
#include "chibi/eval.h" #include "chibi/eval.h"
#include "../../opt/opcode_names.h" #include "../../opt/opcode_names.h"
#define SEXP_DISASM_MAX_DEPTH 8 #define SEXP_DISASM_MAX_DEPTH 16
#define SEXP_DISASM_PAD_WIDTH 4 #define SEXP_DISASM_PAD_WIDTH 4
#if SEXP_64_BIT #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_FCALL3:
case SEXP_OP_FCALL4: case SEXP_OP_FCALL4:
sexp_write_pointer(ctx, ((sexp*)ip)[0], out); 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); ip += sizeof(sexp);
break; break;
case SEXP_OP_SLOT_REF: case SEXP_OP_SLOT_REF: