[cmucl-cvs] CMUCL commit: src/lisp (lisp.c)

Raymond Toy rtoy at common-lisp.net
Thu Dec 23 02:14:57 UTC 2010


    Date: Wednesday, December 22, 2010 @ 21:14:57
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/lisp

Modified: lisp.c

Solaris/sparc and Solaris/x86 both use the same executable style so
get the initial_function from the initial_function_addr, not the
address of initial_function_addr.


--------+
 lisp.c |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


Index: src/lisp/lisp.c
diff -u src/lisp/lisp.c:1.78 src/lisp/lisp.c:1.79
--- src/lisp/lisp.c:1.78	Sun Sep 26 16:38:45 2010
+++ src/lisp/lisp.c	Wed Dec 22 21:14:57 2010
@@ -1,7 +1,7 @@
 /*
  * main() entry point for a stand alone lisp image.
  *
- * $Header: /project/cmucl/cvsroot/src/lisp/lisp.c,v 1.78 2010-09-26 20:38:45 rtoy Rel $
+ * $Header: /project/cmucl/cvsroot/src/lisp/lisp.c,v 1.79 2010-12-23 02:14:57 rtoy Exp $
  *
  */
 
@@ -452,7 +452,7 @@
     lispobj initial_function = 0;
 
     if (builtin_image_flag != 0) {
-#if defined(sparc) || (defined(i386) && (defined(__linux__) || defined(DARWIN) || defined(__FreeBSD__)))
+#if defined(SOLARIS) || (defined(i386) && (defined(__linux__) || defined(DARWIN) || defined(__FreeBSD__)))
         initial_function = (lispobj) initial_function_addr;
 #else
         initial_function = (lispobj) & initial_function_addr;




More information about the cmucl-cvs mailing list