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

removing spurious newline in disasm output

Browse source
This commit is contained in:
Alex Shinn 2011-11-01 21:17:58 +09:00
parent 6ce131dc04
commit 1913a29c1a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/disasm.c
View file

@ -86,7 +86,7 @@ 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_char(ctx, '\n', out); sexp_write_char(ctx, ' ', out);
sexp_display(ctx, sexp_opcode_name(((sexp*)ip)[0]), out); sexp_display(ctx, sexp_opcode_name(((sexp*)ip)[0]), out);
ip += sizeof(sexp); ip += sizeof(sexp);
break; break;
@ -97,7 +97,7 @@ static sexp disasm (sexp ctx, sexp self, sexp bc, sexp out, int depth) {
break; break;
case SEXP_OP_MAKE_PROCEDURE: case SEXP_OP_MAKE_PROCEDURE:
sexp_write_integer(ctx, ((sexp_sint_t*)ip)[0], out); sexp_write_integer(ctx, ((sexp_sint_t*)ip)[0], out);
sexp_write_string(ctx, " ", out); sexp_write_char(ctx, ' ', out);
sexp_write_integer(ctx, ((sexp_sint_t*)ip)[1], out); sexp_write_integer(ctx, ((sexp_sint_t*)ip)[1], out);
tmp = ((sexp*)ip)[2]; tmp = ((sexp*)ip)[2];
ip += sizeof(sexp)*3; ip += sizeof(sexp)*3;