diff options
author | Andy Wingo <wingo@pobox.com> | 2018-06-21 08:43:47 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-06-21 20:20:01 +0200 |
commit | 6ad1fc9ce067b912892dd82c944d3870205301bd (patch) | |
tree | 2953b71490c3f431bc3f36c1349b70039ea5d222 /libguile/dynstack.c | |
parent | 16879cabed0e9bf218986bc886c3336a5f5a21c0 (diff) | |
download | guile-6ad1fc9ce067b912892dd82c944d3870205301bd.tar.gz |
Use ptrdiff_t instead of scm_t_ptrdiff
* libguile/continuations.h:
* libguile/control.c:
* libguile/control.h:
* libguile/dynstack.c:
* libguile/dynstack.h:
* libguile/eval.c:
* libguile/foreign.c:
* libguile/frames.h:
* libguile/gen-scmconfig.c:
* libguile/gsubr.c:
* libguile/gsubr.h:
* libguile/loader.c:
* libguile/numbers.h:
* libguile/stacks.c:
* libguile/throw.c:
* libguile/vm-engine.c:
* libguile/vm.c:
* libguile/vm.h: Use ptrdiff_t from stddef.h.
Diffstat (limited to 'libguile/dynstack.c')
-rw-r--r-- | libguile/dynstack.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/dynstack.c b/libguile/dynstack.c index a3cc68f96..6a5d9c215 100644 --- a/libguile/dynstack.c +++ b/libguile/dynstack.c @@ -39,9 +39,9 @@ #define PROMPT_WORDS 5 #define PROMPT_KEY(top) (SCM_PACK ((top)[0])) -#define PROMPT_FP(top) ((scm_t_ptrdiff) ((top)[1])) +#define PROMPT_FP(top) ((ptrdiff_t) ((top)[1])) #define SET_PROMPT_FP(top, fp) do { top[1] = (scm_t_bits)(fp); } while (0) -#define PROMPT_SP(top) ((scm_t_ptrdiff) ((top)[2])) +#define PROMPT_SP(top) ((ptrdiff_t) ((top)[2])) #define SET_PROMPT_SP(top, sp) do { top[2] = (scm_t_bits)(sp); } while (0) #define PROMPT_IP(top) ((uint32_t *) ((top)[3])) #define PROMPT_JMPBUF(top) ((jmp_buf *) ((top)[4])) @@ -195,7 +195,7 @@ void scm_dynstack_push_prompt (scm_t_dynstack *dynstack, scm_t_dynstack_prompt_flags flags, SCM key, - scm_t_ptrdiff fp_offset, scm_t_ptrdiff sp_offset, + ptrdiff_t fp_offset, ptrdiff_t sp_offset, uint32_t *ip, jmp_buf *registers) { scm_t_bits *words; @@ -293,7 +293,7 @@ scm_dynstack_capture (scm_t_dynstack *dynstack, scm_t_bits *item) } void -scm_dynstack_relocate_prompts (scm_t_dynstack *dynstack, scm_t_ptrdiff base) +scm_dynstack_relocate_prompts (scm_t_dynstack *dynstack, ptrdiff_t base) { scm_t_bits *walk; @@ -498,7 +498,7 @@ scm_dynstack_unwind_fork (scm_t_dynstack *dynstack, scm_t_dynstack *branch) scm_t_bits* scm_dynstack_find_prompt (scm_t_dynstack *dynstack, SCM key, scm_t_dynstack_prompt_flags *flags, - scm_t_ptrdiff *fp_offset, scm_t_ptrdiff *sp_offset, + ptrdiff_t *fp_offset, ptrdiff_t *sp_offset, uint32_t **ip, jmp_buf **registers) { scm_t_bits *walk; @@ -579,7 +579,7 @@ scm_dynstack_find_old_fluid_value (scm_t_dynstack *dynstack, SCM fluid, void scm_dynstack_wind_prompt (scm_t_dynstack *dynstack, scm_t_bits *item, - scm_t_ptrdiff base_fp_offset, + ptrdiff_t base_fp_offset, jmp_buf *registers) { scm_t_bits tag = SCM_DYNSTACK_TAG (item); |