From: Dmitry Bogatov <kact...@gnu.org> New foreign-types: `unsigned-int:` and `unsigned-long:`. --- module/system/foreign/declarative.scm | 30 ++++++++++++++++-------------- 1 file changed, 16 insertions(+), 14 deletions(-)
diff --git a/module/system/foreign/declarative.scm b/module/system/foreign/declarative.scm index 596cce0..3dd28d4 100644 --- a/module/system/foreign/declarative.scm +++ b/module/system/foreign/declarative.scm @@ -92,20 +92,22 @@ (define-foreign-type void: #:decode-proc (lambda (x) x) #:type void) -(mirror-primitive-type size_t <?> integer?) -(mirror-primitive-type int <?> integer?) -(mirror-primitive-type long <?> integer?) -(mirror-primitive-type ptrdiff_t <?> integer?) -(mirror-primitive-type int8 <?> integer?) -(mirror-primitive-type int16 <?> integer?) -(mirror-primitive-type int32 <?> integer?) -(mirror-primitive-type int64 <?> integer?) -(mirror-primitive-type uint8 <?> integer?) -(mirror-primitive-type uint16 <?> integer?) -(mirror-primitive-type uint32 <?> integer?) -(mirror-primitive-type uint64 <?> integer?) -(mirror-primitive-type float <?> real?) -(mirror-primitive-type double <?> real?) +(mirror-primitive-type size_t <?> integer?) +(mirror-primitive-type int <?> integer?) +(mirror-primitive-type unsigned-int <?> integer?) +(mirror-primitive-type long <?> integer?) +(mirror-primitive-type unsigned-long <?> integer?) +(mirror-primitive-type ptrdiff_t <?> integer?) +(mirror-primitive-type int8 <?> integer?) +(mirror-primitive-type int16 <?> integer?) +(mirror-primitive-type int32 <?> integer?) +(mirror-primitive-type int64 <?> integer?) +(mirror-primitive-type uint8 <?> integer?) +(mirror-primitive-type uint16 <?> integer?) +(mirror-primitive-type uint32 <?> integer?) +(mirror-primitive-type uint64 <?> integer?) +(mirror-primitive-type float <?> real?) +(mirror-primitive-type double <?> real?) (mirror-primitive-type '* *: #:validate-proc pointer?) (define-foreign-type string: #:encode-proc string->pointer -- I may be not subscribed. Please, keep me in carbon copy.
