alien.marshall: added struct-arrays to marshall-pointer

db4
Jeremy Hughes 2009-07-08 16:42:25 +12:00
parent e2797b83bc
commit 25e034adb6
1 changed files with 1 additions and 0 deletions

View File

@ -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 )