Skip to content
Snippets Groups Projects
Commit 14cdc597 authored by ram's avatar ram
Browse files

Solaris changes (try dynamic dymbol lookup.)

parent eb3c7050
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.55 1993/08/19 23:09:38 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.56 1994/10/20 11:16:57 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -21,7 +21,7 @@
(export '(*load-if-source-newer* *load-source-types* *load-object-types*))
(in-package "SYSTEM")
(export 'foreign-symbol-address)
(export '(foreign-symbol-address alternate-get-global-address))
(in-package "LISP")
......@@ -1143,7 +1143,9 @@
(value found)
(gethash (vm:extern-alien-name symbol) *foreign-symbols* 0)
(unless found
(error "Unknown foreign symbol: ~S" symbol))
(setq value (system:alternate-get-global-address symbol))
(when (zerop value)
(error "Unknown foreign symbol: ~S" symbol)))
(int-sap value)))
(define-fop (fop-foreign-fixup 147)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment