X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flinkage-table.lisp;h=3ccfb4c1d6fdcd15871416edd4971cb1c1f0bf5b;hb=8d490a4d6b9d7f156cf503826b3e3195e6f3ad39;hp=31d561d82401dced2c14164b5156e7372d7b70ad;hpb=4919f9971429d18fab618b9b49e164c6b57bea6f;p=sbcl.git

diff --git a/src/code/linkage-table.lisp b/src/code/linkage-table.lisp
index 31d561d..3ccfb4c 100644
--- a/src/code/linkage-table.lisp
+++ b/src/code/linkage-table.lisp
@@ -48,15 +48,15 @@
   (let ((table-address (+ (* (hash-table-count *linkage-info*)
 			     sb!vm:linkage-table-entry-size)
 			  sb!vm:linkage-table-space-start))
-	(real-address (get-dynamic-foreign-symbol-address name)))
-    (when real-address
-      (unless (< table-address sb!vm:linkage-table-space-end)
-	(error "Linkage-table full (~D entries): cannot link ~S."
-	       (hash-table-count *linkage-info*)
-	       name))
-      (write-linkage-table-entry table-address real-address datap)
-      (setf (gethash name *linkage-info*)
-	    (make-linkage-info :address table-address :datap datap)))))
+	(real-address (get-dynamic-foreign-symbol-address name datap)))
+    (aver real-address)
+    (unless (< table-address sb!vm:linkage-table-space-end)
+      (error "Linkage-table full (~D entries): cannot link ~S."
+             (hash-table-count *linkage-info*)
+             name))
+    (write-linkage-table-entry table-address real-address datap)
+    (setf (gethash name *linkage-info*)
+          (make-linkage-info :address table-address :datap datap))))
 
 ;;; Add a foreign linkage entry if none exists, return the address
 ;;; in the linkage table.
@@ -74,18 +74,12 @@
 (defun update-linkage-table ()
   ;; Doesn't take care of it's own locking -- callers are responsible
   (maphash (lambda (name info)
-             (let ((datap (linkage-info-datap info))
-                   (table-address (linkage-info-address info))
-                   (real-address (get-dynamic-foreign-symbol-address name)))
-               (cond (real-address
-                      (write-linkage-table-entry table-address
-                                                 real-address
-                                                 datap))
-                     (t
-                      (/show0 "oops")
-                      (cerror "Ignore. Attempts to access this foreign symbol ~
-                               will lead to badness characterized by ~
-                               segfaults, and potential corruption."
-                              "Could not resolve foreign function ~S for ~
-                               linkage-table." name)))))
+             (let* ((datap (linkage-info-datap info))
+		    (table-address (linkage-info-address info))
+		    (real-address 
+		     (get-dynamic-foreign-symbol-address name datap)))
+	       (aver (and table-address real-address))
+	       (write-linkage-table-entry table-address
+					  real-address
+					  datap)))
            *linkage-info*))