[cmucl-cvs] CMUCL commit: src/lisp (Config.x86_netbsd elf.c lisp.c)
Raymond Toy
rtoy at common-lisp.net
Thu Dec 23 03:20:27 UTC 2010
Date: Wednesday, December 22, 2010 @ 22:20:27
Author: rtoy
Path: /project/cmucl/cvsroot/src/lisp
Modified: Config.x86_netbsd elf.c lisp.c
Add support for NetBSD for the new executable image implementation.
lisp/Config_x86_netbsd:
o Define EXEC_FINAL_OBJ, like other x86 ports.
lisp/elf.c:
o Use the new linker.sh command script to link the executable.
lisp/lisp.c:
o Use new method of getting the initial_function.
-------------------+
Config.x86_netbsd | 2 ++
elf.c | 4 ++--
lisp.c | 4 ++--
3 files changed, 6 insertions(+), 4 deletions(-)
Index: src/lisp/Config.x86_netbsd
diff -u src/lisp/Config.x86_netbsd:1.1 src/lisp/Config.x86_netbsd:1.2
--- src/lisp/Config.x86_netbsd:1.1 Thu Sep 17 12:59:53 2009
+++ src/lisp/Config.x86_netbsd Wed Dec 22 22:20:27 2010
@@ -5,3 +5,5 @@
OS_SRC += NetBSD-os.c elf.c
OS_LINK_FLAGS = -dynamic -export-dynamic
OS_LIBS =
+
+EXEC_FINAL_OBJ = exec-final.o
Index: src/lisp/elf.c
diff -u src/lisp/elf.c:1.31 src/lisp/elf.c:1.32
--- src/lisp/elf.c:1.31 Wed Dec 22 15:16:29 2010
+++ src/lisp/elf.c Wed Dec 22 22:20:27 2010
@@ -8,7 +8,7 @@
Above changes put into main CVS branch. 05-Jul-2007.
- $Id: elf.c,v 1.31 2010-12-22 20:16:29 rtoy Exp $
+ $Id: elf.c,v 1.32 2010-12-23 03:20:27 rtoy Exp $
*/
#include <stdio.h>
@@ -361,7 +361,7 @@
free(paths);
printf("\t[%s: linking %s... \n", command, file);
fflush(stdout);
-#if defined(__linux__) || defined(__FreeBSD__) || defined(SOLARIS)
+#if defined(__linux__) || defined(__FreeBSD__) || defined(SOLARIS) || defined(__NetBSD__)
sprintf(command_line, "%s %s 0x%lx '%s' 0x%lx 0x%lx 0x%lx", command,
C_COMPILER, init_func_address, file,
(unsigned long) READ_ONLY_SPACE_START,
Index: src/lisp/lisp.c
diff -u src/lisp/lisp.c:1.79 src/lisp/lisp.c:1.80
--- src/lisp/lisp.c:1.79 Wed Dec 22 21:14:57 2010
+++ src/lisp/lisp.c Wed Dec 22 22:20:27 2010
@@ -1,7 +1,7 @@
/*
* main() entry point for a stand alone lisp image.
*
- * $Header: /project/cmucl/cvsroot/src/lisp/lisp.c,v 1.79 2010-12-23 02:14:57 rtoy Exp $
+ * $Header: /project/cmucl/cvsroot/src/lisp/lisp.c,v 1.80 2010-12-23 03:20:27 rtoy Exp $
*
*/
@@ -452,7 +452,7 @@
lispobj initial_function = 0;
if (builtin_image_flag != 0) {
-#if defined(SOLARIS) || (defined(i386) && (defined(__linux__) || defined(DARWIN) || defined(__FreeBSD__)))
+#if defined(SOLARIS) || (defined(i386) && (defined(__linux__) || defined(DARWIN) || defined(__FreeBSD__) || defined(__NetBSD__)))
initial_function = (lispobj) initial_function_addr;
#else
initial_function = (lispobj) & initial_function_addr;
More information about the cmucl-cvs
mailing list