mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
Merge pull request #537 from lassik/fix-printf-warning
Avoid compiler warning about mismatched printf types
This commit is contained in:
commit
624b54c05c
1 changed files with 5 additions and 11 deletions
|
@ -215,10 +215,12 @@ enum sexp_types {
|
||||||
typedef unsigned int sexp_tag_t;
|
typedef unsigned int sexp_tag_t;
|
||||||
typedef unsigned long long sexp_uint_t;
|
typedef unsigned long long sexp_uint_t;
|
||||||
typedef long long sexp_sint_t;
|
typedef long long sexp_sint_t;
|
||||||
|
#define SEXP_PRIdFIXNUM "lld"
|
||||||
#else
|
#else
|
||||||
typedef unsigned short sexp_tag_t;
|
typedef unsigned short sexp_tag_t;
|
||||||
typedef unsigned int sexp_uint_t;
|
typedef unsigned int sexp_uint_t;
|
||||||
typedef int sexp_sint_t;
|
typedef int sexp_sint_t;
|
||||||
|
#define SEXP_PRIdFIXNUM "d"
|
||||||
#endif
|
#endif
|
||||||
#define sexp_heap_align(n) sexp_align(n, 5)
|
#define sexp_heap_align(n) sexp_align(n, 5)
|
||||||
#define sexp_heap_chunks(n) (sexp_heap_align(n)>>5)
|
#define sexp_heap_chunks(n) (sexp_heap_align(n)>>5)
|
||||||
|
@ -226,18 +228,21 @@ typedef int sexp_sint_t;
|
||||||
typedef unsigned int sexp_tag_t;
|
typedef unsigned int sexp_tag_t;
|
||||||
typedef unsigned long sexp_uint_t;
|
typedef unsigned long sexp_uint_t;
|
||||||
typedef long sexp_sint_t;
|
typedef long sexp_sint_t;
|
||||||
|
#define SEXP_PRIdFIXNUM "ld"
|
||||||
#define sexp_heap_align(n) sexp_align(n, 5)
|
#define sexp_heap_align(n) sexp_align(n, 5)
|
||||||
#define sexp_heap_chunks(n) (sexp_heap_align(n)>>5)
|
#define sexp_heap_chunks(n) (sexp_heap_align(n)>>5)
|
||||||
#elif defined(__CYGWIN__)
|
#elif defined(__CYGWIN__)
|
||||||
typedef unsigned short sexp_tag_t;
|
typedef unsigned short sexp_tag_t;
|
||||||
typedef unsigned int sexp_uint_t;
|
typedef unsigned int sexp_uint_t;
|
||||||
typedef int sexp_sint_t;
|
typedef int sexp_sint_t;
|
||||||
|
#define SEXP_PRIdFIXNUM "d"
|
||||||
#define sexp_heap_align(n) sexp_align(n, 5)
|
#define sexp_heap_align(n) sexp_align(n, 5)
|
||||||
#define sexp_heap_chunks(n) (sexp_heap_align(n)>>5)
|
#define sexp_heap_chunks(n) (sexp_heap_align(n)>>5)
|
||||||
#else
|
#else
|
||||||
typedef unsigned short sexp_tag_t;
|
typedef unsigned short sexp_tag_t;
|
||||||
typedef unsigned int sexp_uint_t;
|
typedef unsigned int sexp_uint_t;
|
||||||
typedef int sexp_sint_t;
|
typedef int sexp_sint_t;
|
||||||
|
#define SEXP_PRIdFIXNUM "d"
|
||||||
#define sexp_heap_align(n) sexp_align(n, 4)
|
#define sexp_heap_align(n) sexp_align(n, 4)
|
||||||
#define sexp_heap_chunks(n) (sexp_heap_align(n)>>4)
|
#define sexp_heap_chunks(n) (sexp_heap_align(n)>>4)
|
||||||
#endif
|
#endif
|
||||||
|
@ -290,17 +295,6 @@ typedef short sexp_int32_t;
|
||||||
#define SEXP_PRIdOFF "ld"
|
#define SEXP_PRIdOFF "ld"
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if SEXP_USE_INTTYPES
|
|
||||||
#include <inttypes.h>
|
|
||||||
#if SEXP_64_BIT
|
|
||||||
#define SEXP_PRIdFIXNUM PRId64
|
|
||||||
#else
|
|
||||||
#define SEXP_PRIdFIXNUM PRId32
|
|
||||||
#endif
|
|
||||||
#else
|
|
||||||
#define SEXP_PRIdFIXNUM "ld"
|
|
||||||
#endif
|
|
||||||
|
|
||||||
#if SEXP_USE_LONG_PROCEDURE_ARGS
|
#if SEXP_USE_LONG_PROCEDURE_ARGS
|
||||||
typedef int sexp_proc_num_args_t;
|
typedef int sexp_proc_num_args_t;
|
||||||
#else
|
#else
|
||||||
|
|
Loading…
Add table
Reference in a new issue