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/programs.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/programs.c')
-rw-r--r-- | libguile/programs.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/programs.c b/libguile/programs.c index c8f2ec3d9..20a5ed265 100644 --- a/libguile/programs.c +++ b/libguile/programs.c @@ -49,7 +49,7 @@ SCM_DEFINE (scm_program_code, "program-code", 1, 0, 0, { SCM_VALIDATE_PROGRAM (1, program); - return scm_from_uintptr_t ((scm_t_uintptr) SCM_PROGRAM_CODE (program)); + return scm_from_uintptr_t ((uintptr_t) SCM_PROGRAM_CODE (program)); } #undef FUNC_NAME @@ -131,7 +131,7 @@ scm_i_program_print (SCM program, SCM port, scm_print_state *pstate) scm_puts ("#<program ", port); scm_uintprint (SCM_UNPACK (program), 16, port); scm_putc (' ', port); - scm_uintprint ((scm_t_uintptr) SCM_PROGRAM_CODE (program), 16, port); + scm_uintprint ((uintptr_t) SCM_PROGRAM_CODE (program), 16, port); scm_putc ('>', port); } else @@ -161,7 +161,7 @@ SCM_DEFINE (scm_primitive_code_p, "primitive-code?", 1, 0, 0, "") #define FUNC_NAME s_scm_primitive_code_p { - const scm_t_uint32 * ptr = (const scm_t_uint32 *) scm_to_uintptr_t (code); + const uint32_t * ptr = (const uint32_t *) scm_to_uintptr_t (code); return scm_from_bool (scm_i_primitive_code_p (ptr)); } @@ -252,8 +252,8 @@ SCM_DEFINE (scm_program_free_variable_set_x, "program-free-variable-set!", 3, 0, static int try_parse_arity (SCM program, int *req, int *opt, int *rest) { - scm_t_uint32 *code = SCM_PROGRAM_CODE (program); - scm_t_uint32 slots, min; + uint32_t *code = SCM_PROGRAM_CODE (program); + uint32_t slots, min; switch (code[0] & 0xff) { case scm_op_assert_nargs_ee: |