| /* Definitions for Linux for S/390. |
| 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. */ |
| |
| #ifndef _LINUX_H |
| #define _LINUX_H |
| |
| /* Target specific version string. */ |
| |
| #ifdef DEFAULT_TARGET_64BIT |
| #undef TARGET_VERSION |
| #define TARGET_VERSION fprintf (stderr, " (Linux for zSeries)"); |
| #else |
| #undef TARGET_VERSION |
| #define TARGET_VERSION fprintf (stderr, " (Linux 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" : "long 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 |
| |
| |
| /* Target specific preprocessor settings. */ |
| |
| #define NO_BUILTIN_SIZE_TYPE |
| #define NO_BUILTIN_PTRDIFF_TYPE |
| |
| #define CPP_PREDEFINES \ |
| "-Dunix -Asystem(unix) -Dlinux -Asystem(linux) -D__ELF__ \ |
| -Acpu(s390) -Amachine(s390) -D__s390__" |
| |
| #define CPP_ARCH31_SPEC \ |
| "-D__SIZE_TYPE__=long\\ unsigned\\ int -D__PTRDIFF_TYPE__=int" |
| #define CPP_ARCH64_SPEC \ |
| "-D__SIZE_TYPE__=long\\ unsigned\\ int -D__PTRDIFF_TYPE__=long\\ int \ |
| -D__s390x__ -D__LONG_MAX__=9223372036854775807L" |
| |
| #ifdef DEFAULT_TARGET_64BIT |
| #undef CPP_SPEC |
| #define CPP_SPEC "%{m31:%(cpp_arch31)} %{!m31:%(cpp_arch64)}" |
| #else |
| #undef CPP_SPEC |
| #define CPP_SPEC "%{m64:%(cpp_arch64)} %{!m64:%(cpp_arch31)}" |
| #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. */ |
| |
| #ifdef DEFAULT_TARGET_64BIT |
| #undef ASM_SPEC |
| #define ASM_SPEC "%{m31:-m31 -Aesa}" |
| #else |
| #undef ASM_SPEC |
| #define ASM_SPEC "%{m64:-m64 -Aesame}" |
| #endif |
| |
| |
| /* Target specific linker settings. */ |
| |
| #define LINK_ARCH31_SPEC \ |
| "-m elf_s390 \ |
| %{shared:-shared} \ |
| %{!shared: \ |
| %{static:-static} \ |
| %{!static: \ |
| %{rdynamic:-export-dynamic} \ |
| %{!dynamic-linker:-dynamic-linker /lib/ld.so.1}}}" |
| |
| #define LINK_ARCH64_SPEC \ |
| "-m elf64_s390 \ |
| %{shared:-shared} \ |
| %{!shared: \ |
| %{static:-static} \ |
| %{!static: \ |
| %{rdynamic:-export-dynamic} \ |
| %{!dynamic-linker:-dynamic-linker /lib/ld64.so.1}}}" |
| |
| #ifdef DEFAULT_TARGET_64BIT |
| #undef LINK_SPEC |
| #define LINK_SPEC "%{m31:%(link_arch31)} %{!m31:%(link_arch64)}" |
| #else |
| #undef LINK_SPEC |
| #define LINK_SPEC "%{m64:%(link_arch64)} %{!m64:%(link_arch31)}" |
| #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_arch31", CPP_ARCH31_SPEC }, \ |
| { "cpp_arch64", CPP_ARCH64_SPEC }, \ |
| { "link_arch31", LINK_ARCH31_SPEC }, \ |
| { "link_arch64", LINK_ARCH64_SPEC }, \ |
| |
| |
| /* Character to start a comment. */ |
| |
| #define ASM_COMMENT_START "#" |
| |
| |
| /* Assembler pseudos to introduce constants of various size. */ |
| |
| #define ASM_DOUBLE "\t.double" |
| |
| |
| /* 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) |
| |
| #endif |