Changeset 828

Timestamp:

Jun 6, 2004, 2:11:47 AM (20 years ago)

Author:

Gary Byers

Message:

Ignore NAME in SHLIB-CONTAINING-ADDRESS for Linux.

File:

• trunk/ccl/level-0/l0-cfm-support.lisp (modified) (1 diff)

trunk/ccl/level-0/l0-cfm-support.lisp

@@ -430 +430 @@
 
 (defun shlib-containing-address (address &optional name)
-   (rletZ ((info :<D>l_info))
-     (let* ((status (ff-call *dladdr-entry*
-                             :address address
-                             :address info :signed-fullword)))
-       (declare (integer status))
-       (unless (zerop status)
-         (shared-library-at (pref info :<D>l_info.dli_fbase))))))
+  (declare (ignore name))
+  (rletZ ((info :<D>l_info))
+    (let* ((status (ff-call *dladdr-entry*
+                            :address address
+                            :address info :signed-fullword)))
+      (declare (integer status))
+      (unless (zerop status)
+        (shared-library-at (pref info :<D>l_info.dli_fbase))))))