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

off by one error in computing tail jump offset

Browse source
This commit is contained in:
Alex Shinn 2011-07-05 21:38:17 +09:00
parent 54d353375c
commit 5266d15004
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
vm.c
View file

@ -396,7 +396,7 @@ static void generate_tail_jump (sexp ctx, sexp name, sexp loc, sexp lam, sexp ap
/* jump */ /* jump */
emit(ctx, SEXP_OP_JUMP); emit(ctx, SEXP_OP_JUMP);
emit_word(ctx, (sexp_uint_t) (-sexp_context_pos(ctx) - 1 + emit_word(ctx, (sexp_uint_t) (-sexp_context_pos(ctx) +
(sexp_pairp(sexp_lambda_locals(lam)) (sexp_pairp(sexp_lambda_locals(lam))
? 1 + sizeof(sexp) : 0))); ? 1 + sizeof(sexp) : 0)));