alien.marshall: added struct-arrays to marshall-pointer
parent
e2797b83bc
commit
25e034adb6
basis/alien/marshall
|
@ -31,6 +31,7 @@ M: struct-wrapper dynamic-cast ;
|
|||
{ [ dup not ] [ ] }
|
||||
{ [ dup byte-array? ] [ malloc-byte-array ] }
|
||||
{ [ dup alien-wrapper? ] [ underlying>> ] }
|
||||
{ [ dup struct-array? ] [ underlying>> ] }
|
||||
} cond ;
|
||||
|
||||
: marshall-void* ( obj -- alien )
|
||||
|
|
Loading…
Reference in New Issue