Changeset 9858 for trunk/source/level-0/l0-cfm-support.lisp
- Timestamp:
- Jul 1, 2008, 12:09:13 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-0/l0-cfm-support.lisp
r8587 r9858 718 718 (lose nil)) 719 719 (dolist (lib *shared-libraries*) 720 (let* ((map (shlib.map lib))) 720 (let* ((map (shlib.map lib)) 721 (handle (shlib.handle lib))) 721 722 (unless map 722 723 (with-cstrs ((soname (shlib.soname lib))) 723 (setq map (ff-call 724 (%kernel-import target::kernel-import-GetSharedLibrary) 725 :address soname 726 :unsigned-fullword *dlopen-flags* 727 :address)) 724 (setq handle 725 (ff-call 726 (%kernel-import target::kernel-import-GetSharedLibrary) 727 :address soname 728 :unsigned-fullword *dlopen-flags* 729 :address)) 730 #-freebsd-target (setq map handle) 731 #+freebsd-target (setq map 732 (if (%null-ptr-p handle) 733 handle 734 (rlet ((p :address)) 735 (if (eql 0 (ff-call 736 (foreign-symbol-entry "dlinfo") 737 :address handle 738 :int #$RTLD_DI_LINKMAP 739 :address p 740 :int)) 741 (pref p :address) 742 (%null-ptr))))) 728 743 (if (%null-ptr-p map) 729 744 (setq lose t) … … 733 748 (%int-to-ptr (pref map :link_map.l_addr)) 734 749 (shlib.map lib) map 750 (shlib.handle lib) handle 735 751 win t)))))) 736 752 (when (or (not lose) (not win)) (return)))))
Note: See TracChangeset
for help on using the changeset viewer.