Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Some fixes for sagittarius

This commit is contained in:
retropikzel 2024-06-05 21:32:52 +03:00
parent 8ee8b8fc78
commit 3c2033ac2f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
retropikzel/pffi/v0-2-1/sagittarius.scm
View File

@ -87,7 +87,7 @@
(define pffi-pointer-null (define pffi-pointer-null
(lambda () (lambda ()
(empty-pointer))) (integer->pointer 0)))
(define pffi-string->pointer (define pffi-string->pointer
(lambda (string-content) (lambda (string-content)
@ -131,7 +131,7 @@
((equal? type 'unsigned-long) (pointer-set-c-unsigned-long! p offset value)) ((equal? type 'unsigned-long) (pointer-set-c-unsigned-long! p offset value))
((equal? type 'float) (pointer-set-c-float! p offset value)) ((equal? type 'float) (pointer-set-c-float! p offset value))
((equal? type 'double) (pointer-set-c-double! p offset value)) ((equal? type 'double) (pointer-set-c-double! p offset value))
((equal? type 'void*) (pointer-set-c-void*! p offset value)))))) ((equal? type 'void*) (pointer-set-c-pointer p offset value))))))
(define pffi-pointer-get (define pffi-pointer-get
(lambda (pointer type offset) (lambda (pointer type offset)
@ -154,7 +154,7 @@
((equal? native-type 'unsigned-long) (pointer-ref-c-unsigned-long p offset)) ((equal? native-type 'unsigned-long) (pointer-ref-c-unsigned-long p offset))
((equal? native-type 'float) (pointer-ref-c-float p offset)) ((equal? native-type 'float) (pointer-ref-c-float p offset))
((equal? native-type 'double) (pointer-ref-c-double p offset)) ((equal? native-type 'double) (pointer-ref-c-double p offset))
((equal? native-type 'void*) (pointer-ref-c-void* p offset)))))) ((equal? native-type 'void*) (pointer-ref-c-pointer p offset))))))
(define pffi-pointer-deref (define pffi-pointer-deref
(lambda (pointer) (lambda (pointer)