diff options
| -rw-r--r-- | gcc/ChangeLog | 14 | ||||
| -rw-r--r-- | gcc/config.gcc | 2 | ||||
| -rw-r--r-- | gcc/config/ia64/hpux.h | 3 | ||||
| -rw-r--r-- | gcc/config/ia64/ia64-c.c | 190 | ||||
| -rw-r--r-- | gcc/config/ia64/ia64-protos.h | 4 | ||||
| -rw-r--r-- | gcc/config/ia64/t-ia64 | 4 |
6 files changed, 217 insertions, 0 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 5d23406dd41..c393be4dc3c 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,17 @@ +2002-09-03 Steve Ellcey <sje@cup.hp.com> + + * config.gcc (ia64*-*-hpux*): Add ia64-c.o to c_target and + cxx_target. + * config/ia64/hpux.h (REGISTER_TARGET_PRAGMAS): Register pragma + handling routine for builtin pragma. + * config/ia64/ia64-protos.h (ia64_hpux_handle_builtin_pragma): + Registered pragma handling routine. + * ia64-c.c (ia64_hpux_handle_builtin_pragma): Ditto. + (ia64_hpux_add_pragma_builtin) New subroutine used by above. + If builtin pragma seen for math routine and C89 conformance is + requested use different math function in order to set errno. + * t-ia64 (ia64-c.o): Add new rule for new file. + 2002-09-03 Ulrich Weigand <uweigand@de.ibm.com> * config/s390/s390.md ("movti"): Add Q->Q alternative. diff --git a/gcc/config.gcc b/gcc/config.gcc index b9f24ae416f..87eaa6225eb 100644 --- a/gcc/config.gcc +++ b/gcc/config.gcc @@ -1429,6 +1429,8 @@ ia64*-*-hpux*) fi use_collect2=no float_format=i128 + c_target_objs="ia64-c.o" + cxx_target_objs="ia64-c.o" ;; ip2k-*-elf) ;; diff --git a/gcc/config/ia64/hpux.h b/gcc/config/ia64/hpux.h index 561d629d64b..1d4aaea07e4 100644 --- a/gcc/config/ia64/hpux.h +++ b/gcc/config/ia64/hpux.h @@ -121,3 +121,6 @@ Boston, MA 02111-1307, USA. */ #undef PAD_VARARGS_DOWN #define PAD_VARARGS_DOWN (!AGGREGATE_TYPE_P (type)) + +#define REGISTER_TARGET_PRAGMAS(PFILE) \ + cpp_register_pragma (PFILE, 0, "builtin", ia64_hpux_handle_builtin_pragma) diff --git a/gcc/config/ia64/ia64-c.c b/gcc/config/ia64/ia64-c.c new file mode 100644 index 00000000000..c19a5860532 --- /dev/null +++ b/gcc/config/ia64/ia64-c.c @@ -0,0 +1,190 @@ +/* Definitions of C specific functions for GNU compiler. + Copyright (C) 2002 Free Software Foundation, Inc. + Contributed by Steve Ellcey <sje@cup.hp.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. */ + +#include "config.h" +#include "system.h" +#include "tree.h" +#include "cpplib.h" +#include "c-common.h" +#include "c-pragma.h" +#include "toplev.h" + +static void ia64_hpux_add_pragma_builtin PARAMS ((tree func)); + +void +ia64_hpux_handle_builtin_pragma (pfile) + cpp_reader *pfile ATTRIBUTE_UNUSED; +{ + /* #pragma builtin name, name, name */ + + enum cpp_ttype type; + tree x; + + type = c_lex (&x); + while (type == CPP_NAME) + { + ia64_hpux_add_pragma_builtin (x); + type = c_lex (&x); + if (type == CPP_COMMA) + type = c_lex (&x); + } + if (type != CPP_EOF) + warning ("malformed #pragma builtin"); +} + +/* List of standard math functions which do not set matherr by default + and which have a different version which does set errno and which we + want to call *if* we have seen an extern for the routine and we have + asked for strict C89 compatibility. */ + +typedef struct c89_mathlib_names +{ + const char *realname; /* User visible function name. */ + const char *c89name; /* libm special name needed to set errno. */ +} c89_mathlib_names; + +static const c89_mathlib_names c89_mathlib_name_list [] = +{ + {"acos", "_Acos_e#"}, + {"acosd", "_Acosd_e#"}, + {"acosdf", "_Acosdf_e#"}, + {"acosdl", "_Acosdl_e#"}, + {"acosdw", "_Acosdw_e#"}, + {"acosf", "_Acosf_e#"}, + {"acosh", "_Acosh_e#"}, + {"acoshf", "_Acoshf_e#"}, + {"acoshl", "_Acoshl_e#"}, + {"acoshw", "_Acoshw_e#"}, + {"acosl", "_Acosl_e#"}, + {"acosw", "_Acosw_e#"}, + {"asin", "_Asin_e#"}, + {"asind", "_Asind_e#"}, + {"asindf", "_Asindf_e#"}, + {"asindl", "_Asindl_e#"}, + {"asindw", "_Asindw_e#"}, + {"asinf", "_Asinf_e#"}, + {"asinl", "_Asinl_e#"}, + {"asinw", "_Asinw_e#"}, + {"atanh", "_Atanh_e#"}, + {"atanhf", "_Atanhf_e#"}, + {"atanhl", "_Atanhl_e#"}, + {"atanhw", "_Atanhw_e#"}, + {"cosh", "_Cosh_e#"}, + {"coshf", "_Coshf_e#"}, + {"coshl", "_Coshl_e#"}, + {"coshw", "_Coshw_e#"}, + {"exp2", "_Exp2_e#"}, + {"exp2f", "_Exp2f_e#"}, + {"exp2l", "_Exp2l_e#"}, + {"exp2w", "_Exp2w_e#"}, + {"exp", "_Exp_e#"}, + {"expf", "_Expf_e#"}, + {"expl", "_Expl_e#"}, + {"expm1", "_Expm1_e#"}, + {"expm1f", "_Expm1f_e#"}, + {"expm1l", "_Expm1l_e#"}, + {"expm1w", "_Expm1w_e#"}, + {"expw", "_Expw_e#"}, + {"fmod", "_Fmod_e#"}, + {"fmodf", "_Fmodf_e#"}, + {"fmodl", "_Fmodl_e#"}, + {"fmodw", "_Fmodw_e#"}, + {"gamma", "_Gamma_e#"}, + {"gammaf", "_Gammaf_e#"}, + {"gammal", "_Gammal_e#"}, + {"gammaw", "_Gammaw_e#"}, + {"ldexp", "_Ldexp_e#"}, + {"ldexpf", "_Ldexpf_e#"}, + {"ldexpl", "_Ldexpl_e#"}, + {"ldexpw", "_Ldexpw_e#"}, + {"lgamma", "_Lgamma_e#"}, + {"lgammaf", "_Lgammaf_e#"}, + {"lgammal", "_Lgammal_e#"}, + {"lgammaw", "_Lgammaw_e#"}, + {"log10", "_Log10_e#"}, + {"log10f", "_Log10f_e#"}, + {"log10l", "_Log10l_e#"}, + {"log10w", "_Log10w_e#"}, + {"log1p", "_Log1p_e#"}, + {"log1pf", "_Log1pf_e#"}, + {"log1pl", "_Log1pl_e#"}, + {"log1pw", "_Log1pw_e#"}, + {"log2", "_Log2_e#"}, + {"log2f", "_Log2f_e#"}, + {"log2l", "_Log2l_e#"}, + {"log2w", "_Log2w_e#"}, + {"log", "_Log_e#"}, + {"logb", "_Logb_e#"}, + {"logbf", "_Logbf_e#"}, + {"logbl", "_Logbl_e#"}, + {"logbw", "_Logbw_e#"}, + {"logf", "_Logf_e#"}, + {"logl", "_Logl_e#"}, + {"logw", "_Logw_e#"}, + {"nextafter", "_Nextafter_e#"}, + {"nextafterf", "_Nextafterf_e#"}, + {"nextafterl", "_Nextafterl_e#"}, + {"nextafterw", "_Nextafterw_e#"}, + {"pow", "_Pow_e#"}, + {"powf", "_Powf_e#"}, + {"powl", "_Powl_e#"}, + {"poww", "_Poww_e#"}, + {"remainder", "_Remainder_e#"}, + {"remainderf", "_Remainderf_e#"}, + {"remainderl", "_Remainderl_e#"}, + {"remainderw", "_Remainderw_e#"}, + {"scalb", "_Scalb_e#"}, + {"scalbf", "_Scalbf_e#"}, + {"scalbl", "_Scalbl_e#"}, + {"scalbw", "_Scalbw_e#"}, + {"sinh", "_Sinh_e#"}, + {"sinhf", "_Sinhf_e#"}, + {"sinhl", "_Sinhl_e#"}, + {"sinhw", "_Sinhw_e#"}, + {"sqrt", "_Sqrt_e#"}, + {"sqrtf", "_Sqrtf_e#"}, + {"sqrtl", "_Sqrtl_e#"}, + {"sqrtw", "_Sqrtw_e#"}, + {"tgamma", "_Tgamma_e#"}, + {"tgammaf", "_Tgammaf_e#"}, + {"tgammal", "_Tgammal_e#"}, + {"tgammaw", "_Tgammaw_e#"} +}; + +static void +ia64_hpux_add_pragma_builtin (func) + tree func; +{ + size_t i; + + if (!flag_isoc94 && flag_iso) + { + for (i = 0; i < ARRAY_SIZE (c89_mathlib_name_list); i++) + { + if (!strcmp(c89_mathlib_name_list[i].realname, + IDENTIFIER_POINTER (func))) + { + add_to_renaming_pragma_list(func, + get_identifier(c89_mathlib_name_list[i].c89name)); + } + } + } +} diff --git a/gcc/config/ia64/ia64-protos.h b/gcc/config/ia64/ia64-protos.h index 0244b511c9d..f4d264cef6f 100644 --- a/gcc/config/ia64/ia64-protos.h +++ b/gcc/config/ia64/ia64-protos.h @@ -144,3 +144,7 @@ extern void sbss_section PARAMS ((void)); /* expr.h defines ARGS_SIZE_RTX and `enum direction'. */ extern enum direction ia64_hpux_function_arg_padding PARAMS ((enum machine_mode, tree)); #endif /* ARGS_SIZE_RTX */ + +#ifdef GCC_C_PRAGMA_H +extern void ia64_hpux_handle_builtin_pragma PARAMS ((cpp_reader *)); +#endif diff --git a/gcc/config/ia64/t-ia64 b/gcc/config/ia64/t-ia64 index 41c0235c17c..1987bd0f131 100644 --- a/gcc/config/ia64/t-ia64 +++ b/gcc/config/ia64/t-ia64 @@ -40,3 +40,7 @@ crtfastmath.o: $(srcdir)/config/ia64/crtfastmath.c $(GCC_PASSES) $(GCC_FOR_TARGET) $(LIBGCC2_CFLAGS) -c -o crtfastmath.o $(srcdir)/config/ia64/crtfastmath.c LIB2ADDEH = $(srcdir)/config/ia64/unwind-ia64.c $(srcdir)/unwind-sjlj.c + +ia64-c.o: $(srcdir)/config/ia64/ia64-c.c $(CONFIG_H) $(SYSTEM_H) \ + $(TREE_H) $(CPPLIB_H) $(C_COMMON_H) c-pragma.h toplev.h + $(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) $< |