mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

Merge 'master' into 'lightning'

Browse source
This commit is contained in:
Andy Wingo 2018-07-20 11:41:54 +02:00
commit 9fc5282ca5
3 changed files with 13 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/vm-engine.c
View file

@ -335,7 +335,7 @@ VM_NAME (scm_thread *thread)
VM_ASSERT (nvals <= (UINTPTR_MAX >> 8), abort ());
ret = scm_words ((nvals << 8) | scm_tc7_values, nvals + 1);
for (n = 0; n < nvals; n++)
SCM_SET_CELL_OBJECT (ret, n+1, FP_REF (4 + n - 1));
SCM_SET_CELL_OBJECT (ret, n+1, FP_REF (4 + n));
}
VP->ip = SCM_FRAME_RETURN_ADDRESS (VP->fp);