diff options
| author | Andy Wingo <wingo@pobox.com> | 2013-11-19 18:09:34 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2013-11-19 18:09:34 +0100 |
| commit | 9121d9f1ac21a91d2031a186a5b3c77d551acaa4 (patch) | |
| tree | d8525983a542d48b98d361276c0415aac4ce8628 /libguile/dynstack.h | |
| parent | b636cdb0f3e1b7e8723c214db7a9c80edac9ead6 (diff) | |
All instruction pointers are now scm_t_uint32*
* libguile/frames.h (SCM_FRAME_RTL_RETURN_ADDRESS)
(SCM_FRAME_SET_RTL_RETURN_ADDRESS): Remove. The variants without _RTL
now work fine.
(struct scm_vm_frame): Change the return address to be a
scm_t_uint32*.
(struct scm_frame): Change IP to be scm_t_uint32*.
* libguile/frames.c (scm_c_make_frame)
* libguile/control.c (reify_partial_continuation, scm_c_abort)
* libguile/dynstack.c (PROMPT_IP)
(scm_dynstack_push_prompt, scm_dynstack_find_prompt)
* libguile/dynstack.h:
* libguile/vm-engine.c (SYNC_IP, RETURN_ONE_VALUE)
(call, return-values, prompt): Adapt.
Diffstat (limited to 'libguile/dynstack.h')
| -rw-r--r-- | libguile/dynstack.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/dynstack.h b/libguile/dynstack.h index 08e36a2b9..fe5bb5483 100644 --- a/libguile/dynstack.h +++ b/libguile/dynstack.h @@ -155,7 +155,7 @@ SCM_INTERNAL void scm_dynstack_push_fluid (scm_t_dynstack *, SCM_INTERNAL void scm_dynstack_push_prompt (scm_t_dynstack *, scm_t_dynstack_prompt_flags, SCM key, - SCM *fp, SCM *sp, scm_t_uint8 *ip, + SCM *fp, SCM *sp, scm_t_uint32 *ip, scm_i_jmp_buf *registers); SCM_INTERNAL void scm_dynstack_push_dynwind (scm_t_dynstack *, SCM enter, SCM leave); @@ -191,7 +191,7 @@ SCM_INTERNAL void scm_dynstack_unwind_fluid (scm_t_dynstack *dynstack, SCM_INTERNAL scm_t_bits* scm_dynstack_find_prompt (scm_t_dynstack *, SCM, scm_t_dynstack_prompt_flags *, - SCM **, SCM **, scm_t_uint8 **, + SCM **, SCM **, scm_t_uint32 **, scm_i_jmp_buf **); SCM_INTERNAL void scm_dynstack_wind_prompt (scm_t_dynstack *, scm_t_bits *, |