me
/
guix
Archived
1
0
Fork 0
Code

syscalls: 'define-c-struct' distinguishes pointers from integers. 

* guix/build/syscalls.scm (read-type): Add special-case for when TYPE is '*.
master
Ludovic Courtès 2015-07-25 11:50:23 +02:00
parent b89e74054e
commit 4a30e84e61
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
guix/build/syscalls.scm
View File

@ -388,7 +388,11 @@ system to PUT-OLD."
(types ...) (fields ...)))))) (types ...) (fields ...))))))
(define-syntax read-type (define-syntax read-type
(syntax-rules (~) (syntax-rules (~ quote *)
((_ bv offset '*)
(make-pointer (bytevector-uint-ref bv offset
(native-endianness)
(sizeof* '*))))
((_ bv offset (type ~ order)) ((_ bv offset (type ~ order))
(bytevector-uint-ref bv offset (bytevector-uint-ref bv offset
(endianness order) (sizeof* type))) (endianness order) (sizeof* type)))