/* 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 TARGET_OS_CPP_BUILTINS() \ do \ { \ builtin_define_std ("linux"); \ builtin_define_std ("unix"); \ builtin_assert ("system=linux"); \ builtin_assert ("system=unix"); \ builtin_define ("__ELF__"); \ builtin_define ("__gnu_linux__"); \ if (flag_pic) \ { \ builtin_define ("__PIC__"); \ builtin_define ("__pic__"); \ } \ } \ while (0) /* 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 \ { "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" /* 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)) /* 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) /* Do code reading to identify a signal frame, and set the frame state data appropriately. See unwind-dw2.c for the structs. */ #define MD_FALLBACK_FRAME_STATE_FOR(CONTEXT, FS, SUCCESS) \ do { \ unsigned char *pc_ = (CONTEXT)->ra; \ long new_cfa_; \ int i_; \ \ typedef struct \ { \ unsigned long psw_mask; \ unsigned long psw_addr; \ unsigned long gprs[16]; \ unsigned int acrs[16]; \ unsigned int fpc; \ unsigned int __pad; \ double fprs[16]; \ } __attribute__ ((__aligned__ (8))) sigregs_; \ \ sigregs_ *regs_; \ \ /* svc $__NR_sigreturn or svc $__NR_rt_sigreturn */ \ if (pc_[0] != 0x0a || (pc_[1] != 119 && pc_[1] != 173)) \ break; \ \ /* New-style RT frame: \ retcode + alignment (8 bytes) \ siginfo (128 bytes) \ ucontext (contains sigregs) */ \ if ((CONTEXT)->ra == (CONTEXT)->cfa) \ { \ struct ucontext_ \ { \ unsigned long uc_flags; \ struct ucontext_ *uc_link; \ unsigned long uc_stack[3]; \ sigregs_ uc_mcontext; \ } *uc_ = (CONTEXT)->cfa + 8 + 128; \ \ regs_ = &uc_->uc_mcontext; \ } \ \ /* Old-style RT frame and all non-RT frames: \ old signal mask (8 bytes) \ pointer to sigregs */ \ else \ { \ regs_ = *(sigregs_ **)((CONTEXT)->cfa + 8); \ } \ \ new_cfa_ = regs_->gprs[15] + 16*sizeof(long) + 32; \ (FS)->cfa_how = CFA_REG_OFFSET; \ (FS)->cfa_reg = 15; \ (FS)->cfa_offset = \ new_cfa_ - (long) (CONTEXT)->cfa + 16*sizeof(long) + 32; \ \ for (i_ = 0; i_ < 16; i_++) \ { \ (FS)->regs.reg[i_].how = REG_SAVED_OFFSET; \ (FS)->regs.reg[i_].loc.offset = \ (long)®s_->gprs[i_] - new_cfa_; \ } \ for (i_ = 0; i_ < 16; i_++) \ { \ (FS)->regs.reg[16+i_].how = REG_SAVED_OFFSET; \ (FS)->regs.reg[16+i_].loc.offset = \ (long)®s_->fprs[i_] - new_cfa_; \ } \ \ /* Load return addr from PSW into dummy register 32. */ \ (FS)->regs.reg[32].how = REG_SAVED_OFFSET; \ (FS)->regs.reg[32].loc.offset = (long)®s_->psw_addr - new_cfa_; \ (FS)->retaddr_column = 32; \ \ goto SUCCESS; \ } while (0) #endif