conservatory/ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Added bytevector-u64-native-ref, bytevector-u64-native-set!,

Browse Source 
bytevector-s64-native-ref, bytevector-s64-native-set!,
        bytevector-u64-ref, bytevector-u64-set!,
        bytevector-s64-ref, and bytevector-s64-set!.
This commit is contained in:
Abdulaziz Ghuloum
2007-11-11 23:29:54 -05:00
parent 9c8bf4f5c7
commit 0bda5990ec
4 changed files with 127 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scheme/tests/bytevectors.ss
+38
View File
@@ -336,6 +336,44 @@
(reverse (bytevector->u8-list v1)))])
(bytevector-ieee-single-ref v2 0 'little)))]
[(lambda (x) (= x 18302628885633695743))
(let ([bv (u8-list->bytevector
'(255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 253))])
(bytevector-u64-ref bv 8 (endianness little)))]
[(lambda (x) (= x -144115188075855873))
(let ([bv (u8-list->bytevector
'(255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 253))])
(bytevector-s64-ref bv 8 (endianness little)))]
[(lambda (x) (= x 18446744073709551613))
(let ([bv (u8-list->bytevector
'(255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 253))])
(bytevector-u64-ref bv 8 (endianness big)))]
[(lambda (x) (= x -3))
(let ([bv (u8-list->bytevector
'(255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 253))])
(bytevector-s64-ref bv 8 (endianness big)))]
[(lambda (x) (= x 18302628885633695743))
(let ([bv (u8-list->bytevector
'(255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 253))])
(bytevector-u64-native-ref bv 8))]
[(lambda (x) (= x -144115188075855873))
(let ([bv (u8-list->bytevector
'(255 255 255 255 255 255 255 255
255 255 255 255 255 255 255 253))])
(bytevector-s64-native-ref bv 8))]
))