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

Fix to use c-type-size

This commit is contained in:
retropikzel 2025-06-03 18:55:59 +03:00
parent ea9b84ce77
commit ee16934bac
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/callback.scm
View File

@ -92,10 +92,10 @@
(print-header 'define-c-callback) (print-header 'define-c-callback)
(define array (make-c-bytevector (* (c-size-of 'int) 3))) (define array (make-c-bytevector (* (c-type-size 'int) 3)))
(c-bytevector-s32-native-set! array (* (c-size-of 'int) 0) 3) (c-bytevector-s32-native-set! array (* (c-type-size 'int) 0) 3)
(c-bytevector-s32-native-set! array (* (c-size-of 'int) 1) 2) (c-bytevector-s32-native-set! array (* (c-type-size 'int) 1) 2)
(c-bytevector-s32-native-set! array (* (c-size-of 'int) 2) 1) (c-bytevector-s32-native-set! array (* (c-type-size 'int) 2) 1)
(define-c-procedure qsort libc 'qsort 'void '(pointer int int callback)) (define-c-procedure qsort libc 'qsort 'void '(pointer int int callback))
@ -111,17 +111,17 @@
(write compare) (write compare)
(newline) (newline)
(define unsorted (list (c-bytevector-s32-native-ref array (* (c-size-of 'int) 0)) (define unsorted (list (c-bytevector-s32-native-ref array (* (c-type-size 'int) 0))
(c-bytevector-s32-native-ref array (* (c-size-of 'int) 1)) (c-bytevector-s32-native-ref array (* (c-type-size 'int) 1))
(c-bytevector-s32-native-ref array (* (c-size-of 'int) 2)))) (c-bytevector-s32-native-ref array (* (c-type-size 'int) 2))))
(debug unsorted) (debug unsorted)
(assert equal? unsorted (list 3 2 1)) (assert equal? unsorted (list 3 2 1))
(qsort array 3 (c-size-of 'int) compare) (qsort array 3 (c-type-size 'int) compare)
(define sorted (list (c-bytevector-s32-native-ref array (* (c-size-of 'int) 0)) (define sorted (list (c-bytevector-s32-native-ref array (* (c-type-size 'int) 0))
(c-bytevector-s32-native-ref array (* (c-size-of 'int) 1)) (c-bytevector-s32-native-ref array (* (c-type-size 'int) 1))
(c-bytevector-s32-native-ref array (* (c-size-of 'int) 2)))) (c-bytevector-s32-native-ref array (* (c-type-size 'int) 2))))
(debug sorted) (debug sorted)
(assert equal? sorted (list 1 2 3)) (assert equal? sorted (list 1 2 3))