diff options
author | Andy Wingo <wingo@pobox.com> | 2018-06-21 08:39:03 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-06-21 20:18:54 +0200 |
commit | 16879cabed0e9bf218986bc886c3336a5f5a21c0 (patch) | |
tree | 3864d5f4926d4141b2ca0a0d378ca7b854aa6cc8 /libguile/stacks.c | |
parent | 5e5afde06fd9dd0992294d6c7dc9f9966c0caa37 (diff) | |
download | guile-16879cabed0e9bf218986bc886c3336a5f5a21c0.tar.gz |
Replace uses of scm_t_int8, scm_t_uintmax, etc with stdint types
* libguile/bitvectors.c:
* libguile/bitvectors.h:
* libguile/bytevectors.c:
* libguile/bytevectors.h:
* libguile/chars.c:
* libguile/continuations.c:
* libguile/control.c:
* libguile/conv-integer.i.c:
* libguile/conv-uinteger.i.c:
* libguile/dynstack.c:
* libguile/dynstack.h:
* libguile/foreign.c:
* libguile/frames.c:
* libguile/frames.h:
* libguile/gc-inline.h:
* libguile/gc.h:
* libguile/gsubr.c:
* libguile/gsubr.h:
* libguile/hash.c:
* libguile/i18n.c:
* libguile/instructions.c:
* libguile/intrinsics.c:
* libguile/intrinsics.h:
* libguile/loader.c:
* libguile/loader.h:
* libguile/numbers.c:
* libguile/numbers.h:
* libguile/pairs.c:
* libguile/ports-internal.h:
* libguile/ports.c:
* libguile/ports.h:
* libguile/posix.c:
* libguile/print.c:
* libguile/print.h:
* libguile/programs.c:
* libguile/programs.h:
* libguile/r6rs-ports.c:
* libguile/random.c:
* libguile/random.h:
* libguile/scm.h:
* libguile/socket.c:
* libguile/srfi-4.c:
* libguile/srfi-4.h:
* libguile/stacks.c:
* libguile/stime.c:
* libguile/strings.c:
* libguile/struct.c:
* libguile/struct.h:
* libguile/symbols.c:
* libguile/threads.c:
* libguile/threads.h:
* libguile/uniform.c:
* libguile/vm-engine.c:
* libguile/vm.c:
* libguile/vm.h:
* libguile/vports.c:
* test-suite/standalone/test-conversion.c:
* test-suite/standalone/test-ffi-lib.c:
* test-suite/standalone/test-scm-take-u8vector.c:
* test-suite/standalone/test-srfi-4.c: Replace e.g. scm_t_uint8 with
uint8_t.
Diffstat (limited to 'libguile/stacks.c')
-rw-r--r-- | libguile/stacks.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/stacks.c b/libguile/stacks.c index 8f1f64d9e..dcc8d2425 100644 --- a/libguile/stacks.c +++ b/libguile/stacks.c @@ -152,14 +152,14 @@ narrow_stack (long len, enum scm_vm_frame_kind kind, struct scm_frame *frame, && scm_is_integer (scm_cdr (inner_cut))) { /* Cut until an IP within the given range is found. */ - scm_t_uintptr low_pc, high_pc, pc; + uintptr_t low_pc, high_pc, pc; low_pc = scm_to_uintptr_t (scm_car (inner_cut)); high_pc = scm_to_uintptr_t (scm_cdr (inner_cut)); for (; len ;) { - pc = (scm_t_uintptr) frame->ip; + pc = (uintptr_t) frame->ip; len--; scm_c_frame_previous (kind, frame); if (low_pc <= pc && pc < high_pc) @@ -206,7 +206,7 @@ narrow_stack (long len, enum scm_vm_frame_kind kind, struct scm_frame *frame, && scm_is_integer (scm_cdr (outer_cut))) { /* Cut until an IP within the given range is found. */ - scm_t_uintptr low_pc, high_pc, pc; + uintptr_t low_pc, high_pc, pc; long i, new_len; struct scm_frame tmp; @@ -218,7 +218,7 @@ narrow_stack (long len, enum scm_vm_frame_kind kind, struct scm_frame *frame, /* Cut until the given procedure is seen. */ for (new_len = i = 0; i < len; i++, scm_c_frame_previous (kind, &tmp)) { - pc = (scm_t_uintptr) tmp.ip; + pc = (uintptr_t) tmp.ip; if (low_pc <= pc && pc < high_pc) new_len = i; } |