diff options
| author | Andy Wingo <wingo@pobox.com> | 2018-06-11 21:27:37 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2018-06-11 21:27:37 +0200 |
| commit | ceaf782770b597f4eb31a4fca65a75ab220aa47c (patch) | |
| tree | 7097a68f9d116453a4ba4c2413490f400819d216 /libguile/vm.c | |
| parent | 3b463516ef2d4428ae51ff81e72e87a210289673 (diff) | |
| download | guile-ceaf782770b597f4eb31a4fca65a75ab220aa47c.tar.gz | |
Call out to expand_stack through new VM intrinsic
* libguile/intrinsics.h (scm_t_vp_sp_intrinsic): New type.
(SCM_FOR_ALL_VM_INTRINSICS): Add expand-stack.
* libguile/vm-engine.c (ALLOC_FRAME): Call through the intrinsics.
* libguile/vm.c (scm_bootstrap_vm): Initialize the expand-stack
intrinsic.
Diffstat (limited to 'libguile/vm.c')
| -rw-r--r-- | libguile/vm.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/vm.c b/libguile/vm.c index b4bcbe36e..0e824380b 100644 --- a/libguile/vm.c +++ b/libguile/vm.c @@ -1481,6 +1481,7 @@ scm_bootstrap_vm (void) /* page_size should be a power of two. */ if (page_size & (page_size - 1)) abort (); + scm_vm_intrinsics.expand_stack = vm_expand_stack; sym_vm_run = scm_from_latin1_symbol ("vm-run"); sym_vm_error = scm_from_latin1_symbol ("vm-error"); |