Skip to content
Snippets Groups Projects
Commit 9d611502 authored by gerd's avatar gerd
Browse files

* src/compiler/saptran.lisp (foreign-symbol-address)

	[#+linkage-table]:  Give up if the symbol's name is not
	a constant, because the vops are only defined for constants.
parent d859a950
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/saptran.lisp,v 1.13 2003/03/17 22:10:59 pmai Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/saptran.lisp,v 1.14 2003/06/05 18:49:01 gerd Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -36,6 +36,9 @@ ...@@ -36,6 +36,9 @@
#-linkage-table #-linkage-table
(when (null flavor) (when (null flavor)
(give-up)) (give-up))
#+linkage-table
(unless (constant-continuation-p symbol)
(give-up))
(let ((flav (cond ((null flavor) :code) (let ((flav (cond ((null flavor) :code)
((not (constant-continuation-p flavor)) ((not (constant-continuation-p flavor))
(give-up)) (give-up))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment