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

alien.endian: Add a couple more types. This vocab needs better 

compatibility with c-types.
modern-harvey2
Doug Coleman 2017-07-03 19:14:28 -07:00
parent b720e46bc7
commit 6cfa87a379
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -119,6 +119,7 @@ ERROR: unsupported-endian-type endian slot ;
first2 [ slot>endian-slot ] dip 2array first2 [ slot>endian-slot ] dip 2array
] [ ] [
{ {
{ [ dup bool = ] [ 2drop bool ] }
{ [ dup char = ] [ 2drop char ] } { [ dup char = ] [ 2drop char ] }
{ [ dup uchar = ] [ 2drop uchar ] } { [ dup uchar = ] [ 2drop uchar ] }
{ [ dup c:short = ] [ { le16 be16 } endian-slot ] } { [ dup c:short = ] [ { le16 be16 } endian-slot ] }
@ -128,6 +129,7 @@ ERROR: unsupported-endian-type endian slot ;
{ [ dup longlong = ] [ { le64 be64 } endian-slot ] } { [ dup longlong = ] [ { le64 be64 } endian-slot ] }
{ [ dup ulonglong = ] [ { ule64 ube64 } endian-slot ] } { [ dup ulonglong = ] [ { ule64 ube64 } endian-slot ] }
{ [ dup endian-c-type? ] [ nip ] } { [ dup endian-c-type? ] [ nip ] }
{ [ dup pointer? ] [ nip ] }
[ unsupported-endian-type ] [ unsupported-endian-type ]
} cond } cond
] if ; ] if ;