This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[PATCH] support for s390-freebsd target
- From: "Serguei Tzukanov" <tzukanov at narod dot ru>
- To: gcc-patches at gcc dot gnu dot org
- Date: Fri, 27 Sep 2002 14:34:23 +0400 (MSD)
- Subject: [PATCH] support for s390-freebsd target
- Reply-to: tzukanov at narod dot ru
It's also at http://tzukanov.narod.ru/fbsd390gcc.patch.
diff -urN gcc-3.2/gcc/config/s390/freebsd.h
gcc-3.2.fbsd390/gcc/config/s390/freebsd.h
--- gcc-3.2/gcc/config/s390/freebsd.h Thu Jan 1 03:00:00 1970
+++ gcc-3.2.fbsd390/gcc/config/s390/freebsd.h Tue Sep 24 19:01:54 2002
@@ -0,0 +1,288 @@
+/* Definitions for IBM ESA/390 and ESAME running FreeBSD.
+ Copyright (C) 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
+ Contributed by Hartmut Penner (hpenner@de.ibm.com) and
+ Ulrich Weigand (uweigand@de.ibm.com).
+
+This file is part of GNU CC.
+
+GNU CC is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+GNU CC is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with GNU CC; see the file COPYING. If not, write to
+the Free Software Foundation, 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA. */
+
+/* Target specific version string. */
+
+#undef TARGET_VERSION
+#ifdef DEFAULT_TARGET_64BIT
+#define TARGET_VERSION fprintf (stderr, " (FreeBSD for zSeries)");
+#else
+#define TARGET_VERSION fprintf (stderr, " (FreeBSD for S/390)");
+#endif
+
+
+/* Target specific type definitions. */
+
+/* ??? Do we really want long as size_t on 31-bit? */
+#undef SIZE_TYPE
+#define SIZE_TYPE (TARGET_64BIT ? "long unsigned int" : "unsigned int")
+#undef PTRDIFF_TYPE
+#define PTRDIFF_TYPE (TARGET_64BIT ? "long int" : "int")
+
+#undef WCHAR_TYPE
+#define WCHAR_TYPE "int"
+#undef WCHAR_TYPE_SIZE
+#define WCHAR_TYPE_SIZE 32
+
+#undef DEFAULT_SIGNED_CHAR
+#define DEFAULT_SIGNED_CHAR 1
+
+/* Target specific preprocessor settings. */
+
+#define NO_BUILTIN_SIZE_TYPE
+#define NO_BUILTIN_PTRDIFF_TYPE
+
+#define CPP_CPU31_SPEC \
+ "-D__SIZE_TYPE__=unsigned\\ int -D__PTRDIFF_TYPE__=int \
+ -D__s390__"
+
+#define CPP_CPU64_SPEC \
+ "-D__SIZE_TYPE__=long\\ unsigned\\ int -D__PTRDIFF_TYPE__=long\\ int \
+ -D__s390x__ -D__LONG_MAX__=9223372036854775807L"
+
+#ifdef DEFAULT_TARGET_64BIT
+#define CPP_CPU_SPEC "%{m31:%(cpp_cpu31)} %{!m31:%(cpp_cpu64)}"
+#else
+#define CPP_CPU_SPEC "%{m64:%(cpp_cpu64)} %{!m64:%(cpp_cpu31)}"
+#endif
+
+
+/* Target specific compiler settings. */
+
+/* ??? -fcaller-saves sometimes doesn't work. Fix this! */
+#undef CC1_SPEC
+#define CC1_SPEC "-fno-caller-saves"
+#undef CC1PLUS_SPEC
+#define CC1PLUS_SPEC "-fno-caller-saves"
+
+/* Target specific assembler settings. */
+
+#undef ASM_SPEC
+#ifdef DEFAULT_TARGET_64BIT
+#define ASM_SPEC "%{m31:-m31 -Aesa}"
+#else
+#define ASM_SPEC "%{m64:-m64 -Aesame}"
+#endif
+
+
+/* Target specific linker settings. */
+
+#define LINK_CPU31_SPEC "-m elf_s390"
+
+#define LINK_CPU64_SPEC "-m elf64_s390"
+
+#define LINK_CPUCOMMON_SPEC "%{G*} %{relax:-relax} \
+ %{p:%e`-p' not supported; use `-pg' and gprof(1)} \
+ %{Wl,*:%*} \
+ %{assert*} %{R*} %{rpath*} %{defsym*} \
+ %{shared:-Bshareable %{h*} %{soname*}} \
+ %{symbolic:-Bsymbolic} \
+ %{!shared: \
+ %{!static: \
+ %{rdynamic:-export-dynamic} \
+ %{!dynamic-linker:-dynamic-linker /usr/libexec/ld-elf.so.1}} \
+ %{static:-Bstatic}}"
+
+#undef LINK_SPEC
+#ifdef DEFAULT_TARGET_64BIT
+#define LINK_SPEC "%{m31:%(link_cpu31)} %{!m31:%(link_cpu64)}
%(link_cpucommon)"
+#else
+#define LINK_SPEC "%{m64:%(link_cpu64)} %{!m64:%(link_cpu31)}
%(link_cpucommon)"
+#endif
+
+
+/* This macro defines names of additional specifications to put in the
specs
+ that can be used in various specifications like CC1_SPEC. Its
definition
+ is an initializer with a subgrouping for each command option. */
+
+#define EXTRA_SPECS \
+ { "cpp_cpu31", CPP_CPU31_SPEC }, \
+ { "cpp_cpu64", CPP_CPU64_SPEC }, \
+ { "cpp_cpu", CPP_CPU_SPEC }, \
+ { "link_cpu31", LINK_CPU31_SPEC }, \
+ { "link_cpu64", LINK_CPU64_SPEC }, \
+ { "link_cpucommon", LINK_CPUCOMMON_SPEC }, \
+
+
+/* Character to start a comment. */
+#define ASM_COMMENT_START "#"
+
+#undef ASM_APP_ON
+#define ASM_APP_ON "#APP\n"
+
+#undef ASM_APP_OFF
+#define ASM_APP_OFF "#NO_APP\n"
+
+/* Assembler pseudos to introduce constants of various size. */
+#define ASM_DOUBLE "\t.double"
+
+/* The LOCAL_LABEL_PREFIX variable is used by dbxelf.h. */
+#define LOCAL_LABEL_PREFIX "."
+
+/* Prefix for internally generated assembler labels. */
+#define LPREFIX ".L"
+
+
+/* This is how to output the definition of a user-level label named NAME,
+ such as the label on a static function or variable NAME. */
+#undef ASM_OUTPUT_LABEL
+#define ASM_OUTPUT_LABEL(FILE, NAME) \
+ (assemble_name (FILE, NAME), fputs (":\n", FILE))
+
+/* Store in OUTPUT a string (made with alloca) containing
+ an assembler-name for a local static variable named NAME.
+ LABELNO is an integer which is different for each call. */
+#undef ASM_FORMAT_PRIVATE_NAME
+#define ASM_FORMAT_PRIVATE_NAME(OUTPUT, NAME, LABELNO) \
+( (OUTPUT) = (char *) alloca (strlen ((NAME)) + 10), \
+ sprintf ((OUTPUT), "%s.%d", (NAME), (LABELNO)))
+
+
+/* internal macro to output long */
+#define _ASM_OUTPUT_LONG(FILE, VALUE) \
+ fprintf (FILE, "\t.long\t0x%lX\n", VALUE);
+
+
+/* This is how to output an element of a case-vector that is absolute.
*/
+#define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE) \
+ fprintf (FILE, "%s%s%d\n", integer_asm_op (UNITS_PER_WORD, TRUE), \
+ LPREFIX, VALUE)
+
+/* This is how to output an element of a case-vector that is relative.
*/
+#define ASM_OUTPUT_ADDR_DIFF_ELT(FILE, BODY, VALUE, REL) \
+ fprintf (FILE, "%s%s%d-%s%d\n", integer_asm_op (UNITS_PER_WORD, TRUE),
\
+ LPREFIX, VALUE, LPREFIX, REL)
+
+
+
+/* This is how to output an assembler line
+ that says to advance the location counter
+ to a multiple of 2**LOG bytes. */
+#undef ASM_OUTPUT_ALIGN
+#define ASM_OUTPUT_ALIGN(FILE, LOG) \
+ if ((LOG)!=0) fprintf ((FILE), "\t.align\t%d\n", 1<<(LOG))
+
+/* This is how to output an assembler line
+ that says to advance the location counter by SIZE bytes. */
+#undef ASM_OUTPUT_SKIP
+#define ASM_OUTPUT_SKIP(FILE, SIZE) \
+ fprintf ((FILE), "\t.set\t.,.+%u\n", (SIZE))
+
+/* This is how to output assembler code to declare an
+ uninitialized external linkage data object. */
+#undef ASM_OUTPUT_ALIGNED_BSS
+#define ASM_OUTPUT_ALIGNED_BSS(FILE, DECL, NAME, SIZE, ALIGN) \
+ asm_output_aligned_bss (FILE, DECL, NAME, SIZE, ALIGN)
+
+/* Output before read-only data. */
+#define TEXT_SECTION_ASM_OP ".text"
+
+/* Output before writable (initialized) data. */
+#define DATA_SECTION_ASM_OP ".data"
+
+/* Output before writable (uninitialized) data. */
+#define BSS_SECTION_ASM_OP ".bss"
+
+/* This is how to output a command to make the user-level label named
NAME
+ defined for reference from other files. */
+#define ASM_GLOBALIZE_LABEL(FILE, NAME) \
+ (fputs (".globl ", FILE), assemble_name (FILE, NAME), fputs ("\n",
FILE))
+
+/* Select section for constant in constant pool.
+ We are in the right section.
+ undef for 64 bit mode (linux64.h).
+ */
+#undef SELECT_RTX_SECTION
+#define SELECT_RTX_SECTION(MODE, X, ALIGN)
+
+
+/* Output code to add DELTA to the first argument, and then jump to
FUNCTION.
+ Used for C++ multiple inheritance. */
+#define ASM_OUTPUT_MI_THUNK(FILE, THUNK_FNDECL, DELTA, FUNCTION)
\
+do {
\
+ if (TARGET_64BIT)
\
+ {
\
+ if (flag_pic)
\
+ {
\
+ fprintf (FILE, "\tlarl 1,0f\n");
\
+ fprintf (FILE, "\tagf %d,0(1)\n",
\
+ aggregate_value_p (TREE_TYPE
\
+ (TREE_TYPE (FUNCTION))) ? 3 :2 );
\
+ fprintf (FILE, "\tlarl 1,");
\
+ assemble_name (FILE, XSTR (XEXP (DECL_RTL (FUNCTION), 0), 0));
\
+ fprintf (FILE, "@GOTENT\n");
\
+ fprintf (FILE, "\tlg 1,0(1)\n");
\
+ fprintf (FILE, "\tbr 1\n");
\
+ fprintf (FILE, "0:\t.long "); \
+ fprintf (FILE, HOST_WIDE_INT_PRINT_DEC, (DELTA));
\
+ fprintf (FILE, "\n"); \
+ }
\
+ else
\
+ {
\
+ fprintf (FILE, "\tlarl 1,0f\n");
\
+ fprintf (FILE, "\tagf %d,0(1)\n",
\
+ aggregate_value_p (TREE_TYPE
\
+ (TREE_TYPE (FUNCTION))) ? 3 :2 );
\
+ fprintf (FILE, "\tjg ");
\
+ assemble_name (FILE, XSTR (XEXP (DECL_RTL (FUNCTION), 0), 0));
\
+ fprintf (FILE, "\n");
\
+ fprintf (FILE, "0:\t.long "); \
+ fprintf (FILE, HOST_WIDE_INT_PRINT_DEC, (DELTA));
\
+ fprintf (FILE, "\n"); \
+ }
\
+ }
\
+ else
\
+ {
\
+ if (flag_pic)
\
+ {
\
+ fprintf (FILE, "\tbras 1,0f\n");
\
+ fprintf (FILE, "\t.long _GLOBAL_OFFSET_TABLE_-.\n");
\
+ fprintf (FILE, "\t.long ");
\
+ assemble_name (FILE, XSTR (XEXP (DECL_RTL (FUNCTION), 0), 0));
\
+ fprintf (FILE, "@GOT\n");
\
+ fprintf (FILE, "\t.long "); \
+ fprintf (FILE, HOST_WIDE_INT_PRINT_DEC, (DELTA));
\
+ fprintf (FILE, "\n"); \
+ fprintf (FILE, "0:\tal %d,8(1)\n",
\
+ aggregate_value_p (TREE_TYPE
\
+ (TREE_TYPE (FUNCTION))) ? 3 : 2 );
\
+ fprintf (FILE, "\tl 0,4(1)\n");
\
+ fprintf (FILE, "\tal 1,0(1)\n");
\
+ fprintf (FILE, "\talr 1,0\n");
\
+ fprintf (FILE, "\tl 1,0(1)\n");
\
+ fprintf (FILE, "\tbr 1\n");
\
+ } else {
\
+ fprintf (FILE, "\tbras 1,0f\n");
\
+ fprintf (FILE, "\t.long ");
\
+ assemble_name (FILE, XSTR (XEXP (DECL_RTL (FUNCTION), 0), 0));
\
+ fprintf (FILE, "-.\n");
\
+ fprintf (FILE, "\t.long "); \
+ fprintf (FILE, HOST_WIDE_INT_PRINT_DEC, (DELTA));
\
+ fprintf (FILE, "\n"); \
+ fprintf (FILE, "0:\tal %d,4(1)\n",
\
+ aggregate_value_p (TREE_TYPE
\
+ (TREE_TYPE (FUNCTION))) ? 3 : 2 );
\
+ fprintf (FILE, "\tal 1,0(1)\n");
\
+ fprintf (FILE, "\tbr 1\n");
\
+ }
\
+ }
\
+} while (0)
diff -urN gcc-3.2/gcc/config.gcc gcc-3.2.fbsd390/gcc/config.gcc
--- gcc-3.2/gcc/config.gcc Tue Aug 6 19:20:55 2002
+++ gcc-3.2.fbsd390/gcc/config.gcc Tue Sep 24 18:58:41 2002
@@ -2969,6 +2969,9 @@
tmake_file=rs6000/t-rs6000
use_collect2=yes
;;
+s390-*-freebsd*)
+ tm_file="${tm_file} dbxelf.h elfos.h ${fbsd_tm_file} s390/freebsd.h"
+ ;;
s390-*-linux*)
tm_file="s390/s390.h dbxelf.h elfos.h svr4.h linux.h s390/linux.h"
tmake_file="t-slibgcc-elf-ver t-linux s390/t-linux"
@@ -2996,6 +2999,12 @@
if test $machine = $target; then
target_requires_64bit_host_wide_int=yes
fi
+ ;;
+s390x-*-freebsd*)
+ tm_file="s390/s390.h s390/s390x.h dbxelf.h elfos.h ${fbsd_tm_file}
s390/freebsd.h"
+ tm_p_file=s390/s390-protos.h
+ md_file=s390/s390.md
+ out_file=s390/s390.c
;;
sh-*-rtemself*)
xm_defines=POSIX