Changeset 8955


Ignore:
Timestamp:
Mar 30, 2008, 8:05:35 AM (11 years ago)
Author:
gb
Message:

Conditionalize canonical foreign types for win64.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/lib/foreign-types.lisp

    r8727 r8955  
    16951695      (canonicalize-foreign-type-ordinal #+64-bit-target :long #-64-bit-target nil)
    16961696      (canonicalize-foreign-type-ordinal :address)
    1697       (canonicalize-foreign-type-ordinal #-darwin-target
     1697      (canonicalize-foreign-type-ordinal #-(or windows-target darwin-target)
    16981698                                         :<D>l_info
    1699                                          #+darwin-target nil)
     1699                                         #+(or windows-target darwin-target) nil)
    17001700      (canonicalize-foreign-type-ordinal '(:struct :timespec))
    17011701      (canonicalize-foreign-type-ordinal '(:struct :timeval))
    17021702      (canonicalize-foreign-type-ordinal '(:struct :sockaddr_in))
    1703       (canonicalize-foreign-type-ordinal '(:struct :sockaddr_un))
     1703      (canonicalize-foreign-type-ordinal #+windows-target nil
     1704                                         #-windows-target '(:struct :sockaddr_un))
    17041705      (canonicalize-foreign-type-ordinal '(:struct :linger))
    17051706      (canonicalize-foreign-type-ordinal '(:struct :hostent))
    17061707      (canonicalize-foreign-type-ordinal '(:array :unsigned-long 3))
    17071708      (canonicalize-foreign-type-ordinal '(:* :char))
    1708       (canonicalize-foreign-type-ordinal '(:struct :stat))
    1709       (canonicalize-foreign-type-ordinal '(:struct :passwd))
     1709      (canonicalize-foreign-type-ordinal #+win64-target '(:struct :_stat64)
     1710                                         #-win64-target '(:struct :stat))
     1711      (canonicalize-foreign-type-ordinal #-windows-target '(:struct :passwd) #+windows-target nil)
    17101712      (canonicalize-foreign-type-ordinal #+darwin-target '(:struct :host_basic_info) #-darwin-target nil)
    17111713      (canonicalize-foreign-type-ordinal '(:struct :in_addr))
     
    17141716      (canonicalize-foreign-type-ordinal '(:* (:struct :hostent)))
    17151717      (canonicalize-foreign-type-ordinal '(:array :int 2))
    1716       (canonicalize-foreign-type-ordinal '(:array (:struct :pollfd) 1)))))
     1718      (canonicalize-foreign-type-ordinal #+windows-target nil #-windows-target '(:array (:struct :pollfd) 1)))))
     1719
    17171720
    17181721(defun install-standard-foreign-types (ftd)
Note: See TracChangeset for help on using the changeset viewer.