Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

make pid_t and some other POSIX integer types signed (issue #769)

Browse source
This commit is contained in:
Alex Shinn 2021-08-04 16:26:11 +09:00
parent f1b8a5bce9
commit 4907d53922
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tools/chibi-ffi
View file

@ -214,15 +214,16 @@
(define (signed-int-type? type) (define (signed-int-type? type)
(or (memq type '(signed-char short int long s8 s16 s32 s64 (or (memq type '(signed-char short int long s8 s16 s32 s64
int8_t int16_t int32_t int64_t)) int8_t int16_t int32_t int64_t
pid_t off_t ssize_t blkcnt_t blksize_t))
(memq type *c-int-types*) (memq type *c-int-types*)
(enum-type? type))) (enum-type? type)))
(define (unsigned-int-type? type) (define (unsigned-int-type? type)
(memq type '(unsigned-char unsigned-short unsigned unsigned-int unsigned-long (memq type '(unsigned-char unsigned-short unsigned unsigned-int unsigned-long
size_t off_t time_t clock_t dev_t ino_t mode_t nlink_t size_t time_t clock_t dev_t ino_t mode_t nlink_t
uint8_t uint16_t uint32_t uint64_t uint8_t uint16_t uint32_t uint64_t
uid_t gid_t pid_t blksize_t blkcnt_t sigval_t uid_t gid_t sigval_t
u1 u8 u16 u32 u64))) u1 u8 u16 u32 u64)))
(define (int-type? type) (define (int-type? type)