Changeset 14566
- Timestamp:
- Jan 10, 2011, 7:40:50 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-0/l0-cfm-support.lisp
r14520 r14566 139 139 #+(or linux-target freebsd-target solaris-target) 140 140 (progn 141 #+android-target142 (eval-when (:compile-toplevel :execute)143 (def-foreign-type nil144 (:struct :link_map145 (:l_addr :unsigned)146 (:l_name (:* :char))147 (:l_ld :address)148 (:l_next (:* (:struct :link_map)))149 (:l_prev (:* (:struct :link_map)))))150 (def-foreign-type nil151 (:struct :r_debug152 (:r_version :int32_t)153 (:r_map (:* (:struct :link_map)))154 (:r_brk :address)155 (:r_state :int32_t)156 (:r_ldbase :address))))157 141 158 142 (defun soname-ptr-from-link-map (map) … … 337 321 :unsigned-fullword *dlopen-flags* 338 322 :address))) 339 (link-map # -(or freebsd-target solaris-target) handle323 (link-map #+(and linux-target (not android-target)) handle 340 324 #+(or freebsd-target solaris-target) 341 325 (if (%null-ptr-p handle) … … 349 333 :int)) 350 334 (pref p :address) 351 (%null-ptr)))))) 335 (%null-ptr)))) 336 #+android-target (pref handle :soinfo.linkmap))) 352 337 (if (%null-ptr-p link-map) 353 338 (values nil (dlerror))
Note: See TracChangeset
for help on using the changeset viewer.