Fix sap-foreign-symbol.

*linkage-info* now contains offsets, not addresses.
gsorbier · May 11, 2018 · 4b40ec1 · 4b40ec1
1 parent 7342029
commit 4b40ec1
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp
@@ -95,8 +95,9 @@ if the symbol isn't found."
  (when (<= sb!vm:linkage-table-space-start
  addr
  sb!vm:linkage-table-space-end)
- (dohash ((key table-addr) *linkage-info* :locked t)
- (let ((datap (listp key)))
+ (dohash ((key table-offset) *linkage-info* :locked t)
+ (let ((table-addr (+ table-offset sb!vm:linkage-table-space-start))
+ (datap (listp key)))
  (when (<= table-addr addr (+ table-addr (1- sb!vm:linkage-table-entry-size)))
  (return-from sap-foreign-symbol (if datap (car key) key))))))
  #!+os-provides-dladdr