/[cffi-objects]/array.lisp
ViewVC logotype

Diff of /array.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 14 by rklochkov, Sat Dec 22 19:24:45 2012 UTC revision 15 by rklochkov, Tue Dec 25 01:10:43 2012 UTC
# Line 34  Line 34 
34             (type (element-type cffi-array)))             (type (element-type cffi-array)))
35        (if (struct-p type)        (if (struct-p type)
36            (dotimes (i array-length res)            (dotimes (i array-length res)
37              (setf (aref res i) (convert-from-foreign (mem-aptr ptr type i)              (setf (aref res i) (convert-from-foreign
38                                                       type)))                                  (mem-aptr ptr (list :struct (second type)) i)
39                                    type)))
40            (dotimes (i array-length res)            (dotimes (i array-length res)
41              (setf (aref res i) (mem-aref ptr type i)))))))              (setf (aref res i) (mem-aref ptr type i)))))))
42    

Legend:
Removed from v.14  
changed lines
  Added in v.15

  ViewVC Help
Powered by ViewVC 1.1.5