Ignore:
Timestamp:
May 17, 2005, 2:43:41 PM (15 years ago)
Author:
gb
Message:

change target ftd arg handling

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/library/parse-ffi.lisp

    r1454 r1469  
    707707
    708708(defun parse-standard-ffi-files (dirname &key
    709                                          (ftd *target-ftd*)
    710                                          (prepend-underscores
    711                                           #+(or darwinppc-target) t
    712                                           #-(or darwinppc-target) nil))
    713   (let* ((*parse-ffi-target-ftd* ftd)
     709                                         target)
     710  (let* ((backend (if target (find-backend target) *target-backend*))
     711         (ftd (backend-target-foreign-type-data backend))
     712         (*parse-ffi-target-ftd* ftd)
     713         (*target-ftd* ftd)
    714714         (d (use-interface-dir dirname ftd))
    715715         (interface-dir (merge-pathnames
    716716                         (interface-dir-subdir d)
    717717                         (ftd-interface-db-directory ftd)))
    718          (*prepend-underscores-to-ffi-function-names* prepend-underscores)
     718         (*prepend-underscores-to-ffi-function-names*
     719          (getf (ftd-attributes ftd) :prepend-underscores))
    719720         (*ffi-global-typedefs* (make-hash-table :test 'string= :hash-function 'sxhash))
    720721         (*ffi-global-unions* (make-hash-table :test 'string= :hash-function 'sxhash))
Note: See TracChangeset for help on using the changeset viewer.