URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [fortran/] [arith.h] - Rev 290
Go to most recent revision | Compare with Previous | Blame | View Log
/* Compiler arithmetic header. Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. Contributed by Steven Bosscher This file is part of GCC. GCC 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 3, or (at your option) any later version. GCC 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 GCC; see the file COPYING3. If not see <http://www.gnu.org/licenses/>. */ #ifndef GFC_ARITH_H #define GFC_ARITH_H #include "gfortran.h" /* MPFR also does not have the conversion of a mpfr_t to a mpz_t, so declare a function for this as well. */ void gfc_mpfr_to_mpz (mpz_t, mpfr_t, locus *); void gfc_set_model_kind (int); void gfc_set_model (mpfr_t); /* Return a constant result of a given type and kind, with locus. */ gfc_expr *gfc_constant_result (bt, int, locus *); /* Make sure a gfc_expr expression is within its allowed range. Checks for overflow and underflow. */ arith gfc_range_check (gfc_expr *); int gfc_compare_expr (gfc_expr *, gfc_expr *, gfc_intrinsic_op); int gfc_compare_string (gfc_expr *, gfc_expr *); int gfc_compare_with_Cstring (gfc_expr *, const char *, bool); /* Constant folding for gfc_expr trees. */ gfc_expr *gfc_parentheses (gfc_expr * op); gfc_expr *gfc_uplus (gfc_expr * op); gfc_expr *gfc_uminus (gfc_expr * op); gfc_expr *gfc_add (gfc_expr *, gfc_expr *); gfc_expr *gfc_subtract (gfc_expr *, gfc_expr *); gfc_expr *gfc_multiply (gfc_expr *, gfc_expr *); gfc_expr *gfc_divide (gfc_expr *, gfc_expr *); gfc_expr *gfc_power (gfc_expr *, gfc_expr *); gfc_expr *gfc_concat (gfc_expr *, gfc_expr *); gfc_expr *gfc_and (gfc_expr *, gfc_expr *); gfc_expr *gfc_or (gfc_expr *, gfc_expr *); gfc_expr *gfc_not (gfc_expr *); gfc_expr *gfc_eqv (gfc_expr *, gfc_expr *); gfc_expr *gfc_neqv (gfc_expr *, gfc_expr *); gfc_expr *gfc_eq (gfc_expr *, gfc_expr *, gfc_intrinsic_op); gfc_expr *gfc_ne (gfc_expr *, gfc_expr *, gfc_intrinsic_op); gfc_expr *gfc_gt (gfc_expr *, gfc_expr *, gfc_intrinsic_op); gfc_expr *gfc_ge (gfc_expr *, gfc_expr *, gfc_intrinsic_op); gfc_expr *gfc_lt (gfc_expr *, gfc_expr *, gfc_intrinsic_op); gfc_expr *gfc_le (gfc_expr *, gfc_expr *, gfc_intrinsic_op); /* Convert strings to literal constants. */ gfc_expr *gfc_convert_integer (const char *, int, int, locus *); gfc_expr *gfc_convert_real (const char *, int, locus *); gfc_expr *gfc_convert_complex (gfc_expr *, gfc_expr *, int); /* Convert a constant of one kind to another kind. */ gfc_expr *gfc_int2int (gfc_expr *, int); gfc_expr *gfc_int2real (gfc_expr *, int); gfc_expr *gfc_int2complex (gfc_expr *, int); gfc_expr *gfc_real2int (gfc_expr *, int); gfc_expr *gfc_real2real (gfc_expr *, int); gfc_expr *gfc_real2complex (gfc_expr *, int); gfc_expr *gfc_complex2int (gfc_expr *, int); gfc_expr *gfc_complex2real (gfc_expr *, int); gfc_expr *gfc_complex2complex (gfc_expr *, int); gfc_expr *gfc_log2log (gfc_expr *, int); gfc_expr *gfc_log2int (gfc_expr *, int); gfc_expr *gfc_int2log (gfc_expr *, int); gfc_expr *gfc_hollerith2int (gfc_expr *, int); gfc_expr *gfc_hollerith2real (gfc_expr *, int); gfc_expr *gfc_hollerith2complex (gfc_expr *, int); gfc_expr *gfc_hollerith2character (gfc_expr *, int); gfc_expr *gfc_hollerith2logical (gfc_expr *, int); #endif /* GFC_ARITH_H */
Go to most recent revision | Compare with Previous | Blame | View Log