steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "Optimize byte-reverse macro in alien.endian -- it was shifting each byte to the 0th bit place, bitand-ing it with HEX: ff, then shifting it to its final destination -- now we immediately shift to the proper location and bitand with the proper bitmask." 

This reverts commit c701a39e89.
db4
John Benediktsson 2011-10-17 21:38:49 -07:00
parent 90e1002349
commit 9f4eeb55f9
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/alien/endian/endian.factor
View File

@ -18,21 +18,13 @@ ERROR: invalid-signed-conversion n ;
[ invalid-signed-conversion ] [ invalid-signed-conversion ]
} case ; inline } case ; inline
<PRIVATE
: byte-mask ( #bits-shift -- mask )
[ HEX: ff ] dip shift ; foldable
PRIVATE>
MACRO: byte-reverse ( n signed? -- quot ) MACRO: byte-reverse ( n signed? -- quot )
[ [
drop drop
[ [
dup iota [ dup iota [
[ 1 + - -8 * ] [ nip 8 * ] 2bi [ 1 + - -8 * ] [ nip 8 * ] 2bi
[ + ] [ nip byte-mask ] 2bi '[ _ shift HEX: ff bitand _ shift ]
'[ _ shift _ bitand ]
] with map ] with map
] [ 1 - [ bitor ] n*quot ] bi ] [ 1 - [ bitor ] n*quot ] bi
] [ ] [