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

adding type checking to disasm

Browse source 
Fixes issue #8:
http://code.google.com/p/chibi-scheme/issues/detail?id=8

Note disasm is likely to be moved out of the core soon.
This commit is contained in:
Alex Shinn 2009-12-05 18:13:01 +09:00
parent fa879e183c
commit 9ed0d705c6
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
opt/debug.c
View file

@ -20,8 +20,14 @@ static const char* reverse_opcode_names[] =
static sexp sexp_disasm (sexp ctx, sexp bc, sexp out) { static sexp sexp_disasm (sexp ctx, sexp bc, sexp out) {
unsigned char *ip, opcode; unsigned char *ip, opcode;
if (sexp_procedurep(bc)) if (sexp_procedurep(bc)) {
bc = sexp_procedure_code(bc); bc = sexp_procedure_code(bc);
} else if (sexp_opcodep(bc)) {
sexp_printf(ctx, out, "%s is a primitive\n", sexp_opcode_name(bc));
return SEXP_VOID;
} else if (! sexp_bytecodep(bc)) {
return sexp_type_exception(ctx, "not a procedure", bc);
}
ip = sexp_bytecode_data(bc); ip = sexp_bytecode_data(bc);
loop: loop:
opcode = *ip++; opcode = *ip++;