Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-06-23 14:26:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

patch from kipples for ffi struct args (fixes issue #330)

Browse source
This commit is contained in:
Alex Shinn 2016-05-18 22:36:59 +09:00
parent 25a8e4f11a
commit cccfe33f7f
2 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
tests/ffi/ffi-tests.scm
View file

@ -284,8 +284,7 @@ double circle_area2(struct Circle circ) {
((struct Point) center circle-center) ((struct Point) center circle-center)
(double radius circle-radius)) (double radius circle-radius))
(define-c double circle_area1 (Circle)) (define-c double circle_area1 (Circle))
;; TODO: struct means no pointer (define-c double circle_area2 ((struct Circle)))
;;(define-c double circle_area2 ((struct Circle)))
(define-c-type Color predicate: color?) (define-c-type Color predicate: color?)
(define-c void set_color (short short short (result pointer Color))) (define-c void set_color (short short short (result pointer Color)))
(define-c Color make_color (short short short)) (define-c Color make_color (short short short))

2
tools/chibi-ffi
View file

@ -764,7 +764,7 @@
(void*? (void-pointer-type? type))) (void*? (void-pointer-type? type)))
(cond (cond
((or ctype void*?) ((or ctype void*?)
(cat (if (type-reference? type) "*" "") (cat (if (or (type-struct? type) (type-reference? type)) "*" "")
"(" (type-c-name type) ")" "(" (type-c-name type) ")"
(if (type-null? type) (if (type-null? type)
"sexp_cpointer_maybe_null_value" "sexp_cpointer_maybe_null_value"