From 6659b4571227516ebdde456131c31b5eec06a39b Mon Sep 17 00:00:00 2001 From: Retropikzel Date: Fri, 8 Nov 2024 07:34:09 +0000 Subject: [PATCH] All tests work now on Mosh. Callbacks do not pass. --- retropikzel/r7rs-pffi/mosh.scm | 2 +- test.scm | 5 ----- 2 files changed, 1 insertion(+), 6 deletions(-) diff --git a/retropikzel/r7rs-pffi/mosh.scm b/retropikzel/r7rs-pffi/mosh.scm index e9c54bc..3beeff4 100644 --- a/retropikzel/r7rs-pffi/mosh.scm +++ b/retropikzel/r7rs-pffi/mosh.scm @@ -129,7 +129,7 @@ ((equal? type 'pointer) 'void*) ((equal? type 'string) 'char*) ((equal? type 'void) 'void) - ((equal? type 'callback) 'callback) + ((equal? type 'callback) 'void*) (else (error "pffi-type->native-type -- No such pffi type" type))))) (define-syntax pffi-define diff --git a/test.scm b/test.scm index bd49e38..24708cf 100644 --- a/test.scm +++ b/test.scm @@ -225,7 +225,6 @@ (pffi-pointer-free pointer-to-be-freed) (debug pointer-to-be-freed) -#| ;; pffi-pointer-set! and pffi-pointer-get 1/2 (print-header "pffi-pointer-set! and pffi-pointer-get 1/2") @@ -270,7 +269,6 @@ (debug (pffi-pointer-get set-pointer 'double offset)) (assert = (pffi-pointer-get set-pointer 'double offset) 1.5) -|# ;; pffi-string->pointer @@ -323,7 +321,6 @@ (debug (pffi-pointer-get hello-string-pointer 'char 4)) (assert char=? (pffi-pointer-get hello-string-pointer 'char 4) #\o) -#| ;; pffi-pointer-set! and pffi-pointer-get 2/2 (print-header "pffi-pointer-set! and pffi-pointer-get 2/2") @@ -350,8 +347,6 @@ (pffi-pointer-set! set-pointer 'pointer offset (pffi-string->pointer string-to-be-set)) (assert string=? (pffi-pointer->string (pffi-pointer-get set-pointer 'pointer offset)) "FOOBAR") -|# - ;; pffi-define (print-header 'pffi-define)