1254721Semaste/* Compiler arithmetic header. 2254721Semaste Copyright (C) 2000-2015 Free Software Foundation, Inc. 3254721Semaste Contributed by Steven Bosscher 4254721Semaste 5254721SemasteThis file is part of GCC. 6254721Semaste 7254721SemasteGCC is free software; you can redistribute it and/or modify it under 8254721Semastethe terms of the GNU General Public License as published by the Free 9254721SemasteSoftware Foundation; either version 3, or (at your option) any later 10254721Semasteversion. 11254721Semaste 12254721SemasteGCC is distributed in the hope that it will be useful, but WITHOUT ANY 13254721SemasteWARRANTY; without even the implied warranty of MERCHANTABILITY or 14254721SemasteFITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 15254721Semastefor more details. 16254721Semaste 17254721SemasteYou should have received a copy of the GNU General Public License 18254721Semastealong with GCC; see the file COPYING3. If not see 19254721Semaste<http://www.gnu.org/licenses/>. */ 20254721Semaste 21254721Semaste#ifndef GFC_ARITH_H 22254721Semaste#define GFC_ARITH_H 23254721Semaste 24254721Semaste/* MPFR also does not have the conversion of a mpfr_t to a mpz_t, so declare 25254721Semaste a function for this as well. */ 26254721Semaste 27254721Semastevoid gfc_mpfr_to_mpz (mpz_t, mpfr_t, locus *); 28254721Semastevoid gfc_set_model_kind (int); 29254721Semastevoid gfc_set_model (mpfr_t); 30254721Semaste 31254721Semaste/* Make sure a gfc_expr expression is within its allowed range. Checks 32254721Semaste for overflow and underflow. */ 33254721Semastearith gfc_range_check (gfc_expr *); 34254721Semaste 35254721Semasteint gfc_compare_expr (gfc_expr *, gfc_expr *, gfc_intrinsic_op); 36254721Semasteint gfc_compare_string (gfc_expr *, gfc_expr *); 37254721Semasteint gfc_compare_with_Cstring (gfc_expr *, const char *, bool); 38254721Semaste 39254721Semaste 40254721Semaste/* Constant folding for gfc_expr trees. */ 41254721Semastegfc_expr *gfc_parentheses (gfc_expr * op); 42254721Semastegfc_expr *gfc_uplus (gfc_expr * op); 43254721Semastegfc_expr *gfc_uminus (gfc_expr * op); 44254721Semastegfc_expr *gfc_add (gfc_expr *, gfc_expr *); 45254721Semastegfc_expr *gfc_subtract (gfc_expr *, gfc_expr *); 46254721Semastegfc_expr *gfc_multiply (gfc_expr *, gfc_expr *); 47254721Semastegfc_expr *gfc_divide (gfc_expr *, gfc_expr *); 48254721Semastegfc_expr *gfc_power (gfc_expr *, gfc_expr *); 49254721Semastegfc_expr *gfc_concat (gfc_expr *, gfc_expr *); 50254721Semastegfc_expr *gfc_and (gfc_expr *, gfc_expr *); 51254721Semastegfc_expr *gfc_or (gfc_expr *, gfc_expr *); 52254721Semastegfc_expr *gfc_not (gfc_expr *); 53254721Semastegfc_expr *gfc_eqv (gfc_expr *, gfc_expr *); 54254721Semastegfc_expr *gfc_neqv (gfc_expr *, gfc_expr *); 55254721Semastegfc_expr *gfc_eq (gfc_expr *, gfc_expr *, gfc_intrinsic_op); 56254721Semastegfc_expr *gfc_ne (gfc_expr *, gfc_expr *, gfc_intrinsic_op); 57254721Semastegfc_expr *gfc_gt (gfc_expr *, gfc_expr *, gfc_intrinsic_op); 58254721Semastegfc_expr *gfc_ge (gfc_expr *, gfc_expr *, gfc_intrinsic_op); 59254721Semastegfc_expr *gfc_lt (gfc_expr *, gfc_expr *, gfc_intrinsic_op); 60254721Semastegfc_expr *gfc_le (gfc_expr *, gfc_expr *, gfc_intrinsic_op); 61254721Semaste 62254721Semaste/* Convert strings to literal constants. */ 63254721Semastegfc_expr *gfc_convert_integer (const char *, int, int, locus *); 64263364Semastegfc_expr *gfc_convert_real (const char *, int, locus *); 65263364Semastegfc_expr *gfc_convert_complex (gfc_expr *, gfc_expr *, int); 66263364Semaste 67254721Semaste/* Convert a constant of one kind to another kind. */ 68254721Semastegfc_expr *gfc_int2int (gfc_expr *, int); 69254721Semastegfc_expr *gfc_int2real (gfc_expr *, int); 70254721Semastegfc_expr *gfc_int2complex (gfc_expr *, int); 71254721Semastegfc_expr *gfc_real2int (gfc_expr *, int); 72254721Semastegfc_expr *gfc_real2real (gfc_expr *, int); 73254721Semastegfc_expr *gfc_real2complex (gfc_expr *, int); 74254721Semastegfc_expr *gfc_complex2int (gfc_expr *, int); 75254721Semastegfc_expr *gfc_complex2real (gfc_expr *, int); 76254721Semastegfc_expr *gfc_complex2complex (gfc_expr *, int); 77254721Semastegfc_expr *gfc_log2log (gfc_expr *, int); 78254721Semastegfc_expr *gfc_log2int (gfc_expr *, int); 79254721Semastegfc_expr *gfc_int2log (gfc_expr *, int); 80254721Semastegfc_expr *gfc_hollerith2int (gfc_expr *, int); 81254721Semastegfc_expr *gfc_hollerith2real (gfc_expr *, int); 82263364Semastegfc_expr *gfc_hollerith2complex (gfc_expr *, int); 83254721Semastegfc_expr *gfc_hollerith2character (gfc_expr *, int); 84254721Semastegfc_expr *gfc_hollerith2logical (gfc_expr *, int); 85254721Semaste 86254721Semaste#endif /* GFC_ARITH_H */ 87254721Semaste 88254721Semaste