CMUCL commit: src/tools (4 files)
Raymond Toy
rtoy at common-lisp.net
Wed Sep 8 14:10:15 CEST 2010
Date: Wednesday, September 8, 2010 @ 08:10:14
Author: rtoy
Path: /project/cmucl/cvsroot/src/tools
Removed: FreeBSD-cmucl-linker-script Linux-cmucl-linker-script
SunOS-cmucl-linker-script linker-x86.sh
tools/FreeBSD-cmucl-linker-script
tools/Linux-cmucl-linker-script
tools/SunOS-cmucl-linker-script
o These linker scripts are no longer needed.
tools/linker-x86.sh:
o No longer needed because the contents were moved to linker.sh.
-----------------------------+
FreeBSD-cmucl-linker-script | 199 --------------------------------------
Linux-cmucl-linker-script | 217 ------------------------------------------
SunOS-cmucl-linker-script | 23 ----
linker-x86.sh | 127 ------------------------
4 files changed, 566 deletions(-)
Index: src/tools/FreeBSD-cmucl-linker-script
diff -u src/tools/FreeBSD-cmucl-linker-script:1.2 src/tools/FreeBSD-cmucl-linker-script:removed
--- src/tools/FreeBSD-cmucl-linker-script:1.2 Mon Sep 6 23:56:38 2010
+++ src/tools/FreeBSD-cmucl-linker-script Wed Sep 8 08:10:15 2010
@@ -1,199 +0,0 @@
-/* -*- mode: c; -*-
- * Linker directives for building Lisp executables with CMUCL on FreeBSD 8.x.
- *
- * Obtain via:
- *
- * * ld --verbose > tools/FreeBSD-cmucl-linker-script
- * * Remove the === header and footer
- * * Paste "Lisp core sections" (the three COR* lines before "Stabs debugging sections"
- * $Header: /project/cmucl/cvsroot/src/tools/Attic/FreeBSD-cmucl-linker-script,v 1.2 2010-09-07 03:56:38 agoncharov Exp $
- *
- */
-
-/* Script for -z combreloc: combine and sort reloc sections */
-OUTPUT_FORMAT("elf32-i386-freebsd", "elf32-i386-freebsd",
- "elf32-i386-freebsd")
-OUTPUT_ARCH(i386)
-ENTRY(_start)
-SEARCH_DIR("/lib"); SEARCH_DIR("/usr/lib");
-/* Do we need any of these for elf?
- __DYNAMIC = 0; */
-SECTIONS
-{
- /* Read-only sections, merged into text segment: */
- /* PROVIDE (__executable_start = 0x08048000); . = 0x08048000 + SIZEOF_HEADERS; */
- PROVIDE (__executable_start = 0x08048000); . = 0x08048000 + 52 + 10*32;
-
- .interp : { *(.interp) }
- .hash : { *(.hash) }
- .dynsym : { *(.dynsym) }
- .dynstr : { *(.dynstr) }
- .gnu.version : { *(.gnu.version) }
- .gnu.version_d : { *(.gnu.version_d) }
- .gnu.version_r : { *(.gnu.version_r) }
- .rel.dyn :
- {
- *(.rel.init)
- *(.rel.text .rel.text.* .rel.gnu.linkonce.t.*)
- *(.rel.fini)
- *(.rel.rodata .rel.rodata.* .rel.gnu.linkonce.r.*)
- *(.rel.data .rel.data.* .rel.gnu.linkonce.d.*)
- *(.rel.tdata .rel.tdata.* .rel.gnu.linkonce.td.*)
- *(.rel.tbss .rel.tbss.* .rel.gnu.linkonce.tb.*)
- *(.rel.ctors)
- *(.rel.dtors)
- *(.rel.got)
- *(.rel.bss .rel.bss.* .rel.gnu.linkonce.b.*)
- }
- .rela.dyn :
- {
- *(.rela.init)
- *(.rela.text .rela.text.* .rela.gnu.linkonce.t.*)
- *(.rela.fini)
- *(.rela.rodata .rela.rodata.* .rela.gnu.linkonce.r.*)
- *(.rela.data .rela.data.* .rela.gnu.linkonce.d.*)
- *(.rela.tdata .rela.tdata.* .rela.gnu.linkonce.td.*)
- *(.rela.tbss .rela.tbss.* .rela.gnu.linkonce.tb.*)
- *(.rela.ctors)
- *(.rela.dtors)
- *(.rela.got)
- *(.rela.bss .rela.bss.* .rela.gnu.linkonce.b.*)
- }
- .rel.plt : { *(.rel.plt) }
- .rela.plt : { *(.rela.plt) }
- .init :
- {
- KEEP (*(.init))
- } =0x90909090
- .plt : { *(.plt) }
- .text :
- {
- *(.text .stub .text.* .gnu.linkonce.t.*)
- /* .gnu.warning sections are handled specially by elf32.em. */
- *(.gnu.warning)
- } =0x90909090
- .fini :
- {
- KEEP (*(.fini))
- } =0x90909090
- PROVIDE (__etext = .);
- PROVIDE (_etext = .);
- PROVIDE (etext = .);
- .rodata : { *(.rodata .rodata.* .gnu.linkonce.r.*) }
- .rodata1 : { *(.rodata1) }
- .eh_frame_hdr : { *(.eh_frame_hdr) }
- /* Adjust the address for the data segment. We want to adjust up to
- the same address within the page on the next page up. */
- . = ALIGN (0x1000) - ((0x1000 - .) & (0x1000 - 1)); . = DATA_SEGMENT_ALIGN (0x1000, 0x1000);
- /* Ensure the __preinit_array_start label is properly aligned. We
- could instead move the label definition inside the section, but
- the linker would then create the section even if it turns out to
- be empty, which isn't pretty. */
- . = ALIGN(32 / 8);
- PROVIDE (__preinit_array_start = .);
- .preinit_array : { *(.preinit_array) }
- PROVIDE (__preinit_array_end = .);
- PROVIDE (__init_array_start = .);
- .init_array : { *(.init_array) }
- PROVIDE (__init_array_end = .);
- PROVIDE (__fini_array_start = .);
- .fini_array : { *(.fini_array) }
- PROVIDE (__fini_array_end = .);
- .data :
- {
- *(.data .data.* .gnu.linkonce.d.*)
- SORT(CONSTRUCTORS)
- }
- .data1 : { *(.data1) }
- .tdata : { *(.tdata .tdata.* .gnu.linkonce.td.*) }
- .tbss : { *(.tbss .tbss.* .gnu.linkonce.tb.*) *(.tcommon) }
- .eh_frame : { KEEP (*(.eh_frame)) }
- .gcc_except_table : { *(.gcc_except_table) }
- .dynamic : { *(.dynamic) }
- .ctors :
- {
- /* gcc uses crtbegin.o to find the start of
- the constructors, so we make sure it is
- first. Because this is a wildcard, it
- doesn't matter if the user does not
- actually link against crtbegin.o; the
- linker won't look for a file to match a
- wildcard. The wildcard also means that it
- doesn't matter which directory crtbegin.o
- is in. */
- KEEP (*crtbegin*.o(.ctors))
- /* We don't want to include the .ctor section from
- from the crtend.o file until after the sorted ctors.
- The .ctor section from the crtend file contains the
- end of ctors marker and it must be last */
- KEEP (*(EXCLUDE_FILE (*crtend*.o ) .ctors))
- KEEP (*(SORT(.ctors.*)))
- KEEP (*(.ctors))
- }
- .dtors :
- {
- KEEP (*crtbegin*.o(.dtors))
- KEEP (*(EXCLUDE_FILE (*crtend*.o ) .dtors))
- KEEP (*(SORT(.dtors.*)))
- KEEP (*(.dtors))
- }
- .jcr : { KEEP (*(.jcr)) }
- .got : { *(.got.plt) *(.got) }
- _edata = .;
- PROVIDE (edata = .);
- __bss_start = .;
- .bss :
- {
- *(.dynbss)
- *(.bss .bss.* .gnu.linkonce.b.*)
- *(COMMON)
- /* Align here to ensure that the .bss section occupies space up to
- _end. Align after .bss to ensure correct alignment even if the
- .bss section disappears because there are no input sections. */
- . = ALIGN(32 / 8);
- }
- . = ALIGN(32 / 8);
- _end = .;
- PROVIDE (end = .);
- . = DATA_SEGMENT_END (.);
-
- /* Lisp core sections. */
- CORRO 0x10000000 : { CORRO.o (CORRO) }
- CORSTA 0x28f00000 : { CORSTA.o (CORSTA) }
- CORDYN 0x48000000 : { CORDYN.o (CORDYN) }
-
- /* Stabs debugging sections. */
- .stab 0 : { *(.stab) }
- .stabstr 0 : { *(.stabstr) }
- .stab.excl 0 : { *(.stab.excl) }
- .stab.exclstr 0 : { *(.stab.exclstr) }
- .stab.index 0 : { *(.stab.index) }
- .stab.indexstr 0 : { *(.stab.indexstr) }
- .comment 0 : { *(.comment) }
- /* DWARF debug sections.
- Symbols in the DWARF debugging sections are relative to the beginning
- of the section so we begin them at 0. */
- /* DWARF 1 */
- .debug 0 : { *(.debug) }
- .line 0 : { *(.line) }
- /* GNU DWARF 1 extensions */
- .debug_srcinfo 0 : { *(.debug_srcinfo) }
- .debug_sfnames 0 : { *(.debug_sfnames) }
- /* DWARF 1.1 and DWARF 2 */
- .debug_aranges 0 : { *(.debug_aranges) }
- .debug_pubnames 0 : { *(.debug_pubnames) }
- /* DWARF 2 */
- .debug_info 0 : { *(.debug_info .gnu.linkonce.wi.*) }
- .debug_abbrev 0 : { *(.debug_abbrev) }
- .debug_line 0 : { *(.debug_line) }
- .debug_frame 0 : { *(.debug_frame) }
- .debug_str 0 : { *(.debug_str) }
- .debug_loc 0 : { *(.debug_loc) }
- .debug_macinfo 0 : { *(.debug_macinfo) }
- /* SGI/MIPS DWARF 2 extensions */
- .debug_weaknames 0 : { *(.debug_weaknames) }
- .debug_funcnames 0 : { *(.debug_funcnames) }
- .debug_typenames 0 : { *(.debug_typenames) }
- .debug_varnames 0 : { *(.debug_varnames) }
- /DISCARD/ : { *(.note.GNU-stack) }
-}
Index: src/tools/Linux-cmucl-linker-script
diff -u src/tools/Linux-cmucl-linker-script:1.3 src/tools/Linux-cmucl-linker-script:removed
--- src/tools/Linux-cmucl-linker-script:1.3 Mon Jul 26 22:35:26 2010
+++ src/tools/Linux-cmucl-linker-script Wed Sep 8 08:10:15 2010
@@ -1,217 +0,0 @@
-/* For the record, this is the default linker script from openSUSE
- * 11.2 version 2.19.51.20090527-10.26.4, obtained via ld --verbose. We merely put
- *
- * CORRO 0x10000000 : { CORRO.o *(CORRO) }
- * CORSTA 0x28000000 : { CORSTA.o *(CORSTA) }
- * CORDYN 0x58100000 : { CORDYN.o *(CORDYN) }
- *
- * after the DATA_SEGMENT_END stuff and before the Stabs debugging section.
- *
- * NOTE: that if the location of the spaces ever change, the addresses
- * above will need to change too!
- */
-
-/* Script for -z combreloc: combine and sort reloc sections */
-OUTPUT_FORMAT("elf32-i386", "elf32-i386",
- "elf32-i386")
-OUTPUT_ARCH(i386)
-ENTRY(_start)
-
-SEARCH_DIR("/usr/local/lib"); SEARCH_DIR("/lib"); SEARCH_DIR("/usr/lib");
-
-SECTIONS
-{
- /* Read-only sections, merged into text segment: */
- /* The 52 + 10*32 below was SIZEOF_HEADER, but that isn't always
- right. Thus, replace it with 52 = sizeof(Elf32_Phdr) and 32 =
- sizeof(Elf_Ehdr). We use 10 Elf_Ehdr's because we have ten
- different segments. */
- PROVIDE (__executable_start = SEGMENT_START("text-segment", 0x08048000)); . = SEGMENT_START("text-segment", 0x08048000) + 52 + 10*32;
- .interp : { *(.interp) }
- .note.gnu.build-id : { *(.note.gnu.build-id) }
- .hash : { *(.hash) }
- .gnu.hash : { *(.gnu.hash) }
- .dynsym : { *(.dynsym) }
- .dynstr : { *(.dynstr) }
- .gnu.version : { *(.gnu.version) }
- .gnu.version_d : { *(.gnu.version_d) }
- .gnu.version_r : { *(.gnu.version_r) }
- .rel.dyn :
- {
- *(.rel.init)
- *(.rel.text .rel.text.* .rel.gnu.linkonce.t.*)
- *(.rel.fini)
- *(.rel.rodata .rel.rodata.* .rel.gnu.linkonce.r.*)
- *(.rel.data.rel.ro* .rel.gnu.linkonce.d.rel.ro.*)
- *(.rel.data .rel.data.* .rel.gnu.linkonce.d.*)
- *(.rel.tdata .rel.tdata.* .rel.gnu.linkonce.td.*)
- *(.rel.tbss .rel.tbss.* .rel.gnu.linkonce.tb.*)
- *(.rel.ctors)
- *(.rel.dtors)
- *(.rel.got)
- *(.rel.bss .rel.bss.* .rel.gnu.linkonce.b.*)
- }
- .rel.ifunc.dyn :
- {
- *(.rel.ifunc.*)
- }
- .rel.plt : { *(.rel.plt) }
- .init :
- {
- KEEP (*(.init))
- } =0x90909090
- .plt : { *(.plt) }
- .text :
- {
- *(.text .stub .text.* .gnu.linkonce.t.*)
- /* .gnu.warning sections are handled specially by elf32.em. */
- *(.gnu.warning)
- } =0x90909090
- .fini :
- {
- KEEP (*(.fini))
- } =0x90909090
- PROVIDE (__etext = .);
- PROVIDE (_etext = .);
- PROVIDE (etext = .);
- .rodata : { *(.rodata .rodata.* .gnu.linkonce.r.*) }
- .rodata1 : { *(.rodata1) }
- .eh_frame_hdr : { *(.eh_frame_hdr) }
- .eh_frame : ONLY_IF_RO { KEEP (*(.eh_frame)) }
- .gcc_except_table : ONLY_IF_RO { *(.gcc_except_table .gcc_except_table.*) }
- /* Adjust the address for the data segment. We want to adjust up to
- the same address within the page on the next page up. */
- /*. = ALIGN (CONSTANT (MAXPAGESIZE)) - ((CONSTANT (MAXPAGESIZE) - .) & (CONSTANT (MAXPAGESIZE) - 1)); . = DATA_SEGMENT_ALIGN (CONSTANT (MAXPAGESIZE), CONSTANT (COMMONPAGESIZE));*/
- . = DATA_SEGMENT_ALIGN(0x1000, 0x1000);
- /* Exception handling */
- /* Hope the eh_frame doesn't matter. We removed this because Debian didn't like this line. */
- /*.eh_frame : ONLY_IF_RW ( KEEP *(.eh_frame)) }*/
- /* This used to have : ONLY_IF_RW, but Debian didn't like that, so we removed the ONLY_IF_RW */
- .gcc_except_table : { *(.gcc_except_table .gcc_except_table.*) }
- /* Thread Local Storage sections */
- .tdata : { *(.tdata .tdata.* .gnu.linkonce.td.*) }
- .tbss : { *(.tbss .tbss.* .gnu.linkonce.tb.*) *(.tcommon) }
- .preinit_array :
- {
- PROVIDE_HIDDEN (__preinit_array_start = .);
- KEEP (*(.preinit_array))
- PROVIDE_HIDDEN (__preinit_array_end = .);
- }
- .init_array :
- {
- PROVIDE_HIDDEN (__init_array_start = .);
- KEEP (*(SORT(.init_array.*)))
- KEEP (*(.init_array))
- PROVIDE_HIDDEN (__init_array_end = .);
- }
- .fini_array :
- {
- PROVIDE_HIDDEN (__fini_array_start = .);
- KEEP (*(.fini_array))
- KEEP (*(SORT(.fini_array.*)))
- PROVIDE_HIDDEN (__fini_array_end = .);
- }
- .ctors :
- {
- /* gcc uses crtbegin.o to find the start of
- the constructors, so we make sure it is
- first. Because this is a wildcard, it
- doesn't matter if the user does not
- actually link against crtbegin.o; the
- linker won't look for a file to match a
- wildcard. The wildcard also means that it
- doesn't matter which directory crtbegin.o
- is in. */
- KEEP (*crtbegin.o(.ctors))
- KEEP (*crtbegin?.o(.ctors))
- /* We don't want to include the .ctor section from
- the crtend.o file until after the sorted ctors.
- The .ctor section from the crtend file contains the
- end of ctors marker and it must be last */
- KEEP (*(EXCLUDE_FILE (*crtend.o *crtend?.o ) .ctors))
- KEEP (*(SORT(.ctors.*)))
- KEEP (*(.ctors))
- }
- .dtors :
- {
- KEEP (*crtbegin.o(.dtors))
- KEEP (*crtbegin?.o(.dtors))
- KEEP (*(EXCLUDE_FILE (*crtend.o *crtend?.o ) .dtors))
- KEEP (*(SORT(.dtors.*)))
- KEEP (*(.dtors))
- }
- .jcr : { KEEP (*(.jcr)) }
- .data.rel.ro : { *(.data.rel.ro.local* .gnu.linkonce.d.rel.ro.local.*) *(.data.rel.ro* .gnu.linkonce.d.rel.ro.*) }
- .dynamic : { *(.dynamic) }
- .got : { *(.got) }
- . = DATA_SEGMENT_RELRO_END (12, .);
- .got.plt : { *(.got.plt) }
- .data :
- {
- *(.data .data.* .gnu.linkonce.d.*)
- SORT(CONSTRUCTORS)
- }
- .data1 : { *(.data1) }
- _edata = .; PROVIDE (edata = .);
- __bss_start = .;
- .bss :
- {
- *(.dynbss)
- *(.bss .bss.* .gnu.linkonce.b.*)
- *(COMMON)
- /* Align here to ensure that the .bss section occupies space up to
- _end. Align after .bss to ensure correct alignment even if the
- .bss section disappears because there are no input sections.
- FIXME: Why do we need it? When there is no .bss section, we don't
- pad the .data section. */
- . = ALIGN(. != 0 ? 32 / 8 : 1);
- }
- . = ALIGN(32 / 8);
- . = ALIGN(32 / 8);
- _end = .; PROVIDE (end = .);
- . = DATA_SEGMENT_END (.);
-
- CORRO 0x10000000 : { CORRO.o *(CORRO) }
- CORSTA 0x28000000 : { CORSTA.o *(CORSTA) }
- CORDYN 0x58100000 : { CORDYN.o *(CORDYN) }
-
- /* Stabs debugging sections. */
- .stab 0 : { *(.stab) }
- .stabstr 0 : { *(.stabstr) }
- .stab.excl 0 : { *(.stab.excl) }
- .stab.exclstr 0 : { *(.stab.exclstr) }
- .stab.index 0 : { *(.stab.index) }
- .stab.indexstr 0 : { *(.stab.indexstr) }
- .comment 0 : { *(.comment) }
- /* DWARF debug sections.
- Symbols in the DWARF debugging sections are relative to the beginning
- of the section so we begin them at 0. */
- /* DWARF 1 */
- .debug 0 : { *(.debug) }
- .line 0 : { *(.line) }
- /* GNU DWARF 1 extensions */
- .debug_srcinfo 0 : { *(.debug_srcinfo) }
- .debug_sfnames 0 : { *(.debug_sfnames) }
- /* DWARF 1.1 and DWARF 2 */
- .debug_aranges 0 : { *(.debug_aranges) }
- .debug_pubnames 0 : { *(.debug_pubnames) }
- /* DWARF 2 */
- .debug_info 0 : { *(.debug_info .gnu.linkonce.wi.*) }
- .debug_abbrev 0 : { *(.debug_abbrev) }
- .debug_line 0 : { *(.debug_line) }
- .debug_frame 0 : { *(.debug_frame) }
- .debug_str 0 : { *(.debug_str) }
- .debug_loc 0 : { *(.debug_loc) }
- .debug_macinfo 0 : { *(.debug_macinfo) }
- /* SGI/MIPS DWARF 2 extensions */
- .debug_weaknames 0 : { *(.debug_weaknames) }
- .debug_funcnames 0 : { *(.debug_funcnames) }
- .debug_typenames 0 : { *(.debug_typenames) }
- .debug_varnames 0 : { *(.debug_varnames) }
- /* DWARF 3 */
- .debug_pubtypes 0 : { *(.debug_pubtypes) }
- .debug_ranges 0 : { *(.debug_ranges) }
- .gnu.attributes 0 : { KEEP (*(.gnu.attributes)) }
- /DISCARD/ : { *(.note.GNU-stack) *(.gnu_debuglink) *(.gnu.lto_*) }
-
-}
Index: src/tools/SunOS-cmucl-linker-script
diff -u src/tools/SunOS-cmucl-linker-script:1.2 src/tools/SunOS-cmucl-linker-script:removed
--- src/tools/SunOS-cmucl-linker-script:1.2 Wed Jul 28 21:51:12 2010
+++ src/tools/SunOS-cmucl-linker-script Wed Sep 8 08:10:15 2010
@@ -1,23 +0,0 @@
-# This is basically the contents of /usr/lib/ld/map.default, but
-# modified for our purposes.
-text = V0x10000;
-
-# Add core sections for Lisp
-#
-# We make these files be NOTE sections so that it doesn't mess up the
-# linker and the resulting executable. We'd really like to use LOAD,
-# but when we do that the linker puts sections (like the procedure
-# linkage table!) into the dynamic space.
-
-corro = NOTE;
-corro : CORRO : CORRO.o;
-corsta = NOTE;
-corsta : CORSTA : CORSTA.o;
-cordyn = NOTE;
-cordyn : CORDYN : CORDYN.o;
-
-{
- global:
- initial_function_addr = data V at IFADDR@ S4;
-};
-
Index: src/tools/linker-x86.sh
diff -u src/tools/linker-x86.sh:1.12 src/tools/linker-x86.sh:removed
--- src/tools/linker-x86.sh:1.12 Wed Sep 8 07:01:55 2010
+++ src/tools/linker-x86.sh Wed Sep 8 08:10:15 2010
@@ -1,127 +0,0 @@
-#!/bin/sh
-
-# $Id: linker-x86.sh,v 1.12 2010-09-08 11:01:55 rtoy Exp $
-
-# This file written by Raymond Toy as part of CMU Common Lisp and is
-# placed in the public domain.
-#
-# This script takes parameters specified by the running lisp to create
-# an executable image.
-#
-# Despite the name, it is used for Linux/x86, Darwin/x86, and
-# Solaris/sparc, as specified in src/lisp/elf.h.
-
-OPSYS=`uname`
-
-if [ "X$CMU_DEBUG_LINKER" != "X" ]; then
- # Enable debugging if CMU_DEBUG_LINKER is defined and not empty.
- set -x
-fi
-
-# There must be exactly 6 parameters:
-# - the name of the C compiler (sparc supports both Sun cc and GNU gcc).
-# - the address of the initial function (in C hex format)
-# - the path of the executable to be created
-# - the address of the start of the read-only space
-# - the address of the start of the static space
-# - the address of the start of the dynamic space
-if [ $# -ne 6 ]; then
- echo "Usage: `basename $0` <c-compiler> <initial-func-addr> <executable> <ro-addr> <static-addr> <dyn-addr>"
- exit 1
-fi
-
-CCOMPILER=$1
-IFADDR=$2
-EXEC=$3
-
-# Figure out the directory and file name of the executable.
-OUTDIR=`dirname $EXEC`
-OUTNAME=`basename $EXEC`
-
-# This tells us where the cmu lisp executable is and also the
-# locations of lisp.a.
-CMUCLLIB=`dirname $0`
-
-# Name of file where we write the actual initial function address.
-OPT_IFADDR="cmu-ifaddr-$$.c"
-# Names of the core sections from Lisp.
-OPT_CORE="CORRO.o CORSTA.o CORDYN.o"
-
-uname_s=`uname`
-case $uname_s in
- Linux|FreeBSD)
- # How to specify the starting address for each of the sections
- # These aren't needed for Linux any more. map_core_sections
- # takes care of getting the addresses.
-
- #RO_ADDR="-Wl,--section-start=CORRO=$4"
- #STATIC_ADDR="-Wl,--section-start=CORSTA=$5"
- #DYN_ADDR="-Wl,--section-start=CORDYN=$6"
-
- #OPT_IF ADDR="-Wl,--defsym -Wl,initial_function_addr=$IFADDR"
-
- # Specify how to link the entire lisp.a library
- OPT_ARCHIVE="-Wl,--whole-archive -Wl,$CMUCLLIB/lisp.a -Wl,--no-whole-archive"
-
- # Extra stuff.
-
- OPT_EXTRA="-rdynamic"
-
- # See Config.x86_${uname_s}
- case $uname_s in
- Linux) OS_LIBS=-ldl;;
- FreeBSD) OS_LIBS=-lutil;;
- esac
- ;;
- Darwin)
- # How to specify the starting address for each of the sections.
- # We don't actually need these because map_core_sections sets
- # the addresses itself instead of from the segment address, but
- # if we don't set them up correctly, vmmap complains when run on
- # the resulting executable. There's no harm in specifying them
- # here, though; the addresses are ignored by map_core_sections.
- RO_ADDR="-segaddr CORRO $4"
- STATIC_ADDR="-segaddr CORSTA $5"
- DYN_ADDR="-segaddr CORDYN $6"
-
- # Specify how to link the entire lisp.a library
- OPT_ARCHIVE="-all_load $CMUCLLIB/lisp.a"
-
- # Extra stuff. For some reason one __LINKEDIT segment is mapped
- # just past the dynamic space. This messes things up, so we move it
- # to another address. This seems to be free, at least on 10.5.
-
- OPT_EXTRA="-segaddr __LINKEDIT 0x99000000 -rdynamic"
- # See Config.x86_darwin
- OS_LIBS=
- ;;
- SunOS)
- # A quick test indicates that gcc will accept the following
- # options too, so this will work whether we have Sun C or gcc.
- # Note, that this probably only works if gcc uses Sun ld and not
- # GNU ld. Most (all?) prebuilt versions of gcc for Solaris use
- # Sun ld.
-
- # We don't need anything special to set the starting address.
- # map_core_sections does that for us on sparc.
-
- # Specify how to link the entire lisp.a library
- OPT_ARCHIVE="-Xlinker -z -Xlinker allextract -Xlinker $CMUCLLIB/lisp.a -Xlinker -z -Xlinker defaultextract"
-
- # Extra stuff.
-
- OPT_EXTRA="-Bdynamic"
-
- # See Config.sparc_sunc
- OS_LIBS="-lsocket -lnsl -ldl"
- ;;
-
-esac
-
-# Remove the C file and core section files when we're done.
-trap 'rm -f $OUTDIR/$OPT_IFADDR $OUTDIR/CORRO.o $OUTDIR/CORSTA.o $OUTDIR/CORDYN.o' 0
-
-(cd $OUTDIR
-echo "long initial_function_addr = $IFADDR;" > $OPT_IFADDR
-$CCOMPILER -m32 -o $OUTNAME $OPT_IFADDR $OPT_ARCHIVE $OPT_CORE $RO_ADDR $STATIC_ADDR $DYN_ADDR $OPT_EXTRA $OS_LIBS -lm)
-
More information about the cmucl-commit
mailing list