diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ChangeLog | 19 | ||||
| -rw-r--r-- | gcc/config/alpha/alpha.c | 20 | ||||
| -rw-r--r-- | gcc/config/alpha/linux.h | 3 | ||||
| -rw-r--r-- | gcc/config/s390/linux.h | 3 | ||||
| -rw-r--r-- | gcc/config/s390/s390.c | 20 | ||||
| -rw-r--r-- | gcc/config/sparc/linux.h | 3 | ||||
| -rw-r--r-- | gcc/config/sparc/linux64.h | 3 | ||||
| -rw-r--r-- | gcc/config/sparc/sparc.c | 24 |
8 files changed, 95 insertions, 0 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index c8d684db633..943f0e07c68 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,22 @@ +2006-02-06 Aldy Hernandez <aldyh@redhat.com> + + * config/s390/s390.c (TARGET_MANGLE_FUNDAMENTAL_TYPE): Define. + (s390_mangle_fundamental_type): New. + * config/s390/linux.h (TARGET_ALTERNATE_LONG_DOUBLE_MANGLING): + Define. + + * config/alpha/alpha.c (TARGET_MANGLE_FUNDAMENTAL_TYPE): Define. + (alpha_mangle_fundamental_type): New. + * config/alpha/linux.h (TARGET_ALTERNATE_LONG_DOUBLE_MANGLING): + Define. + + * config/sparc/linux.h (TARGET_ALTERNATE_LONG_DOUBLE_MANGLING): + Define. + * config/sparc/linux64.h (TARGET_ALTERNATE_LONG_DOUBLE_MANGLING): + Define. + * config/sparc/sparc.c (TARGET_MANGLE_FUNDAMENTAL_TYPE): Define. + (sparc_mangle_fundamental_type): New. + 2006-02-06 Jakub Jelinek <jakub@redhat.com> * config.gcc (s390-*-linux*): Add s390/t-linux to tmake_file. diff --git a/gcc/config/alpha/alpha.c b/gcc/config/alpha/alpha.c index c684a4cb1e2..909035a2694 100644 --- a/gcc/config/alpha/alpha.c +++ b/gcc/config/alpha/alpha.c @@ -235,6 +235,21 @@ alpha_handle_option (size_t code, const char *arg, int value) return true; } +#ifdef TARGET_ALTERNATE_LONG_DOUBLE_MANGLING +/* Implement TARGET_MANGLE_FUNDAMENTAL_TYPE. */ + +static const char * +alpha_mangle_fundamental_type (tree type) +{ + if (TYPE_MAIN_VARIANT (type) == long_double_type_node + && TARGET_LONG_DOUBLE_128) + return "g"; + + /* For all other types, use normal C++ mangling. */ + return NULL; +} +#endif + /* Parse target option strings. */ void @@ -10722,6 +10737,11 @@ alpha_init_libfuncs (void) #undef TARGET_HANDLE_OPTION #define TARGET_HANDLE_OPTION alpha_handle_option +#ifdef TARGET_ALTERNATE_LONG_DOUBLE_MANGLING +#undef TARGET_MANGLE_FUNDAMENTAL_TYPE +#define TARGET_MANGLE_FUNDAMENTAL_TYPE alpha_mangle_fundamental_type +#endif + struct gcc_target targetm = TARGET_INITIALIZER; diff --git a/gcc/config/alpha/linux.h b/gcc/config/alpha/linux.h index ffb581c4f53..3aa9d0005da 100644 --- a/gcc/config/alpha/linux.h +++ b/gcc/config/alpha/linux.h @@ -77,3 +77,6 @@ Boston, MA 02110-1301, USA. */ #endif #define MD_UNWIND_SUPPORT "config/alpha/linux-unwind.h" + +/* Define if long doubles should be mangled as 'g'. */ +#define TARGET_ALTERNATE_LONG_DOUBLE_MANGLING diff --git a/gcc/config/s390/linux.h b/gcc/config/s390/linux.h index 7fd5711a8a4..fcb6dff0317 100644 --- a/gcc/config/s390/linux.h +++ b/gcc/config/s390/linux.h @@ -95,4 +95,7 @@ Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA #define TARGET_THREAD_SSP_OFFSET (TARGET_64BIT ? 0x28 : 0x14) #endif +/* Define if long doubles should be mangled as 'g'. */ +#define TARGET_ALTERNATE_LONG_DOUBLE_MANGLING + #endif diff --git a/gcc/config/s390/s390.c b/gcc/config/s390/s390.c index dfefaca21fc..bdf15125541 100644 --- a/gcc/config/s390/s390.c +++ b/gcc/config/s390/s390.c @@ -4293,6 +4293,21 @@ s390_output_dwarf_dtprel (FILE *file, int size, rtx x) fputs ("@DTPOFF", file); } +#ifdef TARGET_ALTERNATE_LONG_DOUBLE_MANGLING +/* Implement TARGET_MANGLE_FUNDAMENTAL_TYPE. */ + +static const char * +s390_mangle_fundamental_type (tree type) +{ + if (TYPE_MAIN_VARIANT (type) == long_double_type_node + && TARGET_LONG_DOUBLE_128) + return "g"; + + /* For all other types, use normal C++ mangling. */ + return NULL; +} +#endif + /* In the name of slightly smaller debug output, and to cater to general assembler lossage, recognize various UNSPEC sequences and turn them back into a direct symbol reference. */ @@ -9185,6 +9200,11 @@ s390_reorg (void) #define TARGET_ASM_OUTPUT_DWARF_DTPREL s390_output_dwarf_dtprel #endif +#ifdef TARGET_ALTERNATE_LONG_DOUBLE_MANGLING +#undef TARGET_MANGLE_FUNDAMENTAL_TYPE +#define TARGET_MANGLE_FUNDAMENTAL_TYPE s390_mangle_fundamental_type +#endif + struct gcc_target targetm = TARGET_INITIALIZER; #include "gt-s390.h" diff --git a/gcc/config/sparc/linux.h b/gcc/config/sparc/linux.h index 10edd746f7f..df0fe58bc73 100644 --- a/gcc/config/sparc/linux.h +++ b/gcc/config/sparc/linux.h @@ -229,3 +229,6 @@ do { \ /* sparc glibc provides __stack_chk_guard in [%g7 + 0x14]. */ #define TARGET_THREAD_SSP_OFFSET 0x14 #endif + +/* Define if long doubles should be mangled as 'g'. */ +#define TARGET_ALTERNATE_LONG_DOUBLE_MANGLING diff --git a/gcc/config/sparc/linux64.h b/gcc/config/sparc/linux64.h index e4fe918e6a4..f997fee37f7 100644 --- a/gcc/config/sparc/linux64.h +++ b/gcc/config/sparc/linux64.h @@ -364,3 +364,6 @@ do { \ sparc64 glibc provides it at [%g7 + 0x28]. */ #define TARGET_THREAD_SSP_OFFSET (TARGET_ARCH64 ? 0x28 : 0x14) #endif + +/* Define if long doubles should be mangled as 'g'. */ +#define TARGET_ALTERNATE_LONG_DOUBLE_MANGLING diff --git a/gcc/config/sparc/sparc.c b/gcc/config/sparc/sparc.c index 2d2adba0ab0..c633e8a9fc7 100644 --- a/gcc/config/sparc/sparc.c +++ b/gcc/config/sparc/sparc.c @@ -368,6 +368,9 @@ static int sparc_arg_partial_bytes (CUMULATIVE_ARGS *, static void sparc_dwarf_handle_frame_unspec (const char *, rtx, int); static void sparc_output_dwarf_dtprel (FILE *, int, rtx) ATTRIBUTE_UNUSED; static void sparc_file_end (void); +#ifdef TARGET_ALTERNATE_LONG_DOUBLE_MANGLING +static const char *sparc_mangle_fundamental_type (tree); +#endif #ifdef SUBTARGET_ATTRIBUTE_TABLE const struct attribute_spec sparc_attribute_table[]; #endif @@ -527,6 +530,11 @@ static bool fpu_option_set = false; #undef TARGET_ASM_FILE_END #define TARGET_ASM_FILE_END sparc_file_end +#ifdef TARGET_ALTERNATE_LONG_DOUBLE_MANGLING +#undef TARGET_MANGLE_FUNDAMENTAL_TYPE +#define TARGET_MANGLE_FUNDAMENTAL_TYPE sparc_mangle_fundamental_type +#endif + struct gcc_target targetm = TARGET_INITIALIZER; /* Implement TARGET_HANDLE_OPTION. */ @@ -8713,6 +8721,22 @@ sparc_file_end (void) file_end_indicate_exec_stack (); } +#ifdef TARGET_ALTERNATE_LONG_DOUBLE_MANGLING +/* Implement TARGET_MANGLE_FUNDAMENTAL_TYPE. */ + +static const char * +sparc_mangle_fundamental_type (tree type) +{ + if (!TARGET_64BIT + && TYPE_MAIN_VARIANT (type) == long_double_type_node + && TARGET_LONG_DOUBLE_128) + return "g"; + + /* For all other types, use normal C++ mangling. */ + return NULL; +} +#endif + /* Expand code to perform a 8 or 16-bit compare and swap by doing 32-bit compare and swap on the word containing the byte or half-word. */ |