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

io.binary.fast: le> and be> should be unsigned.

db4
John Benediktsson 2014-06-23 21:12:26 -07:00
parent 607d0becb2
commit 08dcbdc949
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/io/binary/fast/fast.factor
View File

@ -46,13 +46,13 @@ MACRO: reassemble-le ( n -- quot ) le-range reassemble-bytes ;
PRIVATE> PRIVATE>
: 2be> ( bytes -- x ) : 2be> ( bytes -- x )
big-endian [ c:short deref ] [ 2 n-be> ] if-endian ; big-endian [ c:ushort deref ] [ 2 n-be> ] if-endian ;
: 4be> ( bytes -- x ) : 4be> ( bytes -- x )
big-endian [ c:int deref ] [ 4 n-be> ] if-endian ; big-endian [ c:uint deref ] [ 4 n-be> ] if-endian ;
: 8be> ( bytes -- x ) : 8be> ( bytes -- x )
big-endian [ c:longlong deref ] [ 8 n-be> ] if-endian ; big-endian [ c:ulonglong deref ] [ 8 n-be> ] if-endian ;
: be> ( bytes -- x ) : be> ( bytes -- x )
dup length { dup length {
@ -63,13 +63,13 @@ PRIVATE>
} case ; } case ;
: 2le> ( bytes -- x ) : 2le> ( bytes -- x )
little-endian [ c:short deref ] [ 2 n-le> ] if-endian ; little-endian [ c:ushort deref ] [ 2 n-le> ] if-endian ;
: 4le> ( bytes -- x ) : 4le> ( bytes -- x )
little-endian [ c:int deref ] [ 4 n-le> ] if-endian ; little-endian [ c:uint deref ] [ 4 n-le> ] if-endian ;
: 8le> ( bytes -- x ) : 8le> ( bytes -- x )
little-endian [ c:longlong deref ] [ 8 n-le> ] if-endian ; little-endian [ c:ulonglong deref ] [ 8 n-le> ] if-endian ;
: le> ( bytes -- x ) : le> ( bytes -- x )
dup length { dup length {