projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.7.4:
[sbcl.git]
/
src
/
compiler
/
ppc
/
vm.lisp
diff --git
a/src/compiler/ppc/vm.lisp
b/src/compiler/ppc/vm.lisp
index
6e20e08
..
2b0a7cd
100644
(file)
--- a/
src/compiler/ppc/vm.lisp
+++ b/
src/compiler/ppc/vm.lisp
@@
-325,3
+325,10
@@
(non-descriptor-stack (format nil "NS~D" offset))
(constant (format nil "Const~D" offset))
(immediate-constant "Immed"))))
(non-descriptor-stack (format nil "NS~D" offset))
(constant (format nil "Const~D" offset))
(immediate-constant "Immed"))))
+
\f
+;;; The loader uses this to convert alien names to the form they
+;;; occur in the symbol table. This is ELF, so do nothing
+
+(defun extern-alien-name (name)
+ (declare (type simple-base-string name))
+ name)