From: Nikodemus S. <de...@us...> - 2005-04-07 08:01:26
|
Update of /cvsroot/sbcl/sbcl/src/compiler/alpha In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1033/src/compiler/alpha Modified Files: vm.lisp Log Message: 0.8.21.21: fix & share EXTERN-ALIEN-NAME logic (fixes bug #373) * move e-a-n from SB-VM to SB-SYS, and from target/vm.lisp to foreign.lisp. * move all e-a-n calls to FIND-FOREIGN-SYMBOL-IN-TABLE and GET-DYNAMIC-FOREIGN-SYMBOL-ADDRESS. * reader conditionalize e-a-n behaviour on :ELF and :MACH-O; explicitly add the relevant feature for each OS in make-config.sh. * delete unused file ppc/print.lisp (duplicates ppc/show.lisp). * increment fasl-format number. note: affects all backends; tested on ppc/darwin, x86/freebsd, and sparc/sunos. Index: vm.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/alpha/vm.lisp,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- vm.lisp 5 Apr 2005 11:03:32 -0000 1.10 +++ vm.lisp 7 Apr 2005 08:00:16 -0000 1.11 @@ -350,15 +350,5 @@ (non-descriptor-stack (format nil "NS~D" offset)) (constant (format nil "Const~D" offset)) (immediate-constant "Immed")))) - -;;; The loader uses this to convert alien names to the form they -;;; occure in the symbol table (for example, prepending an -;;; underscore). -(defun extern-alien-name (name) - (declare (type string name)) - ;; ELF ports currently don't need any prefix - (typecase name - (simple-base-string name) - (base-string (coerce name 'simple-base-string)) - (t (handler-case (coerce name 'simple-base-string) - (type-error () (error "invalid external alien name: ~S" name)))))) + + |