[Cmucl-cvs] [git] CMU Common Lisp branch rtoy-extern-alien-name updated. 20f-33-ga1946b3

Raymond Toy rtoy at common-lisp.net
Fri Oct 10 06:44:48 UTC 2014


This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, rtoy-extern-alien-name has been updated
       via  a1946b35f37aef46677676e2696304ab6b405788 (commit)
      from  571dd4904fc88cad51c9c2dee0b3e6ed6ef9ce12 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit a1946b35f37aef46677676e2696304ab6b405788
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Thu Oct 9 23:44:38 2014 -0700

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

diff --git a/src/code/ppc-vm.lisp b/src/code/ppc-vm.lisp
index fa977fd..522218c 100644
--- a/src/code/ppc-vm.lisp
+++ b/src/code/ppc-vm.lisp
@@ -297,7 +297,7 @@
 ;;; 
 (defun extern-alien-name (name)
   (declare (type simple-base-string name))
-  name)
+  (concatenate 'simple-base-string "_" name))
 
 #-linkage-table
 (defun lisp::foreign-symbol-address-aux (name flavor)
diff --git a/src/tools/cross-scripts/cross-ppc-ppc-darwin.lisp b/src/tools/cross-scripts/cross-ppc-ppc-darwin.lisp
index 02e05ef..55261dc 100644
--- a/src/tools/cross-scripts/cross-ppc-ppc-darwin.lisp
+++ b/src/tools/cross-scripts/cross-ppc-ppc-darwin.lisp
@@ -31,7 +31,7 @@
 (in-package :vm)
 (defun extern-alien-name (name)
   (declare (type simple-string name))
-  name)
+  (concatenate 'simple-string "_" name))
 ;; When compiling the compiler, vm:fixup-code-object and
 ;; vm:sanctify-for-execution are undefined.  Import these to get rid
 ;; of that error.
@@ -199,7 +199,7 @@
 (in-package :vm)
 (defun extern-alien-name (name)
   (declare (type simple-string name))
-  name)
+  (concatenate 'simple-string "_" name))
 (export 'extern-alien-name)
 (export 'fixup-code-object)
 (export 'sanctify-for-execution)

-----------------------------------------------------------------------

Summary of changes:
 src/code/ppc-vm.lisp                              |    2 +-
 src/tools/cross-scripts/cross-ppc-ppc-darwin.lisp |    4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp




More information about the cmucl-cvs mailing list