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

Initialize record fields to void.

Browse source
This commit is contained in:
Alex Shinn 2013-04-05 20:20:03 +09:00
parent 7c1c40fb07
commit 07c6e3765b
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
vm.c
View file

@ -1506,6 +1506,9 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
_ALIGN_IP(); _ALIGN_IP();
sexp_context_top(ctx) = top; sexp_context_top(ctx) = top;
_PUSH(sexp_alloc_tagged(ctx, _UWORD1, _UWORD0)); _PUSH(sexp_alloc_tagged(ctx, _UWORD1, _UWORD0));
/* initialize fields to void */
for (i=(_UWORD1-sexp_sizeof_header)/sizeof(sexp_uint_t) - 1; i>=0; i--)
sexp_slot_set(_ARG1, i, SEXP_VOID);
ip += sizeof(sexp)*2; ip += sizeof(sexp)*2;
break; break;
case SEXP_OP_SLOT_REF: case SEXP_OP_SLOT_REF: