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

fixed wrong endianness in bytevector-[su]32-native-ref.

This commit is contained in:
Abdulaziz Ghuloum 2008-10-21 06:03:31 -04:00
parent 8d460a32af
commit f1013454db
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
scheme/ikarus.bytevectors.ss
View File

@ -258,12 +258,12 @@
($fx<= 0 i) ($fx<= 0 i)
($fx= 0 ($fxlogand i 3)) ($fx= 0 ($fxlogand i 3))
($fx< i ($fx- ($bytevector-length x) 3))) ($fx< i ($fx- ($bytevector-length x) 3)))
(+ (sll ($bytevector-u8-ref x i) 24) (+ (sll ($bytevector-u8-ref x ($fx+ i 3)) 24)
($fxlogor ($fxlogor
($fxsll ($bytevector-u8-ref x ($fx+ i 1)) 16) ($fxsll ($bytevector-u8-ref x ($fx+ i 2)) 16)
($fxlogor ($fxlogor
($fxsll ($bytevector-u8-ref x ($fx+ i 2)) 8) ($fxsll ($bytevector-u8-ref x ($fx+ i 1)) 8)
($bytevector-u8-ref x ($fx+ i 3))))) ($bytevector-u8-ref x i))))
(die 'bytevector-u32-native-ref "invalid index" i)) (die 'bytevector-u32-native-ref "invalid index" i))
(die 'bytevector-u32-native-ref "not a bytevector" x)))) (die 'bytevector-u32-native-ref "not a bytevector" x))))
@ -299,12 +299,12 @@
($fx<= 0 i) ($fx<= 0 i)
($fx= 0 ($fxlogand i 3)) ($fx= 0 ($fxlogand i 3))
($fx< i ($fx- ($bytevector-length x) 3))) ($fx< i ($fx- ($bytevector-length x) 3)))
(+ (sll ($bytevector-s8-ref x i) 24) (+ (sll ($bytevector-s8-ref x ($fx+ i 3)) 24)
($fxlogor ($fxlogor
($fxsll ($bytevector-u8-ref x ($fx+ i 1)) 16) ($fxsll ($bytevector-u8-ref x ($fx+ i 2)) 16)
($fxlogor ($fxlogor
($fxsll ($bytevector-u8-ref x ($fx+ i 2)) 8) ($fxsll ($bytevector-u8-ref x ($fx+ i 1)) 8)
($bytevector-u8-ref x ($fx+ i 3))))) ($bytevector-u8-ref x i))))
(die 'bytevector-s32-native-ref "invalid index" i)) (die 'bytevector-s32-native-ref "invalid index" i))
(die 'bytevector-s32-native-ref "not a bytevector" x)))) (die 'bytevector-s32-native-ref "not a bytevector" x))))

2
scheme/last-revision
View File

@ -1 +1 @@
1641 1642