Skip to content
Snippets Groups Projects
Commit a1946b35 authored by Raymond Toy's avatar Raymond Toy
Browse files

Prepend underscore in extern-alien-name for darwin/ppc.

parent 571dd490
No related branches found
No related tags found
No related merge requests found
...@@ -297,7 +297,7 @@ ...@@ -297,7 +297,7 @@
;;; ;;;
(defun extern-alien-name (name) (defun extern-alien-name (name)
(declare (type simple-base-string name)) (declare (type simple-base-string name))
name) (concatenate 'simple-base-string "_" name))
#-linkage-table #-linkage-table
(defun lisp::foreign-symbol-address-aux (name flavor) (defun lisp::foreign-symbol-address-aux (name flavor)
......
...@@ -31,7 +31,7 @@ ...@@ -31,7 +31,7 @@
(in-package :vm) (in-package :vm)
(defun extern-alien-name (name) (defun extern-alien-name (name)
(declare (type simple-string name)) (declare (type simple-string name))
name) (concatenate 'simple-string "_" name))
;; When compiling the compiler, vm:fixup-code-object and ;; When compiling the compiler, vm:fixup-code-object and
;; vm:sanctify-for-execution are undefined. Import these to get rid ;; vm:sanctify-for-execution are undefined. Import these to get rid
;; of that error. ;; of that error.
...@@ -199,7 +199,7 @@ ...@@ -199,7 +199,7 @@
(in-package :vm) (in-package :vm)
(defun extern-alien-name (name) (defun extern-alien-name (name)
(declare (type simple-string name)) (declare (type simple-string name))
name) (concatenate 'simple-string "_" name))
(export 'extern-alien-name) (export 'extern-alien-name)
(export 'fixup-code-object) (export 'fixup-code-object)
(export 'sanctify-for-execution) (export 'sanctify-for-execution)
......
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