/[cmucl]/src/code/alpha-vm.lisp
ViewVC logotype

Diff of /src/code/alpha-vm.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by ram, Mon Oct 31 04:11:27 1994 UTC revision 1.3 by toy, Tue Nov 19 13:17:13 2002 UTC
# Line 210  Line 210 
210    (declare (type simple-base-string name))    (declare (type simple-base-string name))
211    name)    name)
212    
213    #+(and (or linux (and freebsd elf)) (not linkage-table))
214    (defun lisp::foreign-symbol-address-aux (name flavor)
215      (declare (ignore flavor))
216      (multiple-value-bind (value found)
217          (gethash name lisp::*foreign-symbols* 0)
218        (if found
219            value
220            (multiple-value-bind (value found)
221                (gethash
222                 (concatenate 'string "PVE_stub_" name)
223                 lisp::*foreign-symbols* 0)
224              (if found
225                  value
226                  (let ((value (system:alternate-get-global-address name)))
227                    (when (zerop value)
228                      (error "Unknown foreign symbol: ~S" name))
229                    value))))))
230    
231    
232    
233  ;;; SANCTIFY-FOR-EXECUTION -- Interface.  ;;; SANCTIFY-FOR-EXECUTION -- Interface.

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5