30 Dec
2005
30 Dec
'05
1:08 p.m.
foreign-type-size:
CFFI[56]> (defcstruct foo (a :double) (c :char)) FOO CFFI[57]> (foreign-type-size :double) 8 CFFI[58]> (foreign-type-size :char) 1 CFFI[59]> (foreign-type-size 'foo) 16 ;; in example - 12
foreign-alloc:
CFFI[72]> (foreign-alloc :int :initial-contents '(1 2 3)) #<FOREIGN-ADDRESS #x012D54A0> CFFI[73]> (loop for i from 0 below 3 collect (mem-ref * :int i)) (1 33554432 131072) CFFI[74]> (foreign-alloc :int :initial-contents #(1 2 3)) #<FOREIGN-ADDRESS #x012D5578> CFFI[75]> (loop for i from 0 below 3 collect (mem-ref * :int i)) (1 33554432 131072)
Oops?
Thanks!
--
WBR, Yaroslav Kavenchuk.