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

alien.c-types: Looks like ffi_test_59 found a bug after all. Add comments because it's confusing on small screens.

db4
Doug Coleman 2014-07-07 20:47:40 -07:00
parent 908bfa2db6
commit bcd7c743a2
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/alien/c-types/c-types.factor
View File

@ -318,6 +318,7 @@ M: pointer lookup-c-type
\ double typedef \ double typedef
cell 8 = [ cell 8 = [
! 64bit-vm int
<c-type> <c-type>
fixnum >>class fixnum >>class
fixnum >>boxed-class fixnum >>boxed-class
@ -332,6 +333,7 @@ M: pointer lookup-c-type
[ >fixnum ] >>unboxer-quot [ >fixnum ] >>unboxer-quot
\ int typedef \ int typedef
! 64bit-vm uint
<c-type> <c-type>
fixnum >>class fixnum >>class
fixnum >>boxed-class fixnum >>boxed-class
@ -345,6 +347,7 @@ M: pointer lookup-c-type
[ >fixnum ] >>unboxer-quot [ >fixnum ] >>unboxer-quot
\ uint typedef \ uint typedef
! 64bit-vm longlong
<c-type> <c-type>
integer >>class integer >>class
integer >>boxed-class integer >>boxed-class
@ -355,10 +358,11 @@ M: pointer lookup-c-type
8 >>align 8 >>align
8 >>align-first 8 >>align-first
"from_signed_cell" >>boxer "from_signed_cell" >>boxer
"to_fixnum" >>unboxer "to_signed_8" >>unboxer
[ >integer ] >>unboxer-quot [ >integer ] >>unboxer-quot
\ longlong typedef \ longlong typedef
! 64bit-vm ulonglong
<c-type> <c-type>
integer >>class integer >>class
integer >>boxed-class integer >>boxed-class
@ -386,6 +390,7 @@ M: pointer lookup-c-type
\ ulonglong lookup-c-type \ uintptr_t typedef \ ulonglong lookup-c-type \ uintptr_t typedef
\ ulonglong lookup-c-type \ size_t typedef \ ulonglong lookup-c-type \ size_t typedef
] [ ] [
! 32bit-vm int
<c-type> <c-type>
integer >>class integer >>class
integer >>boxed-class integer >>boxed-class
@ -400,6 +405,7 @@ M: pointer lookup-c-type
[ >integer ] >>unboxer-quot [ >integer ] >>unboxer-quot
\ int typedef \ int typedef
! 32bit-vm uint
<c-type> <c-type>
integer >>class integer >>class
integer >>boxed-class integer >>boxed-class
@ -413,6 +419,7 @@ M: pointer lookup-c-type
[ >integer ] >>unboxer-quot [ >integer ] >>unboxer-quot
\ uint typedef \ uint typedef
! 32bit-vm longlong
<long-long-type> <long-long-type>
integer >>class integer >>class
integer >>boxed-class integer >>boxed-class
@ -426,6 +433,7 @@ M: pointer lookup-c-type
[ >integer ] >>unboxer-quot [ >integer ] >>unboxer-quot
\ longlong typedef \ longlong typedef
! 32bit-vm ulonglong
<long-long-type> <long-long-type>
integer >>class integer >>class
integer >>boxed-class integer >>boxed-class