- Timestamp:
- Dec 14, 2008, 10:49:50 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-0/l0-cfm-support.lisp
r10893 r11518 78 78 ;;; has a plt entry (e.g., if it happens to be referenced by the 79 79 ;;; lisp kernel.) *RTLD-NEXT* is therefore a slightly better 80 ;;; default; we've traditionaly used *RTLD-DEFAULT*. 80 ;;; default; we've traditionaly used *RTLD-DEFAULT*. 81 81 (defvar *rtld-next*) 82 82 (defvar *rtld-default*) 83 (defvar *rtld-use*) 83 84 (setq *rtld-next* (%incf-ptr (%null-ptr) -1) 84 85 *rtld-default* (%int-to-ptr #+(or linux-target darwin-target windows-target) 0 85 #-(or linux-target darwin-target windows-target) -2)) 86 #-(or linux-target darwin-target windows-target) -2) 87 *rtld-use* #+solaris-target *rtld-next* #-solaris-target *rtld-default*) 86 88 87 89 #+(or linux-target freebsd-target solaris-target) … … 608 610 (defun ensure-open-shlib (c force) 609 611 (if (or (shlib.map c) (not force)) 610 *rtld- next*612 *rtld-use* 611 613 (error "Shared library not open: ~s" (shlib.soname c)))) 612 614 … … 614 616 (if c 615 617 (ensure-open-shlib c force) 616 *rtld- next*618 *rtld-use* 617 619 )) 618 620 … … 630 632 ;;; linkers don't quite get the concept ...) 631 633 632 (defun foreign-symbol-entry (name &optional (handle *rtld- next*))634 (defun foreign-symbol-entry (name &optional (handle *rtld-use*)) 633 635 "Try to resolve the address of the foreign symbol name. If successful, 634 636 return a fixnum representation of that address, else return NIL." … … 804 806 805 807 806 (defun foreign-symbol-address (name &optional (map *rtld- next*))808 (defun foreign-symbol-address (name &optional (map *rtld-use*)) 807 809 "Try to resolve the address of the foreign symbol name. If successful, 808 810 return that address encapsulated in a MACPTR, else returns NIL."
Note: See TracChangeset
for help on using the changeset viewer.