da/dcb/ri-util_8h_source.html

 /* Warning! Do not modify this file that is automatically generated! */

 /* Modify src/Libs/ri-util/ri-util-local.h instead, to add your own modifications. */


 /* header file built by cproto */


 #ifndef  ri_util_header_included

 #define  ri_util_header_included

 /*  ri_util-local.h */

 /*


   $Id: ri-util-local.h 23466 2018-03-12 03:08:18Z ancourt $


   Copyright 1989-2016 MINES ParisTech


   This file is part of PIPS.


   PIPS 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 of the License, or

   any later version.


   PIPS 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 PIPS.  If not, see <http://www.gnu.org/licenses/>.


 */

 /* RI-UTIL Library: Functions dealing with and constants related to

  * PIPS intermediate representation ri.newgen,

  * that are NOT generated by NewGen

  */


  /* Pvecteur is an external type for NewGen and the ri data structure

   * and is not included in ri.h

   *

   * It is included here to avoid changes in many PIPS modules which

   * use ri-util

   *

   * Idem for type Ppolynome (PB 25/07/90); FI: polynomials are not

   * used in ri.newgen; they should not be mentionned here

   *

   * Idem for type Psysteme (FI 3 November 1990)

   *

   * New function call need to be defined to handle omp pragma as a

   * standard PIPS expression. To be easily recognized, all the defined

   * values are prefixed by "OMP_".

   */


 /*

  * Modifications:

  * --------------

  * Molka Becher (MB), June 2010

  * - Add and Check of definition of C Intrinsics (#define)

  * - Add of definition of QuadPrecision type and LongDoubleComplex type

  * - Add of package & variable names for memmove intrinsic (string.h)

  */


 #include "linear.h"

 #include "genC.h"


 #include "ri.h"

 #include "text.h"

 #include "cloning.h"


 #include "newgen.h"

 #include "naming.h"


 /* FC 2015-07-20

  * yuk, temporary fix to avoid an include cycle ri-util <-> prettyprint

  # #include "prettyprint.h"

  */

 extern string basic_to_string(basic);

 extern string string_of_type(type);

 extern void print_type(type);

 extern bool same_type_name_p(type, type);


 #define UNBOUNDED_DIMENSION_NAME         "UNBOUNDED-DIMENSION"

 #define IMPLIED_DO_NAME                  "IMPLIED-DO"

 #define IMPLIED_DO_FUNCTION_NAME         "IMPLIED-DO"

 #define REPEAT_VALUE_NAME                "REPEAT-VALUE"

 #define REPEAT_VALUE_FUNCTION_NAME       "REPEAT-VALUE"

 #define STATIC_INITIALIZATION_NAME       "STATIC-INITIALIZATION"

 #define STATIC_INITIALIZATION_FUNCTION_NAME     "STATIC-INITIALIZATION"

 #define DATA_LIST_FUNCTION_NAME          "DATA-LIST="

 #define IO_LIST_STRING_NAME              "IOLIST="


 #define BRACE_INTRINSIC                  "BRACE_INTRINSIC"

 #define NULL_STATEMENT_INTRINSIC         "NULL_STATEMENT_INTRINSIC"


 #define IMPLIED_COMPLEX_NAME             "CMPLX_"

 #define IMPLIED_DCOMPLEX_NAME            "DCMPLX_"


 #define FIELD_OPERATOR_NAME              "."

 #define POINT_TO_OPERATOR_NAME           "->"

 #define DEREFERENCING_OPERATOR_NAME      "*indirection"


 #define ASSIGN_OPERATOR_NAME             "="

 #define ASSIGN_OPERATOR_PRECEDENCE       (2)

 #define POST_INCREMENT_OPERATOR_NAME     "post++"

 #define POST_DECREMENT_OPERATOR_NAME     "post--"

 #define PRE_INCREMENT_OPERATOR_NAME      "++pre"

 #define PRE_DECREMENT_OPERATOR_NAME      "--pre"

 #define MULTIPLY_UPDATE_OPERATOR_NAME    "*="

 #define DIVIDE_UPDATE_OPERATOR_NAME      "/="

 #define PLUS_UPDATE_OPERATOR_NAME        "+="

 #define MINUS_UPDATE_OPERATOR_NAME       "-="

 #define LEFT_SHIFT_UPDATE_OPERATOR_NAME  "<<="

 #define RIGHT_SHIFT_UPDATE_OPERATOR_NAME ">>="

 #define BITWISE_OR_UPDATE_OPERATOR_NAME  "|="


 #define COMMA_OPERATOR_NAME             ","


 #define PLUS_OPERATOR_NAME              "+"

 #define PLUS_C_OPERATOR_NAME            "+C" /* includes pointer arithmetic */

 #define MINUS_OPERATOR_NAME             "-"

 #define MINUS_C_OPERATOR_NAME           "-C" /* includes pointer arithmetic */

 #define UNARY_MINUS_OPERATOR_NAME       "--"

 #define UNARY_PLUS_OPERATOR_NAME        "+unary"

 #define MULTIPLY_OPERATOR_NAME          "*"

 #define DIVIDE_OPERATOR_NAME            "/"

 #define INVERSE_OPERATOR_NAME           "_INV_" /* internal stuff */

 #define POWER_OPERATOR_NAME             "**"

 #define MODULO_OPERATOR_NAME            "MOD"

 #define REAL_MODULO_OPERATOR_NAME       "AMOD"

 #define DOUBLE_MODULO_OPERATOR_NAME     "DMOD"

 #define SIGN_OPERATOR_NAME              "SIGN"

 #define ISIGN_OPERATOR_NAME             "ISIGN"

 #define DSIGN_OPERATOR_NAME             "DSIGN"

 #define DIM_OPERATOR_NAME               "DIM"

 #define IDIM_OPERATOR_NAME              "IDIM"

 #define DDIM_OPERATOR_NAME              "DDIM"

 #define DPROD_OPERATOR_NAME             "DPROD"

 #define CONJG_OPERATOR_NAME             "CONJG"

 #define DCONJG_OPERATOR_NAME            "DCONJG"

 #define SQRT_OPERATOR_NAME              "SQRT"

 #define DSQRT_OPERATOR_NAME             "DSQRT"

 #define CSQRT_OPERATOR_NAME             "CSQRT"

 #define CDSQRT_OPERATOR_NAME            "CDSQRT"

 #define EXP_OPERATOR_NAME               "EXP"

 #define DEXP_OPERATOR_NAME              "DEXP"

 #define CEXP_OPERATOR_NAME              "CEXP"

 #define CDEXP_OPERATOR_NAME             "CDEXP"

 #define LOG_OPERATOR_NAME               "LOG"

 #define ALOG_OPERATOR_NAME              "ALOG"

 #define DLOG_OPERATOR_NAME              "DLOG"

 #define CLOG_OPERATOR_NAME              "CLOG"

 #define CDLOG_OPERATOR_NAME             "CDLOG"

 #define LOG10_OPERATOR_NAME             "LOG10"

 #define ALOG10_OPERATOR_NAME            "ALOG10"

 #define DLOG10_OPERATOR_NAME            "DLOG10"

 #define SIN_OPERATOR_NAME               "SIN"

 #define DSIN_OPERATOR_NAME              "DSIN"

 #define CSIN_OPERATOR_NAME              "CSIN"

 #define CDSIN_OPERATOR_NAME             "CDSIN"

 #define COS_OPERATOR_NAME               "COS"

 #define DCOS_OPERATOR_NAME              "DCOS"

 #define CCOS_OPERATOR_NAME              "CCOS"

 #define CDCOS_OPERATOR_NAME             "CDCOS"

 #define TAN_OPERATOR_NAME               "TAN"

 #define DTAN_OPERATOR_NAME              "DTAN"

 #define ASIN_OPERATOR_NAME              "ASIN"

 #define DASIN_OPERATOR_NAME             "DASIN"

 #define ACOS_OPERATOR_NAME              "ACOS"

 #define DACOS_OPERATOR_NAME             "DACOS"

 #define ATAN_OPERATOR_NAME              "ATAN"

 #define DATAN_OPERATOR_NAME             "DATAN"

 #define ATAN2_OPERATOR_NAME             "ATAN2"

 #define DATAN2_OPERATOR_NAME            "DATAN2"

 #define SINH_OPERATOR_NAME              "SINH"

 #define DSINH_OPERATOR_NAME             "DSINH"

 #define COSH_OPERATOR_NAME              "COSH"

 #define DCOSH_OPERATOR_NAME             "DCOSH"

 #define TANH_OPERATOR_NAME              "TANH"

 #define DTANH_OPERATOR_NAME             "DTANH"

 #define LEFT_SHIFT_OPERATOR_NAME        "<<"

 #define RIGHT_SHIFT_OPERATOR_NAME       ">>"


 // Conflicts with reserved prefixes for BLOCKDATA (&), COMMON (~),

 // MAIN (%), FILESEP (!), MEMBER_SEP_STRING (^), ENUM (?) & al.

 // Use "-" to avoid conflict with user defined symbols

 #define ADDRESS_OF_OPERATOR_NAME         "__address-of__"       // &

 #define BITWISE_AND_OPERATOR_NAME        "__bit-and__"          // &

 #define BITWISE_NOT_OPERATOR_NAME        "__bit-not__"          // ~

 #define BITWISE_XOR_OPERATOR_NAME        "__C-xor__"            // ^

 #define C_AND_OPERATOR_NAME              "__C-and__"            // &&

 #define MODULO_UPDATE_OPERATOR_NAME      "__C-modulo-update__"  // %=

 #define BITWISE_AND_UPDATE_OPERATOR_NAME "__C-bit-and-update__" // &=

 #define BITWISE_XOR_UPDATE_OPERATOR_NAME "__C-bit-xor-update__" // ^=

 #define CONDITIONAL_OPERATOR_NAME        "__C-conditional__"    // ?

 #define C_NOT_OPERATOR_NAME              "__C-logical-not__"    // !

 #define C_NON_EQUAL_OPERATOR_NAME        "__C-non-equal__"      // !=

 #define C_MODULO_OPERATOR_NAME           "__C-modulo__"         // %


 #define BITWISE_OR_OPERATOR_NAME        "|"

 #define MIN_OPERATOR_NAME               "MIN"

 #define MIN0_OPERATOR_NAME              "MIN0"

 #define MIN1_OPERATOR_NAME              "MIN1"

 #define AMIN0_OPERATOR_NAME             "AMIN0"

 #define AMIN1_OPERATOR_NAME             "AMIN1"

 #define DMIN1_OPERATOR_NAME             "DMIN1"

 #define MAX_OPERATOR_NAME               "MAX"

 #define MAX0_OPERATOR_NAME              "MAX0"

 #define AMAX0_OPERATOR_NAME             "AMAX0"

 #define MAX1_OPERATOR_NAME              "MAX1"

 #define AMAX1_OPERATOR_NAME             "AMAX1"

 #define DMAX1_OPERATOR_NAME             "DMAX1"

 #define ABS_OPERATOR_NAME               "ABS"

 #define IABS_OPERATOR_NAME              "IABS"

 #define DABS_OPERATOR_NAME              "DABS"

 #define CABS_OPERATOR_NAME              "CABS"

 #define CDABS_OPERATOR_NAME             "CDABS"


 #define LENGTH_OPERATOR_NAME            "LEN"

 #define INDEX_OPERATOR_NAME             "INDEX"

 #define LGE_OPERATOR_NAME               "LGE"

 #define LGT_OPERATOR_NAME               "LGT"

 #define LLE_OPERATOR_NAME               "LLE"

 #define LLT_OPERATOR_NAME               "LLT"


 /* generic conversion names.

  */

 #define INT_GENERIC_CONVERSION_NAME     "INT"

 #define IFIX_GENERIC_CONVERSION_NAME    "IFIX"

 #define IDINT_GENERIC_CONVERSION_NAME   "IDINT"

 #define REAL_GENERIC_CONVERSION_NAME    "REAL"

 #define FLOAT_GENERIC_CONVERSION_NAME   "FLOAT"

 #define DFLOAT_GENERIC_CONVERSION_NAME  "DFLOAT"

 #define SNGL_GENERIC_CONVERSION_NAME    "SNGL"

 #define DBLE_GENERIC_CONVERSION_NAME    "DBLE"

 #define DREAL_GENERIC_CONVERSION_NAME   "DREAL"

 #define CMPLX_GENERIC_CONVERSION_NAME   "CMPLX"

 #define DCMPLX_GENERIC_CONVERSION_NAME  "DCMPLX"


 #define INT_TO_CHAR_CONVERSION_NAME     "CHAR"

 #define CHAR_TO_INT_CONVERSION_NAME     "ICHAR"


 #define AINT_CONVERSION_NAME            "AINT"

 #define DINT_CONVERSION_NAME            "DINT"

 #define ANINT_CONVERSION_NAME           "ANINT"

 #define DNINT_CONVERSION_NAME           "DNINT"

 #define NINT_CONVERSION_NAME            "NINT"

 #define IDNINT_CONVERSION_NAME          "IDNINT"

 #define AIMAG_CONVERSION_NAME           "AIMAG"

 #define DIMAG_CONVERSION_NAME           "DIMAG"


 /* FI: intrinsics are defined at a third place after bootstrap and effects!

  *     I guess the name should be defined here and used in table(s) there

  */


 #define AND_OPERATOR_NAME               ".AND."

 #define OR_OPERATOR_NAME                ".OR."

 #define C_OR_OPERATOR_NAME              "||"

 #define NOT_OPERATOR_NAME               ".NOT."

 #define NON_EQUAL_OPERATOR_NAME         ".NE."

 #define EQUIV_OPERATOR_NAME             ".EQV."

 #define NON_EQUIV_OPERATOR_NAME         ".NEQV."


 #define TRUE_OPERATOR_NAME              ".TRUE."

 #define FALSE_OPERATOR_NAME             ".FALSE."

 #define ONE_OPERATOR_NAME               "1"

 #define ZERO_OPERATOR_NAME              "0"


 #define GREATER_OR_EQUAL_OPERATOR_NAME  ".GE."

 #define C_GREATER_OR_EQUAL_OPERATOR_NAME        ">="

 #define GREATER_THAN_OPERATOR_NAME      ".GT."

 #define C_GREATER_THAN_OPERATOR_NAME    ">"

 #define LESS_OR_EQUAL_OPERATOR_NAME     ".LE."

 #define C_LESS_OR_EQUAL_OPERATOR_NAME   "<="

 #define LESS_THAN_OPERATOR_NAME         ".LT."

 #define C_LESS_THAN_OPERATOR_NAME       "<"

 #define EQUAL_OPERATOR_NAME             ".EQ."

 #define C_EQUAL_OPERATOR_NAME           "=="


 #define CONTINUE_FUNCTION_NAME          "CONTINUE"

 #define C_CONTINUE_FUNCTION_NAME        ";"

 #define C_STATEMENT_END_STRING          ";"

 #define RETURN_FUNCTION_NAME            "RETURN"

 #define STOP_FUNCTION_NAME              "STOP"

 #define PAUSE_FUNCTION_NAME             "PAUSE"

 #define END_FUNCTION_NAME               "END"

 #define ENDDO_FUNCTION_NAME             "ENDDO"


 #define BREAK_FUNCTION_NAME             "break"

 #define CASE_FUNCTION_NAME              "case"

 #define DEFAULT_FUNCTION_NAME           "default"

 #define C_RETURN_FUNCTION_NAME          "return"


 #define SUBSTRING_FUNCTION_NAME         "_SUBSTR"

 #define CONCATENATION_FUNCTION_NAME     "//"

 #define ASSIGN_SUBSTRING_FUNCTION_NAME  "_ASSIGN_SUBSTR"


 #define WRITE_FUNCTION_NAME             "WRITE"

 #define PRINT_FUNCTION_NAME             "PRINT"

 #define REWIND_FUNCTION_NAME            "REWIND"

 #define OPEN_FUNCTION_NAME              "OPEN"

 #define CLOSE_FUNCTION_NAME             "CLOSE"

 #define INQUIRE_FUNCTION_NAME           "INQUIRE"

 #define BACKSPACE_FUNCTION_NAME         "BACKSPACE"

 #define READ_FUNCTION_NAME              "READ"

 #define BUFFERIN_FUNCTION_NAME          "BUFFERIN"

 #define BUFFEROUT_FUNCTION_NAME         "BUFFEROUT"

 #define ENDFILE_FUNCTION_NAME           "ENDFILE"

 #define FORMAT_FUNCTION_NAME            "FORMAT"


 /* Bit manipulation functions */

 #define ISHFT_OPERATOR_NAME             "ISHFT"

 #define ISHFTC_OPERATOR_NAME            "ISHFTC"

 #define IBITS_OPERATOR_NAME             "IBITS"

 #define MVBITS_OPERATOR_NAME            "MVBITS"

 #define BTEST_OPERATOR_NAME             "BTEST"

 #define IBSET_OPERATOR_NAME             "IBSET"

 #define IBCLR_OPERATOR_NAME             "IBCLR"

 #define BIT_SIZE_OPERATOR_NAME          "BIT_SIZE"

 #define IAND_OPERATOR_NAME              "IAND"

 #define IEOR_OPERATOR_NAME              "IEOR"

 #define IOR_OPERATOR_NAME               "IOR"


 /* OMP related function and opertor names */


 #define OMP_IF_FUNCTION_NAME            "if"

 #define OMP_OMP_FUNCTION_NAME           "omp"

 #define OMP_FOR_FUNCTION_NAME           "for"

 #define OMP_PRIVATE_FUNCTION_NAME       "private"

 #define OMP_PARALLEL_FUNCTION_NAME      "parallel"

 #define OMP_REDUCTION_FUNCTION_NAME     "reduction"


 /* F95 */

 #define ALLOCATE_FUNCTION_NAME          "ALLOCATE"

 #define DEALLOCATE_FUNCTION_NAME        "DEALLOCATE"

 #define ETIME_FUNCTION_NAME             "ETIME"

 #define DTIME_FUNCTION_NAME             "DTIME"

 #define CPU_TIME_FUNCTION_NAME          "CPU_TIME"


 /* F2003 */

 #define C_LOC_FUNCTION_NAME             "C_LOC"


 /* F2008 */


 /* BSD <err.h> */

 #define ERR_FUNCTION_NAME               "err"

 #define ERRX_FUNCTION_NAME              "errx"

 #define WARN_FUNCTION_NAME              "warn"

 #define WARNX_FUNCTION_NAME             "warnx"

 #define VERR_FUNCTION_NAME              "verr"

 #define VERRX_FUNCTION_NAME             "verrx"

 #define VWARN_FUNCTION_NAME             "vwarn"

 #define VWARNX_FUNCTION_NAME            "vwarnx"


 /* time.h */

 #define CLOCK_FUNCTION_NAME             "clock"

 #define TIME_FUNCTION_NAME              "time"

 #define DIFFTIME_FUNCTION_NAME          "difftime"

 #define MKTIME_FUNCTION_NAME            "mktime"

 #define STRFTIME_FUNCTION_NAME          "strftime"

 #define STRPTIME_FUNCTION_NAME          "strptime"

 #define STRFTIME_L_FUNCTION_NAME        "strftime_l"

 #define STRPTIME_L_FUNCTION_NAME        "strptime_l"

 #define GMTIME_FUNCTION_NAME            "gmtime"

 #define LOCALTIME_FUNCTION_NAME         "localtime"

 #define GMTIME_R_FUNCTION_NAME          "gmtime_r"

 #define LOCALTIME_R_FUNCTION_NAME       "localtime_r"

 #define ASCTIME_FUNCTION_NAME           "asctime"

 #define CTIME_FUNCTION_NAME             "ctime"

 #define ASCTIME_R_FUNCTION_NAME         "asctime_r"

 #define CTIME_R_FUNCTION_NAME           "ctime_r"

 #define TZSET_FUNCTION_NAME             "tzset"

 #define STIME_FUNCTION_NAME             "stime"

 #define TIMEGM_FUNCTION_NAME            "timegm"

 #define TIMELOCAL_FUNCTION_NAME         "timelocal"

 #define DYSIZE_FUNCTION_NAME            "dysize"

 #define NANOSLEEP_FUNCTION_NAME         "nanosleep"

 #define CLOCK_GETRES_FUNCTION_NAME      "clock_getres"

 #define CLOCK_GETTIME_FUNCTION_NAME     "clock_gettime"

 #define CLOCK_SETTIME_FUNCTION_NAME     "clock_settime"

 #define CLOCK_NANOSLEEP_FUNCTION_NAME   "clock_nanosleep"

 #define CLOCK_GETCPULOCKID_FUNCTION_NAME "clock_getcpulockid"

 #define TIMER_CREATE_FUNCTION_NAME      "timer_create"

 #define TIMER_DELETE_FUNCTION_NAME      "timer_delete"

 #define TIMER_SETTIME_FUNCTION_NAME     "timer_settime"

 #define TIMER_GETTIME_FUNCTION_NAME     "timer_gettime"

 #define TIMER_GETOVERRUN_FUNCTION_NAME  "timer_getoverrun"

 #define GETDATE_FUNCTION_NAME           "getdate"

 #define GETDATE_R_FUNCTION_NAME         "getdate_r"


 //to check

 #define DRAND48_FUNCTION_NAME           "drand48"

 #define ERAND48_FUNCTION_NAME           "erand48"

 #define JRAND48_FUNCTION_NAME           "jrand48"

 #define LCONG48_FUNCTION_NAME           "lcong48"

 #define LRAND48_FUNCTION_NAME           "lrand48"

 #define MRAND48_FUNCTION_NAME           "mrand48"

 #define NRAND48_FUNCTION_NAME           "nrand48"

 #define SEED48_FUNCTION_NAME            "seed48"

 #define SRAND48_FUNCTION_NAME           "srand48"


 #define PUTENV_FUNCTION_NAME            "putenv"

 #define SETKEY_FUNCTION_NAME            "setkey"

 #define SWAB_FUNCTION_NAME              "swab"

 #define MKSTEMP_FUNCTION_NAME           "mkstemp"

 #define MKSTEMP64_FUNCTION_NAME         "mkstemp64"

 #define A614_FUNCTION_NAME              "a64l"

 #define ECVT_FUNCTION_NAME              "ecvt"

 #define FCVT_FUNCTION_NAME              "fcvt"

 #define GCVT_FUNCTION_NAME              "gcvt"

 #define GETSUBOPT_FUNCTION_NAME         "getsubopt"

 #define GRANTPT_FUNCTION_NAME           "grantpt"

 #define INITSTATE_FUNCTION_NAME         "initstate"

 #define C_164A_FUNCTION_NAME            "l64a"

 #define MKTEMP_FUNCTION_NAME            "mktemp"

 #define PTSNAME_FUNCTION_NAME           "ptsname"

 #define REALPATH_FUNCTION_NAME          "realpath"

 #define SETSTATE_FUNCTION_NAME          "setstate"

 #define TTYSLOT_FUNCTION_NAME           "ttyslot"

 #define UNLOCKPT_FUNCTION_NAME          "unlockpt"

 #define VALLOC_FUNCTION_NAME            "valloc"

 #define DUP2_FUNCTION_NAME              "dup2"

 #define QECVT_FUNCTION_NAME             "qecvt"

 #define QFCVT_FUNCTION_NAME             "qfcvt"

 #define QGCVT_FUNCTION_NAME             "qgcvt"

 #define GETCWD_FUNCTION_NAME            "getcwd"

 #define GETEXECNAME_FUNCTION_NAME       "getexecname"

 #define GETLOGIN_FUNCTION_NAME          "getlogin"

 #define GETOPT_FUNCTION_NAME            "getopt" // unistd.h

 #define GETOPT_LONG_FUNCTION_NAME       "getopt_long"

 #define GETOPT_LONG_ONLY_FUNCTION_NAME  "getopt_long_only"

 #define GETPASS_FUNCTION_NAME           "getpass"

 #define GETPASSPHRASE_FUNCTION_NAME     "getpassphrase"

 #define GETPW_FUNCTION_NAME             "getpw"

 #define ISATTY_FUNCTION_NAME            "isatty"

 #define MEMALIGN_FUNCTION_NAME          "memalign"

 #define TTYNAME_FUNCTION_NAME           "ttyname"

 #define LLTOSTR_FUNCTION_NAME           "lltostr"

 #define ULLTOSTR_FUNCTION_NAME          "ulltostr"


 #define POSIX_MEMALIGN_FUNCTION_NAME    "posix_memalign"

 #define ATOQ_FUNCTION_NAME              "atoq"

 #define RANDOM_FUNCTION_NAME            "random"

 #define SRANDOM_FUNCTION_NAME           "srandom"

 #define MOD_INTRINSIC_NAME              "MOD"


 /* PIPS run-time support for C code generation

  *

  * The first argument is the number of effective arguments, the second

  * argument is the first effective argument and other arguments are

  * passed as varargs. For instance:

  *

  * pips_min(5, 1, 2, 3, 4, 5);

  *

  * Initially, the source code for these two operators is available in

  * validation/Hyperplane/run_time.src/pips_run_time.c

  */

 #define PIPS_C_MIN_OPERATOR_NAME        "pips_min"

 #define PIPS_C_MAX_OPERATOR_NAME        "pips_max"

 #define PIPS_C_DIV_OPERATOR_NAME        "pips_div"


  /* Here are C intrinsics arranged in the order of the standard

     ISO/IEC 9899:TC2. MB */

 /* include <assert.h> */


 #define ASSERT_FUNCTION_NAME            "__assert"

 #define ASSERT_FAIL_FUNCTION_NAME       "__assert_fail"


 /* include <complex.h> */


 #define CACOS_OPERATOR_NAME             "cacos"

 #define CACOSF_OPERATOR_NAME            "cacosf"

 #define CACOSL_OPERATOR_NAME            "cacosl"

 #define CASIN_OPERATOR_NAME             "casin"

 #define CASINF_OPERATOR_NAME            "casinf"

 #define CASINL_OPERATOR_NAME            "casinl"

 #define CATAN_OPERATOR_NAME             "catan"

 #define CATANF_OPERATOR_NAME            "catanf"

 #define CATANL_OPERATOR_NAME            "catanl"

 #define C_CCOS_OPERATOR_NAME            "ccos"

 #define CCOSF_OPERATOR_NAME             "ccosf"

 #define CCOSL_OPERATOR_NAME             "ccosl"

 #define C_CSIN_OPERATOR_NAME            "csin"

 #define CSINF_OPERATOR_NAME             "csinf"

 #define CSINL_OPERATOR_NAME             "csinl"

 #define CTAN_OPERATOR_NAME              "ctan"

 #define CTANF_OPERATOR_NAME             "ctanf"

 #define CTANL_OPERATOR_NAME             "ctanl"

 #define CACOSH_OPERATOR_NAME            "cacosh"

 #define CACOSHF_OPERATOR_NAME           "cacoshf"

 #define CACOSHL_OPERATOR_NAME           "cacoshl"

 #define CASINH_OPERATOR_NAME            "casinh"

 #define CASINHF_OPERATOR_NAME           "casinhf"

 #define CASINHL_OPERATOR_NAME           "casinhl"

 #define CATANH_OPERATOR_NAME            "catanh"

 #define CATANHF_OPERATOR_NAME           "catanhf"

 #define CATANHL_OPERATOR_NAME           "catanhl"

 #define CCOSH_OPERATOR_NAME             "ccosh"

 #define CCOSHF_OPERATOR_NAME            "ccoshf"

 #define CCOSHL_OPERATOR_NAME            "ccoshl"

 #define CSINH_OPERATOR_NAME             "csinh"

 #define CSINHF_OPERATOR_NAME            "csinhf"

 #define CSINHL_OPERATOR_NAME            "csinhl"

 #define CTANH_OPERATOR_NAME             "ctanh"

 #define CTANHF_OPERATOR_NAME            "ctanhf"

 #define CTANHL_OPERATOR_NAME            "ctanhl"

 #define C_CEXP_OPERATOR_NAME            "cexp"

 #define CEXPF_OPERATOR_NAME             "cexpf"

 #define CEXPL_OPERATOR_NAME             "cexpl"

 #define C_CLOG_OPERATOR_NAME            "clog"

 #define CLOGF_OPERATOR_NAME             "clogf"

 #define CLOGL_OPERATOR_NAME             "clogl"

 #define C_CABS_OPERATOR_NAME            "cabs"

 #define CABSF_OPERATOR_NAME             "cabsf"

 #define CABSL_OPERATOR_NAME             "cabsl"

 #define CPOW_OPERATOR_NAME              "cpow"

 #define CPOWF_OPERATOR_NAME             "cpowf"

 #define CPOWL_OPERATOR_NAME             "cpowl"

 #define C_CSQRT_OPERATOR_NAME           "csqrt"

 #define CSQRTF_OPERATOR_NAME            "csqrtf"

 #define CSQRTL_OPERATOR_NAME            "csqrtl"

 #define CARG_OPERATOR_NAME              "carg"

 #define CARGF_OPERATOR_NAME             "cargf"

 #define CARGL_OPERATOR_NAME             "cargl"

 #define CIMAG_OPERATOR_NAME             "cimag"

 #define GCC_CIMAG_OPERATOR_NAME         "__imag__"

 #define CIMAGF_OPERATOR_NAME            "cimagf"

 #define CIMAGL_OPERATOR_NAME            "cimagl"

 #define CONJ_OPERATOR_NAME              "conj"

 #define CONJF_OPERATOR_NAME             "conjf"

 #define CONJL_OPERATOR_NAME             "conjl"

 #define CPROJ_OPERATOR_NAME             "cproj"

 #define CPROJF_OPERATOR_NAME            "cprojf"

 #define CPROJL_OPERATOR_NAME            "cprojl"

 #define CREAL_OPERATOR_NAME             "creal"

 #define GCC_CREAL_OPERATOR_NAME         "__real__"

 #define CREALF_OPERATOR_NAME            "crealf"

 #define CREALL_OPERATOR_NAME            "creall"


 /* #include <ctype.h> */


 #define ISALNUM_OPERATOR_NAME           "isalnum"

 #define ISALPHA_OPERATOR_NAME           "isalpha"

 #define ISBLANK_OPERATOR_NAME           "isblank"

 #define ISCNTRL_OPERATOR_NAME           "iscntrl"

 #define ISDIGIT_OPERATOR_NAME           "isdigit"

 #define ISGRAPH_OPERATOR_NAME           "isgraph"

 #define ISLOWER_OPERATOR_NAME           "islower"

 #define ISPRINT_OPERATOR_NAME           "isprint"

 #define ISPUNCT_OPERATOR_NAME           "ispunct"

 #define ISSPACE_OPERATOR_NAME           "isspace"

 #define ISUPPER_OPERATOR_NAME           "isupper"

 #define ISXDIGIT_OPERATOR_NAME          "isxdigit"

 #define TOLOWER_OPERATOR_NAME           "tolower"

 #define TOUPPER_OPERATOR_NAME           "toupper"


 //not found in standard C99 (in GNU C Library)

 #define ISASCII_OPERATOR_NAME           "isascii"

 #define TOASCII_OPERATOR_NAME           "toascii"

 #define _TOLOWER_OPERATOR_NAME          "_tolower"

 #define _TOUPPER_OPERATOR_NAME          "_toupper"


 /* Part of the binary standard */

 #define CTYPE_B_LOC_OPERATOR_NAME       "__ctype_b_loc"


 /* bits/errno.h */

 #define __ERRNO_LOCATION_OPERATOR_NAME "__errno_location"


 /* #include <fenv.h> */

 #define FECLEAREXCEPT_FUNCTION_NAME        "feclearexcept"

 #define FERAISEEXCEPT_FUNCTION_NAME        "feraiseexcept"

 #define FESETEXCEPTFLAG_FUNCTION_NAME      "fesetexceptflag"

 #define FETESTEXCEPT_FUNCTION_NAME         "fetestexcept"

 #define FEGETROUND_FUNCTION_NAME           "fegetround"

 #define FESETROUND_FUNCTION_NAME           "fesetround"


 /* #include <inttypes.h> */

 #define IMAXABS_FUNCTION_NAME              "imaxabs"

 #define IMAXDIV_FUNCTION_NAME              "imaxdiv"


 /* #include <locale.h> */

 #define SETLOCALE_FUNCTION_NAME            "setlocale"


 /* #include <math.h> */


 #define FPCLASSIFY_OPERATOR_NAME           "fpclassify"

 #define ISFINITE_OPERATOR_NAME             "isfinite"

 #define ISINF_OPERATOR_NAME                "isinf"

 #define ISNAN_OPERATOR_NAME                "isnan"

 #define ISNANL_OPERATOR_NAME               "isnanl"

 #define ISNANF_OPERATOR_NAME               "isnanf"

 #define ISNORMAL_OPERATOR_NAME             "isnormal"

 #define SIGNBIT_OPERATOR_NAME              "signbit"

 #define C_ACOS_OPERATOR_NAME               "acos"

 #define ACOSF_OPERATOR_NAME                "acosf"

 #define ACOSL_OPERATOR_NAME                "acosl"

 #define C_ASIN_OPERATOR_NAME               "asin"

 #define ASINF_OPERATOR_NAME                "asinf"

 #define ASINL_OPERATOR_NAME                "asinl"

 #define C_ATAN_OPERATOR_NAME               "atan"

 #define ATANF_OPERATOR_NAME                "atanf"

 #define ATANL_OPERATOR_NAME                "atanl"

 #define C_ATAN2_OPERATOR_NAME              "atan2"

 #define ATAN2F_OPERATOR_NAME               "atan2f"

 #define ATAN2L_OPERATOR_NAME               "atan2l"

 #define C_COS_OPERATOR_NAME                "cos"

 #define COSF_OPERATOR_NAME                 "cosf"

 #define COSL_OPERATOR_NAME                 "cosl"

 #define C_SIN_OPERATOR_NAME                "sin"

 #define SINF_OPERATOR_NAME                 "sinf"

 #define SINL_OPERATOR_NAME                 "sinl"

 #define C_TAN_OPERATOR_NAME                "tan"

 #define TANF_OPERATOR_NAME                 "tanf"

 #define TANL_OPERATOR_NAME                 "tanl"

 #define C_ACOSH_OPERATOR_NAME              "acosh"

 #define ACOSHF_OPERATOR_NAME               "acoshf"

 #define ACOSHL_OPERATOR_NAME               "acoshl"

 #define C_ASINH_OPERATOR_NAME              "asinh"

 #define ASINHF_OPERATOR_NAME               "asinhf"

 #define ASINHL_OPERATOR_NAME               "asinhl"

 #define C_ATANH_OPERATOR_NAME              "atanh"

 #define ATANHF_OPERATOR_NAME               "atanhf"

 #define ATANHL_OPERATOR_NAME               "atanhl"

 #define C_COSH_OPERATOR_NAME               "cosh"

 #define COSHF_OPERATOR_NAME                "coshf"

 #define COSHL_OPERATOR_NAME                "coshl"

 #define C_SINH_OPERATOR_NAME               "sinh"

 #define SINHF_OPERATOR_NAME                "sinhf"

 #define SINHL_OPERATOR_NAME                "sinhl"

 #define C_TANH_OPERATOR_NAME               "tanh"

 #define TANHF_OPERATOR_NAME                "tanhf"

 #define TANHL_OPERATOR_NAME                "tanhl"

 #define C_EXP_OPERATOR_NAME                "exp"

 #define EXPF_OPERATOR_NAME                 "expf"

 #define EXPL_OPERATOR_NAME                 "expl"

 #define EXP2_OPERATOR_NAME                 "exp2"

 #define EXP2F_OPERATOR_NAME                "exp2f"

 #define EXP2L_OPERATOR_NAME                "exp2l"

 #define EXPM1_OPERATOR_NAME                "expm1"

 #define EXPM1F_OPERATOR_NAME               "expm1f"

 #define EXPM1L_OPERATOR_NAME               "expm1l"

 #define FREXP_OPERATOR_NAME                "frexp"

 #define ILOGB_OPERATOR_NAME                "ilogb"

 #define ILOGBF_OPERATOR_NAME               "ilogbf"

 #define ILOGBL_OPERATOR_NAME               "ilogbl"

 #define LDEXP_OPERATOR_NAME                "ldexp"

 #define LDEXPF_OPERATOR_NAME               "ldexpf"

 #define LDEXPL_OPERATOR_NAME               "ldexpl"

 #define C_LOG_OPERATOR_NAME                "log"

 #define LOGF_OPERATOR_NAME                 "logf"

 #define LOGL_OPERATOR_NAME                 "logl"

 #define C_LOG10_OPERATOR_NAME              "log10"

 #define LOG10F_OPERATOR_NAME               "log10f"

 #define LOG10L_OPERATOR_NAME               "log10l"

 #define LOG1P_OPERATOR_NAME                "log1p"

 #define LOG1PF_OPERATOR_NAME               "log1pf"

 #define LOG1PL_OPERATOR_NAME               "log1pl"

 #define LOG2_OPERATOR_NAME                 "log2"

 #define LOG2F_OPERATOR_NAME                "log2f"

 #define LOG2L_OPERATOR_NAME                "log2l"

 #define LOGB_OPERATOR_NAME                 "logb"

 #define LOGBF_OPERATOR_NAME                "logbf"

 #define LOGBL_OPERATOR_NAME                "logbl"

 #define MODF_OPERATOR_NAME                 "modf"

 #define SCALBN_OPERATOR_NAME               "scalbn"

 #define SCALBNF_OPERATOR_NAME              "scalbnf"

 #define SCALBNL_OPERATOR_NAME              "scalbnl"

 #define SCALB_OPERATOR_NAME                "scalb"

 #define SCALBLN_OPERATOR_NAME              "scalbln"

 #define SCALBLNF_OPERATOR_NAME             "scalblnf"

 #define SCALBLNL_OPERATOR_NAME             "scalblnl"

 #define CBRT_OPERATOR_NAME                 "cbrt"

 #define CBRTF_OPERATOR_NAME                "cbrtf"

 #define CBRTL_OPERATOR_NAME                "cbrtl"

 #define FABS_OPERATOR_NAME                 "fabs"

 #define FABSF_OPERATOR_NAME                "fabsf"

 #define FABSL_OPERATOR_NAME                "fabsl"

 #define HYPOT_OPERATOR_NAME                "hypot"

 #define HYPOTF_OPERATOR_NAME               "hypotf"

 #define HYPOTL_OPERATOR_NAME               "hypotl"

 #define POW_OPERATOR_NAME                  "pow"

 #define POWF_OPERATOR_NAME                 "powf"

 #define POWL_OPERATOR_NAME                 "powl"

 #define C_SQRT_OPERATOR_NAME               "sqrt"

 #define SQRTF_OPERATOR_NAME                "sqrtf"

 #define SQRTL_OPERATOR_NAME                "sqrtl"

 #define ERF_OPERATOR_NAME                  "erf"

 #define ERFF_OPERATOR_NAME                 "erff"

 #define ERFL_OPERATOR_NAME                 "erfl"

 #define ERFC_OPERATOR_NAME                 "erfc"

 #define ERFCF_OPERATOR_NAME                "erfcf"

 #define ERFCL_OPERATOR_NAME                "erfcl"

 #define GAMMA_OPERATOR_NAME                "gamma"

 #define LGAMMA_OPERATOR_NAME               "lgamma"

 #define LGAMMAF_OPERATOR_NAME              "lgammaf"

 #define LGAMMAL_OPERATOR_NAME              "lgammal"

 #define TGAMMA_OPERATOR_NAME               "tgamma"

 #define TGAMMAF_OPERATOR_NAME              "tgammaf"

 #define TGAMMAL_OPERATOR_NAME              "tgammal"

 #define CEIL_OPERATOR_NAME                 "ceil"

 #define CEILF_OPERATOR_NAME                "ceilf"

 #define CEILL_OPERATOR_NAME                "ceill"

 #define FLOOR_OPERATOR_NAME                "floor"

 #define FLOORF_OPERATOR_NAME               "floorf"

 #define FLOORL_OPERATOR_NAME               "floorl"

 #define NEARBYINT_OPERATOR_NAME            "nearbyint"

 #define NEARBYINTF_OPERATOR_NAME           "nearbyintf"

 #define NEARBYINTL_OPERATOR_NAME           "nearbyintl"

 #define RINT_OPERATOR_NAME                 "rint"

 #define RINTF_OPERATOR_NAME                "rintf"

 #define RINTL_OPERATOR_NAME                "rintl"

 #define LRINT_OPERATOR_NAME                "lrint"

 #define LRINTF_OPERATOR_NAME               "lrintf"

 #define LRINTL_OPERATOR_NAME               "lrintl"

 #define LLRINT_OPERATOR_NAME               "llrint"

 #define LLRINTF_OPERATOR_NAME              "llrintf"

 #define LLRINTL_OPERATOR_NAME              "llrintl"

 #define ROUND_OPERATOR_NAME                "round"

 #define ROUNDF_OPERATOR_NAME               "roundf"

 #define ROUNDL_OPERATOR_NAME               "roundl"

 #define LROUND_OPERATOR_NAME               "lround"

 #define LROUNDF_OPERATOR_NAME              "lroundf"

 #define LROUNDL_OPERATOR_NAME              "lroundl"

 #define LLROUND_OPERATOR_NAME              "llround"

 #define LLROUNDF_OPERATOR_NAME             "llroundf"

 #define LLROUNDL_OPERATOR_NAME             "llroundl"

 #define TRUNC_OPERATOR_NAME                "trunc"

 #define TRUNCF_OPERATOR_NAME               "truncf"

 #define TRUNCL_OPERATOR_NAME               "truncl"

 #define FMOD_OPERATOR_NAME                 "fmod"

 #define FMODF_OPERATOR_NAME                "fmodf"

 #define FMODL_OPERATOR_NAME                "fmodl"

 #define REMAINDER_OPERATOR_NAME            "remainder"

 #define REMAINDERF_OPERATOR_NAME           "remainderf"

 #define REMAINDERL_OPERATOR_NAME           "remainderl"

 #define COPYSIGN_OPERATOR_NAME             "copysign"

 #define COPYSIGNF_OPERATOR_NAME            "copysignf"

 #define COPYSIGNL_OPERATOR_NAME            "copysignl"

 #define NAN_OPERATOR_NAME                  "nan"

 #define NANF_OPERATOR_NAME                 "nanf"

 #define NANL_OPERATOR_NAME                 "nanl"

 #define NEXTAFTER_OPERATOR_NAME            "nextafter"

 #define NEXTAFTERF_OPERATOR_NAME           "nextafterf"

 #define NEXTAFTERL_OPERATOR_NAME           "nextafterl"

 #define NEXTTOWARD_OPERATOR_NAME           "nexttoward"

 #define NEXTTOWARDF_OPERATOR_NAME          "nexttowardf"

 #define NEXTTOWARDL_OPERATOR_NAME          "nexttowardl"

 #define FDIM_OPERATOR_NAME                 "fdim"

 #define FDIMF_OPERATOR_NAME                "fdimf"

 #define FDIML_OPERATOR_NAME                "fdiml"

 #define FMAX_OPERATOR_NAME                 "fmax"

 #define FMAXF_OPERATOR_NAME                "fmaxf"

 #define FMAXL_OPERATOR_NAME                "fmaxl"

 #define FMIN_OPERATOR_NAME                 "fmin"

 #define FMINF_OPERATOR_NAME                "fminf"

 #define FMINL_OPERATOR_NAME                "fminl"

 #define FMA_OPERATOR_NAME                  "fma"

 #define FMAF_OPERATOR_NAME                 "fmaf"

 #define FMAL_OPERATOR_NAME                 "fmal"

 #define ISGREATER_OPERATOR_NAME            "isgreater"

 #define ISGREATEREQUAL_OPERATOR_NAME       "isgreaterequal"

 #define ISLESS_OPERATOR_NAME               "isless"

 #define ISLESSEQUAL_OPERATOR_NAME          "islessequal"

 #define ISLESSGREATER_OPERATOR_NAME        "islessgreater"

 #define ISUNORDERED_OPERATOR_NAME          "isunordered"


 /* signal.h */

 #define SIGNAL_OPERATOR_NAME               "signal"

 #define RAISE_FUNCTION_NAME                "raise"


 /* vararg stuff. va_args is a special construct because its second

    parameter is a type, not an expression. */

 #define BUILTIN_VA_END                 "__builtin_va_end"

 #define BUILTIN_VA_START               "__builtin_va_start"

 #define BUILTIN_VA_COPY                "__builtin_va_copy"


 /*io functions: C library and system IO. Amira Mensi*/


 /* unistd.h */


 #define LSEEK_FUNCTION_NAME             "lseek"

 #define LSEEK64_FUNCTION_NAME           "lseekg4"

 #define C_CLOSE_FUNCTION_NAME           "close"

 #define C_READ_FUNCTION_NAME            "read"

 #define C_WRITE_FUNCTION_NAME           "write"

 #define PREAD_FUNCTION_NAME             "pread"

 #define PWRITE_FUNCTION_NAME            "pwrite"

 #define PREAD64_FUNCTION_NAME           "pread64"

 #define PIPE_FUNCTION_NAME              "pipe"

 #define PIPE2_FUNCTION_NAME             "pipe2"

 #define SLEEP_FUNCTION_NAME             "sleep"

 #define UALARM_FUNCTION_NAME            "ualarm"

 #define USLEEP_FUNCTION_NAME            "usleep"

 #define C_PAUSE_FUNCTION_NAME           "pause"

 #define CHOWN_FUNCTION_NAME             "chown"

 #define FCHOWN_FUNCTION_NAME            "fchown"

 #define LCHOWN_FUNCTION_NAME            "lchown"

 #define FCHOWNAT_FUNCTION_NAME          "fchownat"

 #define CHDIR_FUNCTION_NAME             "chdir"

 #define FCHDIR_FUNCTION_NAME            "fchdir"

 #define GETCWD_FUNCTION_NAME            "getcwd"

 #define GET_CURRENT_DIR_NAME_FUNCTION_NAME "get_current_dir_name"

 #define GETWD_FUNCTION_NAME             "getwd"

 #define DUP_FUNCTION_NAME               "dup"

 #define DUP2_FUNCTION_NAME              "dup2"

 #define DUP3_FUNCTION_NAME              "dup3"

 #define EXECVE_FUNCTION_NAME            "execve"

 #define FEXECVE_FUNCTION_NAME           "fexecve"

 #define EXECV_FUNCTION_NAME             "execv"

 #define EXECLE_FUNCTION_NAME            "execle"

 #define EXECL_FUNCTION_NAME             "execl"

 #define EXECVP_FUNCTION_NAME            "execvp"

 #define EXECLP_FUNCTION_NAME            "execlp"

 #define EXECVPE_FUNCTION_NAME           "execvpe"

 #define NICE_FUNCTION_NAME              "nice"

 #define _EXIT_FUNCTION_NAME             "_exit"

 #define PATHCONF_FUNCTION_NAME          "pathconf"

 #define FPATHCONF_FUNCTION_NAME         "fpathconf"

 #define SYSCONF_FUNCTION_NAME           "sysconf"

 #define CONFSTR_FUNCTION_NAME           "constrf"

 #define GETPID_FUNCTION_NAME            "getpid"

 #define GETPPID_FUNCTION_NAME           "getppid"

 #define GETPGRP_FUNCTION_NAME           "getpgrp"

 #define __GETPGID_FUNCTION_NAME         "__getpgid"

 #define GETPGID_FUNCTION_NAME           "getpgid"

 #define SETPGID_FUNCTION_NAME           "setpgid"

 #define SETPGRP_FUNCTION_NAME           "setpgrp"

 #define SETSID_FUNCTION_NAME            "setsid"

 #define GETSID_FUNCTION_NAME            "getsid"

 #define GETUID_FUNCTION_NAME            "getuid"

 #define GETEUID_FUNCTION_NAME           "geteuid"

 #define GETGID_FUNCTION_NAME            "getgid"

 #define GETEGID_FUNCTION_NAME           "getegid"

 #define GETPGROUPS_FUNCTION_NAME        "getgroups"

 #define GROUP_MEMBER_FUNCTION_NAME      "group_member"

 #define SETUID_FUNCTION_NAME            "setuid"

 #define SETREUID_FUNCTION_NAME          "setreuid"

 #define SETEUID_FUNCTION_NAME           "seteuid"

 #define SETGID_FUNCTION_NAME            "setgid"

 #define SETREGID_FUNCTION_NAME          "setregid"

 #define SETEGID_FUNCTION_NAME           "setegid"

 #define GETRESUID_FUNCTION_NAME         "getresuid"

 #define GETRESGID_FUNCTION_NAME         "getresgid"

 #define SETRESUID_FUNCTION_NAME         "setresuid"

 #define SETRESGID_FUNCTION_NAME         "setresgid"

 #define FORK_FUNCTION_NAME              "fork"

 #define VFORK_FUNCTION_NAME             "vfork"

 #define TTYNAME_FUNCTION_NAME           "ttyname"

 #define TTYNAME_R_FUNCTION_NAME         "ttyname_r"

 #define ISATTY_FUNCTION_NAME            "isatty"

 #define TTYSLOT_FUNCTION_NAME           "ttyslot"

 #define LINK_FUNCTION_NAME              "link"

 #define LINKAT_FUNCTION_NAME            "linkat"

 #define SYMLINK_FUNCTION_NAME           "symlink"

 #define READLINK_FUNCTION_NAME          "readlink"

 #define SYMLINKAT_FUNCTION_NAME         "symlinkar"

 #define READLINKAT_FUNCTION_NAME        "readlinkat"

 #define UNLINK_FUNCTION_NAME            "unlink"

 #define UNLINKAT_FUNCTION_NAME          "unlinkat"

 #define RMDIR_FUNCTION_NAME             "rmdir"

 #define TCGETPGRP_FUNCTION_NAME         "tcgetpgrp"

 #define TCSETPGRP_FUNCTION_NAME         "tcsetpgrp"

 #define GETLOGIN_FUNCTION_NAME          "getlogin"

 #define GETLOGIN_R_FUNCTION_NAME        "getlogin_r"

 #define SETLOGIN_FUNCTION_NAME          "setlogin"

 #define GETHOSTNAME_FUNCTION_NAME       "gethostname"

 #define SETHOSTNAME_FUNCTION_NAME       "sethostname"

 #define SETHOSTID_FUNCTION_NAME         "sethostid"

 #define GETDOMAINNAME_FUNCTION_NAME     "getdomainname"

 #define SETDOMAINNAME_FUNCTION_NAME     "setdomainname"

 #define VHANGUP_FUNCTION_NAME           "vhangup"

 #define REVOKE_FUNCTION_NAME            "revoke"

 #define PROFIL_FUNCTION_NAME            "profil"

 #define ACCT_FUNCTION_NAME              "acct"

 #define GETUSERSHELL_FUNCTION_NAME      "getusershell"

 #define ENDUSERSHELL_FUNCTION_NAME      "endusershell"

 #define SETUSERSHELL_FUNCTION_NAME      "setusershell"

 #define DAEMON_FUNCTION_NAME            "daemon"

 #define CHROOT_FUNCTION_NAME            "chroot"

 #define GETPASS_FUNCTION_NAME           "getpass"

 #define FSYNC_FUNCTION_NAME             "fsync"

 #define SYNCFS_FUNCTION_NAME            "syncfs"

 #define GETHOSTID_FUNCTION_NAME         "gethostid"

 #define GETPAGESIZE_FUNCTION_NAME       "getpagesize"

 #define GETDTABLESIZE_FUNCTION_NAME     "getdtablesize"

 #define TRUNCATE_FUNCTION_NAME          "truncate"

 #define TRUNCATE64_FUNCTION_NAME        "truncate64"

 #define FTRUNCATE_FUNCTION_NAME         "ftruncate"

 #define FTRUNCATE64_FUNCTION_NAME       "ftruncate64"

 #define BRK_FUNCTION_NAME               "brk"

 #define SBRK_FUNCTION_NAME              "sbrk"

 #define SYSCALL_FUNCTION_NAME           "syscall"

 #define LOCKF_FUNCTION_NAME             "lockf"

 #define LOCKF64_FUNCTION_NAME           "lockf64"

 #define FDATASYNC_FUNCTION_NAME         "fdatasync"

 #define CRYPT_FUNCTION_NAME             "crypt"

 #define ENCRYPT_FUNCTION_NAME           "encrypt"

 #define SWAB_FUNCTION_NAME              "swab"

 #define CTERMID_FUNCTION_NAME           "ctermid"

 /* Not found in unistd.h. Requires sys/types.h sys/stat.h and fcntl.h.

  * The man -S 2 page indicates it is overloaded with two or three

  * arguments.

  */

 #define C_OPEN_FUNCTION_NAME            "open"


 /*#include<stdio.h> */


 #define PRINTF_FUNCTION_NAME            "printf"

 #define FPRINTF_FUNCTION_NAME           "fprintf"

 #define SCANF_FUNCTION_NAME             "scanf"

 #define ISOC99_SCANF_FUNCTION_NAME      "__isoc99_scanf"

 #define ISOC99_SCANF_USER_FUNCTION_NAME "scanf"

 #define FSCANF_FUNCTION_NAME            "fscanf"

 #define ISOC99_FSCANF_FUNCTION_NAME     "__isoc99_fscanf"

 #define ISOC99_FSCANF_USER_FUNCTION_NAME "fscanf"

 #define PUTS_FUNCTION_NAME              "puts"

 #define GETS_FUNCTION_NAME              "gets"

 #define FPUTS_FUNCTION_NAME             "fputs"

 #define FGETS_FUNCTION_NAME             "fgets"

 #define FPUTC_FUNCTION_NAME             "fputc"

 #define FGETC_FUNCTION_NAME             "fgetc"

 #define FOPEN_FUNCTION_NAME             "fopen"

 #define FDOPEN_FUNCTION_NAME            "fdopen"

 #define FREOPEN_FUNCTION_NAME           "freopen"

 #define FCLOSE_FUNCTION_NAME            "fclose"

 #define SNPRINTF_FUNCTION_NAME          "snprintf"

 #define SSCANF_FUNCTION_NAME            "sscanf"

 #define ISOC99_SSCANF_FUNCTION_NAME     "__isoc99_sscanf"

 #define ISOC99_SSCANF_USER_FUNCTION_NAME "sscanf"

 #define VFPRINTF_FUNCTION_NAME          "vfprintf"

 #define VFSCANF_FUNCTION_NAME           "vfscanf"

 #define ISOC99_VFSCANF_FUNCTION_NAME    "__isoc99_vfscanf"

 #define ISOC99_VFSCANF_USER_FUNCTION_NAME "vfscanf"

 #define VPRINTF_FUNCTION_NAME           "vprintf"

 #define VSCANF_FUNCTION_NAME            "vscanf"

 #define ISOC99_VSCANF_FUNCTION_NAME    "__isoc99_vscanf"

 #define ISOC99_VSCANF_USER_FUNCTION_NAME "vscanf"

 #define VSSCANF_FUNCTION_NAME           "vsscanf"

 #define ISOC99_VSSCANF_FUNCTION_NAME     "__isoc99_vsscanf"

 #define ISOC99_VSSCANF_USER_FUNCTION_NAME "vsscanf"

 #define VSNPRINTF_FUNCTION_NAME         "vsnprintf"

 #define VSPRINTF_FUNCTION_NAME          "vsprintf"

 #define SPRINTF_FUNCTION_NAME           "sprintf"

 #define GETC_FUNCTION_NAME              "getc"

 #define _IO_GETC_FUNCTION_NAME          "_IO_getc" /* libio.h */

 #define GETCHAR_FUNCTION_NAME           "getchar"

 #define PUTC_FUNCTION_NAME              "putc"

 #define _IO_PUTC_FUNCTION_NAME          "_IO_putc" /* libio.h */

 #define PUTCHAR_FUNCTION_NAME           "putchar"

 #define UNGETC_FUNCTION_NAME            "ungetc"

 #define FREAD_FUNCTION_NAME             "fread"

 #define FWRITE_FUNCTION_NAME            "fwrite"

 #define FGETPOS_FUNCTION_NAME           "fgetpos"

 #define FSEEK_FUNCTION_NAME             "fseek"

 #define FSETPOS_FUNCTION_NAME           "fsetpos"

 #define FTELL_FUNCTION_NAME             "ftell"

 #define C_REWIND_FUNCTION_NAME          "rewind"

 #define CLEARERR_FUNCTION_NAME          "clearerr"

 #define FEOF_FUNCTION_NAME              "feof"

 #define FERROR_FUNCTION_NAME            "ferror"

 #define FILENO_FUNCTION_NAME            "fileno"

 #define PERROR_FUNCTION_NAME            "perror"

 // #define WRITE_SYSTEM_FUNCTION_NAME      "write"

 // #define READ_SYSTEM_FUNCTION_NAME       "read"

 #define REMOVE_FUNCTION_NAME            "remove"

 #define RENAME_FUNCTION_NAME            "rename"

 #define TMPFILE_FUNCTION_NAME           "tmpfile"

 #define TMPNAM_FUNCTION_NAME            "tmpnam"

 #define FFLUSH_FUNCTION_NAME            "fflush"

 #define FREOPEN_FUNCTION_NAME           "freopen"

 #define SETBUF_FUNCTION_NAME            "setbuf"

 #define SETVBUF_FUNCTION_NAME           "setvbuf"

 #define __FILBUF_FUNCTION_NAME          "__filbuf"

 #define __FILSBUF_FUNCTION_NAME         "__flsbuf"

 #define SETBUFFER_FUNCTION_NAME         "setbuffer"

 #define SETLINEBUF_FUNCTION_NAME        "setlinebuf"

 #define FDOPEN_FUNCTION_NAME            "fdopen"

 #define CTERMID_FUNCTION_NAME           "ctermid"

 #define FILENO_FUNCTION_NAME            "fileno"

 #define POPEN_FUNCTION_NAME             "popen"

 #define CUSERID_FUNCTION_NAME           "cuserid"

 #define TEMPNAM_FUNCTION_NAME           "tempnam"

 #define GETW_FUNCTION_NAME              "getw"

 #define PUTW_FUNCTION_NAME              "putw"

 #define PCLOSE_FUNCTION_NAME            "pclose"

 #define FSEEKO_FUNCTION_NAME            "fseeko"

 #define FTELLO_FUNCTION_NAME            "ftello"

 #define FOPEN64_FUNCTION_NAME           "fopen64"

 #define FREOPEN64_FUNCTION_NAME         "freopen64"

 #define TMPFILE64_FUNCTION_NAME         "tmpfile64"

 #define FGETPOS64_FUNCTION_NAME         "fgetpos64"

 #define FSETPOS64_FUNCTION_NAME         "fsetpos64"

 #define FSEEKO64_FUNCTION_NAME          "fseeko64"

 #define FTELLO64_FUNCTION_NAME          "ftello64"

 #define EXITHANDLE_FUNCTION_NAME        "exithandle"


 /* random functions of <stdlib.h> */


 #define ATOF_FUNCTION_NAME              "atof"

 #define ATOI_FUNCTION_NAME              "atoi"

 #define ATOL_FUNCTION_NAME              "atol"

 #define ATOLL_FUNCTION_NAME             "atoll"

 #define STRTOD_FUNCTION_NAME            "strtod"

 #define STRTOF_FUNCTION_NAME            "strtof"

 #define STRTOLD_FUNCTION_NAME           "strtold"

 #define STRTOL_FUNCTION_NAME            "strtol"

 #define STRTOLL_FUNCTION_NAME           "strtoll"

 #define STRTOUL_FUNCTION_NAME           "strtoul"

 #define STRTOULL_FUNCTION_NAME          "strtoull"

 #define RAND_FUNCTION_NAME              "rand"

 #define SRAND_FUNCTION_NAME             "srand"

 #define CALLOC_FUNCTION_NAME            "calloc"

 #define FREE_FUNCTION_NAME              "free"

 #define MALLOC_FUNCTION_NAME            "malloc"

 #define REALLOC_FUNCTION_NAME           "realloc"

 #define ALLOCA_FUNCTION_NAME            "alloca"

 #define ABORT_FUNCTION_NAME             "abort"

 #define ATEXIT_FUNCTION_NAME            "atexit"

 #define EXIT_FUNCTION_NAME              "exit"

 #define _EXIT_FUNCTION_NAME             "_exit"

 #define GETENV_FUNCTION_NAME            "getenv"

 #define SYSTEM_FUNCTION_NAME            "system"

 #define BSEARCH_FUNCTION_NAME           "bsearch"

 #define QSORT_FUNCTION_NAME             "qsort"

 #define C_ABS_FUNCTION_NAME             "abs"

 #define LABS_FUNCTION_NAME              "labs"

 #define LLABS_FUNCTION_NAME             "llabs"

 #define DIV_FUNCTION_NAME               "div"

 #define LDIV_FUNCTION_NAME              "ldiv"

 #define LLDIV_FUNCTION_NAME             "lldiv"

 #define MBLEN_FUNCTION_NAME             "mblen"

 #define MBTOWC_FUNCTION_NAME            "mbtowc"

 #define WCTOMB_FUNCTION_NAME            "wctomb"

 #define MBSTOWCS_FUNCTION_NAME          "mbstowcs"

 #define WCSTOMBS_FUNCTION_NAME          "wcstombs"


 /* include <string.h> */


 #define MEMCPY_FUNCTION_NAME            "memcpy"

 #define MEMMOVE_FUNCTION_NAME           "memmove"

 #define STRCPY_FUNCTION_NAME            "strcpy"

 #define STRDUP_FUNCTION_NAME            "strdup"

 #define STRNCPY_FUNCTION_NAME           "strncpy"

 #define STRCAT_FUNCTION_NAME            "strcat"

 #define STRNCAT_FUNCTION_NAME           "strncat"

 #define MEMCMP_FUNCTION_NAME            "memcmp"

 #define STRCMP_FUNCTION_NAME            "strcmp"

 #define STRCOLL_FUNCTION_NAME           "strcoll"

 #define STRNCMP_FUNCTION_NAME           "strncmp"

 #define STRXFRM_FUNCTION_NAME           "strxfrm"

 #define MEMCHR_FUNCTION_NAME            "memchr"

 #define STRCHR_FUNCTION_NAME            "strchr"

 #define STRCSPN_FUNCTION_NAME           "strcspn"

 #define STRPBRK_FUNCTION_NAME           "strbprk"

 #define STRRCHR_FUNCTION_NAME           "strrchr"

 #define STRSPN_FUNCTION_NAME            "strspn"

 #define STRSTR_FUNCTION_NAME            "strstr"

 #define STRTOK_FUNCTION_NAME            "strtok"

 #define MEMSET_FUNCTION_NAME            "memset"

 //#define FOPEN_FUNCTION_NAME           "fopen"

 #define STRERROR_FUNCTION_NAME          "strerror"

 #define STRERROR_R_FUNCTION_NAME        "strerror_r"

 #define STRLEN_FUNCTION_NAME            "strlen"


 /*#include<time.h> */

 #define TIME_FUNCTION_NAME              "time"

 #define LOCALTIME_FUNCTION_NAME         "localtime"

 #define DIFFTIME_FUNCTION_NAME          "difftime"

 #define NANOSLEEP_FUNCTION_NAME         "nanosleep"


 /* #include <wchar.h> */

 #define FWPRINTF_FUNCTION_NAME          "fwprintf"

 #define FWSCANF_FUNCTION_NAME           "fwscanf"

 #define SWPRINTF_FUNCTION_NAME          "swprintf"

 #define SWSCANF_FUNCTION_NAME           "swscanf"

 #define VFWPRINTF_FUNCTION_NAME         "vfwprintf"

 #define VFWSCANF_FUNCTION_NAME          "vfwscanf"

 #define VSWPRINTF_FUNCTION_NAME         "vswprintf"

 #define VSWSCANF_FUNCTION_NAME          "vswscanf"

 #define VWPRINTF_FUNCTION_NAME          "vwprintf"

 #define VWSCANF_FUNCTION_NAME           "vwscanf"

 #define WPRINTF_FUNCTION_NAME           "wprintf"

 #define WSCANF_FUNCTION_NAME            "wscanf"

 #define FGETWC_FUNCTION_NAME            "fgetwc"

 #define FGETWS_FUNCTION_NAME            "fgetws"

 #define FPUTWC_FUNCTION_NAME            "fputwc"

 #define FPUTWS_FUNCTION_NAME            "fputws"

 #define FWIDE_FUNCTION_NAME             "fwide"

 #define GETWC_FUNCTION_NAME             "getwc"

 #define GETWCHAR_FUNCTION_NAME          "getwchar"

 #define PUTWC_FUNCTION_NAME             "putwc"

 #define PUTWCHAR_FUNCTION_NAME          "putwchar"

 #define UNGETWC_FUNCTION_NAME           "ungetwc"

 #define WCSTOD_FUNCTION_NAME            "wcstod"

 #define WCSTOF_FUNCTION_NAME            "wcstof"

 #define WCSTOLD_FUNCTION_NAME           "wcstold"

 #define WCSTOL_FUNCTION_NAME            "wcstol"

 #define WCSTOLL_FUNCTION_NAME           "wcstoll"

 #define WCSTOUL_FUNCTION_NAME           "wcstoul"

 #define WCSTOULL_FUNCTION_NAME          "wcstoull"

 #define WCSCPY_FUNCTION_NAME            "wcscpy"

 #define WCSNCPY_FUNCTION_NAME           "wcsncpy"

 #define WMEMCPY_FUNCTION_NAME           "wmemcpy"

 #define WMEMMOVE_FUNCTION_NAME          "wmemmove"

 #define WCSCAT_FUNCTION_NAME            "wcscat"

 #define WCSNCAT_FUNCTION_NAME           "wcsncat"

 #define WCSCMP_FUNCTION_NAME            "wcscmp"

 #define WCSCOLL_FUNCTION_NAME           "wcscoll"

 #define WCSNCMP_FUNCTION_NAME           "wcsncmp"

 #define WCSXFRM_FUNCTION_NAME           "wcsxfrm"

 #define WMEMCMP_FUNCTION_NAME           "wmemcmp"

 #define WCSCHR_FUNCTION_NAME            "wcschr"

 #define WCSCSPN_FUNCTION_NAME           "wcscspn"

 #define WCSPBRK_FUNCTION_NAME           "wcspbrk"

 #define WCSRCHR_FUNCTION_NAME           "wcsrchr"

 #define WCSSPN_FUNCTION_NAME            "wcsspn"

 #define WCSSTR_FUNCTION_NAME            "wcsstr"

 #define WCSTOK_FUNCTION_NAME            "wcstok"

 #define WMEMCHR_FUNCTION_NAME           "wmemchr"

 #define WCSLEN_FUNCTION_NAME            "wcslen"

 #define WMEMSET_FUNCTION_NAME           "wmemset"

 #define WCSFTIME_FUNCTION_NAME          "wcsftime"

 #define BTOWC_FUNCTION_NAME             "btowc"

 #define WCTOB_FUNCTION_NAME             "wctob"

 #define MBSINIT_FUNCTION_NAME           "mbsinit"

 #define MBRLEN_FUNCTION_NAME            "mbrlen"

 #define MBRTOWC_FUNCTION_NAME           "mbrtowc"

 #define WCRTOMB_FUNCTION_NAME           "wcrtomb"

 #define MBSRTOWCS_FUNCTION_NAME         "mbsrtowcs"

 #define WCSRTOMBS_FUNCTION_NAME         "wcsrtombs"


 /* #include <wctype.h> */


 #define ISWALNUM_OPERATOR_NAME           "iswalnum"

 #define ISWALPHA_OPERATOR_NAME           "iswalpha"

 #define ISWBLANK_OPERATOR_NAME           "iswblank"

 #define ISWCNTRL_OPERATOR_NAME           "iswcntrl"

 #define ISWDIGIT_OPERATOR_NAME           "iswdigit"

 #define ISWGRAPH_OPERATOR_NAME           "iswgraph"

 #define ISWLOWER_OPERATOR_NAME           "iswlower"

 #define ISWPRINT_OPERATOR_NAME           "iswprint"

 #define ISWPUNCT_OPERATOR_NAME           "iswpunct"

 #define ISWSPACE_OPERATOR_NAME           "iswspace"

 #define ISWUPPER_OPERATOR_NAME           "iswupper"

 #define ISWXDIGIT_OPERATOR_NAME          "iswxdigit"

 #define ISWCTYPE_OPERATOR_NAME           "iswctype"

 #define WCTYPE_OPERATOR_NAME             "wctype"

 #define TOWLOWER_OPERATOR_NAME           "towlower"

 #define TOWUPPER_OPERATOR_NAME           "towupper"

 #define TOWCTRANS_OPERATOR_NAME          "towctrans"

 #define WCTRANS_OPERATOR_NAME            "wctrans"


 /* #include <fcntl.h>*/


 #define FCNTL_FUNCTION_NAME             "fcntl"

 #define CREAT_FUNCTION_NAME             "creat"

 #define DIRECTIO_FUNCTION_NAME          "directio"

 #define OPEN64_FUNCTION_NAME            "open64"

 #define CREAT64_FUNCTION_NAME           "creat64"


 /* fcntl is declared with fcntl.h */

 #define FSYNC_FUNCTION_NAME             "fsync"

 #define FDATASYNC_FUNCTION_NAME         "fdatasync"

 #define IOCTL_FUNCTION_NAME             "ioctl"   // sys/ioctl.h

 #define SELECT_FUNCTION_NAME            "select"  // sys/select.h

 #define PSELECT_FUNCTION_NAME           "pselect" // sys/select.h

 #define STAT_FUNCTION_NAME              "stat"    // sys/stat.h

 #define FSTAT_FUNCTION_NAME             "fstat"   // sys/stat.h

 #define LSTAT_FUNCTION_NAME             "lstat"   // sys/stat.h


 #define J0_OPERATOR_NAME "j0"

 #define J1_OPERATOR_NAME "j1"

 #define JN_OPERATOR_NAME "jn"

 #define Y0_OPERATOR_NAME "y0"

 #define Y1_OPERATOR_NAME "y1"

 #define YN_OPERATOR_NAME "yn"


 #define NEXTAFTER_OPERATOR_NAME "nextafter"

 #define REMAINDER_OPERATOR_NAME "remainder"


 #define MATHERR_OPERATOR_NAME "matherr"

 #define SIGNIFICAND_OPERATOR_NAME "significand"


 #define MODFF_OPERATOR_NAME "modff"

 #define SIGFPE_OPERATOR_NAME "sigfpe"

 #define SINGLE_TO_DECIMAL_OPERATOR_NAME "single_to_decimal"

 #define DOUBLE_TO_DECIMAL_OPERATOR_NAME "double_to_decimal"

 #define EXTENDED_TO_DECIMAL_OPERATOR_NAME "extended_to_decimal"

 #define QUADRUPLE_TO_DECIMAL_OPERATOR_NAME "quadruple_to_decimal"

 #define DECIMAL_TO_SINGLE_OPERATOR_NAME "decimal_to_single"

 #define DECIMAL_TO_DOUBLE_OPERATOR_NAME "decimal_to_double"

 #define DECIMAL_TO_EXTENDED_OPERATOR_NAME "decimal_to_extended"

 #define DECIMAL_TO_QUADRUPLE_OPERATOR_NAME "decimal_to_quadruple"

 #define STRING_TO_DECIMAL_OPERATOR_NAME "string_to_decimal"

 #define FUNC_TO_DECIMAL_OPERATOR_NAME "func_to_decimal"

 #define FILE_TO_DECIMAL_OPERATOR_NAME "file_to_decimal"

 #define SECONVERT_OPERATOR_NAME "seconvert"

 #define SFCONVERT_OPERATOR_NAME "sfconvert"

 #define SGCONVERT_OPERATOR_NAME "sgconvert"

 #define ECONVERT_OPERATOR_NAME "econvert"

 #define FCONVERT_OPERATOR_NAME "fconvert"

 #define GCONVERT_OPERATOR_NAME "gconvert"

 #define QECONVERT_OPERATOR_NAME "qeconvert"

 #define QFCONVERT_OPERATOR_NAME "qfconvert"

 #define QGCONVERT_OPERATOR_NAME "qgconvert"


 #define CLOCK_FUNCTION_NAME            "clock"

 #define SECOND_FUNCTION_NAME            "SECOND" //gfortran extension

 #define CLOCK_GETTIME_FUNCTION_NAME    "clock_gettime"

 #define GETTIMEOFDAY_FUNCTION_NAME    "gettimeofday"


 /* netdb.h */

 #define __H_ERRNO_LOCATION_OPERATOR_NAME "__h_erno_location"


 /* These operators are used within the optimize transformation in

    order to manipulate operators such as n-ary add and multiply or

    multiply-add operators ( JZ - sept 98)

  */

 #define EOLE_FMA_OPERATOR_NAME          "EOLE-FMA-OP"

 #define EOLE_FMS_OPERATOR_NAME          "EOLE-FMS-OP"

 #define EOLE_PROD_OPERATOR_NAME         "EOLE-PROD-OP"

 #define EOLE_SUM_OPERATOR_NAME          "EOLE-SUM-OP"


 /* Integer Multiply Add and Sub, FC 27/10/2005 for FI

  */

 #define IMA_OPERATOR_NAME                               "IMA-OP"

 #define IMS_OPERATOR_NAME                               "IMS-OP"


 /*****************************************************************************************/


 /* moved from ricedg-local.h */

 #define LOOP_COUNTER_MODULE_NAME        "LOOP-COUNTER"

 #define DI_VAR_MODULE_NAME              "DI-VAR"


 /* special pips intrinsics with global effects */

 #define PIPS_MEMORY_BARRIER_OPERATOR_NAME "__pips_memory_barrier"

 #define PIPS_IO_BARRIER_OPERATOR_NAME "__pips_io_barrier"


 /* macros */


 /* FI: entity_local_name() should be sufficient for these comparisons */

 #define entity_an_operator_p(e,name) \

   (same_string_p(global_name_to_user_name(entity_name(e)), name##_OPERATOR_NAME))

 #define entity_a_function_p(e,name) \

   (same_string_p(global_name_to_user_name(entity_name(e)), name##_FUNCTION_NAME))

 #define entity_a_special_entity_p(e,name) \

   (same_string_p(global_name_to_user_name(entity_name(e)), name))


 #define ENTITY_CONVERSION_P(e,name) \

   (strcmp(entity_local_name(e), name##_GENERIC_CONVERSION_NAME)==0)

 #define ENTITY_CONVERSION_CMPLX_P(e) ENTITY_CONVERSION_P(e, CMPLX)

 #define ENTITY_CONVERSION_DCMPLX_P(e) ENTITY_CONVERSION_P(e, DCMPLX)


 #define ENTITY_CONTINUE_P(e) entity_a_function_p(e, CONTINUE)

 #define ENTITY_STOP_P(e) entity_a_function_p(e, STOP)

 #define ENTITY_RETURN_P(e) entity_a_function_p(e, RETURN)

 #define ENTITY_C_RETURN_P(e) entity_a_function_p(e, C_RETURN)


 #define ENTITY_ASSIGN_P(e) entity_an_operator_p(e, ASSIGN)

 #define ENTITY_POST_INCREMENT_P(e) entity_an_operator_p(e, POST_INCREMENT)

 #define ENTITY_POST_DECREMENT_P(e) entity_an_operator_p(e, POST_DECREMENT)

 #define ENTITY_PRE_INCREMENT_P(e) entity_an_operator_p(e, PRE_INCREMENT)

 #define ENTITY_PRE_DECREMENT_P(e) entity_an_operator_p(e, PRE_DECREMENT)

 #define ENTITY_MULTIPLY_UPDATE_P(e) entity_an_operator_p(e, MULTIPLY_UPDATE)

 #define ENTITY_DIVIDE_UPDATE_P(e) entity_an_operator_p(e, DIVIDE_UPDATE)

 #define ENTITY_MODULO_UPDATE_P(e) entity_an_operator_p(e, MODULO_UPDATE)

 #define ENTITY_PLUS_UPDATE_P(e) entity_an_operator_p(e, PLUS_UPDATE)

 #define ENTITY_MINUS_UPDATE_P(e) entity_an_operator_p(e, MINUS_UPDATE)

 #define ENTITY_LEFT_SHIFT_UPDATE_P(e) entity_an_operator_p(e, LEFT_SHIFT_UPDATE)

 #define ENTITY_RIGHT_SHIFT_UPDATE_P(e) entity_an_operator_p(e, RIGHT_SHIFT_UPDATE)

 #define ENTITY_BITWISE_AND_UPDATE_P(e) entity_an_operator_p(e, BITWISE_AND_UPDATE)

 #define ENTITY_BITWISE_XOR_UPDATE_P(e) entity_an_operator_p(e, BITWISE_XOR_UPDATE)

 #define ENTITY_BITWISE_OR_UPDATE_P(e) entity_an_operator_p(e, BITWISE_OR_UPDATE)

 #define ENTITY_COMMA_P(e) entity_an_operator_p(e, COMMA)

 #define ENTITY_ADDRESS_OF_P(e) entity_an_operator_p(e, ADDRESS_OF)

 #define ENTITY_CONDITIONAL_P(e) entity_an_operator_p(e, CONDITIONAL)


 #define ENTITY_PLUS_P(e) entity_an_operator_p(e, PLUS)

 #define ENTITY_PLUS_C_P(e) entity_an_operator_p(e, PLUS_C)

 #define ENTITY_MINUS_P(e) entity_an_operator_p(e, MINUS)

 #define ENTITY_MINUS_C_P(e) entity_an_operator_p(e, MINUS_C)

 #define ENTITY_UNARY_MINUS_P(e) entity_an_operator_p(e, UNARY_MINUS)

 #define ENTITY_UNARY_PLUS_P(e) entity_an_operator_p(e, UNARY_PLUS)

 #define ENTITY_MULTIPLY_P(e) entity_an_operator_p(e, MULTIPLY)

 #define ENTITY_MODULO_P(e) entity_an_operator_p(e, MODULO)

 #define ENTITY_C_MODULO_P(e) entity_an_operator_p(e, C_MODULO)

 #define ENTITY_POWER_P(e) entity_an_operator_p(e, POWER)

 #define ENTITY_DIVIDE_P(e) entity_an_operator_p(e, DIVIDE)


 #define ENTITY_MIN_P(e) entity_an_operator_p(e, MIN)

 #define ENTITY_C_MIN_P(e) entity_an_operator_p(e,PIPS_C_MIN)

 #define ENTITY_MAX_P(e) entity_an_operator_p(e, MAX)

 #define ENTITY_C_MAX_P(e) entity_an_operator_p(e,PIPS_C_MAX)

 #define ENTITY_MIN0_P(e) entity_an_operator_p(e, MIN0)

 #define ENTITY_MAX0_P(e) entity_an_operator_p(e, MAX0)

 #define ENTITY_AMIN1_P(e) entity_an_operator_p(e, AMIN1)

 #define ENTITY_AMAX1_P(e) entity_an_operator_p(e, AMAX1)

 #define ENTITY_DMIN1_P(e) entity_an_operator_p(e, DMIN1)

 #define ENTITY_DMAX1_P(e) entity_an_operator_p(e, DMAX1)

 #define ENTITY_MIN_OR_MAX_P(e) (ENTITY_MIN_P(e) || ENTITY_MAX_P(e) )


 #define ENTITY_ABS_P(e) entity_an_operator_p(e, ABS)

 #define ENTITY_IABS_P(e) entity_an_operator_p(e, IABS)

 #define ENTITY_DABS_P(e) entity_an_operator_p(e, DABS)

 #define ENTITY_CABS_P(e) entity_an_operator_p(e, CABS)

 //abs in stdlib.h C89

 #define ENTITY_C_ABS_P(e) entity_a_function_p(e, C_ABS)

 #define ENTITY_LABS_P(e) entity_a_function_p(e, LABS)

 #define ENTITY_LLABS_P(e) entity_a_function_p(e, LLABS)     //C99

 //abs in inttypes.h C99

 #define ENTITY_IMAXABS_P(e) entity_a_function_p(e, IMAXABS)

 //abs in math.h C99

 #define ENTITY_FABS_P(e) entity_an_operator_p(e, FABS)

 #define ENTITY_FABSF_P(e) entity_an_operator_p(e, FABSF)

 #define ENTITY_FABSL_P(e) entity_an_operator_p(e, FABSL)

 //abs in complex.h C99

 #define ENTITY_C_CABS_P(e) entity_an_operator_p(e, C_CABS)

 #define ENTITY_CABSF_P(e) entity_an_operator_p(e, CABSF)

 #define ENTITY_CABSL_P(e) entity_an_operator_p(e, CABSL)


 #define ENTITY_AND_P(e) (entity_an_operator_p(e, AND) || entity_an_operator_p(e, C_AND))

 #define ENTITY_OR_P(e) (entity_an_operator_p(e, OR) || entity_an_operator_p(e, C_OR))

 #define ENTITY_BITWISE_AND_P(e) (entity_an_operator_p(e, BITWISE_AND))

 #define ENTITY_BITWISE_OR_P(e) (entity_an_operator_p(e, BITWISE_OR))

 #define ENTITY_BITWISE_XOR_P(e) (entity_an_operator_p(e, BITWISE_XOR))

 #define ENTITY_NOT_P(e) (entity_an_operator_p(e, NOT) || entity_an_operator_p(e, C_NOT))

 // NON_EQUIV is in fact a logical operator - to simplify semantics

 #define ENTITY_NON_EQUAL_P(e) (entity_an_operator_p(e, NON_EQUAL) || entity_an_operator_p(e, NON_EQUIV) || entity_an_operator_p(e, C_NON_EQUAL))

 #define ENTITY_EQUIV_P(e) entity_an_operator_p(e, EQUIV)

 #define ENTITY_NON_EQUIV_P(e) entity_an_operator_p(e, NON_EQUIV)

 #define ENTITY_LEFT_SHIFT_P(e) entity_an_operator_p(e, LEFT_SHIFT)

 #define ENTITY_RIGHT_SHIFT_P(e) entity_an_operator_p(e, RIGHT_SHIFT)


 #define ENTITY_ADDRESS_OF_P(e) entity_an_operator_p(e, ADDRESS_OF)


 /* Attention :

    This definition is different with the Fortran Standard where the logical

    operators are the following only: AND, OR, NOT, EQUIV, NEQUIV (NN-Mars 2000)*/


 #define ENTITY_LOGICAL_OPERATOR_P(e) ( ENTITY_RELATIONAL_OPERATOR_P(e) || \

                                        ENTITY_AND_P(e) || \

                                        ENTITY_OR_P(e) || \

                                        ENTITY_NOT_P(e))


 #define ENTITY_TRUE_P(e) entity_an_operator_p(e, TRUE)

 #define ENTITY_FALSE_P(e) entity_an_operator_p(e, FALSE)

 #define ENTITY_ONE_P(e) entity_an_operator_p(e, ONE)

 #define ENTITY_ZERO_P(e) entity_an_operator_p(e, ZERO)


 #define ENTITY_GREATER_OR_EQUAL_P(e) (entity_an_operator_p(e, GREATER_OR_EQUAL) || entity_an_operator_p(e, C_GREATER_OR_EQUAL))

 #define ENTITY_GREATER_THAN_P(e)  (entity_an_operator_p(e, GREATER_THAN) || entity_an_operator_p(e, C_GREATER_THAN))

 #define ENTITY_LESS_OR_EQUAL_P(e) (entity_an_operator_p(e, LESS_OR_EQUAL) || entity_an_operator_p(e, C_LESS_OR_EQUAL))

 #define ENTITY_LESS_THAN_P(e) (entity_an_operator_p(e, LESS_THAN) || entity_an_operator_p(e, C_LESS_THAN))


 // EQUIV is in fact a logical operator - to simplify semantics

 #define ENTITY_EQUAL_P(e) (entity_an_operator_p(e, EQUAL) || entity_an_operator_p(e, EQUIV) || entity_an_operator_p(e, C_EQUAL))


 #define ENTITY_RELATIONAL_OPERATOR_P(e) ( \

                                          ENTITY_GREATER_OR_EQUAL_P(e) || \

                                          ENTITY_GREATER_THAN_P(e) || \

                                          ENTITY_LESS_OR_EQUAL_P(e) || \

                                          ENTITY_LESS_THAN_P(e) || \

                                          ENTITY_NON_EQUAL_P(e) || \

                                          ENTITY_EQUAL_P(e) )


 #define ENTITY_NAME_P(e, name)(same_string_p(entity_user_name(e),name))


 /* Fortran IO Management */


 #define ENTITY_WRITE_P(e)                ENTITY_NAME_P(e, "WRITE")

 #define ENTITY_REWIND_P(e)               ENTITY_NAME_P(e, "REWIND")

 #define ENTITY_OPEN_P(e)                 ENTITY_NAME_P(e, "OPEN")

 #define ENTITY_CLOSE_P(e)                ENTITY_NAME_P(e, "CLOSE")

 #define ENTITY_READ_P(e)                 ENTITY_NAME_P(e, READ_FUNCTION_NAME)

 #define ENTITY_BUFFERIN_P(e)             ENTITY_NAME_P(e, "BUFFERIN")

 #define ENTITY_BUFFEROUT_P(e)            ENTITY_NAME_P(e, "BUFFEROUT")

 #define ENTITY_ENDFILE_P(e)              ENTITY_NAME_P(e, "ENDFILE")

 #define ENTITY_IMPLIEDDO_P(e)            ENTITY_NAME_P(e, IMPLIED_DO_NAME)

 #define ENTITY_IO_LIST_P(e)              ENTITY_NAME_P(e, IO_LIST_STRING_NAME)

 #define ENTITY_FORMAT_P(e)               ENTITY_NAME_P(e, "FORMAT")


 /* Bit manipulation functions. Amira Mensi */

 #define ENTITY_ISHFT_P(e)                ENTITY_NAME_P(e, "ISHFT")

 #define ENTITY_ISHFTC_P(e)               ENTITY_NAME_P(e, "ISHFTC")

 #define ENTITY_IBITS_P(e)                ENTITY_NAME_P(e, "IBITS")

 #define ENTITY_MVBITS_P(e)               ENTITY_NAME_P(e, "MVBITS")

 #define ENTITY_BTEST_P(e)                ENTITY_NAME_P(e, "BTEST")

 #define ENTITY_IBSET_P(e)                ENTITY_NAME_P(e, "IBSET")

 #define ENTITY_IBCLR_P(e)                ENTITY_NAME_P(e, "IBCLR")

 #define ENTITY_BIT_SIZE_P(e)             ENTITY_NAME_P(e, "BIT_SIZE")

 #define ENTITY_IOR_P(e)                  ENTITY_NAME_P(e, "IOR")

 #define ENTITY_IEOR_P(e)                 ENTITY_NAME_P(e, "IEOR")

 #define ENTITY_IAND_P(e)                 ENTITY_NAME_P(e, "IAND")


 /* OMP entity test */

 #define ENTITY_OMP_IF_P(e)               ENTITY_NAME_P(e,OMP_IF_FUNCTION_NAME)

 #define ENTITY_OMP_OMP_P(e)              ENTITY_NAME_P(e,OMP_OMP_FUNCTION_NAME)

 #define ENTITY_OMP_FOR_P(e)              ENTITY_NAME_P(e,OMP_FOR_FUNCTION_NAME)

 #define ENTITY_OMP_PRIVATE_P(e)          ENTITY_NAME_P(e,OMP_PRIVATE_FUNCTION_NAME)

 #define ENTITY_OMP_PARALLEL_P(e)         ENTITY_NAME_P(e,OMP_PARALLEL_FUNCTION_NAME)

 #define ENTITY_OMP_REDUCTION_P(e)        ENTITY_NAME_P(e,OMP_REDUCTION_FUNCTION_NAME)


 /*io functions: C library and system io.Amira Mensi*/


 /*#include<stdio.h> */


 #define ENTITY_PRINTF_P(e)               ENTITY_NAME_P(e, "printf")

 #define ENTITY_FPRINTF_P(e)              ENTITY_NAME_P(e, "fprintf")

 #define ENTITY_SCANF_P(e)                ENTITY_NAME_P(e, "scanf")

 #define ENTITY_ISOC99_SCANF_P(e)         ENTITY_NAME_P(e, ISOC99_SCANF_FUNCTION_NAME)

 #define ENTITY_FSCANF_P(e)               ENTITY_NAME_P(e, "fscanf")

 #define ENTITY_ISOC99_FSCANF_P(e)        ENTITY_NAME_P(e, ISOC99_FSCANF_FUNCTION_NAME)

 #define ENTITY_PUTS_P(e)                 ENTITY_NAME_P(e, "puts")

 #define ENTITY_GETS_P(e)                 ENTITY_NAME_P(e, "gets")

 #define ENTITY_FPUTS_P(e)                ENTITY_NAME_P(e, "fputs")

 #define ENTITY_FGETS_P(e)                ENTITY_NAME_P(e, "fgets")

 #define ENTITY_FPUTC_P(e)                ENTITY_NAME_P(e, "fputc")

 #define ENTITY_FGETC_P(e)                ENTITY_NAME_P(e, "fgetc")

 #define ENTITY_FOPEN_P(e)                ENTITY_NAME_P(e, "fopen")

 #define ENTITY_FDOPEN_P(e)               ENTITY_NAME_P(e, "fdopen")

 #define ENTITY_FREOPEN_P(e)              ENTITY_NAME_P(e, "freopen")

 #define ENTITY_FCLOSE_P(e)               ENTITY_NAME_P(e, "fclose")

 #define ENTITY_SNPRINTF_P(e)             ENTITY_NAME_P(e, "snprintf")

 #define ENTITY_SSCANF_P(e)               ENTITY_NAME_P(e, "sscanf")

 #define ENTITY_ISOC99_SSCANF_P(e)        ENTITY_NAME_P(e, ISOC99_SSCANF_FUNCTION_NAME)

 #define ENTITY_VFPRINTF_P(e)             ENTITY_NAME_P(e, "vfprintf")

 #define ENTITY_VFSCANF_P(e)              ENTITY_NAME_P(e, "vfscanf")

 #define ENTITY_ISOC99_VFSCANF_P(e)       ENTITY_NAME_P(e, ISOC99_VFSCANF_FUNCTION_NAME)

 #define ENTITY_VPRINTF_P(e)              ENTITY_NAME_P(e, "vprintf")

 #define ENTITY_VSCANF_P(e)               ENTITY_NAME_P(e, "vscanf")

 #define ENTITY_ISOC99_VSCANF_P(e)        ENTITY_NAME_P(e, ISOC99_VSCANF_FUNCTION_NAME)

 #define ENTITY_VSNPRINTF_P(e)            ENTITY_NAME_P(e, "vsnprintf")

 #define ENTITY_VSPRINTF_P(e)             ENTITY_NAME_P(e, "vsprintf")

 #define ENTITY_SPRINTF_P(e)              ENTITY_NAME_P(e, "sprintf")

 #define ENTITY_VSSCANF_P(e)              ENTITY_NAME_P(e, "vsscanf")

 #define ENTITY_ISOC99_VSSCANF_P(e)       ENTITY_NAME_P(e, ISOC99_VSSCANF_FUNCTION_NAME)

 #define ENTITY_GETC_P(e)                 ENTITY_NAME_P(e, "getc")

 #define ENTITY__IO_GETC_P(e)             ENTITY_NAME_P(e, "_IO_getc")

 #define ENTITY_GETCHAR_P(e)              ENTITY_NAME_P(e, "getchar")

 #define ENTITY_PUTC_P(e)                 ENTITY_NAME_P(e, "putc")

 #define ENTITY__IO_PUTC_P(e)             ENTITY_NAME_P(e, "_IO_putc")

 #define ENTITY_PUTCHAR_P(e)              ENTITY_NAME_P(e, "putchar")

 #define ENTITY_UNGETC_P(e)               ENTITY_NAME_P(e, "ungetc")

 #define ENTITY_FREAD_P(e)                ENTITY_NAME_P(e, "fread")

 #define ENTITY_FWRITE_P(e)               ENTITY_NAME_P(e, "fwrite")

 #define ENTITY_FGETPOS_P(e)              ENTITY_NAME_P(e, "fgetpos")

 #define ENTITY_FSEEK_P(e)                ENTITY_NAME_P(e, "fseek")

 #define ENTITY_FSETPOS_P(e)              ENTITY_NAME_P(e, "fsetpos")

 #define ENTITY_FTELL_P(e)                ENTITY_NAME_P(e, "ftell")

 #define ENTITY_C_REWIND_P(e)             ENTITY_NAME_P(e, "rewind")

 #define ENTITY_CLEARERR_P(e)             ENTITY_NAME_P(e, "clearer")

 #define ENTITY_FEOF_P(e)                 ENTITY_NAME_P(e, "feof")

 #define ENTITY_FERROR_P(e)               ENTITY_NAME_P(e, "ferror")

 #define ENTITY_FILENO_P(e)               ENTITY_NAME_P(e, "fileno")

 #define ENTITY_PERROR_P(e)               ENTITY_NAME_P(e, "perror")


 /*io functions: C library and system io.Amira Mensi*/


 #define ENTITY_C_OPEN_SYSTEM_P(e)        ENTITY_NAME_P(e, C_OPEN_FUNCTION_NAME)

 #define ENTITY_C_CLOSE_SYSTEM_P(e)       ENTITY_NAME_P(e, C_CLOSE_FUNCTION_NAME)

 #define ENTITY_C_READ_SYSTEM_P(e)        ENTITY_NAME_P(e, C_READ_FUNCTION_NAME)

 #define ENTITY_C_WRITE_SYSTEM_P(e)       ENTITY_NAME_P(e, C_WRITE_FUNCTION_NAME)

 #define ENTITY_LINK_SYSTEM_P(e)          ENTITY_NAME_P(e, LINK_FUNCTION_NAME)

 #define ENTITY_SYMLINK_SYSTEM_P(e)       ENTITY_NAME_P(e, SYMLINK_FUNCTION_NAME)

 #define ENTITY_UNLINK_SYSTEM_P(e)        ENTITY_NAME_P(e, UNLINK_FUNCTION_NAME)


 /* fcntl() */

 #define ENTITY_FSYNC_SYSTEM_P(e)         ENTITY_NAME_P(e, FSYNC_FUNCTION_NAME)

 #define ENTITY_FDATASYNC_SYSTEM_P(e)     ENTITY_NAME_P(e, FDATASYNC_FUNCTION_NAME)

 #define ENTITY_IOCTL_SYSTEM_P(e)         ENTITY_NAME_P(e, IOCTL_FUNCTION_NAME)

 #define ENTITY_SELECT_SYSTEM_P(e)        ENTITY_NAME_P(e, SELECT_FUNCTION_NAME)

 #define ENTITY_PSELECT_SYSTEM_P(e)       ENTITY_NAME_P(e, PSELECT_FUNCTION_NAME)

 #define ENTITY_STAT_SYSTEM_P(e)          ENTITY_NAME_P(e, STAT_FUNCTION_NAME)

 #define ENTITY_FSTAT_SYSTEM_P(e)         ENTITY_NAME_P(e, FSTAT_FUNCTION_NAME)

 #define ENTITY_LSTAT_SYSTEM_P(e)         ENTITY_NAME_P(e, LSTAT_FUNCTION_NAME)


 #define ENTITY_REMOVE_SYSTEM_P(e)        ENTITY_NAME_P(e, "remove")

 #define ENTITY_RENAME_SYSTEM_P(e)        ENTITY_NAME_P(e, "rename")

 #define ENTITY_TMPFILE_SYSTEM_P(e)       ENTITY_NAME_P(e, "tmpfile")

 #define ENTITY_TMPNAM_SYSTEM_P(e)        ENTITY_NAME_P(e, "tmpnam")

 #define ENTITY_FFLUSH_SYSTEM_P(e)        ENTITY_NAME_P(e, "fflush")

 #define ENTITY_FREOPEN_SYSTEM_P(e)       ENTITY_NAME_P(e, "freopen")

 #define ENTITY_SETBUF_SYSTEM_P(e)        ENTITY_NAME_P(e, "setbuf")

 #define ENTITY_SETVBUF_SYSTEM_P(e)       ENTITY_NAME_P(e, "setvbuf")

 #define ENTITY__FILBUF_SYSTEM_P(e)       ENTITY_NAME_P(e, "__filbuf")

 #define ENTITY__FILSBUF_SYSTEM_P(e)      ENTITY_NAME_P(e, "__flsbuf")

 #define ENTITY_SETBUFFER_SYSTEM_P(e)     ENTITY_NAME_P(e, "setbuffer")

 #define ENTITY_SETLINEBUF_SYSTEM_P(e)    ENTITY_NAME_P(e, "setlinebuf")

 #define ENTITY_FDOPEN_SYSTEM_P(e)        ENTITY_NAME_P(e, "fdopen")

 #define ENTITY_CTERMID_SYSTEM_P(e)       ENTITY_NAME_P(e, "ctermid")

 #define ENTITY_FILENO_SYSTEM_P(e)        ENTITY_NAME_P(e, "fileno")

 #define ENTITY_POPEN_SYSTEM_P(e)         ENTITY_NAME_P(e, "popen")

 #define ENTITY_CUSERID_SYSTEM_P(e)       ENTITY_NAME_P(e, "cuserid")

 #define ENTITY_TEMPNAM_SYSTEM_P(e)       ENTITY_NAME_P(e, "tempnam")

 #define ENTITY_GETW_SYSTEM_P(e)          ENTITY_NAME_P(e, "getw")

 #define ENTITY_PUTW_SYSTEM_P(e)          ENTITY_NAME_P(e, "putw")

 #define ENTITY_PCLOSE_SYSTEM_P(e)        ENTITY_NAME_P(e, "pclose")

 #define ENTITY_FSEEKO_SYSTEM_P(e)        ENTITY_NAME_P(e, "fseeko")

 #define ENTITY_FTELLO_SYSTEM_P(e)        ENTITY_NAME_P(e, "ftello")

 #define ENTITY_FOPEN64_SYSTEM_P(e)       ENTITY_NAME_P(e, "fopen64")

 #define ENTITY_FREOPEN64_SYSTEM_P(e)     ENTITY_NAME_P(e, "freopen64")

 #define ENTITY_TMPFILE64_SYSTEM_P(e)     ENTITY_NAME_P(e, "tmpfile64")

 #define ENTITY_FGETPOS64_SYSTEM_P(e)     ENTITY_NAME_P(e, "fgetpos64")

 #define ENTITY_FSETPOS64_SYSTEM_P(e)     ENTITY_NAME_P(e, "fsetpos64")

 #define ENTITY_FSEEKO64_SYSTEM_P(e)      ENTITY_NAME_P(e, "fseeko64")

 #define ENTITY_FTELLO64_SYSTEM_P(e)      ENTITY_NAME_P(e, "ftello64")


 #define ENTITY_ABORT_SYSTEM_P(e)         ENTITY_NAME_P(e, "abort")

 #define ENTITY_C_ABS_SYSTEM_P(e)         ENTITY_NAME_P(e, "abs")

 #define ENTITY_ATEXIT_SYSTEM_P(e)        ENTITY_NAME_P(e, "atexit")

 #define ENTITY_ATOF_SYSTEM_P(e)          ENTITY_NAME_P(e, "atof")

 #define ENTITY_ATOI_SYSTEM_P(e)          ENTITY_NAME_P(e, "atoi")

 #define ENTITY_BSEARCH_SYSTEM_P(e)       ENTITY_NAME_P(e, "bsearch")

 #define ENTITY_CALLOC_SYSTEM_P(e)        ENTITY_NAME_P(e, "calloc")

 #define ENTITY_DIV_SYSTEM_P(e)           ENTITY_NAME_P(e, "div")

 #define ENTITY_EXIT_SYSTEM_P(e)          ENTITY_NAME_P(e, "exit")

 #define ENTITY_FREE_SYSTEM_P(e)          ENTITY_NAME_P(e, "free")

 #define ENTITY_GETENV_SYSTEM_P(e)        ENTITY_NAME_P(e, "getenv")

 #define ENTITY_LABS_SYSTEM_P(e)          ENTITY_NAME_P(e, "labs")

 #define ENTITY_LDIV_SYSTEM_P(e)          ENTITY_NAME_P(e, "ldiv")

 #define ENTITY_MALLOC_SYSTEM_P(e)        ENTITY_NAME_P(e, "malloc")

 #define ENTITY_MBLEN_SYSTEM_P(e)         ENTITY_NAME_P(e, "mblen")

 #define ENTITY_MBSTOWCS_SYSTEM_P(e)      ENTITY_NAME_P(e, "mbstowcs")

 #define ENTITY_MBTOWC_SYSTEM_P(e)        ENTITY_NAME_P(e, "mbtowc")

 #define ENTITY_QSORT_SYSTEM_P(e)         ENTITY_NAME_P(e, "qsort")

 #define ENTITY_REALLOC_SYSTEM_P(e)       ENTITY_NAME_P(e, "realloc")

 #define ENTITY_STRTOD_SYSTEM_P(e)        ENTITY_NAME_P(e, "strtod")

 #define ENTITY_STRTOL_SYSTEM_P(e)        ENTITY_NAME_P(e, "strtol")

 #define ENTITY_STRTOUL_SYSTEM_P(e)       ENTITY_NAME_P(e, "strtoul")

 #define ENTITY_SYSTEM_SYSTEM_P(e)        ENTITY_NAME_P(e, "system")

 #define ENTITY_WCTOMB_SYSTEM_P(e)        ENTITY_NAME_P(e, "wctomb")

 #define ENTITY_WCSTOMBS_SYSTEM_P(e)      ENTITY_NAME_P(e, "wcstombs")

 #define ENTITY_EXITHANDLESYSTEM_P(e)     ENTITY_NAME_P(e, "exithandle")

 #define ENTITY_DRAND48_SYSTEM_P(e)       ENTITY_NAME_P(e, "drand48")

 #define ENTITY_ERAND48_SYSTEM_P(e)       ENTITY_NAME_P(e, "erand48")

 #define ENTITY_JRAND48_SYSTEM_P(e)       ENTITY_NAME_P(e, "jrand48")

 #define ENTITY_LCONG48_SYSTEM_P(e)       ENTITY_NAME_P(e, "lcong48")

 #define ENTITY_LRAND48_SYSTEM_P(e)       ENTITY_NAME_P(e, "lrand48")

 #define ENTITY_MRAND48_SYSTEM_P(e)       ENTITY_NAME_P(e, "mrand48")

 #define ENTITY_NRAND48_SYSTEM_P(e)       ENTITY_NAME_P(e, "nrand48")

 #define ENTITY_SEED48_SYSTEM_P(e)        ENTITY_NAME_P(e, "seed48")

 #define ENTITY_SRAND48_SYSTEM_P(e)       ENTITY_NAME_P(e, "srand48")

 #define ENTITY_PUTENV_SYSTEM_P(e)        ENTITY_NAME_P(e, "putenv")

 #define ENTITY_SETKEY_SYSTEM_P(e)        ENTITY_NAME_P(e, "setkey")

 #define ENTITY_SWAB_SYSTEM_P(e)          ENTITY_NAME_P(e, "swab")

 #define ENTITY_MKSTEMP_SYSTEM_P(e)       ENTITY_NAME_P(e, "mkstemp")

 #define ENTITY_MKSTEMP64_SYSTEM_P(e)     ENTITY_NAME_P(e, "mkstemp64")

 #define ENTITY_A614_SYSTEM_P(e)          ENTITY_NAME_P(e, "a64l")

 #define ENTITY_ECVT_SYSTEM_P(e)          ENTITY_NAME_P(e, "ecvt")

 #define ENTITY_FCVT_SYSTEM_P(e)          ENTITY_NAME_P(e, "fcvt")

 #define ENTITY_GCVT_SYSTEM_P(e)          ENTITY_NAME_P(e, "gcvt")

 #define ENTITY_GETSUBOPT_SYSTEM_P(e)     ENTITY_NAME_P(e, "getsubopt")

 #define ENTITY_GRANTPT_SYSTEM_P(e)       ENTITY_NAME_P(e, "grantpt")

 #define ENTITY_INITSTATE_SYSTEM_P(e)     ENTITY_NAME_P(e, "initstate")

 #define ENTITY_C_164A_SYSTEM_P(e)        ENTITY_NAME_P(e, "l64a")

 #define ENTITY_MKTEMP_SYSTEM_P(e)        ENTITY_NAME_P(e, "mktemp")

 #define ENTITY_PTSNAME_SYSTEM_P(e)       ENTITY_NAME_P(e, "ptsname")

 #define ENTITY_REALPATH_SYSTEM_P(e)      ENTITY_NAME_P(e, "realpath")

 #define ENTITY_SETSTATE_SYSTEM_P(e)      ENTITY_NAME_P(e, "setstate")

 #define ENTITY_TTYSLOT_SYSTEM_P(e)       ENTITY_NAME_P(e, "ttyslot")

 #define ENTITY_UNLOCKPT_SYSTEM_P(e)      ENTITY_NAME_P(e, "unlockpt")

 #define ENTITY_VALLOC_SYSTEM_P(e)        ENTITY_NAME_P(e, "valloc")

 #define ENTITY_DUP2_SYSTEM_P(e)          ENTITY_NAME_P(e, "dup2")

 #define ENTITY_QECVT_SYSTEM_P(e)         ENTITY_NAME_P(e, "qecvt")

 #define ENTITY_QFCVT_SYSTEM_P(e)         ENTITY_NAME_P(e, "qfcvt")

 #define ENTITY_QGCVT_SYSTEM_P(e)         ENTITY_NAME_P(e, "qgcvt")

 #define ENTITY_GETCWD_SYSTEM_P(e)        ENTITY_NAME_P(e, "getcwd")

 #define ENTITY_GETEXECNAME_SYSTEM_P(e)   ENTITY_NAME_P(e, "getexecname")

 #define ENTITY_GETLOGIN_SYSTEM_P(e)      ENTITY_NAME_P(e, "getlogin")

 #define ENTITY_GETOPT_SYSTEM_P(e)        ENTITY_NAME_P(e, "getopt")

 #define ENTITY_GETPASS_SYSTEM_P(e)       ENTITY_NAME_P(e, "getpass")

 #define ENTITY_GETPASSPHRASE_SYSTEM_P(e) ENTITY_NAME_P(e, "getpassphrase")

 #define ENTITY_GETPW_SYSTEM_P(e)         ENTITY_NAME_P(e, "getpw")

 #define ENTITY_ISATTY_SYSTEM_P(e)        ENTITY_NAME_P(e, "isatty")

 #define ENTITY_MEMALIGN_SYSTEM_P(e)      ENTITY_NAME_P(e, "memalign")

 #define ENTITY_TTYNAME_SYSTEM_P(e)       ENTITY_NAME_P(e, "ttyname")

 #define ENTITY_ATOLL_SYSTEM_P(e)         ENTITY_NAME_P(e, "atoll")

 #define ENTITY_LLABS_SYSTEM_P(e)         ENTITY_NAME_P(e, "llabs")

 #define ENTITY_LLDIV_SYSTEM_P(e)         ENTITY_NAME_P(e, "lldiv")

 #define ENTITY_LLTOSTR_SYSTEM_P(e)       ENTITY_NAME_P(e, "lltostr")

 #define ENTITY_STROLL_SYSTEM_P(e)        ENTITY_NAME_P(e, "strtoll")

 #define ENTITY_STROULL_SYSTEM_P(e)       ENTITY_NAME_P(e, "strtoull")

 #define ENTITY_ULLOSTR_SYSTEM_P(e)       ENTITY_NAME_P(e, "ulltostr")


 /* include <assert.h> */


 #define ENTITY_ASSERT_SYSTEM_P(e)        ENTITY_NAME_P(e, ASSERT_FUNCTION_NAME)

 #define ENTITY_ASSERT_FAIL_SYSTEM_P(e)   ENTITY_NAME_P(e, ASSERT_FAIL_FUNCTION_NAME)


 /* include <string.h> */


 #define ENTITY_STRCMP_SYSTEM_P(e)        ENTITY_NAME_P(e, "strcmp")

 #define ENTITY_STRNCMP_SYSTEM_P(e)       ENTITY_NAME_P(e, "strncmp")

 #define ENTITY_STRCPY_SYSTEM_P(e)        ENTITY_NAME_P(e, "strcpy")

 #define ENTITY_STRCAT_SYSTEM_P(e)        ENTITY_NAME_P(e, "strcat")

 #define ENTITY_STRNCAT_SYSTEM_P(e)       ENTITY_NAME_P(e, "strncat")

 #define ENTITY_STRLEN_SYSTEM_P(e)        ENTITY_NAME_P(e, "strlen")

 #define ENTITY_STRERROR_SYSTEM_P(e)      ENTITY_NAME_P(e, "strerror")

 #define ENTITY_STRERROR_R_SYSTEM_P(e)    ENTITY_NAME_P(e, "strerror_r")


 /* FI: Why is it declared "system"? Why is it in the middle of string functions? */

 #define ENTITY_FOPEN_SYSTEM_P(e)         ENTITY_NAME_P(e, "fopen")


 /* #include <fcntl.h>*/


 #define ENTITY_FCNTL_SYSTEM_P(e)         ENTITY_NAME_P(e,"fcntl")

 #define ENTITY_OPEN_SYSTEM_P(e)          ENTITY_NAME_P(e,"open")

 #define ENTITY_CREAT_SYSTEM_P(e)         ENTITY_NAME_P(e,"creat")

 #define ENTITY_DIRECTIO_SYSTEM_P(e)      ENTITY_NAME_P(e,"directio")

 #define ENTITY_OPEN64_SYSTEM_P(e)        ENTITY_NAME_P(e,"open64")

 #define ENTITY_CREAT64_SYSTEM_P(e)       ENTITY_NAME_P(e,"creat64")


 /* some random functions of stdlib.h */


 #define ENTITY_RANDOM_P(e)               ENTITY_NAME_P(e,"random")

 #define ENTITY_SRANDOM_P(e)              ENTITY_NAME_P(e,"srandom")

 #define ENTITY_RAND_P(e)                 ENTITY_NAME_P(e,"rand")

 #define ENTITY_SRAND_P(e)                ENTITY_NAME_P(e,"srand")


 /* signal.h */

 #define ENTITY_SIGNAL_P(e)               ENTITY_NAME_P(e,"signal")


 /* Fortran DATA management */


 #define ENTITY_STATIC_INITIALIZATION_P(e) ENTITY_NAME_P(e, STATIC_INITIALIZATION_FUNCTION_NAME)

 #define ENTITY_REPEAT_VALUE_P(e)          ENTITY_NAME_P(e, REPEAT_VALUE_FUNCTION_NAME)

 #define ENTITY_DATA_LIST_P(e)             ENTITY_NAME_P(e, DATA_LIST_FUNCTION_NAME)


 /* C initialization expression */


 #define ENTITY_BRACE_INTRINSIC_P(e) ENTITY_NAME_P(e, BRACE_INTRINSIC)


 #define ENTITY_IMPLIED_CMPLX_P(e) ENTITY_NAME_P(e, IMPLIED_COMPLEX_NAME)

 #define ENTITY_IMPLIED_DCMPLX_P(e) ENTITY_NAME_P(e, IMPLIED_DCOMPLEX_NAME)


 /* C data structure and pointer management */


 #define ENTITY_FIELD_P(e)         entity_an_operator_p(e, FIELD)

 #define ENTITY_POINT_TO_P(e)      entity_an_operator_p(e, POINT_TO)

 #define ENTITY_DEREFERENCING_P(e) entity_an_operator_p(e, DEREFERENCING)

 /* Defined elsewhere: #define ENTITY_ADDRESS_OF_P(e) entity_an_operator_p(e, ADDRESS_OF) */


 /* C varargs stuff */

 #define ENTITY_VA_END_P(e)   ENTITY_NAME_P(e, BUILTIN_VA_END)

 #define ENTITY_VA_START_P(e) ENTITY_NAME_P(e, BUILTIN_VA_START)

 #define ENTITY_VA_COPY_P(e)  ENTITY_NAME_P(e, BUILTIN_VA_COPY)


 #define ENTITY_FIVE_OPERATION_P(e) ( ENTITY_PLUS_P(e) || \

                                      ENTITY_PLUS_C_P(e) || \

                                      ENTITY_MINUS_P(e) || \

                                      ENTITY_MINUS_C_P(e) || \

                                      ENTITY_UNARY_MINUS_P(e) || \

                                      ENTITY_MULTIPLY_P(e) || \

                                      ENTITY_MODULO_P(e) ||\

                                      ENTITY_DIVIDE_P(e) )


 #define IO_CALL_P(call) io_intrinsic_p(call_function(call))


 /*

  * Fortran 95 Allocatable

  */

 #define ALLOCATABLE_PREFIX "__pips_allocatable__"

 #define ALLOCATABLE_LBOUND_PREFIX "__pips__allocatable__lbound__"

 #define ALLOCATABLE_UBOUND_PREFIX "__pips__allocatable__ubound__"

 #define ENTITY_ALLOCATABLE_BOUND_P(e) \

   (strncmp(entity_user_name(e), ALLOCATABLE_LBOUND_PREFIX, strlen(ALLOCATABLE_LBOUND_PREFIX)) == 0 \

    || strncmp(entity_user_name(e), ALLOCATABLE_UBOUND_PREFIX, strlen(ALLOCATABLE_UBOUND_PREFIX)) == 0 )


 /* classification of basics */


 #define basic_numeric_simple_p(b) (basic_int_p(b) || basic_float_p(b))

 #define basic_numeric_p(b) (basic_numeric_simple_p(b) || basic_complex_p(b))

 #define basic_compatible_simple_p(b1, b2) (\

                 (basic_numeric_simple_p(b1) && basic_numeric_simple_p(b2)) ||\

                 (basic_string_p(b1) && basic_string_p(b2)) ||\

                 (basic_logical_p(b1) && basic_logical_p(b2)) ||\

                 (basic_overloaded_p(b1) && basic_overloaded_p(b2)) ||\

                 (basic_undefined_p(b1) && basic_undefined_p(b2)))

 #define basic_compatible_p(b1, b2) (\

                 (basic_numeric_p(b1) && basic_numeric_p(b2)) ||\

                 (basic_string_p(b1) && basic_string_p(b2)) ||\

                 (basic_logical_p(b1) && basic_logical_p(b2)) ||\

                 (basic_overloaded_p(b1) && basic_overloaded_p(b2)) ||\

                 (basic_undefined_p(b1) && basic_undefined_p(b2)))


 /*  constant sizes */


 #define LABEL_SIZE 5

 #define INDENTATION (get_int_property("PRETTYPRINT_INDENTATION"))

 #define INDENT_A_LIST_OF_WORDS(list_of_words) { \

   if(list_of_words) { \

     list blanks = NIL; \

     for(int i=0; i<INDENTATION; i++) { \

       blanks = CHAIN_SWORD(blanks, " "); \

     } \

     list_of_words = gen_nconc(blanks,list_of_words); \

   } \

 }


 /*   default values */


 #define STATEMENT_NUMBER_UNDEFINED (-1)

 #define UNKNOWN_RAM_OFFSET (-1)

 // It is for extern variables whose ram offset is not known

 #define UNDEFINED_RAM_OFFSET (-2)

 // It is for dynamic allocation of arrays whose ram offset is not known either.

 /* FI: I would have assumed that it is used for the stack area, but I

    must be wrong... */

 #define DYNAMIC_RAM_OFFSET (-3)


 /* On devrait utiliser Newgen pour cela, mais comme on ne doit pas

    les utiliser directement (mais via statement_less_p), cela devrait

    decourager les temeraires */


 #define MAKE_ORDERING(u,s) (u<<16|s)

 #define ORDERING_NUMBER(o) (o>>16)

 #define ORDERING_STATEMENT(o) (o & 0xffff)


 #define NORMALIZE_EXPRESSION(e) \

     ((expression_normalized(e) == normalized_undefined) ? \

          (expression_normalized(e) = NormalizeExpression(e)) : \

          (expression_normalized(e)))


 /*   MISC: newgen shorthands */


 #define entity_declarations(e) (code_declarations(entity_code(e)))


 /* An entity_variable_p(e) may hide a typedef and hence a functional

    type.  In C, use type_variable_p(ultimate_type(entity_type(e))) to

    make sure e is a variable.


    It may also be a dummy C parameter.


    It may also be a hidden entity such as an abstract location.


    To sum up, this predicate does not imply that entity e represents a

    variable declared in the source code by the programmer.


    See also the function variable_entity_p() which checks the storage

    of the entity.

  */

 #define entity_variable_p(e) (type_variable_p(entity_type(e)))


 #define entity_symbolic_p(e) (type_functional_p(entity_type(e)) && \

   storage_rom_p(entity_storage(e)) && value_symbolic_p(entity_initial(e)))


 /* implemented as a macro to allow lhs */

 #define module_language(e)\

     code_language(value_code(entity_initial((e))))


 #define module_functional_parameters(func) \

         functional_parameters(type_functional(entity_type(func)))


 #define call_intrinsic_p(C)                       \

   value_intrinsic_p(entity_initial(call_function(C)))


 #define statement_block_p(stat) \

         (instruction_block_p(statement_instruction(stat)))


 #define entity_constant_p(e) (type_functional_p(entity_type(e)) && \

   storage_rom_p(entity_storage(e)) && value_constant_p(entity_initial(e)))


 #define loop_to_instruction make_instruction_loop

 #define test_to_instruction make_instruction_test

 #define call_to_instruction make_instruction_call


 #define loop_to_statement(l) instruction_to_statement(loop_to_instruction(l))

 #define test_to_statement(t) instruction_to_statement(test_to_instruction(t))

 #define call_to_statement(c) instruction_to_statement(call_to_instruction(c))


 /***************************************************** BOOLEAN EXPRESSIONS */


 /* Building quickly bool expressions, FC. */


 #define unary_intrinsic_expression(name, e)\

  call_to_expression(make_call(entity_intrinsic(name),CONS(EXPRESSION,e,NIL)))


 #define binary_intrinsic_expression(name, e1, e2)\

  call_to_expression(make_call(entity_intrinsic(name),\

  CONS(EXPRESSION, e1, CONS(EXPRESSION, e2, NIL))))


 #define not_expression(e) \

     unary_intrinsic_expression(NOT_OPERATOR_NAME, e)

 #define or_expression(e1, e2) \

     binary_intrinsic_expression(OR_OPERATOR_NAME, e1, e2)

 #define and_expression(e1, e2) \

     binary_intrinsic_expression(AND_OPERATOR_NAME, e1, e2)

 #define ne_expression(e1, e2) \

     binary_intrinsic_expression(NON_EQUAL_OPERATOR_NAME, e1, e2)

 #define eq_expression(e1, e2) \

     binary_intrinsic_expression(EQUAL_OPERATOR_NAME, e1, e2)

 #define gt_expression(e1, e2) \

     binary_intrinsic_expression(GREATER_THAN_OPERATOR_NAME, e1, e2)

 #define ge_expression(e1, e2) \

     binary_intrinsic_expression(GREATER_OR_EQUAL_OPERATOR_NAME, e1, e2)

 #define lt_expression(e1, e2) \

     binary_intrinsic_expression(LESS_THAN_OPERATOR_NAME, e1, e2)

 #define le_expression(e1, e2) \

     binary_intrinsic_expression(LESS_OR_EQUAL_OPERATOR_NAME, e1, e2)


 /******************************************************** CONTROL GRAPH... */


 /* For the control graph modifiers: */


 /* To specify the way that remove_a_control_from_a_list_and_relink

    acts: */

 enum remove_a_control_from_a_list_and_relink_direction

 {

    /* Put some strange number to avoid random clash as much as

       possible... */

    source_is_predecessor_and_dest_is_successor = 119,

       source_is_successor_and_dest_is_predecessor = -123

       };

 typedef enum remove_a_control_from_a_list_and_relink_direction

 remove_a_control_from_a_list_and_relink_direction;


 /* Constants for some ex-atomizer variable generation */


 #define TMP_ENT 1

 #define AUX_ENT 2

 #define DOUBLE_PRECISION_SIZE 8


 /***************************************************** HPF/HPFC DIRECTIVES */


 /* moved here because needed by syntax:-(

  */

 /* Directive names encoding: HPF_PREFIX + one character.

  * This encoding is achieved thru a sed script that transforms directives

  * into calls that can be parsed by the PIPS F77 parser. It's a hack but

  * it greatly reduced the number of lines for directive analysis, and

  * it allowed quite simply to figure out where the executable directives

  * are in the code.

  * However the syntax allowed in mapping directives is restricted to F77.

  */


 /* prefix for spacial directive calls

  */

 #define HPF_PREFIX              "HPFC"


 /* suffixies for encoded hpf keywords

  */

 #define BLOCK_SUFFIX            "K"

 #define CYCLIC_SUFFIX           "C"

 #define STAR_SUFFIX             "S"


 /* suffixes for HPF directives managed by HPFC

  */

 #define ALIGN_SUFFIX            "A"

 #define REALIGN_SUFFIX          "B"

 #define DISTRIBUTE_SUFFIX       "D"

 #define REDISTRIBUTE_SUFFIX     "E"

 #define INDEPENDENT_SUFFIX      "I"

 #define NEW_SUFFIX              "N"

 #define REDUCTION_SUFFIX        "R"

 #define PROCESSORS_SUFFIX       "P"

 #define TEMPLATE_SUFFIX         "T"

 #define PURE_SUFFIX             "U"

 #define DYNAMIC_SUFFIX          "Y"


 /* suffixes for my own (FCD:-) directives.

  * these directives are used to instrument the code.

  * must be used carefully. may be ignore with some properties.

  */

 #define TELL_SUFFIX             "0"

 #define SYNCHRO_SUFFIX          "1"

 #define TIMEON_SUFFIX           "2"

 #define TIMEOFF_SUFFIX          "3"

 #define SETBOOL_SUFFIX          "4"

 #define SETINT_SUFFIX           "5"

 #define HPFCIO_SUFFIX           "6"

 #define HOSTSECTION_SUFFIX      "7"

 #define DEAD_SUFFIX             "8"

 #define FAKE_SUFFIX             "9"


 /* property prefix for ignoring FCD directives

  * TIME, SYNCHRO and SET exists.

  */

 #define FCD_IGNORE_PREFIX       "HPFC_IGNORE_FCD_"


 /* __asm function

  */

 #define ASM_FUNCTION_NAME "__asm"


 /* soft block->sequence transition

  */

 #define is_instruction_block is_instruction_sequence

 #define instruction_block_p(i) instruction_sequence_p(i)

 #define instruction_block(i) sequence_statements(instruction_sequence(i))


 /* easy list constructor

  */

 #define make_statement_list( stats... ) \

     (gen_make_list(statement_domain, ##stats, 0))

 #define make_expression_list( stats... ) \

     (gen_make_list(expression_domain, ##stats, 0))


 /* After the modification in Newgen:  unstructured = entry:control x exit:control

    we have create a macro to transform automatically unstructured_control to unstructured_entry */

 #define unstructured_control unstructured_entry


 /* Default type sizes */


 #define DEFAULT_CHARACTER_TYPE_SIZE (1)

 #define DEFAULT_SHORT_INTEGER_TYPE_SIZE (2)

 #define DEFAULT_INTEGER_TYPE_SIZE (4)

 #define DEFAULT_LONG_INTEGER_TYPE_SIZE (6)

 #define DEFAULT_LONG_LONG_INTEGER_TYPE_SIZE (8)

 #define DEFAULT_LONG_LONG_LONG_INTEGER_TYPE_SIZE (9)


 // To avoid issues with the PIPS validation suite on a 32-bit pointer machine

 //#define DEFAULT_POINTER_TYPE_SIZE (sizeof(void *)) // could be 4 or 8 or sizeof(pointer)

 #define DEFAULT_POINTER_TYPE_SIZE (8)

 #define DEFAULT_UNSIGNED_TYPE_SIZE (1) // type_size/10==1

 #define DEFAULT_SIGNED_TYPE_SIZE (2) // type_size/10=2


 /* The standard C integer types are represented as follow

 char                   = 1

 short_int              = 2

 int                    = 4

 long_int               = 6

 long_long_int          = 8

 __int128_t             = 9 (gcc extension)


 unsigned_char          = 11

 unsigned_short_int     = 12

 unsigned_int           = 14

 unsigned_long_int      = 16

 unsigned_long_long_int = 18

 __uint128_t            = 19 (gcc extension)


 signed_char            = 21

 signed_short_int       = 22

 signed_int             = 24

 signed_long_int        = 26

 signed_long_long_int   = 28


 mod(i,10) refers to the basic size and div(i,10) refers that

 the variable is unsigned, signed or not */


 #define DEFAULT_REAL_TYPE_SIZE (4)

 #define DEFAULT_DOUBLEPRECISION_TYPE_SIZE (8)

 #define DEFAULT_QUADPRECISION_TYPE_SIZE (16)

 #define DEFAULT_COMPLEX_TYPE_SIZE (8)

 #define DEFAULT_DOUBLECOMPLEX_TYPE_SIZE (16)

 #define DEFAULT_LONGDOUBLECOMPLEX_TYPE_SIZE (32)

 #define DEFAULT_LOGICAL_TYPE_SIZE (4)


 /* Already defined */

 //#define DEFAULT_POINTER_TYPE_SIZE (4)


 /* package name for region variables */

 #define REGIONS_MODULE_NAME "REGIONS-PACKAGE"


 /* Implicit variables to handle IO effetcs */

 /* package name for io routines */

 #define IO_EFFECTS_PACKAGE_NAME "__IO_EFFECTS"

 /* package name for time routines */

 #define TIME_EFFECTS_PACKAGE_NAME "__TIME_EFFECTS"

 /* package name for random routines */

 #define RAND_EFFECTS_PACKAGE_NAME "_RANDOM_EFFECTS"

 /* variable name for random unit */

 #define RAND_GEN_EFFECTS_NAME "GEN_SEED"

 /* package name for malloc routines (could be libc package) */

 #define MALLOC_EFFECTS_PACKAGE_NAME "_MALLOC_EFFECTS"

 /* variable name for heap effects */

 #define MALLOC_EFFECTS_NAME "_MALLOC_"

 /* package name for memmove routines */

 #define MEMMOVE_EFFECTS_PACKAGE_NAME "_MEMMOVE_EFFECTS"

 /* variable name for memmove unit */

 #define MEMMOVE_EFFECTS_NAME "_MEMMOVE_"

 /* array of Logical UNits; it is more or less handled as the current file pointer; in C, used for open, close, read, write... */

 #define IO_EFFECTS_ARRAY_NAME "LUNS"

 /* Array of struct io_files pointed to by pointers returned by fopen

    and used by fclose, fscanf, fprintf... */

 #define IO_EFFECTS_IO_FILE_NAME "IO_FILES"

 /* To express C IO intrinsics effects */

 #define IO_EFFECTS_PTR_NAME "_C_IO_ptr"

 /* array of end of file codes */

 #define IO_EOF_ARRAY_NAME "END_LUNS"

 /* array of error codes for LUNs */

 #define IO_ERROR_ARRAY_NAME "ERR_LUNS"

 /* variable holding time effects */

 #define TIME_EFFECTS_VARIABLE_NAME "KALI" /* Kali is the goddess of time in the Hindu mythology */

 #define TIME_EFFECTS_BUFFER_NAME "KALI-BUFFER" /* Kali is the goddess of time in the Hindu mythology */

 /* size of the unit specifier */

 #define IO_EFFECTS_UNIT_SPECIFIER_LENGTH 4

 /* Standard unit numbers depend on the operating system. Here are UNIX definitions. */

 #define STDERR_LUN (0)

 #define STDERR_NAME "stderr"

 #define ENTITY_STDERR_P(e) entity_a_special_entity_p(e, STDERR_NAME)

 #define STDIN_LUN (5)

 #define STDIN_NAME "stdin"

 #define ENTITY_STDIN_P(e) entity_a_special_entity_p(e, STDIN_NAME)

 #define STDOUT_LUN (6)

 #define STDOUT_NAME "stdout"

 #define ENTITY_STDOUT_P(e) entity_a_special_entity_p(e, STDOUT_NAME)


 /*Symbolic constants for the file descriptors belonging to the standard streams: unistd.h */

 #if !defined(HAVE_UNISTD_H) && !defined(_UNISTD_H)

 #define STDIN_FILENO (0)

 #define STDOUT_FILENO (1)

 #define STDERR_FILENO (2)

 #endif


 /* Implicit variable names for C */


 #define IMPLICIT_VARIABLE_NAME_1 "__FUNCTION__"

 #define IMPLICIT_VARIABLE_NAME_2 "__func__"


 /* Empty comments (i.e. default comments) */

 /* FI: this is a poor choice as the statements won't be gen_defined_p

    and as strdup() won't be usable without an extra test. Would it be

    so bad to use strdup(""); as empty_comments? */

 #define empty_comments string_undefined


 /** An alias for make_empty_block_statement */

 #define make_empty_statement make_empty_block_statement


 /** An alias for make_empty_block_statement */

 #define make_nop_statement make_empty_block_statement


 /* \addtogroup control_visitors */


 /* @{ */

 /* Macro to walk through all the controls reachable from a given control

   node of an unstructured


   Reachability is defined by successors and predecessors (i.e. the control

   flow graph is seen as non-directed)


   @param ctl is a name of a control node variable that is declared inside

   this macro and is used by the following code to access the visited

   control node


   @param code is the actions to execute on the visited control node


   @param c is a control node to start visiting with


   @param list is a list that will store the visited control nodes. It is

   used mainly for this macro to avoid visiting twice a node. The simple

   usage is to give a list variable initialized to NIL. A nice side effect

   is that it will contain the list of all the reachable control nodes. Do

   not forget to free this list afterwards. Another classical usage is to

   give to the macro a list with a list of nodes to avoid visiting.

 */

 #define CONTROL_MAP( ctl, code, c, list )                               \

   do {                                                                  \

     GENERIC_CONTROL_MAP( control_map_get_blocs, ctl, code, c, list )    \

       } while(0)


 /* Walk through all the controls of un unstructured


   This macro do not work indeed because often the...


   The nodes are those reachable from the entry node and also from the exit

   node (that may be unreachable from the entry node of th unstructured).


   Reachability is defined by successors and predecessors (i.e. the control

   flow graph is seen as non-directed)


   @param c is a name of a control node variable that is declared inside

   this macro and is used by the following code to access the visited

   control node


   @param code is the actions to execute on the visited control node


   @param u is the unstructured to visit


   @param l is a list that will store the visited control nodes. It is used

   mainly for this macro to avoid visiting twice a node. The simple usage

   is to give a list variable initialized to NIL. A nice side effect is

   that it will contain the list of all the reachable control nodes. Do not

   forget to free this list afterwards. Another classical usage is to give

   to the macro a list with a list of nodes to avoid visiting.

 */

 #define UNSTRUCTURED_CONTROL_MAP(c, u, l, code)                         \

   /* The implementation is sub-optimal because it duplicates the        \

      code... */                                                         \

   do {                                                                  \

     /* First get the control nodes reachable from the entry node: */    \

     control_map_get_blocs(unstructured_entry(u), &l);                   \

     /* Add then the control nodes reachable from the exit nodes if not  \

        already in: */                                                   \

     control_map_get_blocs(unstructured_exit(u), &l);                    \

     /* Reverse the list because previous construction was done in the   \

        reverse way: */                                                  \

     l = gen_nreverse(l);                                                \

     /* Iterate on all the selected control nodes: */                    \

     FOREACH(CONTROL, c, l)                                              \

       code                                                              \

   } while(0)


 /* Walk through all the controls forward-reachable from a given control

   node of an unstructured


   Reachability is defined by successor-only relation (i.e. the control

   flow graph is seen as directed)


   @param ctl is a name of a control node variable that is declared inside

   this macro and is used by the following code to access the visited

   control node


   @param code is the actions to execute on the visited control node


   @param c is a control node to start visiting with


   @param list is a list that will store the visited control nodes. It is

   used mainly for this macro to avoid visiting twice a node. The simple

   usage is to give a list variable initialized to NIL. A nice side effect

   is that it will contain the list of all the forward-reachable control

   nodes. Do not forget to free this list afterwards. Another classical

   usage is to give to the macro a list with a list of nodes to avoid

   visiting.

 */

 #define FORWARD_CONTROL_MAP( ctl, code, c, list )                       \

   do {                                                                  \

     GENERIC_CONTROL_MAP( forward_control_map_get_blocs, ctl, code, c, list ) \

       } while(0)


 /* Walk through all the controls backward-reachable from a given control

   node of an unstructured


   Reachability is defined by predecessor-only relation (i.e. the control

   flow graph is seen as directed)


   @param ctl is a name of a control node variable that is declared inside

   this macro and is used by the following code to access the visited

   control node


   @param code is the actions to execute on the visited control node


   @param c is a control node to start visiting with


   @param list is a list that will store the visited control nodes. It is

   used mainly for this macro to avoid visiting twice a node. The simple

   usage is to give a list variable initialized to NIL. A nice side effect

   is that it will contain the list of all the backward-reachable control

   nodes. Do not forget to free this list afterwards. Another classical

   usage is to give to the macro a list with a list of nodes to avoid

   visiting.

 */

 #define BACKWARD_CONTROL_MAP( ctl, code, c, list )                      \

   do {                                                                  \

     GENERIC_CONTROL_MAP( backward_control_map_get_blocs, ctl, code, c, list ) \

     } while(0)


 /* Walk through all the controls backward-reachable from a given control

   node of an unstructured


   Reachability is defined by successor-only relation (i.e. the control

   flow graph is seen as directed)


   @param ctl is a name of a control node variable that is declared inside

   this macro and is used by the following code to access the visited

   control node


   @param code is the actions to execute on the visited control node


   @param c is a control node to start visiting with


   @param list is a list that will store the visited control nodes. It is

   used mainly for this macro to avoid visiting twice a node. The simple

   usage is to give a list variable initialized to NIL. A nice side effect

   is that it will contain the list of all the reachable control nodes. Do

   not forget to free this list afterwards. Another classical usage is to

   give to the macro a list with a list of nodes to avoid visiting.

 */

 #define WIDE_FORWARD_CONTROL_MAP( ctl, code, c, list )          \

    do {                                                         \

      GENERIC_CONTROL_MAP(wide_forward_control_map_get_blocs,    \

                          ctl, code, c, list )                   \

      } while(0)


 /* The control node visiting engine. */

 #define GENERIC_CONTROL_MAP( get_controls, ctl, code, c, list ) \

 { \

     cons *_cm_list_init = (list) ; \

     cons *_cm_list = _cm_list_init ; \

     if( _cm_list == NIL ) {\

          get_controls( c, &_cm_list ) ; \

          _cm_list = gen_nreverse( _cm_list ) ; \

     }\

     MAPL( _cm_ctls, {control ctl = CONTROL( CAR( _cm_ctls )) ; \

  \

                  code ;}, \

           _cm_list ) ; \

    if( _cm_list_init == NIL ) \

         list = _cm_list ; \

 }


 /** @} */


 /** @defgroup phase_definition Functions used to define phases


     It defines macros for simple transformation phases that use (at least)

     the CODE of a module and write back a (possibly) new version of the

     CODE.


     @{

 */


 /** Start a phase that use a module CODE


  @param module_name is a string with the name of the module the phase is

  applied to


  @param debug_env_var is a string with the name of the environment variable used to get the debug level to use inside the phase


  @return the statement of the module

 */

 #define PIPS_PHASE_PRELUDE(module_name, debug_env_var)                \

   /* Get and return the CODE resource of the module and define this   \

      module as the current one at the same time to avoid introducing    \

      a new variable: */                                               \

   set_current_module_statement((statement)                            \

                                db_get_memory_resource(DBR_CODE,       \

                                                       module_name,    \

                                                       true));         \

                                                                       \

   /* Set the current module entity required to have many things       \

      working in PIPS: */                                              \

   set_current_module_entity(module_name_to_entity(module_name));      \

                                                                       \

   /* The debug is now controled by this environment variable name: */   \

   debug_on(debug_env_var);                                            \

   pips_debug(1, "Entering...\n");                                     \

   pips_assert("Statement should be OK at entry...",                   \

               statement_consistent_p(get_current_module_statement()))


 /** End a transformation phase by putting back into PIPS the (possibly)

     modified statement


     @param new_module_statement point to the (potentially) new module

     statement of the module

  */

 #define PIPS_PHASE_POSTLUDE(new_module_statement)                       \

   pips_assert("Statement should be OK at exit...",                      \

               statement_consistent_p(new_module_statement));            \

   pips_debug(1, "done\n");                                              \

   /* Exit current debug context */                                      \

   debug_off();                                                          \

                                                                         \

   /* Reorder the module, because some statements have been replaced. */ \

   module_reorder(new_module_statement);                                 \

                                                                         \

   /* Put the new CODE ressource into PIPS: */                           \

   DB_PUT_MEMORY_RESOURCE(DBR_CODE,                                      \

                          get_current_module_name(),                     \

                          new_module_statement);                         \

                                                                         \

   /* There is no longer a current module: */                            \

   reset_current_module_statement();                                     \

   reset_current_module_entity();                                        \

                                                                         \

   /* Assume it should have worked by returning true... */               \

   return true


 /** @} */


 /* polymorhism thanks to newgen ! */

 #define INSTANCE_OF(type,value) ( (_int)((value)->u) == (_int)(type##_domain) )


 #define binary_call_lhs(c) (EXPRESSION(CAR(call_arguments((c)))))

 #define binary_call_rhs(c) (EXPRESSION(CAR(CDR(call_arguments((c))))))

 #define expression_scalar_p(e) (expression_reference_p((e)) && reference_scalar_p(expression_reference((e))))

 #define hash_contains_p(htp, key) (hash_get(htp, key) != HASH_UNDEFINED_VALUE)


 enum range_to_expression_mode{

     range_to_distance,

     range_to_nbiter

 } ;

 #define range_to_distance_p(e) ((e) == range_to_distance)

 #define range_to_nbiter_p(e) ((e) == range_to_nbiter)


 #define GENERATED_LABEL_MODULE_NAME "__GENSYM"


 /* that is all for ri-util-local.h

  */


 typedef enum {

   IGNORE_IF_POLICY,

   AND_IF_POLICY,

   OR_IF_POLICY

 } if_clause_policy;


 /* for intrinsic registration */

 typedef struct {

     list (*f)(call,int,bool,list*);

     int prec;

 } intrinsic_desc_t;


 enum {

     DEFAULT_ENTITY_KIND = 0,

     EFFECTS_PACKAGE = 1,

     ABSTRACT_LOCATION = 2,

     ENTITY_STACK_AREA = 4,

     ENTITY_HEAP_AREA = 8,

     ENTITY_DYNAMIC_AREA = 16,

     ENTITY_STATIC_AREA = 32,

     ENTITY_POINTER_DUMMY_TARGETS_AREA = 64,

     ENTITY_FORMAL_AREA = 128,

 };


 #define make_entity(n,t,s,i) make_entity(n,t,s,i,DEFAULT_ENTITY_KIND)


 /* SPIRE API */

 #define SEND_FUNCTION_NAME                        "send"

 #define RECV_FUNCTION_NAME                        "recv"

 #define SIGNAL_FUNCTION_NAME                      "signal"

 #define WAIT_FUNCTION_NAME                        "wait"


 /*MPI calls*/

 #define MPI_INIT_FUNCTION_NAME "MPI_Init"

 #define MPI_FINALIZE_FUNCTION_NAME "MPI_Finalize"

 #define MPI_ISEND_FUNCTION_NAME "MPI_Isend"

 #define MPI_RECV_FUNCTION_NAME "MPI_Recv"

 #define MPI_BARRIER_FUNCTION_NAME "MPI_Barrier"

 //not use yet

 #define MPI_COMM_SIZE_FUNCTION_NAME "MPI_Comm_size"

 #define MPI_COMM_RANK_FUNCTION_NAME "MPI_Comm_rank"

 #define MPI_SEND_FUNCTION_NAME "MPI_Send"             //implementation dependent

 #define MPI_SSEND_FUNCTION_NAME "MPI_Ssend"           //Synchronous send

 #define MPI_RSEND_FUNCTION_NAME "MPI_Rsend"           //Ready send

 #define MPI_BSEND_FUNCTION_NAME "MPI_Bsend"           //Buffer send

 #define MPI_ISEND_FUNCTION_NAME "MPI_Isend"           //non blocking version

 #define MPI_ISSEND_FUNCTION_NAME "MPI_Issend"

 #define MPI_IRSEND_FUNCTION_NAME "MPI_Irsend"

 #define MPI_IBSEND_FUNCTION_NAME "MPI_Ibsend"

 #define MPI_RECV_FUNCTION_NAME "MPI_Recv"

 #define MPI_IRECV_FUNCTION_NAME "MPI_Irecv"

 //#define MPI_MRECV_FUNCTION_NAME "MPI_Mrecv"           //match Receive - MPI3.0

 //#define MPI_IMRECV_FUNCTION_NAME "MPI_Imrecv"

 #define MPI_SENDRECV_FUNCTION_NAME "MPI_Sendrecv"


 /*MPI types*/

 #define MPI_STATUS "MPI_Status"

 #define MPI_REQUEST "MPI_Request"

 #define MPI_COMM "MPI_Comm"

 #define MPI_DATATYPE "MPI_Datatype"


 /* intrinsic entity declarations */

 #define ENTITY_SEND_P(e)              ENTITY_NAME_P(e, "send")


 // for new entities

 extern list integer_entities, real_entities, complex_entities,

   logical_entities, double_entities, char_entities;

 /* cproto-generated files */

 /* eval.c */

 extern value EvalExpression(expression /*e*/);

 extern value EvalSyntax(syntax /*s*/);

 extern value EvalCall(call /*c*/);

 extern value EvalSizeofexpression(sizeofexpression /*soe*/);

 extern value EvalConstant(constant /*c*/);

 extern value EvalIntrinsic(entity /*e*/, list /*la*/);

 extern value EvalConditionalOp(list /*la*/);

 extern value EvalUnaryOp(int /*t*/, list /*la*/);

 extern value EvalBinaryOp(int /*t*/, list /*la*/);

 extern value EvalNaryOp(int /*t*/, list /*la*/);

 extern int IsUnaryOperator(entity /*e*/);

 extern int IsBinaryOperator(entity /*e*/);

 extern int IsNaryOperator(entity /*e*/);

 extern int ipow(int /*vg*/, int /*vd*/);

 extern bool expression_integer_value(expression /*e*/, intptr_t */*pval*/);

 extern bool expression_negative_integer_value_p(expression /*e*/);

 extern bool positive_expression_p(expression /*e*/);

 extern bool negative_expression_p(expression /*e*/);

 extern bool expression_linear_p(expression /*e*/);

 extern expression range_to_expression(range /*r*/, enum range_to_expression_mode mode);

 extern bool range_count(range /*r*/, intptr_t */*pcount*/);

 extern Pvecteur vect_product(Pvecteur */*pv1*/, Pvecteur */*pv2*/);

 extern reference constant_reference_to_normalized_constant_reference(reference /*cr*/);

 extern expression normalize_integer_constant_expression(expression /*e*/);

 /* size.c */

 extern int number_of_initial_values(list /*args*/);

 extern bool SizeOfArray(entity /*e*/, int */*s*/);

 extern int array_size(entity /*a*/);

 extern Value ValueSizeOfArray(entity /*e*/);

 extern int CSafeSizeOfArray(entity /*a*/);

 extern int entity_memory_size(entity /*dt*/);

 extern int type_memory_size(type /*t*/);

 extern _int SizeOfElements(basic /*b*/);

 extern int element_number(basic /*b*/, list /*ld*/);

 extern bool NumberOfElements(basic /*b*/, list /*ld*/, int */*n*/);

 extern Value ValueNumberOfElements(list /*ld*/);

 extern int SizeOfIthDimension(entity /*e*/, int /*i*/);

 extern int dimension_size(dimension /*d*/);

 extern expression SizeOfDimension(dimension /*d*/);

 extern expression SizeOfDimensions(list /*dims*/);

 extern Value ValueSizeOfDimension(dimension /*d*/);

 extern int ExpressionToInt(expression /*e*/);

 extern int NumberOfDimension(entity /*e*/);

 extern void set_entity_to_size(void);

 extern void reset_entity_to_size(void);

 extern void safe_reset_entity_to_size(void);

 extern int storage_space_of_variable(entity /*v*/);

 extern bool variable_entities_may_conflict_p(entity /*e1*/, entity /*e2*/);

 /* pragma.c */

 extern const string FORTRAN_PRAGMA_HEADER;

 extern const string FORTRAN_OMP_CONTINUATION;

 extern expression pragma_build_if_condition(expression /*cond*/, language /*l*/);

 extern expression pragma_if_as_expr(expression /*arg*/);

 extern expression pragma_private_as_expr_with_args(list /*args_expr*/);

 extern expression pragma_private_as_expr(list /*args_ent*/);

 extern list pragma_omp_parallel_as_exprs(void);

 extern list pragma_omp_parallel_for_as_exprs(void);

 extern list filter_variables_in_pragma_expr(list /*l_expr*/, list /*to_filter*/);

 extern list pragma_omp_merge_expr(list /*outer_extensions*/, list /*l_pragma*/, language /*l*/);

 extern void add_pragma_str_to_statement(statement /*st*/, const char */*s*/, bool /*copy_flag*/);

 extern void add_pragma_strings_to_statement(statement /*st*/, list /*l*/, bool /*copy_flag*/);

 extern void add_pragma_expr_to_statement(statement /*st*/, list /*l*/);

 /* extension.c */

 extern extensions empty_extensions(void);

 extern bool empty_extensions_p(extensions /*es*/);

 /* area.c */

 extern entity DynamicArea;

 extern entity StaticArea;

 extern entity HeapArea;

 extern entity StackArea;

 extern entity AllocatableArea;

 extern bool allocatable_area_p(entity /*aire*/);

 extern bool dynamic_area_p(entity /*aire*/);

 extern bool static_area_p(entity /*aire*/);

 extern bool heap_area_p(entity /*aire*/);

 extern bool formal_area_p(entity /*aire*/);

 extern bool stack_area_p(entity /*aire*/);

 extern bool pointer_dummy_targets_area_p(entity /*aire*/);

 extern entity module_to_heap_area(entity /*f*/);

 extern entity module_to_dynamic_area(entity /*f*/);

 extern bool entity_area_p(entity /*e*/);

 extern bool entity_special_area_p(entity /*e*/);

 extern int current_offset_of_area(entity /*a*/, entity /*v*/);

 extern bool empty_static_area_p(entity /*e*/);

 extern void print_common_layout(FILE */*fd*/, entity /*c*/, bool /*debug_p*/);

 /* util.c */

 extern entity find_label_entity(const char */*module_name*/, const char */*label_local_name*/);

 extern string module_codefilename(entity /*e*/);

 extern string module_par_codefilename(entity /*e*/);

 extern string module_fortranfilename(entity /*e*/);

 extern string module_par_fortranfilename(entity /*e*/);

 extern string module_pp_fortranfilename(entity /*e*/);

 extern string module_predicat_fortranfilename(entity /*e*/);

 extern string module_entitiesfilename(entity /*e*/);

 extern entity find_ith_parameter(entity /*e*/, int /*i*/);

 extern bool ith_parameter_p(entity /*f*/, entity /*v*/, int /*i*/);

 extern expression reference_ith_index(reference /*ref*/, int /*i*/);

 extern bool comment_string_p(const string /*comment*/);

 extern string string_remove_trailing_line_feed(string /*s*/);

 extern string string_remove_trailing_line_feeds(string /*s*/);

 extern string string_strip_final_linefeeds(string /*s*/);

 extern string string_fuse_final_linefeeds(string /*s*/);

 /* ordering.c */

 extern bool ordering_to_statement_initialized_p(void);

 extern void print_ordering_to_statement(void);

 extern statement ordering_to_statement(int /*o*/);

 extern bool add_ordering_of_the_statement_to_current_mapping(statement /*stat*/);

 extern bool overwrite_ordering_of_the_statement_to_current_mapping(statement /*stat*/);

 extern hash_table set_ordering_to_statement(statement /*s*/);

 extern void reset_ordering_to_statement(void);

 /* declarations.c */

 extern void check_fortran_declaration_dependencies(list /*ldecl*/);

 extern list get_common_members(entity /*common*/, entity /*module*/, bool /*only_primary*/);

 extern void print_C_common_layout(FILE */*fd*/, entity /*c*/, bool /*debug_p*/);

 extern void fprint_functional(FILE */*fd*/, functional /*f*/);

 extern void fprint_environment(FILE */*fd*/, entity /*m*/);

 extern void fprint_C_environment(FILE */*fd*/, entity /*m*/);

 extern void fprint_any_environment(FILE */*fd*/, entity /*m*/, bool /*is_fortran*/);

 extern void split_initializations_in_statement(statement /*s*/);

 extern void dump_functional(functional /*f*/, string_buffer /*result*/);

 /* loop.c */

 extern int Nbrdo;

 extern bool enclosing_loops_map_undefined_p(void);

 extern void set_enclosing_loops_map(statement_mapping /*m*/);

 extern statement_mapping get_enclosing_loops_map(void);

 extern void reset_enclosing_loops_map(void);

 extern void free_enclosing_loops_map(void);

 extern void make_enclosing_loops_map(void);

 extern list load_statement_enclosing_loops(statement /*s*/);

 extern void delete_statement_enclosing_loops(statement /*s*/);

 extern bool statement_enclosing_loops_undefined_p(statement /*s*/);

 extern void store_statement_enclosing_loops(statement /*s*/, list /*t*/);

 extern void update_statement_enclosing_loops(statement /*s*/, list /*t*/);

 extern void clean_enclosing_loops(void);

 extern statement_mapping loops_mapping_of_statement(statement /*stat*/);

 extern set distributable_loop(statement /*l*/);

 extern bool index_private_p(loop /*lo*/);

 extern set region_of_loop(statement /*l*/);

 extern void region_of_statement(statement /*stat*/, set /*region*/);

 extern list loop_private_variables_as_entites(loop /*obj*/, bool /*local*/, bool /*index*/);

 extern void sort_all_loop_locals(statement /*s*/);

 extern bool loop_parallel_p(loop /*l*/);

 extern bool loop_sequential_p(loop /*l*/);

 extern bool parallel_loop_statement_p(statement /*s*/);

 extern int depth_of_parallel_perfect_loop_nest(statement /*s*/);

 extern int depth_of_perfect_loop_nest(statement /*s*/);

 extern statement get_first_inner_perfectly_nested_loop(statement /*stat*/);

 extern bool perfectly_nested_loop_p(statement /*stat*/);

 extern statement perfectly_nested_loop_to_body(statement /*loop_nest*/);

 extern statement perfectly_nested_loop_to_body_at_depth(statement /*s*/, int /*depth*/);

 extern entity perfectly_nested_loop_index_at_depth(statement /*s*/, int /*depth*/);

 extern int loop_increment_value(loop /*l*/);

 extern bool constant_step_loop_p(loop /*l*/);

 extern bool normal_loop_p(loop /*l*/);

 extern void number_of_sequential_and_parallel_loops(statement /*stat*/, int */*pseq*/, int */*ppar*/);

 extern void print_number_of_loop_statistics(FILE */*out*/, string /*msg*/, statement /*s*/);

 extern void print_parallelization_statistics(const char */*module*/, const char */*msg*/, statement /*s*/);

 extern list copy_loops(list /*ll*/);

 extern statement make_new_loop_statement(entity /*i*/, expression /*low*/, expression /*up*/, expression /*inc*/, statement /*b*/, execution /*e*/);

 extern list statement_to_loop_statement_list(statement /*s*/);

 extern bool range_contains_at_least_one_point_p(range /*r*/);

 extern bool loop_executed_at_least_once_p(loop /*l*/);

 extern bool range_contains_nothing_p(range /*r*/);

 extern bool loop_executed_never_p(loop /*l*/);

 extern bool index_of_a_loop_p(Variable /*v*/, list /*loops*/);

 /* fortran90.c */

 extern expression update_range(entity /*f*/, range /*r*/, expression /*lw*/, expression /*up*/, expression /*in*/, bool /*left*/);

 /* constant.c */

 extern int DefaultLengthOfBasic(tag /*t*/);

 extern bool integer_constant_name_p(string /*name*/);

 extern _int TK_CHARCON_to__int(const char */*name*/);

 extern entity make_C_or_Fortran_constant_entity(const char */*name*/, tag /*bt*/, size_t /*size*/, bool /*is_fortran*/, bool (* /*error_manager*/)(const char *, const char *));

 extern entity make_constant_entity(string /*name*/, tag /*bt*/, size_t /*size*/);

 extern entity SafeMakeConstant(string /*name*/, tag /*bt*/, bool (* /*error_manager*/)(const char *, const char *));

 extern entity MakeConstant(string /*name*/, tag /*bt*/);

 extern bool constant_string_entity_p(entity /*e*/);

 extern entity MakeComplexConstant(expression /*r*/, expression /*i*/);

 extern expression MakeComplexConstantExpression(expression /*r*/, expression /*i*/);

 extern bool complex_constant_expression_p(expression /*cce*/);

 extern entity float_to_entity(float /*c*/);

 extern entity int_to_entity(_int /*c*/);

 extern bool logical_constant_p(entity /*ent*/);

 extern bool float_constant_p(entity /*ent*/);

 extern bool integer_constant_p(entity /*ent*/, int */*int_p*/);

 extern bool integer_symbolic_constant_p(entity /*ent*/, int */*int_p*/);

 extern expression MakeCharacterConstantExpression(string /*s*/);

 extern value MakeValueSymbolic(expression /*e*/);

 extern bool signed_constant_expression_p(expression /*e*/);

 extern basic constant_basic(entity /*c*/);

 extern double float_constant_to_double(entity /*c*/);

 extern bool expression_is_constant_p(expression /*e*/);

 /* constraint.c */

 extern void vect_debug(Pvecteur /*v*/);

 extern int compare_Pvecteur(Pvecteur */*pv1*/, Pvecteur */*pv2*/);

 extern bool vecteur_nul_p(Pvecteur /*v*/);

 /* bound_generation.c */

 extern int bound_generation_compare_vector_component(Pvecteur */*pv1*/, Pvecteur */*pv2*/);

 extern void make_bound_expression(Variable /*index*/, Pbase /*base*/, Psysteme /*sc*/, expression */*lower*/, expression */*upper*/);

 /* entity.c */

 extern void set_std_static_entities(void);

 extern void set_internal_static_entities(void);

 extern void reset_internal_static_entities(void);

 extern void reset_std_static_entities(void);

 extern void reset_static_entities(void);

 extern void register_static_entity(entity */*e*/);

 extern void print_entities(list /*l*/);

 extern void print_entity_set(set /*s*/);

 extern entity make_empty_module(const char */*full_name*/, type /*r*/, language /*l*/);

 extern entity make_empty_program(const char */*name*/, language /*l*/);

 extern entity make_empty_subroutine(const char */*name*/, language /*l*/);

 extern entity make_empty_f95module(const char */*name*/, language /*l*/);

 extern entity make_empty_function(const char */*name*/, type /*r*/, language /*l*/);

 extern entity make_empty_blockdata(const char */*name*/, language /*l*/);

 extern code EntityCode(entity /*e*/);

 extern entity make_label(const char */*module_name*/, const char */*local_name*/);

 extern void reset_label_counter(void);

 extern char *new_label_local_name(entity /*module*/);

 extern entity make_new_label(entity /*module*/);

 extern entity make_loop_label(int /*desired_number*/, entity /*module*/);

 extern bool label_defined_in_statement_p(entity /*l*/, statement /*s*/);

 extern bool label_defined_in_current_module_p(entity /*l*/);

 extern bool label_string_defined_in_current_module_p(string /*ls*/);

 extern bool label_string_defined_in_statement_p(string /*ls*/, statement /*s*/);

 extern string safe_entity_name(entity /*e*/);

 extern const char *entity_local_name(entity /*e*/);

 extern string entity_global_name(entity /*e*/);

 extern const char *entity_user_name(entity /*e*/);

 extern string empty_scope(void);

 extern bool empty_scope_p(string /*s*/);

 extern bool string_struct_scope_p(string /*s*/);

 extern bool string_block_scope_p(string /*s*/);

 extern string entity_name_without_scope(entity /*e*/);

 extern string local_name_to_scope(const char */*ln*/);

 extern const char *module_local_name(entity /*e*/);

 extern const char *module_resource_name(entity /*e*/);

 extern const char *label_local_name(entity /*e*/);

 extern bool label_name_conflict_with_labels(const char */*n*/, list /*ll*/);

 extern const char *entity_name_or_TCST(entity /*e*/);

 extern const char *entity_and_common_name(entity /*e*/);

 extern bool entity_empty_label_p(entity /*e*/);

 extern bool entity_return_label_p(entity /*e*/);

 extern bool entity_label_p(entity /*e*/);

 extern bool entity_module_p(entity /*e*/);

 extern bool entity_f95use_p(entity /*e*/);

 extern bool entity_main_module_p(entity /*e*/);

 extern bool entity_f95module_p(entity /*e*/);

 extern bool entity_blockdata_p(entity /*e*/);

 extern bool entity_common_p(entity /*e*/);

 extern bool entity_function_p(entity /*e*/);

 extern bool entity_subroutine_p(entity /*e*/);

 extern bool entity_pointer_p(entity /*e*/);

 extern bool entity_array_p(entity /*e*/);

 extern bool entity_register_p(entity /*e*/);

 extern void set_register_qualifier(entity /*v*/);

 extern bool array_entity_p(entity /*e*/);

 extern bool entity_variable_length_array_p(entity /*e*/);

 extern bool assumed_size_array_p(entity /*e*/);

 extern bool pointer_type_array_p(entity /*e*/);

 extern bool unnormalized_array_p(entity /*e*/);

 extern bool entity_field_p(entity /*e*/);

 extern entity entity_field_to_entity_struct(entity /*f*/);

 extern entity entity_field_to_entity_union(entity /*f*/);

 extern entity entity_field_to_entity_struct_or_union(entity /*f*/);

 extern int entity_field_rank(entity /*f*/);

 extern bool entity_enum_p(entity /*e*/);

 extern bool entity_enum_member_p(entity /*e*/);

 extern bool entity_enum_variable_p(entity /*e*/);

 extern bool entity_struct_p(entity /*e*/);

 extern bool same_struct_entity_p(const entity /*e0*/, const entity /*e1*/);

 extern bool same_field_entity_p(const entity /*f1*/, const entity /*f2*/);

 extern bool entity_union_p(entity /*e*/);

 extern bool derived_entity_p(entity /*e*/);

 extern bool local_entity_of_module_p(entity /*e*/, entity /*module*/);

 extern bool entity_in_common_p(entity /*e*/);

 extern const char *entity_module_name(entity /*e*/);

 extern code entity_code(entity /*e*/);

 extern entity entity_empty_label(void);

 extern bool top_level_entity_p(entity /*e*/);

 extern bool io_entity_p(entity /*e*/);

 extern bool io_luns_entity_p(entity /*e*/);

 extern bool rand_effects_entity_p(entity /*e*/);

 extern bool malloc_effect_entity_p(entity /*e*/);

 extern bool memmove_effect_entity_p(entity /*e*/);

 extern bool time_effect_entity_p(entity /*e*/);

 extern bool effects_package_entity_p(entity /*e*/);

 extern entity get_stdin_entity(void);

 extern bool stdin_entity_p(entity /*e*/);

 extern entity get_stdout_entity(void);

 extern bool stdout_entity_p(entity /*e*/);

 extern entity get_stderr_entity(void);

 extern bool stderr_entity_p(entity /*e*/);

 extern bool std_file_entity_p(entity /*e*/);

 extern entity std_file_entity_to_pointed_file_entity(entity /*e*/);

 extern bool intrinsic_entity_p(entity /*e*/);

 extern bool symbolic_entity_p(entity /*e*/);

 extern bool intrinsic_name_p(const char */*local_name*/);

 extern entity entity_intrinsic(const char */*name*/);

 extern entity CreateIntrinsic(string /*name*/);

 extern bool same_entity_p(entity /*e1*/, entity /*e2*/);

 extern int compare_entities(const entity */*pe1*/, const entity */*pe2*/);

 extern void sort_list_of_entities(list /*l*/);

 extern bool lexicographic_order_p(entity /*var1*/, entity /*var2*/);

 extern basic entity_basic(entity /*e*/);

 extern list entity_qualifiers(entity /*e*/);

 extern bool entity_basic_p(entity /*e*/, enum basic_utype /*basictag*/);

 extern bool entity_list_p(list /*el*/);

 extern entity local_name_to_top_level_entity(const char */*n*/);

 extern entity module_name_to_entity(const char */*mn*/);

 extern entity module_name_to_runtime_entity(const char */*name*/);

 extern entity FindEntity(const char */*package*/, const char */*name*/);

 extern entity global_name_to_entity(const char */*name*/);

 extern entity FindEntityFromUserName(const char */*package*/, const char */*name*/);

 extern entity CreateEntity(const char */*package_name*/, const char */*local_name*/);

 extern entity FindOrCreateEntity(const char */*package*/, const char */*local_name*/);

 extern entity FindOrCreateTopLevelEntity(const char */*name*/);

 extern expression entity_ith_bounds(entity /*e*/, int /*i*/);

 extern bool io_intrinsic_p(entity /*e*/);

 extern bool arithmetic_intrinsic_p(entity /*e*/);

 extern entity get_continue_entity(void);

 extern bool entity_continue_p(entity /*f*/);

 extern list common_members_of_module(entity /*common*/, entity /*module*/, bool /*only_primary*/);

 extern entity make_new_common(string /*name*/, entity /*mod*/);

 extern entity make_new_integer_scalar_common_variable(string /*name*/, entity /*mod*/, entity /*com*/);

 extern entity find_ith_formal_parameter(entity /*the_fnct*/, int /*rank*/);

 extern list string_to_entity_list(string /*module*/, string /*names*/);

 extern bool typedef_entity_p(entity /*e*/);

 extern bool member_entity_p(entity /*e*/);

 extern bool entity_formal_p(entity /*p*/);

 extern bool dummy_parameter_entity_p(entity /*p*/);

 extern entity MakeCompilationUnitEntity(const char */*name*/);

 extern bool extern_entity_p(entity /*module*/, entity /*e*/);

 extern bool explicit_extern_entity_p(entity /*module*/, entity /*e*/);

 extern string storage_to_string(storage /*s*/);

 extern entity entity_to_module_entity(entity /*e*/);

 extern void update_dummy_parameter(parameter /*p*/, entity /*ep*/);

 extern bool parameter_passing_mode_p(entity /*f*/, int tag);

 extern bool parameter_passing_by_value_p(entity /*f*/);

 extern bool parameter_passing_by_reference_p(entity /*f*/);

 extern char *AddPackageToName(string /*p*/, string /*n*/);

 extern entity update_operator_to_regular_operator(entity /*op*/);

 extern bool entity_equivalence_p(entity /*e*/);

 extern bool same_entity_name_p(entity /*e1*/, entity /*e2*/);

 extern bool entity_in_list_p(entity /*ent*/, list /*ent_l*/);

 extern list concat_new_entities(list /*l1*/, list /*l2*/);

 extern bool entity_used_in_declarations_p(entity /*e*/, list /*ldecl*/);

 extern bool type_used_in_type_declarations_p(entity /*e*/, list /*ldecl*/);

 extern entity make_entity_copy(entity /*e*/);

 extern entity make_entity_copy_with_new_name(entity /*e*/, string /*global_new_name*/, bool /*move_initialization_p*/);

 extern entity make_entity_copy_with_new_name_and_suffix(entity /*e*/, string /*global_new_name*/, bool /*move_initialization_p*/);

 extern void add_thread_safe_variable(entity /*v*/);

 extern bool thread_safe_variable_p(entity /*v*/);

 extern void add_abstract_state_variable(entity /*v*/);

 extern bool abstract_state_variable_p(entity /*v*/);

 extern bool entities_p(list /*el*/);

 extern entity operator_neutral_element(entity /*op*/);

 extern bool commutative_call_p(call /*c*/);

 extern list entities_to_expressions(list /*l_ent*/);

 extern entity find_enum_of_member(entity /*m*/);

 extern bool c_module_p(entity /*m*/);

 extern bool fortran_module_p(entity /*m*/);

 extern list extract_references_from_declarations(list /*decls*/);

 extern Pbase entity_list_to_base(list /*l*/);

 extern set get_referenced_entities_filtered(void */*elem*/, bool (* /*chunk_filter*/)(void *), bool (* /*entity_filter*/)(entity));

 extern bool entity_not_constant_or_intrinsic_p(entity /*e*/);

 extern set get_referenced_entities(void */*elem*/);

 extern bool do_get_declared_entities(statement /*s*/, set /*declared_entities*/);

 extern set get_declared_entities(void */*elem*/);

 extern bool entity_local_variable_p(entity /*var*/, entity /*module*/);

 extern entity FindOrCreateEntityLikeModel(const char */*package*/, const char */*name*/, entity /*model*/);

 extern entity AddEntityToModule(entity /*e*/, entity /*module*/);

 extern void fprint_entity_list(FILE */*fp*/, list /*l*/);

 extern bool entity_in_formal_area_p(entity /*e*/);

 /* variable.c */

 extern bool variable_entity_p(entity /*e*/);

 extern bool symbolic_constant_entity_p(entity /*e*/);

 extern void AddEntityToDeclarations(entity /*e*/, entity /*module*/);

 extern void RemoveLocalEntityFromDeclarations(entity /*e*/, entity /*module*/, statement /*s*/);

 extern void AddLocalEntityToDeclarations(entity /*e*/, entity /*module*/, statement /*s*/);

 extern void AddLocalEntityToDeclarationsOnly(entity /*e*/, entity /*module*/, statement /*s*/);

 extern void AddEntityToCurrentModule(entity /*e*/);

 extern void AddEntityToCurrentModuleWithoutDeclaration(entity /*e*/);

 extern entity make_global_entity_from_local(entity /*local*/);

 extern entity make_stderr_variable(void);

 extern entity make_scalar_entity(const char */*name*/, const char */*module_name*/, basic /*base*/);

 extern entity make_derived_entity(const char */*name*/, const char */*module_name*/, type /*t*/);

 extern void reset_unique_variable_numbers(void);

 extern entity generate_variable_with_unique_name_to_module(const char */*seed_name*/, const char */*prefix*/, const char */*suffix*/, entity /*module*/);

 extern entity generic_clone_variable_with_unique_name(entity /*old_variable*/, statement /*declaration_statement*/, string /*prefix*/, string /*suffix*/, entity /*module*/, bool /*insert_p*/);

 extern entity clone_variable_with_unique_name(entity /*old_variable*/, statement /*declaration_statement*/, string /*prefix*/, string /*suffix*/, entity /*module*/);

 extern entity make_new_scalar_variable_with_prefix(const char */*prefix*/, entity /*module*/, basic /*b*/);

 extern entity make_new_derived_entity_with_prefix(const char */*prefix*/, entity /*module*/, type /*t*/);

 extern entity make_new_scalar_variable(entity /*module*/, basic /*b*/);

 extern entity make_new_array_variable_with_prefix(const char */*prefix*/, entity /*module*/, basic /*b*/, list /*dimensions*/);

 extern entity make_new_array_variable(entity /*module*/, basic /*b*/, list /*dimensions*/);

 extern entity make_temporary_pointer_to_array_entity_with_prefix(char */*prefix*/, entity /*efrom*/, entity /*module*/, expression /*from*/);

 extern entity make_temporary_pointer_to_array_entity(entity /*efrom*/, expression /*from*/, entity /*module*/);

 extern entity make_new_module_variable(entity /*module*/, int /*d*/);

 extern list integer_entities;

 extern list real_entities;

 extern list logical_entities;

 extern list complex_entities;

 extern list double_entities;

 extern list char_entities;

 extern entity make_new_entity(basic /*ba*/, int /*kind*/);

 extern entity find_or_create_scalar_entity(const char */*name*/, const char */*module_name*/, tag /*base*/);

 extern entity find_or_create_typed_entity(string /*name*/, const char */*module_name*/, tag /*base*/);

 extern entity make_scalar_integer_entity(const char */*name*/, const char */*module_name*/);

 extern bool entity_scalar_p(entity /*e*/);

 extern bool entity_integer_scalar_p(entity /*e*/);

 extern bool integer_scalar_entity_p(entity /*e*/);

 extern bool entity_static_variable_p(entity /*e*/);

 extern bool entity_atomic_reference_p(entity /*e*/);

 extern bool entity_non_pointer_scalar_p(entity /*e*/);

 extern dimension entity_ith_dimension(entity /*e*/, int /*i*/);

 extern bool entity_unbounded_p(entity /*e*/);

 extern bool array_with_numerical_bounds_p(entity /*a*/);

 extern int variable_entity_dimension(entity /*v*/);

 extern void remove_variable_entity(entity /*v*/);

 extern entity make_integer_constant_entity(_int /*c*/);

 extern int add_variable_to_area(entity /*a*/, entity /*v*/);

 extern int add_C_variable_to_area(entity /*a*/, entity /*v*/);

 extern int add_any_variable_to_area(entity /*a*/, entity /*v*/, bool /*is_fortran_p*/);

 extern int new_add_any_variable_to_area(entity /*a*/, entity /*v*/, bool /*is_fortran_p*/);

 extern bool formal_parameter_p(entity /*v*/);

 extern bool static_global_variable_p(entity /*v*/);

 extern bool global_variable_p(entity /*v*/);

 extern bool variable_return_p(entity /*v*/);

 extern bool formal_context_variable_p(entity /*v*/);

 extern bool variable_is_a_module_formal_parameter_p(entity /*a_variable*/, entity /*a_module*/);

 extern bool variable_in_common_p(entity /*v*/);

 extern bool variable_static_p(entity /*v*/);

 extern bool variable_dynamic_p(entity /*v*/);

 extern bool variable_stack_p(entity /*v*/);

 extern bool variable_heap_p(entity /*v*/);

 extern bool variable_in_module_p(entity /*v*/, entity /*m*/);

 extern bool variable_in_list_p(entity /*e*/, list /*l*/);

 extern bool entity_volatile_variable_p(entity /*v*/);

 extern bool volatile_variable_p(variable /*v*/);

 extern bool qualified_variable_p(entity /*v*/, unsigned int /*is_qualified*/);

 extern bool const_variable_p(entity /*v*/);

 extern void discard_module_declaration_text(entity /*a_module*/);

 extern entity get_ith_dummy(string /*prefix*/, string /*suffix*/, int /*i*/);

 extern expression generate_string_for_alternate_return_argument(string /*i*/);

 extern entity generate_pseudo_formal_variable_for_formal_label(const char */*p*/, int /*l*/);

 extern bool formal_label_replacement_p(entity /*fp*/);

 extern bool actual_label_replacement_p(expression /*eap*/);

 extern bool call_contains_alternate_returns_p(call /*c*/);

 extern entity make_new_index_entity(entity /*old_index*/, string /*suffix*/);

 extern bool implicit_c_variable_p(entity /*v*/);

 extern expression variable_initial_expression(entity /*v*/);

 extern bool self_initialization_p(entity /*v*/);

 extern bool same_scalar_location_p(entity /*e1*/, entity /*e2*/);

 extern list struct_variable_to_fields(entity /*v*/);

 extern entity make_place_holder_variable(entity /*de*/);

 extern bool place_holder_variable_p(entity /*ph*/);

 /* instruction.c */

 extern instruction make_call_instruction(entity /*e*/, list /*l*/);

 extern instruction MakeNullaryCallInst(entity /*f*/);

 extern instruction MakeUnaryCallInst(entity /*f*/, expression /*e*/);

 extern instruction make_continue_instruction(void);

 extern instruction make_assign_instruction(expression /*l*/, expression /*r*/);

 extern instruction make_instruction_block(list /*statements*/);

 extern bool native_call_p(call /*c*/, string /*op_name*/);

 extern bool native_instruction_p(instruction /*i*/, string /*op_name*/);

 extern bool instruction_assign_p(instruction /*i*/);

 extern bool instruction_continue_p(instruction /*i*/);

 extern bool return_instruction_p(instruction /*i*/);

 extern bool fortran_return_instruction_p(instruction /*i*/);

 extern bool C_return_instruction_p(instruction /*i*/);

 extern bool exit_instruction_p(instruction /*i*/);

 extern bool abort_instruction_p(instruction /*i*/);

 extern bool instruction_stop_p(instruction /*i*/);

 extern bool instruction_format_p(instruction /*i*/);

 extern bool assignment_block_p(instruction /*i*/);

 extern void flatten_block_if_necessary(instruction /*i*/);

 extern string instruction_identification(instruction /*i*/);

 extern string safe_instruction_identification(instruction /*i*/);

 /* statement.c */

 extern bool empty_code_p(statement /*s*/);

 extern bool empty_code_list_p(list /*l*/);

 extern bool empty_comments_p(const char */*s*/);

 extern bool comments_equal_p(string /*c1*/, string /*c2*/);

 extern bool statement_with_empty_comment_p(statement /*s*/);

 extern bool assignment_statement_p(statement /*s*/);

 extern bool assignment_block_or_statement_p(statement /*s*/);

 extern bool return_statement_p(statement /*s*/);

 extern bool exit_statement_p(statement /*s*/);

 extern bool abort_statement_p(statement /*s*/);

 extern bool fortran_return_statement_p(statement /*s*/);

 extern bool C_return_statement_p(statement /*s*/);

 extern bool continue_statement_p(statement /*s*/);

 extern bool forloop_statement_p(statement /*s*/);

 extern bool declaration_statement_p(statement /*s*/);

 extern bool continue_statements_p(list /*sl*/);

 extern bool stop_statement_p(statement /*s*/);

 extern bool format_statement_p(statement /*s*/);

 extern bool write_statement_p(statement /*s*/);

 extern bool statement_less_p(statement /*st1*/, statement /*st2*/);

 extern bool statement_possible_less_p(statement /*st1*/, statement /*st2*/);

 extern bool statement_sequence_p(statement /*s*/);

 extern bool statement_test_p(statement /*s*/);

 extern bool statement_loop_p(statement /*s*/);

 extern bool statement_whileloop_p(statement /*s*/);

 extern bool statement_goto_p(statement /*s*/);

 extern bool statement_call_p(statement /*s*/);

 extern bool statement_unstructured_p(statement /*s*/);

 extern bool statement_forloop_p(statement /*s*/);

 extern bool statement_multitest_p(statement /*s*/);

 extern bool statement_expression_p(statement /*s*/);

 extern bool empty_statement_p(statement /*st*/);

 extern bool unlabelled_statement_p(statement /*st*/);

 extern bool nop_statement_p(statement /*s*/);

 extern bool empty_statement_or_labelless_continue_p(statement /*st*/);

 extern bool empty_statement_or_continue_p(statement /*st*/);

 extern bool empty_statement_or_continue_without_comment_p(statement /*st*/);

 extern bool check_io_statement_p(statement /*s*/);

 extern string comments_dup(string /*comment*/);

 extern string decls_text_dup(string /*dt*/);

 extern statement make_assign_statement(expression /*l*/, expression /*r*/);

 extern statement instruction_to_statement(instruction /*instr*/);

 extern statement make_block_statement(list /*body*/);

 extern statement make_empty_block_statement(void);

 extern statement make_empty_statement_with_declarations_and_comments(list /*d*/, string /*dt*/, string /*c*/);

 extern void move_statement_attributes(statement /*from*/, statement /*to*/);

 extern void copy_statement_attributes(statement /*from*/, statement /*to*/);

 extern statement make_statement_from_statement_list_or_empty_block(list /*l*/);

 extern statement make_statement_from_statement_list(list /*l*/);

 extern statement make_statement_from_statement_varargs_list(statement /*s*/, ...);

 extern statement make_block_with_stmt_if_not_already(statement /*stmt*/);

 extern statement make_return_statement(entity /*module*/);

 extern instruction make_simple_Fortran_io_instruction(bool /*is_read_p*/, expression /*f*/, list /*io_list*/);

 extern statement make_print_statement(string /*message*/);

 extern statement make_C_print_statement(string /*message*/);

 extern statement make_any_print_statement(string /*message*/);

 extern statement make_stop_statement(string /*message*/);

 extern statement make_exit_statement(int /*n*/, string /*errmess*/);

 extern statement make_continue_statement(entity /*l*/);

 extern statement make_plain_continue_statement(void);

 extern statement make_declarations_statement(list /*idl*/, int /*sn*/, string /*cs*/);

 extern statement make_declaration_statement(entity /*v*/, int /*sn*/, string /*cs*/);

 extern bool declaration_statements_p(list /*sl*/);

 extern statement add_initialization_information_to_declaration_statement(statement /*s*/, list /*iel*/);

 extern list declaration_statement_to_initializations(statement /*s*/);

 extern statement make_whileloop_statement(expression /*condition*/, statement /*body*/, int /*line_number*/, bool /*before*/);

 extern statement make_loop_statement(entity /*i*/, expression /*low*/, expression /*up*/, expression /*inc*/, statement /*b*/);

 extern statement make_forloop_statement(expression /*init*/, expression /*cond*/, expression /*inc*/, statement /*body*/);

 extern statement make_test_statement(expression /*cond*/, statement /*truebody*/, statement /*falsebody*/);

 extern statement make_call_statement(string /*function_name*/, list /*args*/, entity /*l*/, string /*c*/);

 extern statement make_expression_statement(expression /*e*/);

 extern sequence statement_sequence(statement /*s*/);

 extern list statement_block(statement /*s*/);

 extern test statement_test(statement /*s*/);

 extern statement effective_test_true(test /*t*/);

 extern loop statement_loop(statement /*s*/);

 extern whileloop statement_whileloop(statement /*s*/);

 extern statement statement_goto(statement /*s*/);

 extern call statement_call(statement /*s*/);

 extern unstructured statement_unstructured(statement /*s*/);

 extern forloop statement_forloop(statement /*s*/);

 extern multitest statement_multitest(statement /*s*/);

 extern expression statement_expression(statement /*s*/);

 extern statement apply_number_to_statement(hash_table /*nts*/, _int /*n*/);

 extern hash_table build_number_to_statement(hash_table /*nts*/, statement /*s*/);

 extern hash_table allocate_number_to_statement(void);

 extern statement clear_labels(statement /*s*/);

 extern void clear_label(statement /*s*/);

 extern statement st_make_nice_test(expression /*condition*/, list /*ltrue*/, list /*lfalse*/);

 extern statement makeloopbody(loop /*l*/, statement /*s_old*/, bool /*inner_p*/);

 extern string external_statement_identification(statement /*s*/);

 extern string statement_identification(statement /*s*/);

 extern string safe_statement_identification(statement /*s*/);

 extern string gather_all_comments_of_a_statement(statement /*s*/);

 extern char **find_first_statement_comment(statement /*s*/);

 extern bool try_to_put_a_comment_on_a_statement(statement /*s*/, string /*the_comments*/);

 extern void put_a_comment_on_a_statement(statement /*s*/, string /*the_comments*/);

 extern void append_comments_to_statement(statement /*s*/, string /*the_comments*/);

 extern void insert_comments_to_statement(statement /*s*/, const char */*the_comments*/);

 extern void add_one_line_of_comment(statement /*s*/, string /*format*/, ...);

 extern statement add_comment_and_line_number(statement /*s*/, string /*sc*/, int /*sn*/);

 extern void fix_sequence_statement_attributes(statement /*s*/);

 extern void fix_statement_attributes_if_sequence(statement /*s*/);

 extern entity statement_to_label(statement /*s*/);

 extern statement add_label_to_statement(entity /*label*/, statement /*s*/, statement */*labeled_statement*/);

 extern bool statement_does_return(statement /*s*/);

 extern bool unstructured_does_return(unstructured /*u*/);

 extern void gather_and_remove_all_format_statements_rewrite(statement /*s*/, list */*all_formats*/);

 extern list gather_and_remove_all_format_statements(statement /*s*/);

 extern void put_formats_at_module_beginning(statement /*s*/);

 extern void put_formats_at_module_end(statement /*s*/);

 extern bool figure_out_if_it_is_a_format(instruction /*i*/, bool */*format_inside_statement_has_been_found*/);

 extern bool format_inside_statement_p(statement /*s*/);

 extern int statement_to_comment_length(statement /*stmt*/);

 extern persistant_statement_to_int statement_to_line_number(statement /*s*/);

 extern void insert_statement(statement /*s*/, statement /*s1*/, bool /*before*/);

 extern void insert_statement_no_matter_what(statement /*s*/, statement /*s1*/, bool /*before*/);

 extern void append_statement_to_block_statement(statement /*b*/, statement /*s*/);

 extern void push_generated_variable_commenter(string (* /*commenter*/)(entity));

 extern void pop_generated_variable_commenter(void);

 extern string generated_variable_comment(entity /*e*/);

 extern statement add_declaration_statement(statement /*s*/, entity /*e*/);

 extern statement add_declaration_statement_at_beginning(statement /*s*/, entity /*e*/);

 extern statement add_declaration_statement_here(statement /*block_statement*/, statement /*s*/, entity /*e*/, bool /*before_p*/);

 extern void fix_block_statement_declarations(statement /*s*/);

 extern statement remove_declaration_statement(statement /*s*/, entity /*e*/);

 extern statement update_statement_instruction(statement /*s*/, instruction /*i*/);

 extern void statement_replace_with_statement_list(statement /*as*/, statement /*rs*/, list /*sl*/);

 extern list statement_to_implicit_target_labels(statement /*s*/);

 extern list statement_to_labels(statement /*s*/);

 extern bool all_statements_defined_p(statement /*s*/);

 extern list statement_to_declarations(void */*s*/);

 extern list statements_to_declarations(list /*sl*/);

 extern list instruction_to_declarations(instruction /*i*/);

 extern list statements_to_direct_declarations(list /*sl*/);

 extern list statement_to_direct_declarations(statement /*s*/);

 extern list statement_to_referenced_entities(statement /*s*/);

 extern list statement_to_called_user_entities(statement /*s*/);

 extern reference find_reference_to_variable(statement /*s*/, entity /*v*/);

 extern int count_static_references_to_variable(statement /*s*/, entity /*v*/);

 extern int count_references_to_variable(statement /*s*/, entity /*v*/);

 extern int count_references_to_variable_element(statement /*s*/, entity /*v*/);

 extern bool statement_substatement_walker(statement /*some*/, statement /*s*/);

 extern bool statement_substatement_p(statement /*s*/, statement /*root*/);

 extern int get_statement_depth(statement /*s*/, statement /*root*/);

 extern statement find_statement_from_label(statement /*s*/, entity /*label*/);

 extern statement find_statement_from_label_name(statement /*s*/, const char */*module_name*/, const char */*label_name*/);

 extern bool statement_with_pragma_p(statement /*s*/);

 extern list statement_pragmas(statement /*s*/);

 extern extension get_extension_from_statement_with_pragma(statement /*s*/, const char */*seed*/);

 extern list find_statements_with_pragma(statement /*s*/, const char */*begin*/);

 extern bool statement_contains_user_call_p(statement /*s*/);

 extern bool statement_may_have_control_effects_p(statement /*s*/);

 extern bool statement_may_contain_exiting_intrinsic_call_p(statement /*s*/);

 extern statement normalize_statement(statement /*s*/);

 extern bool statement_in_statement_p(statement /*s*/, statement /*st*/);

 extern bool statement_in_statements_p(statement /*s*/, list /*l*/);

 extern bool statement_replace_in_root_statement(statement /*old_stat*/, statement /*new_stat*/, statement /*root_stat*/);

 extern void statement_remove_extensions(statement /*s*/);

 extern void statement_remove_useless_label(statement /*s*/, bool */*changed*/);

 extern bool belong_to_statement(statement /*stmt*/, statement /*s*/, bool /*found_p*/);

 extern entity find_final_statement_label(statement /*s*/);

 extern string comment_sentinel(tag /*t*/);

 /* reorder.c */

 extern void reset_unstructured_number(void);

 extern void control_node_reorder(control /*c*/, set /*visited_control*/);

 extern bool unstructured_reorder(unstructured /*u*/);

 extern bool module_body_reorder(statement /*body*/);

 extern bool module_reorder(statement /*body*/);

 /* clean_up_sequences.c */

 extern hash_table statement_to_goto_table;

 extern void initialize_clean_up_sequences_statistics(void);

 extern void display_clean_up_sequences_statistics(void);

 extern bool statement_to_goto_table_flt(instruction /*i*/);

 extern void compute_statement_to_goto_table(statement /*s*/);

 extern void discard_statement_to_goto_table(void);

 extern void adjust_goto_from_to(statement /*s1*/, statement /*s2*/);

 extern bool clean_up_sequences_internal(statement /*s*/);

 extern bool clean_up_sequences(statement /*s*/);

 /* expression.c */

 extern int fortran_string_compare(string /*fs1*/, string /*fs2*/);

 extern tag suggest_basic_for_expression(expression /*e*/);

 extern expression expression_mult(expression /*ex*/);

 extern expression entity_to_expression(entity /*e*/);

 extern expression make_entity_expression(entity /*e*/, cons */*inds*/);

 extern expression reference_to_expression(reference /*r*/);

 extern reference expression_to_reference(expression /*e*/);

 extern reference add_subscript_to_reference(reference /*r*/, expression /*s*/);

 extern void generic_reference_add_fixed_subscripts(reference /*r*/, type /*t*/, bool /*zero_p*/);

 extern void reference_add_zero_subscripts(reference /*r*/, type /*t*/);

 extern void reference_add_zero_subscript(reference /*r*/);

 extern void reference_complete_with_zero_subscripts(reference /*r*/);

 extern void reference_add_unbounded_subscripts(reference /*r*/, type /*t*/);

 extern expression call_to_expression(call /*c*/);

 extern expression make_call_expression(entity /*e*/, list /*l*/);

 extern expression MakeNullaryCall(entity /*f*/);

 extern expression MakeUnaryCall(entity /*f*/, expression /*a*/);

 extern expression MakeBinaryCall(entity /*f*/, expression /*eg*/, expression /*ed*/);

 extern expression MakeTernaryCall(entity /*f*/, expression /*e1*/, expression /*e2*/, expression /*e3*/);

 extern expression make_assign_expression(expression /*lhs*/, expression /*rhs*/);

 extern expression make_subscript_expression(expression /*a*/, list /*sl*/);

 extern bool expression_brace_p(expression /*e*/);

 extern bool expression_call_p(expression /*e*/);

 extern bool expression_address_of_p(expression /*e*/);

 extern call expression_call(expression /*e*/);

 extern bool expression_cast_p(expression /*e*/);

 extern cast expression_cast(expression /*e*/);

 extern bool expression_sizeofexpression_p(expression /*e*/);

 extern sizeofexpression expression_sizeofexpression(expression /*e*/);

 extern bool expression_application_p(expression /*e*/);

 extern application expression_application(expression /*e*/);

 extern bool expression_field_p(expression /*e*/);

 extern bool field_expression_p(expression /*e*/);

 extern bool expression_pointer_p(expression /*e*/);

 extern bool array_argument_p(expression /*e*/);

 extern bool expression_reference_p(expression /*e*/);

 extern entity expression_variable(expression /*e*/);

 extern bool is_expression_reference_to_entity_p(expression /*e*/, entity /*v*/);

 extern bool same_expression_in_list_p(expression /*e*/, list /*le*/);

 extern bool expression_equal_in_list_p(expression /*e*/, list /*le*/);

 extern bool logical_operator_expression_p(expression /*e*/);

 extern bool relational_expression_p(expression /*e*/);

 extern bool integer_expression_p(expression /*e*/);

 extern bool logical_expression_p(expression /*e*/);

 extern int trivial_expression_p(expression /*e*/);

 extern expression expression_verbose_reduction_p_and_return_increment(expression /*incr*/, bool /*filter*/(expression));

 extern bool expression_implied_do_p(expression /*e*/);

 extern bool comma_expression_p(expression /*e*/);

 extern bool expression_list_directed_p(expression /*e*/);

 extern bool extended_integer_constant_expression_p(expression /*e*/);

 extern bool extended_integer_constant_expression_p_to_int(expression /*e*/, int */*result*/);

 extern bool integer_constant_expression_p(expression /*e*/);

 extern bool signed_integer_constant_expression_p(expression /*e*/);

 extern bool expression_with_constant_signed_integer_value_p(expression /*e*/);

 extern bool assignment_expression_p(expression /*e*/);

 extern bool add_expression_p(expression /*e*/);

 extern bool sub_expression_p(expression /*e*/);

 extern bool substraction_expression_p(expression /*e*/);

 extern bool modulo_expression_p(expression /*e*/);

 extern bool divide_expression_p(expression /*e*/);

 extern bool power_expression_p(expression /*e*/);

 extern bool abs_expression_p(expression /*e*/);

 extern bool unary_minus_expression_p(expression /*e*/);

 extern bool iabs_expression_p(expression /*e*/);

 extern bool dabs_expression_p(expression /*e*/);

 extern bool cabs_expression_p(expression /*e*/);

 extern bool min0_expression_p(expression /*e*/);

 extern bool max0_expression_p(expression /*e*/);

 extern bool user_function_call_p(expression /*e*/);

 extern bool operator_expression_p(expression /*e*/, string /*op_name*/);

 extern expression make_true_expression(void);

 extern expression make_false_expression(void);

 extern bool true_expression_p(expression /*e*/);

 extern bool false_expression_p(expression /*e*/);

 extern bool unbounded_dimension_p(dimension /*dim*/);

 extern expression find_ith_argument(list /*args*/, int /*n*/);

 extern expression find_ith_expression(list /*le*/, int /*r*/);

 extern expression int_to_expression(_int /*i*/);

 extern expression make_zero_expression(void);

 extern bool zero_expression_p(expression /*e*/);

 extern expression float_to_expression(float /*c*/);

 extern expression complex_to_expression(float /*re*/, float /*im*/);

 extern expression bool_to_expression(bool /*b*/);

 extern expression Value_to_expression(Value /*v*/);

 extern list expression_to_reference_list(expression /*e*/, list /*lr*/);

 extern list syntax_to_reference_list(syntax /*s*/, list /*lr*/);

 extern bool expression_equal_p(expression /*e1*/, expression /*e2*/);

 extern bool expression_equal_or_opposite_p(expression /*e1*/, expression /*e2*/);

 extern bool expression_opposite_p(expression /*e1*/, expression /*e2*/);

 extern bool expression_lists_equal_p(list /*l1*/, list /*l2*/);

 extern bool same_expression_p(expression /*e1*/, expression /*e2*/);

 extern bool sizeofexpression_equal_p(sizeofexpression /*s0*/, sizeofexpression /*s1*/);

 extern bool cast_equal_p(cast /*c1*/, cast /*c2*/);

 extern bool syntax_equal_p(syntax /*s1*/, syntax /*s2*/);

 extern bool subscript_equal_p(subscript /*s1*/, subscript /*s2*/);

 extern bool reference_equal_p(reference /*r1*/, reference /*r2*/);

 extern bool range_equal_p(range /*r1*/, range /*r2*/);

 extern bool call_equal_p(call /*c1*/, call /*c2*/);

 extern int integer_constant_expression_value(expression /*e*/);

 extern int signed_integer_constant_expression_value(expression /*e*/);

 extern expression make_max_expression(expression /*e1*/, expression /*e2*/, enum language_utype /*lang*/);

 extern expression make_min_expression(expression /*e1*/, expression /*e2*/, enum language_utype /*lang*/);

 extern expression make_factor_expression(int /*coeff*/, entity /*vari*/);

 extern expression make_vecteur_expression(Pvecteur /*pv*/);

 extern statement Pvecteur_to_assign_statement(entity /*var*/, Pvecteur /*v*/);

 extern expression make_constraint_expression(Pvecteur /*v*/, Variable /*index*/);

 extern expression make_contrainte_expression(Pcontrainte /*pc*/, Variable /*index*/);

 extern expression Pvecteur_to_expression(Pvecteur /*vect*/);

 extern reference expression_reference(expression /*e*/);

 extern bool expression_subscript_p(expression /*e*/);

 extern subscript expression_subscript(expression /*e*/);

 extern bool expression_range_p(expression /*e*/);

 extern range expression_range(expression /*e*/);

 extern bool array_reference_p(reference /*r*/);

 extern bool references_do_not_conflict_p(reference /*r1*/, reference /*r2*/);

 extern expression expression_list_to_binary_operator_call(list /*l*/, entity /*op*/);

 extern expression expression_list_to_conjonction(list /*l*/);

 extern bool expression_intrinsic_operation_p(expression /*exp*/);

 extern bool call_constant_p(call /*c*/);

 extern bool expression_equal_integer_p(expression /*exp*/, int /*i*/);

 extern expression make_op_exp(char */*op_name*/, expression /*exp1*/, expression /*exp2*/);

 extern expression add_integer_to_expression(expression /*exp*/, int /*val*/);

 extern expression make_lin_op_exp(entity /*op_ent*/, expression /*exp1*/, expression /*exp2*/);

 extern int expression_to_int(expression /*exp*/);

 extern float expression_to_float(expression /*exp*/);

 extern constant expression_constant(expression /*exp*/);

 extern bool expression_string_constant_p(expression /*exp*/);

 extern char *expression_string_constant(expression /*exp*/);

 extern bool expression_integer_constant_p(expression /*e*/);

 extern bool expression_constant_p(expression /*exp*/);

 extern bool extended_expression_constant_p(expression /*exp*/);

 extern bool expression_is_C_rhs_p(expression /*exp*/);

 extern bool expression_one_p(expression /*exp*/);

 extern bool expression_null_p(expression /*exp*/);

 extern void davinci_dump_expression(FILE */*out*/, expression /*e*/);

 extern void davinci_dump_all_expressions(FILE */*out*/, statement /*s*/);

 extern expression substitute_entity_variable_in_expression(entity /*old*/, entity /*new*/, expression /*e*/);

 extern expression substitute_entity_in_expression(entity /*old*/, entity /*new*/, expression /*e*/);

 extern bool simplify_C_expression(expression /*e*/);

 extern expression convert_bound_expression(expression /*e*/, bool /*upper_p*/, bool /*non_strict_p*/);

 extern bool reference_with_constant_indices_p(reference /*r*/);

 extern reference reference_with_store_independent_indices(reference /*r*/);

 extern bool reference_with_unbounded_indices_p(reference /*r*/);

 extern bool reference_with_unbounded_subscript_p(reference /*r*/);

 extern bool store_independent_reference_p(reference /*r*/);

 extern entity expression_to_entity(expression /*e*/);

 extern list expressions_to_entities(list /*expressions*/);

 extern bool expression_similar_get_context_p(expression /*target*/, expression /*pattern*/, hash_table */*symbol_table*/);

 extern bool expression_similar_p(expression /*target*/, expression /*pattern*/);

 extern list make_list_of_constant(int /*val*/, int /*number*/);

 extern bool brace_expression_p(expression /*e*/);

 extern list brace_expression_to_statements(entity /*arr*/, expression /*e*/);

 extern void brace_expression_to_updated_type(entity /*arr*/, expression /*e*/);

 extern bool reference_scalar_p(reference /*r*/);

 extern expression expressions_to_operation(const list /*l_exprs*/, entity /*op*/);

 extern void update_expression_syntax(expression /*e*/, syntax /*s*/);

 extern void local_assign_expression(expression /*caller*/, expression /*field*/);

 extern expression syntax_to_expression(syntax /*s*/);

 extern expression monome_to_expression(Pmonome /*pm*/);

 extern expression polynome_to_expression(Ppolynome /*pp*/);

 extern Ppolynome expression_to_polynome(expression /*exp*/);

 extern bool simplify_expression(expression */*pexp*/);

 extern void simplify_expressions(void */*obj*/);

 extern expression reference_offset(reference /*ref*/);

 extern expression replace_expression_content(expression /*e1*/, expression /*e2*/);

 extern bool expression_minmax_p(expression /*e*/);

 extern expression MakeSizeofExpression(expression /*e*/);

 extern expression MakeSizeofType(type /*t*/);

 extern expression MakeCastExpression(type /*t*/, expression /*e*/);

 extern expression MakeCommaExpression(list /*l*/);

 extern expression MakeBraceExpression(list /*l*/);

 extern expression dereference_expression(expression /*e*/);

 extern expression make_address_of_expression(expression /*e*/);

 extern list subscript_expressions_to_constant_subscript_expressions(list /*sl*/);

 extern expression pointer_reference_to_expression(reference /*r*/);

 extern expression expression_to_dereferencing_expression(expression /*e*/);

 extern bool C_initialization_expression_p(expression /*e*/);

 extern list struct_initialization_expression_to_expressions(expression /*e*/);

 extern void free_expressions(list /*el*/);

 extern void clean_all_normalized(expression /*e*/);

 extern expression subscript_value_stride(entity /*arr*/, list /*l_inds*/);

 extern expression size_of_actual_array(entity /*actual_array*/, list /*l_actual_ref*/, int /*i*/);

 extern expression make_ref_expr(entity /*ent*/, list /*args*/);

 extern bool unbounded_entity_p(entity /*f*/);

 extern bool unbounded_expression_p(expression /*e*/);

 extern expression make_unbounded_expression(void);

 extern list make_unbounded_subscripts(int /*d*/);

 extern bool user_call_p(call /*c*/);

 extern void normalize_subscript_expression(expression /*e*/);

 extern void expression_normalize_subscripts(expression /*e*/);

 extern void statement_normalize_subscripts(statement /*s*/);

 /* type.c */

 extern string type_to_string(const type /*t*/);

 extern string safe_type_to_string(const type /*t*/);

 extern basic MakeBasicOverloaded(void);

 extern mode MakeModeReference(void);

 extern mode MakeModeValue(void);

 extern type MakeTypeStatement(void);

 extern type MakeTypeUnknown(void);

 extern type MakeTypeVoid(void);

 extern type MakeTypeOverloaded(void);

 extern type MakeTypeVariable(basic /*b*/, cons */*ld*/);

 extern basic MakeBasic(int /*the_tag*/);

 extern type MakeTypeArray(basic /*b*/, cons */*ld*/);

 extern parameter MakeOverloadedParameter(void);

 extern parameter MakePointerParameter(void);

 extern parameter MakeVoidPointerParameter(void);

 extern parameter MakeIntegerParameter(void);

 extern parameter MakeLongIntegerParameter(void);

 extern parameter MakeUnsignedIntegerParameter(void);

 extern parameter MakeLongLongIntegerParameter(void);

 extern parameter MakeRealParameter(void);

 extern parameter MakeDoubleprecisionParameter(void);

 extern parameter MakeQuadprecisionParameter(void);

 extern parameter MakeLogicalParameter(void);

 extern parameter MakeComplexParameter(void);

 extern parameter MakeDoublecomplexParameter(void);

 extern parameter MakeLongDoublecomplexParameter(void);

 extern parameter MakeCharacterParameter(void);

 extern parameter MakeAnyScalarParameter(tag /*t*/, _int /*size*/);

 extern type MakeOverloadedResult(void);

 extern type MakeUnsignedIntegerResult(void);

 extern type MakeVoidPointerResult(void);

 extern type MakeIntegerResult(void);

 extern type MakeLongIntegerResult(void);

 extern type MakeLongLongIntegerResult(void);

 extern type MakeRealResult(void);

 extern type MakeDoubleprecisionResult(void);

 extern type MakeQuadprecisionResult(void);

 extern type MakeLogicalResult(void);

 extern type MakeComplexResult(void);

 extern type MakeDoublecomplexResult(void);

 extern type MakeLongDoublecomplexResult(void);

 extern type MakeCharacterResult(void);

 extern type MakeAnyScalarResult(tag /*t*/, _int /*size*/);

 extern bool same_type_p(type /*t1*/, type /*t2*/);

 extern bool type_equal_p(type /*t1*/, type /*t2*/);

 extern bool type_equal_up_to_qualifiers_p(type /*t1*/, type /*t2*/);

 extern bool type_equal_up_to_typedefs_and_qualifiers_p(type /*t1*/, type /*t2*/);

 extern bool ultimate_type_equal_p(type /*t1*/, type /*t2*/);

 extern bool concrete_type_equal_p(type /*t1*/, type /*t2*/);

 extern bool type_structurally_equal_p(type /*t1*/, type /*t2*/);

 extern type array_type_projection(type /*t*/);

 extern bool array_pointer_type_equal_p(type /*t1*/, type /*t2*/);

 extern bool array_pointer_string_type_equal_p(type /*t1*/, type /*t2*/);

 extern bool array_element_type_p(type /*at*/, type /*et*/);

 extern bool concrete_array_pointer_type_equal_p(type /*t1*/, type /*t2*/);

 extern type make_scalar_integer_type(_int /*n*/);

 extern type make_scalar_complex_type(_int /*n*/);

 extern type make_scalar_overloaded_type(void);

 extern bool area_equal_p(area /*a1*/, area /*a2*/);

 extern bool dimension_equal_p(dimension /*d1*/, dimension /*d2*/);

 extern bool dimensions_equal_p(list /*dims1*/, list /*dims2*/);

 extern bool qualifiers_equal_p(list /*dims1*/, list /*dims2*/);

 extern bool generic_variable_equal_p(variable /*v1*/, variable /*v2*/, bool /*strict_p*/, bool /*qualifier_p*/, hash_table /*structural_table*/);

 extern bool variable_equal_p(variable /*v1*/, variable /*v2*/);

 extern bool generic_basic_equal_p(basic /*b1*/, basic /*b2*/, bool /*strict_p*/, bool /*qualifier_p*/, hash_table /*structural_table*/);

 extern bool basic_equal_p(basic /*b1*/, basic /*b2*/);

 extern bool same_basic_p(basic /*b1*/, basic /*b2*/);

 extern bool compatible_basic_p(basic /*b1*/, basic /*b2*/);

 extern bool generic_functional_equal_p(functional /*f1*/, functional /*f2*/, bool /*strict_p*/, bool /*qualifier_p*/, hash_table /*structural_table*/);

 extern bool functional_equal_p(functional /*f1*/, functional /*f2*/);

 extern bool generic_parameter_equal_p(parameter /*p1*/, parameter /*p2*/, bool /*strict_p*/, bool /*qualifier_p*/, hash_table /*structural_table*/);

 extern bool parameter_equal_p(parameter /*p1*/, parameter /*p2*/);

 extern bool mode_equal_p(mode /*m1*/, mode /*m2*/);

 extern int string_type_size(basic /*b*/);

 extern int basic_type_size(basic /*b*/);

 extern basic expression_basic(expression /*expr*/);

 extern dimension dimension_dup(dimension /*d*/);

 extern list ldimensions_dup(list /*l*/);

 extern dimension FindIthDimension(entity /*e*/, int /*i*/);

 extern basic some_basic_of_any_expression(expression /*exp*/, bool /*apply_p*/, bool /*ultimate_p*/);

 extern basic basic_of_any_expression(expression /*exp*/, bool /*apply_p*/);

 extern basic basic_of_expression(expression /*exp*/);

 extern basic basic_of_any_reference(reference /*r*/, bool /*apply_p*/, bool /*ultimate_p*/);

 extern basic basic_of_reference(reference /*r*/);

 extern basic basic_of_call(call /*c*/, bool /*apply_p*/, bool /*ultimate_p*/);

 extern basic basic_of_external(call /*c*/);

 extern basic basic_of_intrinsic(call /*c*/, bool /*apply_p*/, bool /*ultimate_p*/);

 extern basic basic_of_constant(call /*c*/);

 extern basic basic_union(expression /*exp1*/, expression /*exp2*/);

 extern basic basic_ultimate(basic /*b*/);

 extern basic basic_maximum(basic /*fb1*/, basic /*fb2*/);

 extern basic basic_of_expressions(list /*expressions*/, bool /*skip_overloaded*/);

 extern type intrinsic_call_to_type(call /*c*/);

 extern type call_to_type(call /*c*/);

 extern type reference_to_type(reference /*ref*/);

 extern type expression_to_type(expression /*exp*/);

 extern type expression_to_uncasted_type(expression /*exp*/);

 extern type expression_to_user_type(expression /*e*/);

 extern bool overloaded_type_p(type /*t*/);

 extern bool is_inferior_basic(basic /*b1*/, basic /*b2*/);

 extern basic simple_basic_dup(basic /*b*/);

 extern entity basic_to_generic_conversion(basic /*b*/);

 extern bool signed_type_p(type /*t*/);

 extern bool unsigned_basic_p(basic /*b*/);

 extern bool unsigned_type_p(type /*t*/);

 extern bool long_type_p(type /*t*/);

 extern bool bit_type_p(type /*t*/);

 extern bool string_type_p(type /*t*/);

 extern bool logical_type_p(type /*t*/);

 extern bool char_type_p(type /*t*/);

 extern bool basic_type_p(type /*t*/);

 extern bool type_fundamental_basic_p(type /*t*/);

 extern bool array_type_p(type /*t*/);

 extern unsigned int array_type_dimension(type /*t*/);

 extern bool scalar_type_p(type /*t*/);

 extern bool type_pointer_on_struct_variable_p(type /*t*/);

 extern bool variable_length_array_type_p(type /*t*/);

 extern bool fixed_length_array_type_p(type /*t*/);

 extern bool pointer_type_p(type /*t*/);

 extern bool C_pointer_type_p(type /*t*/);

 extern bool array_of_pointers_type_p(type /*t*/);

 extern type pointed_type(type /*t*/);

 extern bool FILE_star_type_p(type /*t*/);

 extern list type_fields(type /*t*/);

 extern bool derived_type_p(type /*t*/);

 extern bool array_of_derived_type_p(type /*t*/);

 extern bool struct_type_p(type /*t*/);

 extern bool array_of_struct_type_p(type /*t*/);

 extern bool union_type_p(type /*t*/);

 extern bool enum_type_p(type /*t*/);

 extern bool typedef_type_p(type /*t*/);

 extern type make_standard_integer_type(type /*t*/, int /*size*/);

 extern bool standard_long_integer_type_p(type /*t*/);

 extern bool default_complex_type_p(type /*t*/);

 extern bool float_type_p(type /*t*/);

 extern bool scalar_integer_type_p(type /*t*/);

 extern bool integer_type_p(type /*t*/);

 extern type make_standard_long_integer_type(type /*t*/);

 extern type ultimate_type(type /*t*/);

 extern type ultimate_array_type(type /*t*/);

 extern void entity_basic_concrete_types_init(void);

 extern void entity_basic_concrete_types_reset(void);

 extern list dimensions_to_normalized_dimensions(list /*dl*/);

 extern type compute_basic_concrete_type(type /*t*/);

 extern type entity_basic_concrete_type(entity /*e*/);

 extern bool basic_concrete_type_leads_to_pointer_p(type /*bct*/);

 extern type expression_to_concrete_type(expression /*e*/);

 extern bool call_compatible_type_p(type /*t*/);

 extern type call_compatible_type(type /*t*/);

 extern type call_to_functional_type(call /*c*/, bool /*ultimate_p*/);

 extern bool type_struct_variable_p(type /*t*/);

 extern bool type_union_variable_p(type /*t*/);

 extern int number_of_fields(type /*t*/);

 extern int number_of_items(type /*t*/);

 extern list recursive_functional_type_supporting_entities(list /*sel*/, set /*vt*/, functional /*f*/);

 extern list functional_type_supporting_entities(list /*sel*/, functional /*f*/);

 extern list enum_supporting_entities(list /*sel*/, set /*vt*/, entity /*e*/);

 extern list generic_constant_expression_supporting_entities(list /*sel*/, set /*vt*/, expression /*e*/, bool /*language_c_p*/);

 extern list constant_expression_supporting_entities(list /*sel*/, set /*vt*/, expression /*e*/);

 extern list fortran_constant_expression_supporting_entities(list /*sel*/, expression /*e*/);

 extern list generic_symbolic_supporting_entities(list /*sel*/, set /*vt*/, symbolic /*s*/, bool /*language_c_p*/);

 extern list symbolic_supporting_entities(list /*sel*/, set /*vt*/, symbolic /*s*/);

 extern list basic_supporting_entities(list /*sel*/, set /*vt*/, basic /*b*/);

 extern list variable_type_supporting_entities(list /*sel*/, set /*vt*/, variable /*v*/);

 extern list recursive_type_supporting_entities(list /*sel*/, set /*vt*/, type /*t*/);

 extern list type_supporting_entities(list /*sel*/, type /*t*/);

 extern bool declarable_type_p(type /*t*/, list /*pdl*/);

 extern list functional_type_supporting_references(list /*srl*/, functional /*f*/);

 extern list enum_supporting_references(list /*srl*/, entity /*e*/);

 extern list constant_expression_supporting_references(list /*srl*/, expression /*e*/);

 extern list symbolic_supporting_references(list /*srl*/, symbolic /*s*/);

 extern list basic_supporting_references(list /*srl*/, basic /*b*/);

 extern list variable_type_supporting_references(list /*srl*/, variable /*v*/);

 extern list fortran_type_supporting_entities(list /*srl*/, type /*t*/);

 extern list type_supporting_references(list /*srl*/, type /*t*/);

 extern bool check_C_function_type(entity /*f*/, list /*args*/);

 extern size_t maximal_type_depth(type /*t*/);

 extern size_t type_depth(type /*t*/);

 extern int effect_type_depth(type /*t*/);

 extern int effect_basic_depth(basic /*b*/);

 extern list functional_type_supporting_types(functional /*f*/);

 extern list type_supporting_types(type /*t*/);

 extern type make_char_array_type(int /*n*/);

 extern type make_scalar_char_pointer_type(void);

 extern bool overloaded_parameters_p(list /*lparams*/);

 extern type type_to_pointer_type(type /*t*/);

 extern type type_to_pointed_type(type /*t*/);

 extern type C_type_to_pointed_type(type /*t*/);

 extern type type_to_returned_type(type /*t*/);

 extern type type_to_final_pointed_type(type /*t*/);

 extern list derived_type_fields(type /*t*/);

 extern list derived_type_to_fields(type /*t*/);

 extern entity find_field_in_field_list(entity /*f*/, list /*fl*/);

 extern bool qualifier_equal_p(qualifier /*q1*/, qualifier /*q2*/);

 extern string qualifier_to_string(qualifier /*q*/);

 extern bool qualifiers_const_p(list /*ql*/);

 extern bool qualifiers_restrict_p(list /*ql*/);

 extern bool type_with_const_qualifier_p(type /*t*/);

 extern type subscripted_type_to_type(type /*t*/, expression /*se*/);

 extern dimension find_ith_dimension(list /*dims*/, int /*n*/);

 extern int variable_dimension_number(variable /*v*/);

 extern type type_to_array_type(type /*t*/);

 extern type array_type_to_element_type(type /*t*/);

 extern type array_type_to_sub_array_type(type /*t*/);

 extern type array_type_to_pointer_type(type /*t*/);

 extern list make_unbounded_dimensions(int /*d*/);

 extern bool type_void_star_p(type /*t*/);

 extern bool char_star_type_p(type /*t*/);

 extern bool char_star_constant_function_type_p(type /*t*/);

 extern list struct_type_to_fields(type /*lt*/);

 extern bool dependent_type_p(type /*t*/);

 extern list dependence_of_dependent_type(type /*t*/);

 /* normalize.c */

 extern normalized NormalizeExpression(expression /*e*/);

 extern normalized NormalizeSyntax(syntax /*s*/);

 extern normalized NormalizeCast(cast /*c*/);

 extern normalized NormalizeCall(call /*c*/);

 extern normalized NormalizeConstant(constant /*c*/);

 extern normalized NormalizeReference(reference /*r*/);

 extern normalized NormalizeIntrinsic(entity /*e*/, list /*la*/);

 extern normalized binary_to_normalized(list /*la*/, int /*op*/);

 extern bool EvalNormalized(normalized /*n*/, int */*pv*/);

 extern void FreeNormalized(normalized /*n*/);

 extern void free_expression_normalized(expression /*e*/);

 extern void unnormalize_expression(void */*st*/);

 extern Pvecteur expression_to_affine(expression /*e*/);

 extern normalized normalize_reference(reference /*r*/);

 extern void normalize_all_expressions_of(void */*obj*/);

 extern void normalize_first_expressions_of(void */*obj*/);

 /* static.c */

 extern entity set_current_module_entity(entity /*e*/);

 extern entity get_current_module_entity(void);

 extern void reset_current_module_entity(void);

 extern void error_reset_current_module_entity(void);

 extern const char *get_current_module_name(void);

 extern void set_current_module_declarations(list /*l*/);

 extern void reset_current_module_declarations(void);

 extern list get_current_module_declarations(void);

 extern statement set_current_module_statement(statement /*s*/);

 extern void push_current_module_statement(statement /*s*/);

 extern void pop_current_module_statement(void);

 extern statement get_current_module_statement(void);

 extern void reset_current_module_statement(void);

 extern void error_reset_current_module_statement(void);

 extern hash_table keyword_typedef_table;

 extern hash_table make_keyword_typedef_table(int /*tk*/);

 extern void set_keyword_typedef_table(hash_table /*h*/);

 extern void reset_keyword_typedef_table(void);

 extern void free_keyword_typedef_table(void);

 extern void declare_new_typedef(const string /*tn*/);

 extern _int is_c_keyword_typedef(char */*s*/);

 extern void make_statement_global_stack(void);

 extern void push_statement_on_statement_global_stack(statement /*st*/);

 extern statement get_current_statement_from_statement_global_stack(void);

 extern statement pop_statement_global_stack(void);

 extern void free_statement_global_stack(void);

 extern bool statement_global_stack_defined_p(void);

 /* arguments.c */

 extern void print_homogeneous_arguments(list /*args*/, const char */*variable_name*/(entity));

 extern void dump_arguments(cons */*args*/);

 extern cons *arguments_add_entity(cons */*a*/, entity /*e*/);

 extern cons *arguments_rm_entity(cons */*a*/, entity /*e*/);

 extern cons *arguments_union(cons */*a1*/, cons */*a2*/);

 extern bool arguments_equal_p(list /*a1*/, list /*a2*/);

 extern bool entity_is_argument_p(entity /*e*/, cons */*args*/);

 extern list arguments_intersection(list /*a1*/, list /*a2*/);

 extern bool arguments_set_equal_p(list /*a1*/, list /*a2*/);

 extern bool arguments_subset_p(list /*a1*/, list /*a2*/);

 extern void free_arguments(cons */*args*/);

 extern cons *dup_arguments(cons */*args*/);

 extern cons *arguments_difference(cons */*a1*/, cons */*a2*/);

 extern list base_to_entities(Pvecteur /*b*/);

 /* module.c */

 extern string build_new_top_level_module_name(const char */*prefix*/, bool /*prevent_suffix*/);

 extern bool static_module_p(entity /*e*/);

 extern bool compilation_unit_entity_p(entity /*e*/);

 extern bool variable_in_module_p2(entity /*v*/, entity /*m*/);

 extern void variable_declaration_verify(reference /*ref*/);

 extern void symbolic_constant_declaration_verify(call /*c*/);

 extern void add_non_declared_reference_to_declaration(reference /*ref*/);

 extern void add_symbolic_constant_to_declaration(call /*c*/);

 extern bool variable_declaration_coherency_p(entity /*module*/, statement /*st*/);

 extern sentence get_header_comments(entity /*module*/);

 extern sentence get_declaration_comments(entity /*module*/);

 extern list module_formal_parameters(entity /*func*/);

 extern int module_to_declaration_length(entity /*func*/);

 extern list declaration_supporting_references(list /*dl*/);

 extern list module_all_declarations(entity /*m*/);

 extern bool c_language_module_p(entity /*m*/);

 extern bool fortran_language_module_p(entity /*m*/);

 extern bool fortran95_language_module_p(entity /*m*/);

 extern entity generic_function_to_return_value(entity /*m*/, bool /*safe_p*/);

 extern entity function_to_return_value(entity /*m*/);

 extern entity any_function_to_return_value(entity /*m*/);

 extern bool return_value_p(entity /*v*/);

 extern bool function_return_value_p(entity /*v*/, entity /*f*/);

 extern bool void_function_p(entity /*m*/);

 extern list string_to_user_modules(const char */*s*/);

 /* control.c */

 extern char vcid_ri_util_control[];

 extern void control_map_get_blocs(control /*c*/, list */*l*/);

 extern void find_a_control_path(control /*b*/, control /*e*/, list */*pp*/, list */*vp*/, int /*dir*/);

 extern void backward_control_map_get_blocs(control /*c*/, cons **/*l*/);

 extern void backward_control_map_get_blocs_but(control /*c*/, control /*f*/, list */*l*/);

 extern void forward_control_map_get_blocs(control /*c*/, cons **/*l*/);

 extern void forward_control_map_get_blocs_but(control /*c*/, control /*f*/, list */*l*/);

 extern void wide_forward_control_map_get_blocs(control /*c*/, cons **/*l*/);

 extern bool is_control_in_list_p(control /*c*/, list /*cs*/);

 extern int occurences_in_control_list(control /*c*/, list /*cs*/);

 extern void control_list_patch(list /*l*/, control /*c_old*/, control /*c_new*/);

 extern void transfer_control_predecessor(control /*old_node*/, control /*new_node*/, control /*c*/);

 extern void transfer_control_successor(control /*old_node*/, control /*new_node*/, control /*c*/);

 extern void replace_control_related_to_a_list(control /*old_node*/, control /*new_node*/, list /*controls*/);

 extern void check_control_coherency(control /*c*/);

 extern void print_control_node(control /*c*/);

 extern void print_control_nodes(list /*l*/);

 extern void display_address_of_control_nodes(list /*cs*/);

 extern void display_linked_control_nodes(control /*c*/);

 extern void remove_unreachable_following_control(control /*c*/, control /*do_not_delete_node*/, control /*do_not_delete_node_either*/);

 extern void remove_some_unreachable_controls_of_an_unstructured(unstructured /*u*/);

 extern void remove_all_unreachable_controls_of_an_unstructured(unstructured /*u*/);

 extern void remove_a_control_from_a_list_and_relink(control /*c*/, list /*a_source_control_list_of_c*/, list /*a_dest_control_list_of_c*/, remove_a_control_from_a_list_and_relink_direction /*which_way*/);

 extern void remove_a_control_from_an_unstructured(control /*c*/);

 extern void remove_a_control_from_an_unstructured_without_relinking(control /*c*/);

 extern void discard_an_unstructured_without_its_statements(unstructured /*u*/);

 extern void free_a_control_without_its_statement(control /*c*/);

 extern void discard_a_control_sequence_without_its_statements(control /*begin*/, control /*end*/);

 extern list generate_a_statement_list_from_a_control_sequence(control /*begin*/, control /*end*/);

 extern void link_2_control_nodes(control /*source*/, control /*target*/);

 extern void link_3_control_nodes(control /*c_test*/, control /*c_then*/, control /*c_else*/);

 extern void unlink_2_control_nodes(control /*source*/, control /*target*/);

 extern void insert_control_in_arc(control /*c*/, control /*before*/, control /*after*/);

 extern void fuse_2_control_nodes(control /*first*/, control /*second*/);

 /* hpfc.c */

 extern bool hpf_directive_string_p(const char */*s*/);

 extern bool hpf_directive_entity_p(entity /*e*/);

 extern bool realign_directive_p(entity /*f*/);

 extern bool redistribute_directive_p(entity /*f*/);

 extern bool dead_fcd_directive_p(entity /*f*/);

 extern bool fcd_directive_string_p(const char */*s*/);

 extern bool fcd_directive_p(entity /*f*/);

 extern bool keep_directive_in_code_p(const char */*s*/);

 /* convex_hull.c */

 extern Psysteme cute_convex_union(Psysteme /*s1*/, Psysteme /*s2*/);

 /* clean.c */

 extern void GenericCleanEntities(list /*el*/, entity /*function*/, bool /*fortran_p*/);

 extern void GenericCleanLocalEntities(entity /*function*/, bool /*fortran_p*/);

 extern void CleanLocalEntities(entity /*function*/);

 extern void CCleanLocalEntities(entity /*function*/);

 extern void RemoveLocalEntities(entity /*function*/);

 /* clone_statement.c */

 extern statement clone_statement(statement /*s*/, clone_context /*cc*/);

 /* allocatable.c */

 extern bool entity_allocatable_p(entity /*e*/);

 extern bool expression_allocatable_data_access_p(expression /*e*/);

 extern expression get_allocatable_data_expr(entity /*e*/);

 extern entity get_allocatable_data_entity(entity /*e*/);

 /* replace.c */

 extern void replace_entities(void */*s*/, hash_table /*ht*/);

 extern void replace_entity(void */*s*/, entity /*old*/, entity /*new*/);

 extern void replace_reference(void */*s*/, reference /*old*/, entity /*new*/);

 extern void replace_entity_by_expression_with_filter(void */*s*/, entity /*ent*/, expression /*exp*/, bool (* /*filter*/)(expression));

 extern void replace_entity_by_expression(void */*s*/, entity /*ent*/, expression /*exp*/);

 extern void replace_entities_by_expression(void */*s*/, hash_table /*ht*/);

 #endif /*  ri_util_header_included */

int
void const char const char const int
Definition: arithmetique-local.h:585

Value
int Value
Definition: arithmetique-local.h:296

cloning.h

genC.h

make_statement_from_statement_list_or_empty_block
statement make_statement_from_statement_list_or_empty_block(list)
Build a statement sequence from a statement list.
Definition: statement.c:700

make_block_statement
statement make_block_statement(list)
Make a block statement from a list of statement.
Definition: statement.c:616

make_statement_from_statement_list
statement make_statement_from_statement_list(list)
Build a statement sequence from a statement list.
Definition: statement.c:719

instruction_to_statement
statement instruction_to_statement(instruction)
Build a statement from a give instruction.
Definition: statement.c:597

make_statement_from_statement_varargs_list
statement make_statement_from_statement_varargs_list(statement,...)
Build a statement sequence from a statement NULL-terminated varargs list.
Definition: statement.c:735

copy_statement_attributes
void copy_statement_attributes(statement, statement)
Copy all the attributes from one statement to another one.
Definition: statement.c:678

make_empty_statement_with_declarations_and_comments
statement make_empty_statement_with_declarations_and_comments(list, string, string)
Build an empty statement with declaration list, declaration text and comment.
Definition: statement.c:638

make_empty_block_statement
statement make_empty_block_statement(void)
Build an empty statement (block/sequence)
Definition: statement.c:625

move_statement_attributes
void move_statement_attributes(statement, statement)
Move all the attributes from one statement to another one.
Definition: statement.c:657

make_block_with_stmt_if_not_already
statement make_block_with_stmt_if_not_already(statement)
Build a statement block from a statement if not already a statement block.
Definition: statement.c:768

remove_some_unreachable_controls_of_an_unstructured
void remove_some_unreachable_controls_of_an_unstructured(unstructured)
Remove all the control sequences that are unreachable and that begin with a node without any predeces...
Definition: control.c:730

insert_control_in_arc
void insert_control_in_arc(control, control, control)
Insert a control node between 2 connected control nodes.
Definition: control.c:1299

unlink_2_control_nodes
void unlink_2_control_nodes(control, control)
Remove all edged between 2 control nodes.
Definition: control.c:1276

remove_all_unreachable_controls_of_an_unstructured
void remove_all_unreachable_controls_of_an_unstructured(unstructured)
Remove all control nodes that are not forward reachable from the entry node.
Definition: control.c:812

display_linked_control_nodes
void display_linked_control_nodes(control)
Display all the control nodes reached or reachable from c for debugging purpose.
Definition: control.c:629

transfer_control_successor
void transfer_control_successor(control, control, control)
Transfer a control node as a successor of one node to another one.
Definition: control.c:390

display_address_of_control_nodes
void display_address_of_control_nodes(list)
Display the adresses a list of control nodes.
Definition: control.c:612

remove_a_control_from_a_list_and_relink
void remove_a_control_from_a_list_and_relink(control, list, list, remove_a_control_from_a_list_and_relink_direction)
Replace each occurence of c in a_source_control_list_of_c with a a_dest_control_list_of_c:
Definition: control.c:913

remove_unreachable_following_control
void remove_unreachable_following_control(control, control, control)
Remove all the control nodes (with their statements) from c in the successor tree of c up to the node...
Definition: control.c:682

link_3_control_nodes
void link_3_control_nodes(control, control, control)
Add an edge between 2 control nodes.
Definition: control.c:1249

link_2_control_nodes
void link_2_control_nodes(control, control)
Add an edge between 2 control nodes.
Definition: control.c:1193

print_control_node
void print_control_node(control)
Definition: control.c:566

remove_a_control_from_an_unstructured_without_relinking
void remove_a_control_from_an_unstructured_without_relinking(control)
It removes a control node from its successor and predecessor.
Definition: control.c:1031

transfer_control_predecessor
void transfer_control_predecessor(control, control, control)
Transfer a control node as a predecessor from one node to another one.
Definition: control.c:358

discard_an_unstructured_without_its_statements
void discard_an_unstructured_without_its_statements(unstructured)
Used to discard an unstructured without touching its statements.
Definition: control.c:1063

replace_control_related_to_a_list
void replace_control_related_to_a_list(control, control, list)
Replace all the references to a control node by a new one in the successors & predecessors of a list ...
Definition: control.c:419

is_control_in_list_p
bool is_control_in_list_p(control, list)
Test if a control node is in a list of control nodes.
Definition: control.c:299

free_a_control_without_its_statement
void free_a_control_without_its_statement(control)
Remove a control node without touching its statement, its predecessors and successors,...
Definition: control.c:1087

remove_a_control_from_an_unstructured
void remove_a_control_from_an_unstructured(control)
Remove a control node from a control graph.
Definition: control.c:992

control_list_patch
void control_list_patch(list, control, control)
Replace in a list of control nodes all the instance of a control node by another one.
Definition: control.c:336

discard_a_control_sequence_without_its_statements
void discard_a_control_sequence_without_its_statements(control, control)
Remove a control sequence without touching its statements.
Definition: control.c:1111

print_control_nodes
void print_control_nodes(list)
Display identification of a list of control nodes.
Definition: control.c:589

fuse_2_control_nodes
void fuse_2_control_nodes(control, control)
Fuse a 2 control nodes.
Definition: control.c:1391

check_control_coherency
void check_control_coherency(control)
Test the coherency of a control node network from a control node.
Definition: control.c:487

generate_a_statement_list_from_a_control_sequence
list generate_a_statement_list_from_a_control_sequence(control, control)
Take a control sequence and return a list of all the statements in the sequence (in the same order....
Definition: control.c:1156

occurences_in_control_list
int occurences_in_control_list(control, list)
Count the number of occurences of a control node in a list of control nodes.
Definition: control.c:319

backward_control_map_get_blocs_but
void backward_control_map_get_blocs_but(control, control, list *)
Transitive closure of c's predecessors, but for control f.
Definition: control.c:184

control_map_get_blocs
void control_map_get_blocs(control, list *)
Build recursively the list of all controls reachable from a control of an unstructured.
Definition: control.c:75

forward_control_map_get_blocs_but
void forward_control_map_get_blocs_but(control, control, list *)
Transitive closure of c's successors, but for control f.
Definition: control.c:234

find_a_control_path
void find_a_control_path(control, control, list *, list *, int)
Build recursively a control path from b to e.
Definition: control.c:107

set_current_module_declarations
void set_current_module_declarations(list)
Definition: static.c:131

get_current_module_declarations
list get_current_module_declarations(void)
Definition: static.c:141

reset_current_module_entity
void reset_current_module_entity(void)
Reset the current module entity.
Definition: static.c:97

reset_current_module_statement
void reset_current_module_statement(void)
Reset the current module statement.
Definition: static.c:221

get_current_module_name
const char * get_current_module_name(void)
Get the name of the current module.
Definition: static.c:121

set_current_module_statement
statement set_current_module_statement(statement)
Set the current module statement.
Definition: static.c:165

push_current_module_statement
void push_current_module_statement(statement)
Set the statement of the current module and push the statement of the previous one on a stack.
Definition: static.c:180

get_current_module_statement
statement get_current_module_statement(void)
Get the current module statement.
Definition: static.c:208

reset_current_module_declarations
void reset_current_module_declarations(void)
Definition: static.c:136

set_current_module_entity
entity set_current_module_entity(entity)
static.c
Definition: static.c:66

get_current_module_entity
entity get_current_module_entity(void)
Get the entity of the current module.
Definition: static.c:85

pop_current_module_statement
void pop_current_module_statement(void)
Pop the current module statement stack and use it as the current module statement.
Definition: static.c:194

replace_entity_by_expression_with_filter
void replace_entity_by_expression_with_filter(void *, entity, expression, bool(*)(expression))
Definition: replace.c:204

replace_entities
void replace_entities(void *, hash_table)
replace.c
Definition: replace.c:91

replace_reference
void replace_reference(void *, reference, entity)
Replace an old reference by a reference to a new entity in a statement.
Definition: replace.c:124

replace_entity
void replace_entity(void *, entity, entity)
per variable version of replace_entities.
Definition: replace.c:113

replace_entity_by_expression
void replace_entity_by_expression(void *, entity, expression)
replace all reference to entity ent by expression exp in s.
Definition: replace.c:220

replace_entities_by_expression
void replace_entities_by_expression(void *, hash_table)
Definition: replace.c:225

make_instruction_block
instruction make_instruction_block(list)
Build an instruction block from a list of statements.
Definition: instruction.c:106

make_continue_instruction
instruction make_continue_instruction(void)
Creates a CONTINUE instruction, that is the FORTRAN nop, the ";" in C or the "pass" in Python for exa...
Definition: instruction.c:79

make_assign_instruction
instruction make_assign_instruction(expression, expression)
Definition: instruction.c:87

make_call_instruction
instruction make_call_instruction(entity, list)
instruction.c
Definition: instruction.c:51

MakeUnaryCallInst
instruction MakeUnaryCallInst(entity, expression)
Creates a call instruction to a function with one argument.
Definition: instruction.c:70

MakeNullaryCallInst
instruction MakeNullaryCallInst(entity)
Creates a call instruction to a function with no argument.
Definition: instruction.c:60

instruction_assign_p
bool instruction_assign_p(instruction)
Test if an instruction is an assignment.
Definition: instruction.c:164

instruction_stop_p
bool instruction_stop_p(instruction)
Test if an instruction is a Fortran STOP.
Definition: instruction.c:214

assignment_block_p
bool assignment_block_p(instruction)
Checks if an instruction block is a list of assignments, possibly followed by a continue.
Definition: instruction.c:230

exit_instruction_p
bool exit_instruction_p(instruction)
Definition: instruction.c:201

abort_instruction_p
bool abort_instruction_p(instruction)
Definition: instruction.c:205

instruction_format_p
bool instruction_format_p(instruction)
Test if an instruction is a Fortran FORMAT.
Definition: instruction.c:222

native_instruction_p
bool native_instruction_p(instruction, string)
Test if an instruction is a native instruction of the language.
Definition: instruction.c:144

instruction_continue_p
bool instruction_continue_p(instruction)
Test if an instruction is a CONTINUE, that is the FORTRAN nop, the ";" in C or the "pass" in Python....
Definition: instruction.c:173

return_instruction_p
bool return_instruction_p(instruction)
Test if an instruction is a C or Fortran "return".
Definition: instruction.c:185

C_return_instruction_p
bool C_return_instruction_p(instruction)
Definition: instruction.c:196

native_call_p
bool native_call_p(call, string)
Test if a call is a native instruction of the language.
Definition: instruction.c:124

fortran_return_instruction_p
bool fortran_return_instruction_p(instruction)
Definition: instruction.c:191

distributable_loop
set distributable_loop(statement)
this functions checks if Kennedy's algorithm can be applied on the loop passed as argument.
Definition: loop.c:221

print_number_of_loop_statistics
void print_number_of_loop_statistics(FILE *, string, statement)
Compute the number of parallel and sequential loops found in a statement and output them on a stream ...
Definition: loop.c:803

region_of_loop
set region_of_loop(statement)
this function returns the set of all statements belonging to the given loop even if the loop contains...
Definition: loop.c:254

range_contains_at_least_one_point_p
bool range_contains_at_least_one_point_p(range)
Definition: loop.c:911

loop_sequential_p
bool loop_sequential_p(loop)
Test if a loop is sequential.
Definition: loop.c:404

loop_parallel_p
bool loop_parallel_p(loop)
Test if a loop is parallel.
Definition: loop.c:393

loop_executed_never_p
bool loop_executed_never_p(loop)
Check if loop bound are constant and then if upper < lower.
Definition: loop.c:971

parallel_loop_statement_p
bool parallel_loop_statement_p(statement)
Test if a statement is a parallel loop.
Definition: loop.c:420

constant_step_loop_p
bool constant_step_loop_p(loop)
Test if a loop has a constant step loop.
Definition: loop.c:733

normal_loop_p
bool normal_loop_p(loop)
Test if a loop does have a 1-increment step.
Definition: loop.c:741

perfectly_nested_loop_index_at_depth
entity perfectly_nested_loop_index_at_depth(statement, int)
Get the index of the loop at a given depth inside a loop-nest.
Definition: loop.c:694

loop_executed_at_least_once_p
bool loop_executed_at_least_once_p(loop)
Check if loop bound are constant and then if upper >= lower.
Definition: loop.c:937

make_new_loop_statement
statement make_new_loop_statement(entity, expression, expression, expression, statement, execution)
This is an ad'hoc function designed for do_loop_unroll_with_epilogue().
Definition: loop.c:839

loop_increment_value
int loop_increment_value(loop)
Definition: loop.c:714

perfectly_nested_loop_to_body
statement perfectly_nested_loop_to_body(statement)
Extract the body of a perfectly nested loop body.
Definition: loop.c:590

index_private_p
bool index_private_p(loop)
returns true if loop lo's index is private for this loop
Definition: loop.c:240

clean_enclosing_loops
void clean_enclosing_loops(void)
Definition: loop.c:58

depth_of_perfect_loop_nest
int depth_of_perfect_loop_nest(statement)
Compute the depth of a perfect loop-nest.
Definition: loop.c:476

perfectly_nested_loop_to_body_at_depth
statement perfectly_nested_loop_to_body_at_depth(statement, int)
Extract the loop-body of a perfect loop-nest at a given depth.
Definition: loop.c:646

copy_loops
list copy_loops(list)
Duplicate a loop list.
Definition: loop.c:826

region_of_statement
void region_of_statement(statement, set)
Should be rewritten with a gen_recurse to deal with the recent RI...
Definition: loop.c:269

loop_private_variables_as_entites
list loop_private_variables_as_entites(loop, bool, bool)
Get the variables local or private to a loop.
Definition: loop.c:338

sort_all_loop_locals
void sort_all_loop_locals(statement)
Definition: loop.c:381

range_contains_nothing_p
bool range_contains_nothing_p(range)
Definition: loop.c:943

statement_to_loop_statement_list
list statement_to_loop_statement_list(statement)
If statement s is a perfectly loop nest, return the corresponding loop list.
Definition: loop.c:893

print_parallelization_statistics
void print_parallelization_statistics(const char *, const char *, statement)
Print out the number of sequential versus parallel loops.
Definition: loop.c:814

number_of_sequential_and_parallel_loops
void number_of_sequential_and_parallel_loops(statement, int *, int *)
Compute the number of parallel and sequential loops found in a statement and update given variables.
Definition: loop.c:784

Nbrdo
int Nbrdo
loop.c
Definition: loop.c:54

index_of_a_loop_p
bool index_of_a_loop_p(Variable, list)
Check if variable v is an index for an enclosing loop.
Definition: loop.c:980

get_first_inner_perfectly_nested_loop
statement get_first_inner_perfectly_nested_loop(statement)
Return the inner loop in a perfect loop-nest.
Definition: loop.c:508

loops_mapping_of_statement
statement_mapping loops_mapping_of_statement(statement)
Definition: loop.c:155

perfectly_nested_loop_p
bool perfectly_nested_loop_p(statement)
Test if a statement is a perfect loop-nest.
Definition: loop.c:543

depth_of_parallel_perfect_loop_nest
int depth_of_parallel_perfect_loop_nest(statement)
Compute the depth of a parallel perfect loop-nest.
Definition: loop.c:436

statement_expression
expression statement_expression(statement)
Get the expression of a statement.
Definition: statement.c:1446

statement_sequence
sequence statement_sequence(statement)
Get the sequence of a statement sequence.
Definition: statement.c:1328

statement_multitest
multitest statement_multitest(statement)
Get the multitest of a statement.
Definition: statement.c:1436

effective_test_true
statement effective_test_true(test)
returns the effective true branch of a test by skipping a possible sequence of one element.
Definition: statement.c:1358

statement_block
list statement_block(statement)
Get the list of block statements of a statement sequence.
Definition: statement.c:1338

statement_loop
loop statement_loop(statement)
Get the loop of a statement.
Definition: statement.c:1374

statement_test
test statement_test(statement)
Get the test of a statement.
Definition: statement.c:1348

statement_call
call statement_call(statement)
Get the call of a statement.
Definition: statement.c:1406

statement_whileloop
whileloop statement_whileloop(statement)
Get the whileloop of a statement.
Definition: statement.c:1383

statement_goto
statement statement_goto(statement)
Get the goto of a statement.
Definition: statement.c:1396

statement_forloop
forloop statement_forloop(statement)
Get the forloop of a statement.
Definition: statement.c:1426

statement_unstructured
unstructured statement_unstructured(statement)
Get the unstructured of a statement.
Definition: statement.c:1416

empty_statement_or_labelless_continue_p
bool empty_statement_or_labelless_continue_p(statement)
Return true if the statement is an empty instruction block without label or a continue without label ...
Definition: statement.c:446

statement_expression_p
bool statement_expression_p(statement)
Definition: statement.c:384

unlabelled_statement_p
bool unlabelled_statement_p(statement)
Definition: statement.c:402

statement_goto_p
bool statement_goto_p(statement)
Definition: statement.c:359

statement_multitest_p
bool statement_multitest_p(statement)
Definition: statement.c:379

statement_whileloop_p
bool statement_whileloop_p(statement)
Definition: statement.c:354

statement_test_p
bool statement_test_p(statement)
Definition: statement.c:343

statement_call_p
bool statement_call_p(statement)
Definition: statement.c:364

statement_forloop_p
bool statement_forloop_p(statement)
Definition: statement.c:374

nop_statement_p
bool nop_statement_p(statement)
Definition: statement.c:407

empty_statement_or_continue_p
bool empty_statement_or_continue_p(statement)
Return true if the statement is an empty instruction block or a continue or a recursive combination o...
Definition: statement.c:474

check_io_statement_p
bool check_io_statement_p(statement)
Definition: statement.c:528

empty_statement_p
bool empty_statement_p(statement)
Test if a statement is empty.
Definition: statement.c:391

statement_loop_p
bool statement_loop_p(statement)
Definition: statement.c:349

empty_statement_or_continue_without_comment_p
bool empty_statement_or_continue_without_comment_p(statement)
Return true if the statement is an empty instruction block or a continue without comments or without ...
Definition: statement.c:497

statement_sequence_p
bool statement_sequence_p(statement)
Statement classes induced from instruction type.
Definition: statement.c:335

statement_unstructured_p
bool statement_unstructured_p(statement)
Definition: statement.c:369

gather_and_remove_all_format_statements
list gather_and_remove_all_format_statements(statement)
Used to keep aside the FORMAT before many code transformation that could remove them either.
Definition: statement.c:2298

apply_number_to_statement
statement apply_number_to_statement(hash_table, _int)
Definition: statement.c:1495

format_statement_p
bool format_statement_p(statement)
Test if a statement is a Fortran FORMAT.
Definition: statement.c:273

allocate_number_to_statement
hash_table allocate_number_to_statement(void)
Definition: statement.c:1540

make_any_print_statement
statement make_any_print_statement(string)
Generate a print of a constant character string on stderr for C or on stdout for Fortran.
Definition: statement.c:893

statement_to_implicit_target_labels
list statement_to_implicit_target_labels(statement)
Look for labels appearing in END= or ERR= IO clauses and allocate a label list.
Definition: statement.c:3145

make_assign_statement
statement make_assign_statement(expression, expression)
Definition: statement.c:583

add_initialization_information_to_declaration_statement
statement add_initialization_information_to_declaration_statement(statement, list)
The initialization expression list is integrated into the internal representation as an argument list...
Definition: statement.c:1119

count_references_to_variable
int count_references_to_variable(statement, entity)
Definition: statement.c:3655

statement_to_label
entity statement_to_label(statement)
See if statement s is labelled and can be reached by a GO TO.
Definition: statement.c:2090

comments_equal_p
bool comments_equal_p(string, string)
Definition: statement.c:116

add_declaration_statement_at_beginning
statement add_declaration_statement_at_beginning(statement, entity)
Definition: statement.c:2795

append_statement_to_block_statement
void append_statement_to_block_statement(statement, statement)
Definition: statement.c:2586

statement_to_referenced_entities
list statement_to_referenced_entities(statement)
Get a list of all variables referenced recursively within a statement:
Definition: statement.c:3428

insert_comments_to_statement
void insert_comments_to_statement(statement, const char *)
Insert a comment string (if non empty) at the beginning of the comments of a statement.
Definition: statement.c:1916

statement_contains_user_call_p
bool statement_contains_user_call_p(statement)
Definition: statement.c:3939

update_statement_instruction
statement update_statement_instruction(statement, instruction)
Replace the instruction in statement s by instruction i.
Definition: statement.c:3039

put_a_comment_on_a_statement
void put_a_comment_on_a_statement(statement, string)
Similar to try_to_put_a_comment_on_a_statement() but insert a CONTINUE to put the comment on it if th...
Definition: statement.c:1863

count_references_to_variable_element
int count_references_to_variable_element(statement, entity)
Definition: statement.c:3666

find_first_statement_comment
char ** find_first_statement_comment(statement)
Find the first non-empty comment of a statement, if any returns a pointer to the comment if found,...
Definition: statement.c:1772

count_static_references_to_variable
int count_static_references_to_variable(statement, entity)
Definition: statement.c:3571

make_print_statement
statement make_print_statement(string)
Make a Fortran print statement.
Definition: statement.c:835

make_whileloop_statement
statement make_whileloop_statement(expression, statement, int, bool)
Build a while loop statement.
Definition: statement.c:1150

put_formats_at_module_beginning
void put_formats_at_module_beginning(statement)
Transfer all the FORMATs at the very beginning of a module:
Definition: statement.c:2311

makeloopbody
statement makeloopbody(loop, statement, bool)
statement makeloopbody(l, s_old) make a statement for a loop body, using the fields of a previously e...
Definition: statement.c:1641

statement_substatement_walker
bool statement_substatement_walker(statement, statement)
Definition: statement.c:3683

fix_block_statement_declarations
void fix_block_statement_declarations(statement)
s is assumed to be a block statement and its declarations field is assumed to be correct,...
Definition: statement.c:2930

make_loop_statement
statement make_loop_statement(entity, expression, expression, expression, statement)
Build a loop statement.
Definition: statement.c:1181

all_statements_defined_p
bool all_statements_defined_p(statement)
Definition: statement.c:3213

unstructured_does_return
bool unstructured_does_return(unstructured)
Definition: statement.c:2254

append_comments_to_statement
void append_comments_to_statement(statement, string)
Append a comment string (if non empty) to the comments of a statement, if the c.
Definition: statement.c:1889

try_to_put_a_comment_on_a_statement
bool try_to_put_a_comment_on_a_statement(statement, string)
Put a comment on a statement in a safe way.
Definition: statement.c:1831

make_expression_statement
statement make_expression_statement(expression)
Build a statement from a given expression.
Definition: statement.c:1308

statement_identification
string statement_identification(statement)
Like external_statement_identification(), but with internal information, the hexadecimal address of t...
Definition: statement.c:1700

make_stop_statement
statement make_stop_statement(string)
This function returns a Fortran stop statement with an error message.
Definition: statement.c:908

remove_declaration_statement
statement remove_declaration_statement(statement, entity)
Declarations are not only lists of entities, but also statement to carry the line number,...
Definition: statement.c:2966

statements_to_declarations
list statements_to_declarations(list)
Returns the declarations contained in a list of statement.
Definition: statement.c:3265

declaration_statements_p
bool declaration_statements_p(list)
Check that all statements contained in statement list sl are declaration statements.
Definition: statement.c:1099

return_statement_p
bool return_statement_p(statement)
Test if a statement is a C or Fortran "return".
Definition: statement.c:172

statement_may_have_control_effects_p
bool statement_may_have_control_effects_p(statement)
Definition: statement.c:3978

put_formats_at_module_end
void put_formats_at_module_end(statement)
Transfer all the FORMATs at the very end of a module:
Definition: statement.c:2328

exit_statement_p
bool exit_statement_p(statement)
Definition: statement.c:177

statement_to_called_user_entities
list statement_to_called_user_entities(statement)
Get a list of all user function called recursively within a statement:
Definition: statement.c:3478

statement_to_comment_length
int statement_to_comment_length(statement)
Number of comment line directly attached to a statement.
Definition: statement.c:2375

decls_text_dup
string decls_text_dup(string)
Duplicate statement decls_text.
Definition: statement.c:574

statement_to_declarations
list statement_to_declarations(void *)
Get a list of all variables declared recursively within a statement.
Definition: statement.c:3253

generated_variable_comment
string generated_variable_comment(entity)
Definition: statement.c:2629

statement_to_labels
list statement_to_labels(statement)
Look for non-empty labels appearing directly or indirectly and allocate a label list.
Definition: statement.c:3169

find_statements_with_pragma
list find_statements_with_pragma(statement, const char *)
Get a list of statements with pragma begining with a prefix.
Definition: statement.c:3912

make_declaration_statement
statement make_declaration_statement(entity, int, string)
Make one declaration statement.
Definition: statement.c:1091

make_call_statement
statement make_call_statement(string, list, entity, string)
This function is limited to intrinsics calls...
Definition: statement.c:1274

instruction_to_declarations
list instruction_to_declarations(instruction)
Get a list of all variables declared recursively within an instruction.
Definition: statement.c:3279

statement_with_pragma_p
bool statement_with_pragma_p(statement)
Test if a statement has some pragma.
Definition: statement.c:3836

write_statement_p
bool write_statement_p(statement)
Definition: statement.c:281

figure_out_if_it_is_a_format
bool figure_out_if_it_is_a_format(instruction, bool *)
Definition: statement.c:2343

pop_generated_variable_commenter
void pop_generated_variable_commenter(void)
Definition: statement.c:2623

find_reference_to_variable
reference find_reference_to_variable(statement, entity)
Definition: statement.c:3543

stop_statement_p
bool stop_statement_p(statement)
Test if a statement is a Fortran STOP.
Definition: statement.c:263

add_one_line_of_comment
void add_one_line_of_comment(statement, string,...)
Definition: statement.c:1940

external_statement_identification
string external_statement_identification(statement)
Does work neither with undefined statements nor with defined statements with undefined instructions.
Definition: statement.c:1671

add_comment_and_line_number
statement add_comment_and_line_number(statement, string, int)
Since block cannot carry comments nor line numbers, they must be moved to an internal continue statem...
Definition: statement.c:1980

fortran_return_statement_p
bool fortran_return_statement_p(statement)
Test if a statement is a Fortran "return".
Definition: statement.c:188

statement_to_direct_declarations
list statement_to_direct_declarations(statement)
Returns the declarations contained directly in a statement s.
Definition: statement.c:3366

make_C_print_statement
statement make_C_print_statement(string)
Definition: statement.c:852

continue_statement_p
bool continue_statement_p(statement)
Test if a statement is a CONTINUE, that is the FORTRAN nop, the ";" in C or the "pass" in Python....
Definition: statement.c:203

find_statement_from_label
statement find_statement_from_label(statement, entity)
find a statement in s with entity label
Definition: statement.c:3810

make_declarations_statement
statement make_declarations_statement(list, int, string)
Make a declaration(s) statement.
Definition: statement.c:990

insert_statement
void insert_statement(statement, statement, bool)
This is the normal entry point.
Definition: statement.c:2570

empty_code_list_p
bool empty_code_list_p(list)
Definition: statement.c:99

statement_to_line_number
persistant_statement_to_int statement_to_line_number(statement)
Definition: statement.c:2460

safe_statement_identification
string safe_statement_identification(statement)
Definition: statement.c:1726

make_return_statement
statement make_return_statement(entity)
Definition: statement.c:779

empty_code_p
bool empty_code_p(statement)
statement.c
Definition: statement.c:86

build_number_to_statement
hash_table build_number_to_statement(hash_table, statement)
Definition: statement.c:1516

assignment_statement_p
bool assignment_statement_p(statement)
Test if a statement is an assignment.
Definition: statement.c:135

insert_statement_no_matter_what
void insert_statement_no_matter_what(statement, statement, bool)
Break the IR consistency or, at the very least, do not insert new declarations at the usual place,...
Definition: statement.c:2581

statement_pragmas
list statement_pragmas(statement)
get the list of pragma of a statement s
Definition: statement.c:3851

make_simple_Fortran_io_instruction
instruction make_simple_Fortran_io_instruction(bool, expression, list)
Derived from the Fortran parser code.
Definition: statement.c:807

add_declaration_statement_here
statement add_declaration_statement_here(statement, statement, entity, bool)
Add a new declaration statement (inspired by generic_add_declaration_statement)
Definition: statement.c:2839

make_exit_statement
statement make_exit_statement(int, string)
This function returns a statement ending with a C exit statement.
Definition: statement.c:926

comments_dup
string comments_dup(string)
functions to generate statements
Definition: statement.c:557

statement_possible_less_p
bool statement_possible_less_p(statement, statement)
Definition: statement.c:306

statement_less_p
bool statement_less_p(statement, statement)
Definition: statement.c:288

make_continue_statement
statement make_continue_statement(entity)
Definition: statement.c:953

forloop_statement_p
bool forloop_statement_p(statement)
Definition: statement.c:209

gather_all_comments_of_a_statement
string gather_all_comments_of_a_statement(statement)
Gather all the comments recursively found in the given statement and return them in a strduped string...
Definition: statement.c:1760

get_extension_from_statement_with_pragma
extension get_extension_from_statement_with_pragma(statement, const char *)
Get the extension of a statement with pragma beginning with a prefix.
Definition: statement.c:3871

C_return_statement_p
bool C_return_statement_p(statement)
Test if a statement is a C "return".
Definition: statement.c:194

fix_statement_attributes_if_sequence
void fix_statement_attributes_if_sequence(statement)
Apply fix_sequence_statement_attributes() on the statement only if it really a sequence.
Definition: statement.c:2078

statements_to_direct_declarations
list statements_to_direct_declarations(list)
Returns the declarations contained directly in the declaration statements of a list of statements.
Definition: statement.c:3334

declaration_statement_to_initializations
list declaration_statement_to_initializations(statement)
Definition: statement.c:1128

statement_replace_in_root_statement
bool statement_replace_in_root_statement(statement, statement, statement)
replace old_stat by new_stat in root_stat this pass does not free old_stat similar to replace_in_sequ...
Definition: statement.c:4235

get_statement_depth
int get_statement_depth(statement, statement)
computes the block-depth of a statement NOT INTENDED to generate entity name declared at particular b...
Definition: statement.c:3725

add_declaration_statement
statement add_declaration_statement(statement, entity)
Definition: statement.c:2790

assignment_block_or_statement_p
bool assignment_block_or_statement_p(statement)
Definition: statement.c:142

statement_in_statement_p
bool statement_in_statement_p(statement, statement)
Definition: statement.c:4076

clear_labels
statement clear_labels(statement)
Get rid of all labels in controlized code before duplication.
Definition: statement.c:1560

empty_comments_p
bool empty_comments_p(const char *)
Definition: statement.c:107

statement_with_empty_comment_p
bool statement_with_empty_comment_p(statement)
Return true if the statement has an empty statement:
Definition: statement.c:126

clear_label
void clear_label(statement)
Definition: statement.c:1568

normalize_statement
statement normalize_statement(statement)
Make (a bit more) sure that s is gen_defined_p in spite of poor decision for empty fields and that st...
Definition: statement.c:4035

find_statement_from_label_name
statement find_statement_from_label_name(statement, const char *, const char *)
Definition: statement.c:3816

make_test_statement
statement make_test_statement(expression, statement, statement)
Definition: statement.c:1248

abort_statement_p
bool abort_statement_p(statement)
Definition: statement.c:182

gather_and_remove_all_format_statements_rewrite
void gather_and_remove_all_format_statements_rewrite(statement, list *)
Definition: statement.c:2270

make_plain_continue_statement
statement make_plain_continue_statement(void)
Make a simple continue statement to be used as a NOP or ";" in C.
Definition: statement.c:964

statement_may_contain_exiting_intrinsic_call_p
bool statement_may_contain_exiting_intrinsic_call_p(statement)
Definition: statement.c:4022

push_generated_variable_commenter
void push_generated_variable_commenter(string(*)(entity))
Definition: statement.c:2616

add_label_to_statement
statement add_label_to_statement(entity, statement, statement *)
Add a label to a statement.
Definition: statement.c:2158

st_make_nice_test
statement st_make_nice_test(expression, list, list)
Definition: statement.c:1585

continue_statements_p
bool continue_statements_p(list)
Check that all statements contained in statement list sl are a continue statements.
Definition: statement.c:246

format_inside_statement_p
bool format_inside_statement_p(statement)
Definition: statement.c:2360

make_forloop_statement
statement make_forloop_statement(expression, expression, expression, statement)
Definition: statement.c:1220

statement_replace_with_statement_list
void statement_replace_with_statement_list(statement, statement, list)
Assume that statement rs appears in statement as and replaced it by a statement list.
Definition: statement.c:3081

statement_substatement_p
bool statement_substatement_p(statement, statement)
search a statement inside a statement
Definition: statement.c:3702

statement_does_return
bool statement_does_return(statement)
Returns false is no syntactic control path exits s (i.e.
Definition: statement.c:2195

fix_sequence_statement_attributes
void fix_sequence_statement_attributes(statement)
Since blocks are not represented in Fortran, they cannot carry a label.
Definition: statement.c:2016

statement_in_statements_p
bool statement_in_statements_p(statement, list)
Definition: statement.c:4097

declaration_statement_p
bool declaration_statement_p(statement)
Had to be optimized according to Beatrice Creusillet.
Definition: statement.c:224

statement_remove_extensions
void statement_remove_extensions(statement)
That's all folks.
Definition: statement.c:4263

belong_to_statement
bool belong_to_statement(statement, statement, bool)
return true if s is enclosed in stmt NL: What is the difference with statement_in_statement_p?
Definition: statement.c:4304

find_final_statement_label
entity find_final_statement_label(statement)
Find the label associated with the last statement executed within s.
Definition: statement.c:4360

comment_sentinel
string comment_sentinel(tag)
Start a single line comment.
Definition: statement.c:4420

statement_remove_useless_label
void statement_remove_useless_label(statement, bool *)
remove the label of a statement if the statement is not unstructured.
Definition: statement.c:4275

linear.h

naming.h

newgen.h

bool
int bool
we cannot use an enum or stdbool because we need to be compatible with newgen, thus boolean need to h...
Definition: newgen_types.h:78

tag
int tag
TAG.
Definition: newgen_types.h:92

_int
intptr_t _int
_INT
Definition: newgen_types.h:53

list
struct cons * list
Definition: newgen_types.h:106

f
int f(int off1, int off2, int n, float r[n], float a[n], float b[n])
Definition: offsets.c:15

remove_a_control_from_a_list_and_relink_direction
remove_a_control_from_a_list_and_relink_direction
For the control graph modifiers:
Definition: ri-util-local.h:1831

range_to_expression_mode
range_to_expression_mode
Definition: ri-util-local.h:2298

find_enum_of_member
entity find_enum_of_member(entity)
Definition: entity.c:2713

update_expression_syntax
void update_expression_syntax(expression, syntax)
frees expression syntax of e and replace it by the new syntax s
Definition: expression.c:3564

typedef_entity_p
bool typedef_entity_p(entity)
Definition: entity.c:1902

storage_space_of_variable
int storage_space_of_variable(entity)
Definition: size.c:656

substitute_entity_in_expression
expression substitute_entity_in_expression(entity, entity, expression)
This function replaces all the occurences of an old entity in the expression exp by the new entity.
Definition: expression.c:2792

formal_label_replacement_p
bool formal_label_replacement_p(entity)
Definition: variable.c:1797

IsBinaryOperator
int IsBinaryOperator(entity)
FI: These string constants are defined in ri-util.h and the tokens in ri-util/operator....
Definition: eval.c:660

make_vecteur_expression
expression make_vecteur_expression(Pvecteur)
make expression for vector (Pvecteur)
Definition: expression.c:1650

clean_up_sequences
bool clean_up_sequences(statement)
Recursively clean up the statement sequences by fusing them if possible and by removing useless one.
Definition: clean_up_sequences.c:704

commutative_call_p
bool commutative_call_p(call)
Test if we are allowed to commute operations.
Definition: entity.c:2661

entity_ith_dimension
dimension entity_ith_dimension(entity, int)
Another semantics would be: is this reference r to e a kill for e? In general, this cannot be answere...
Definition: variable.c:1228

array_reference_p
bool array_reference_p(reference)
predicates on references
Definition: expression.c:1861

char_star_constant_function_type_p
bool char_star_constant_function_type_p(type)
Beware of typedefs.
Definition: type.c:5787

expression_address_of_p
bool expression_address_of_p(expression)
Definition: expression.c:420

basic_to_generic_conversion
entity basic_to_generic_conversion(basic)
returns the corresponding generic conversion entity, if any.
Definition: type.c:2758

rand_effects_entity_p
bool rand_effects_entity_p(entity)
Definition: entity.c:1152

int_to_expression
expression int_to_expression(_int)
transform an int into an expression and generate the corresponding entity if necessary; it is not cle...
Definition: expression.c:1188

expression_is_C_rhs_p
bool expression_is_C_rhs_p(expression)
Not all expressions can be used as right-hand side (rhs) in C assignments.
Definition: expression.c:2582

const_variable_p
bool const_variable_p(entity)
Definition: variable.c:1687

add_integer_to_expression
expression add_integer_to_expression(expression, int)
Definition: expression.c:2132

make_stderr_variable
entity make_stderr_variable(void)
If the parser has not (yet) encountered "stderr", a PIPS transformation or instrumentation phase may ...
Definition: variable.c:302

string_fuse_final_linefeeds
string string_fuse_final_linefeeds(string)
Get rid of extra linefeed/newline at the end of a string.
Definition: util.c:227

simple_basic_dup
basic simple_basic_dup(basic)
Definition: type.c:2735

empty_scope
string empty_scope(void)
Functions used to manage the block scoping in conjunction with ContextStack and yco ntext.
Definition: entity.c:498

reset_static_entities
void reset_static_entities(void)
Definition: entity.c:146

expression_constant_p
bool expression_constant_p(expression)
================================================================
Definition: expression.c:2453

basic_of_expression
basic basic_of_expression(expression)
basic basic_of_expression(expression exp): Makes a basic of the same basic as the expression "exp".
Definition: type.c:1383

fortran_language_module_p
bool fortran_language_module_p(entity)
Definition: module.c:452

make_assign_expression
expression make_assign_expression(expression, expression)
Make an assign expression, since in C the assignment is a side effect operator.
Definition: expression.c:390

ultimate_type
type ultimate_type(type)
Definition: type.c:3466

true_expression_p
bool true_expression_p(expression)
Definition: expression.c:1113

MakeDoubleprecisionParameter
parameter MakeDoubleprecisionParameter(void)
Definition: type.c:209

pragma_private_as_expr
expression pragma_private_as_expr(list)
Definition: pragma.c:207

reference_with_constant_indices_p
bool reference_with_constant_indices_p(reference)
Definition: expression.c:3022

fprint_environment
void fprint_environment(FILE *, entity)
Definition: declarations.c:287

array_type_p
bool array_type_p(type)
Definition: type.c:2942

MakeConstant
entity MakeConstant(string, tag)
Make a Fortran constant.
Definition: constant.c:351

find_ith_dimension
dimension find_ith_dimension(list, int)
This function returns the ith dimension of a list of dimensions.
Definition: type.c:5621

expression_list_directed_p
bool expression_list_directed_p(expression)

get_referenced_entities
set get_referenced_entities(void *)
retrieves the set of entities used in elem beware that this entities may be formal parameters,...
Definition: entity.c:3063

load_statement_enclosing_loops
list load_statement_enclosing_loops(statement)

variable_length_array_type_p
bool variable_length_array_type_p(type)
Is this equivalent to dependent_type_p()?
Definition: type.c:2972

NormalizeCall
normalized NormalizeCall(call)
Definition: normalize.c:145

call_compatible_type_p
bool call_compatible_type_p(type)
end of basic_concrete_types
Definition: type.c:3764

make_standard_long_integer_type
type make_standard_long_integer_type(type)
Definition: type.c:3309

MakeLongLongIntegerResult
type MakeLongLongIntegerResult(void)
MB.
Definition: type.c:286

expression_subscript_p
bool expression_subscript_p(expression)
Definition: expression.c:1838

remove_variable_entity
void remove_variable_entity(entity)
Definition: variable.c:1306

double_entities
list double_entities
Definition: ri-util.h:2387

ValueNumberOfElements
Value ValueNumberOfElements(list)
Definition: size.c:435

expression_mult
expression expression_mult(expression)
Definition: expression.c:156

functional_type_supporting_entities
list functional_type_supporting_entities(list, functional)
Definition: type.c:4014

make_unbounded_expression
expression make_unbounded_expression(void)
Definition: expression.c:4339

MakeCharacterConstantExpression
expression MakeCharacterConstantExpression(string)
END_EOLE.
Definition: constant.c:573

entity_to_module_entity
entity entity_to_module_entity(entity)
Find the enclosing module of an entity.
Definition: entity.c:2053

SizeOfArray
bool SizeOfArray(entity, int *)
This function computes the total size of a variable in bytes, ie.
Definition: size.c:87

get_allocatable_data_entity
entity get_allocatable_data_entity(entity)
Get the entity inside the struct corresponding to the array, mostly for correct prettyprint.
Definition: allocatable.c:157

print_ordering_to_statement
void print_ordering_to_statement(void)
Dump the ordering with the corresponding statement address.
Definition: ordering.c:71

free_arguments
void free_arguments(cons *)
Definition: arguments.c:218

cabs_expression_p
bool cabs_expression_p(expression)
Definition: expression.c:1048

min0_expression_p
bool min0_expression_p(expression)
Definition: expression.c:1054

module_to_heap_area
entity module_to_heap_area(entity)
Returns the heap area "a" associated to module "f".
Definition: area.c:129

default_complex_type_p
bool default_complex_type_p(type)
Definition: type.c:3246

logical_constant_p
bool logical_constant_p(entity)
Definition: constant.c:463

intrinsic_entity_p
bool intrinsic_entity_p(entity)
Definition: entity.c:1272

generic_symbolic_supporting_entities
list generic_symbolic_supporting_entities(list, set, symbolic, bool)
Definition: type.c:4198

reset_std_static_entities
void reset_std_static_entities(void)
Definition: entity.c:138

GenericCleanLocalEntities
void GenericCleanLocalEntities(entity, bool)
Definition: clean.c:123

expression_brace_p
bool expression_brace_p(expression)
predicates and short cut accessors on expressions
Definition: expression.c:407

reset_unstructured_number
void reset_unstructured_number(void)
reorder.c
Definition: reorder.c:56

array_type_to_pointer_type
type array_type_to_pointer_type(type)
Allocate a new type that is the type of an array constant.
Definition: type.c:5739

MakeBasic
basic MakeBasic(int)
END_EOLE.
Definition: type.c:128

qualifiers_restrict_p
bool qualifiers_restrict_p(list)
Check that a qualifier list contains the restrict qualifier.
Definition: type.c:5466

dependent_type_p
bool dependent_type_p(type)
A type is dependent in many ways according to definitions given in Wikipedia.
Definition: type.c:5849

fixed_length_array_type_p
bool fixed_length_array_type_p(type)
Definition: type.c:2987

make_empty_program
entity make_empty_program(const char *, language)
Definition: entity.c:261

any_function_to_return_value
entity any_function_to_return_value(entity)
Same as function_to_return_value(), but returns value_undefined when m is a C void function or a Fort...
Definition: module.c:516

explicit_extern_entity_p
bool explicit_extern_entity_p(entity, entity)
Definition: entity.c:2016

reference_scalar_p
bool reference_scalar_p(reference)
This function returns true if Reference r is scalar.
Definition: expression.c:3530

CreateEntity
entity CreateEntity(const char *, const char *)
BEGIN_EOLE.
Definition: entity.c:1572

reference_complete_with_zero_subscripts
void reference_complete_with_zero_subscripts(reference)
Reference r to an array maybe partial, as is possible in C: with declaration "int a[10][10]",...
Definition: expression.c:278

set_keyword_typedef_table
void set_keyword_typedef_table(hash_table)
Definition: static.c:263

print_type
void print_type(type)
For debugging.
Definition: type.c:111

get_stdin_entity
entity get_stdin_entity(void)
Definition: entity.c:1197

stderr_entity_p
bool stderr_entity_p(entity)
Definition: entity.c:1226

expression_pointer_p
bool expression_pointer_p(expression)
we get the type of the expression by calling expression_to_type() which allocates a new one.
Definition: expression.c:506

make_op_exp
expression make_op_exp(char *, expression, expression)
================================================================
Definition: expression.c:2012

basic_of_intrinsic
basic basic_of_intrinsic(call, bool, bool)
basic basic_of_intrinsic(call c): returns the basic of the result given by call to an intrinsic funct...
Definition: type.c:1555

module_predicat_fortranfilename
string module_predicat_fortranfilename(entity)
Definition: util.c:82

reference_with_unbounded_indices_p
bool reference_with_unbounded_indices_p(reference)
indices can be constant or unbounded: they are store independent.
Definition: expression.c:3066

arguments_set_equal_p
bool arguments_set_equal_p(list, list)
Set equality of lists a1 and a2.
Definition: arguments.c:181

sub_expression_p
bool sub_expression_p(expression)
Definition: expression.c:991

real_entities
list real_entities
Definition: ri-util.h:2386

constant_expression_supporting_references
list constant_expression_supporting_references(list, expression)
Only applicable to C expressions.
Definition: type.c:4451

entity_local_variable_p
bool entity_local_variable_p(entity, entity)
Check if a variable "var" is local to a module "module".
Definition: entity.c:3104

call_constant_p
bool call_constant_p(call)
bool call_constant_p(call c): Returns true if "c" is a call to a constant, that is,...
Definition: expression.c:1965

MakeDoublecomplexResult
type MakeDoublecomplexResult(void)
Definition: type.c:316

error_reset_current_module_statement
void error_reset_current_module_statement(void)
To be called by an error management routine only.
Definition: static.c:234

expression_similar_p
bool expression_similar_p(expression, expression)
compare if two expressions are similar that is can we exchange target and pattern by substituing vari...
Definition: expression.c:3360

entity_field_to_entity_struct
entity entity_field_to_entity_struct(entity)
Definition: entity.c:905

SizeOfDimensions
expression SizeOfDimensions(list)
computes the product of all dimensions in dims
Definition: size.c:522

effect_basic_depth
int effect_basic_depth(basic)
Definition: type.c:4985

heap_area_p
bool heap_area_p(entity)
Definition: area.c:86

expression_implied_do_p
bool expression_implied_do_p(expression)

CleanLocalEntities
void CleanLocalEntities(entity)
Fortran version.
Definition: clean.c:140

FindIthDimension
dimension FindIthDimension(entity, int)
Definition: type.c:1180

constant_basic
basic constant_basic(entity)
Definition: constant.c:633

references_do_not_conflict_p
bool references_do_not_conflict_p(reference, reference)
If true is returned, the two references cannot conflict unless array bound declarations are violated.
Definition: expression.c:1888

reference_equal_p
bool reference_equal_p(reference, reference)
Definition: expression.c:1500

qualifiers_equal_p
bool qualifiers_equal_p(list, list)
Definition: type.c:758

entity_array_p
bool entity_array_p(entity)
Is e a variable with an array type?
Definition: entity.c:754

formal_context_variable_p
bool formal_context_variable_p(entity)
Such pseudo-variables are generated by the points-to analysis.
Definition: variable.c:1535

NumberOfElements
bool NumberOfElements(basic, list, int *)
Definition: size.c:403

make_scalar_char_pointer_type
type make_scalar_char_pointer_type(void)
Allocate a char * pointer type.
Definition: type.c:5227

make_entity_copy
entity make_entity_copy(entity)
Create a copy of an entity, with (almost) identical type, storage and initial value if move_initializ...
Definition: entity.c:2433

type_supporting_types
list type_supporting_types(type)
Return the list of types used to define type t.
Definition: type.c:5203

integer_constant_p
bool integer_constant_p(entity, int *)
Returns the double value associated to a PIPS constant.
Definition: constant.c:542

logical_operator_expression_p
bool logical_operator_expression_p(expression)
C xor is missing.
Definition: expression.c:573

stack_area_p
bool stack_area_p(entity)
Definition: area.c:104

string_block_scope_p
bool string_block_scope_p(string)
Definition: entity.c:511

MakeLongIntegerResult
type MakeLongIntegerResult(void)
MB.
Definition: type.c:281

arguments_union
cons * arguments_union(cons *, cons *)
cons * arguments_union(cons * a1, cons * a2): returns a = union(a1, a2) where a1 and a2 are lists of ...
Definition: arguments.c:116

make_new_entity
entity make_new_entity(basic, int)
Definition: variable.c:898

array_type_to_sub_array_type
type array_type_to_sub_array_type(type)
Allocate a new type, the sub-array type of "t".
Definition: type.c:5718

stdin_entity_p
bool stdin_entity_p(entity)
Definition: entity.c:1203

DynamicArea
entity DynamicArea
area.c
Definition: area.c:57

vect_product
Pvecteur vect_product(Pvecteur *, Pvecteur *)
returns a Pvecteur equal to (*pv1) * (*pv2) if this product is linear or NULL otherwise.
Definition: eval.c:1032

int_to_entity
entity int_to_entity(_int)
Definition: constant.c:453

MakeLongDoublecomplexResult
type MakeLongDoublecomplexResult(void)
MB.
Definition: type.c:322

expression_to_polynome
Ppolynome expression_to_polynome(expression)
===========================================================================
Definition: expression.c:3650

entity_static_variable_p
bool entity_static_variable_p(entity)
return true if the entity is declared with the keyword static
Definition: variable.c:1146

effect_type_depth
int effect_type_depth(type)
Number of steps to access the lowest leave of type t.
Definition: type.c:4948

expression_equal_in_list_p
bool expression_equal_in_list_p(expression, list)
This function returns true, if there exists an expression equal in the list false,...
Definition: expression.c:566

concat_new_entities
list concat_new_entities(list, list)
returns l1 after elements of l2 but not of l1 have been appended to l1.
Definition: entity.c:2236

backward_control_map_get_blocs
void backward_control_map_get_blocs(control, cons **)

entity_unbounded_p
bool entity_unbounded_p(entity)
bool entity_unbounded_p(entity e) input : an array entity output : true if the last dimension of the ...
Definition: variable.c:1252

variable_is_a_module_formal_parameter_p
bool variable_is_a_module_formal_parameter_p(entity, entity)
Definition: variable.c:1547

make_new_label
entity make_new_label(entity)
This function returns a new label.
Definition: entity.c:357

ultimate_type_equal_p
bool ultimate_type_equal_p(type, type)
Definition: type.c:563

MakeAnyScalarParameter
parameter MakeAnyScalarParameter(tag, _int)
For Fortran.
Definition: type.c:251

expression_opposite_p
bool expression_opposite_p(expression, expression)
e1+e2==0, i.e.
Definition: expression.c:1386

IsNaryOperator
int IsNaryOperator(entity)
Definition: eval.c:746

unary_minus_expression_p
bool unary_minus_expression_p(expression)
Definition: expression.c:1030

base_to_entities
list base_to_entities(Pvecteur)
generate a Newgen list with all entities refered in vector b
Definition: arguments.c:250

same_entity_p
bool same_entity_p(entity, entity)
predicates on entities
Definition: entity.c:1321

entity_ith_bounds
expression entity_ith_bounds(entity, int)
FIND_MODULE returns entity.
Definition: entity.c:1626

global_name_to_entity
entity global_name_to_entity(const char *)
Find an entity, if it exists, from its global name, a.k.a.
Definition: entity.c:1516

expression_reference_p
bool expression_reference_p(expression)
Test if an expression is a reference.
Definition: expression.c:528

get_stderr_entity
entity get_stderr_entity(void)
Definition: entity.c:1220

subscript_expressions_to_constant_subscript_expressions
list subscript_expressions_to_constant_subscript_expressions(list)
make a full copy of the subscript expression list, preserve constant subscripts, replace non-constant...
Definition: expression.c:3981

struct_initialization_expression_to_expressions
list struct_initialization_expression_to_expressions(expression)
Returns a list of expressions hidden by the brace function.
Definition: expression.c:4073

FORTRAN_PRAGMA_HEADER
const string FORTRAN_PRAGMA_HEADER
pragma.c
Definition: pragma.c:51

HeapArea
entity HeapArea
Definition: area.c:59

ExpressionToInt
int ExpressionToInt(expression)
this function computes the value of an integer constant expression and returns it to the calling func...
Definition: size.c:562

MakeUnsignedIntegerResult
type MakeUnsignedIntegerResult(void)
Definition: type.c:265

CCleanLocalEntities
void CCleanLocalEntities(entity)
C language version.
Definition: clean.c:146

variable_equal_p
bool variable_equal_p(variable, variable)
Definition: type.c:819

entity_enum_p
bool entity_enum_p(entity)
Definition: entity.c:968

NormalizeSyntax
normalized NormalizeSyntax(syntax)
Definition: normalize.c:94

current_offset_of_area
int current_offset_of_area(entity, entity)
Definition: area.c:174

FindOrCreateEntityLikeModel
entity FindOrCreateEntityLikeModel(const char *, const char *, entity)
hmmm...
Definition: entity.c:3136

storage_to_string
string storage_to_string(storage)
Definition: entity.c:2030

MakeModeValue
mode MakeModeValue(void)
Definition: type.c:87

make_standard_integer_type
type make_standard_integer_type(type, int)
Definition: type.c:3196

EvalNaryOp
value EvalNaryOp(int, list)
Definition: eval.c:591

static_module_p
bool static_module_p(entity)
Check if the given module entity is a static module.
Definition: module.c:80

expression_list_to_binary_operator_call
expression expression_list_to_binary_operator_call(list, entity)
Definition: expression.c:1917

recursive_functional_type_supporting_entities
list recursive_functional_type_supporting_entities(list, set, functional)
Definition: type.c:3977

fcd_directive_p
bool fcd_directive_p(entity)
Definition: hpfc.c:90

range_count
bool range_count(range, intptr_t *)
The range count only can be evaluated if the three range expressions are constant and if the incremen...
Definition: eval.c:979

call_compatible_type
type call_compatible_type(type)
returns the type necessary to generate or check a call to an object of type t.
Definition: type.c:3791

AddLocalEntityToDeclarationsOnly
void AddLocalEntityToDeclarationsOnly(entity, entity, statement)
Add the variable entity e to the list of variables of the function module.
Definition: variable.c:253

make_true_expression
expression make_true_expression(void)
Definition: expression.c:1103

expression_sizeofexpression_p
bool expression_sizeofexpression_p(expression)
Definition: expression.c:460

complex_entities
list complex_entities
Definition: ri-util.h:2386

string_strip_final_linefeeds
string string_strip_final_linefeeds(string)
Get rid of linefeed/newline at the end of a string.
Definition: util.c:208

clean_up_sequences_internal
bool clean_up_sequences_internal(statement)
An entry point for internal usage, such as from take_out_the_exit_node_if_not_a_continue():
Definition: clean_up_sequences.c:676

statement_to_goto_table
hash_table statement_to_goto_table
clean_up_sequences.c
Definition: clean_up_sequences.c:51

long_type_p
bool long_type_p(type)
Definition: type.c:2831

basic_type_size
int basic_type_size(basic)
See also SizeOfElements()
Definition: type.c:1074

basic_of_external
basic basic_of_external(call)
basic basic_of_external(call c): returns the basic of the result given by the call to an external fun...
Definition: type.c:1509

expression_range
range expression_range(expression)
Definition: expression.c:1853

free_keyword_typedef_table
void free_keyword_typedef_table(void)
Definition: static.c:275

vcid_ri_util_control
char vcid_ri_util_control[]
control.c
Definition: control.c:34

type_void_star_p
bool type_void_star_p(type)
Definition: type.c:5765

entity_equivalence_p
bool entity_equivalence_p(entity)
checks if an entity is an equivalent
Definition: entity.c:2194

entity_name_or_TCST
const char * entity_name_or_TCST(entity)
Return a name valid for sorting variables in vectors and constraint systems.
Definition: entity.c:627

expression_with_constant_signed_integer_value_p
bool expression_with_constant_signed_integer_value_p(expression)
The expression may be complicated but all its leaves are constants or parameters.
Definition: expression.c:960

EvalConditionalOp
value EvalConditionalOp(list)
Definition: eval.c:309

entity_enum_variable_p
bool entity_enum_variable_p(entity)
Definition: entity.c:992

MakeValueSymbolic
value MakeValueSymbolic(expression)
this function creates a value for a symbolic constant.
Definition: constant.c:581

Value_to_expression
expression Value_to_expression(Value)
added interface for linear stuff.
Definition: expression.c:1251

make_scalar_complex_type
type make_scalar_complex_type(_int)
Definition: type.c:719

AddLocalEntityToDeclarations
void AddLocalEntityToDeclarations(entity, entity, statement)
Add the variable entity e to the list of variables of the function module.
Definition: variable.c:233

reference_with_store_independent_indices
reference reference_with_store_independent_indices(reference)
Return by side effect a reference whose memory locations includes the memory locations of r in case t...
Definition: expression.c:3045

make_char_array_type
type make_char_array_type(int)
Definition: type.c:5213

float_to_expression
expression float_to_expression(float)
Definition: expression.c:1229

MakeTernaryCall
expression MakeTernaryCall(entity, expression, expression, expression)
Creates a call expression to a function with 3 arguments.
Definition: expression.c:367

AddPackageToName
char * AddPackageToName(string, string)
This function concatenate a package name and a local name to produce a global entity name.
Definition: entity.c:2134

variable_declaration_verify
void variable_declaration_verify(reference)
Definition: module.c:116

type_used_in_type_declarations_p
bool type_used_in_type_declarations_p(entity, list)
check if e is used to declare one of the entities in entity list ldecl
Definition: entity.c:2289

reset_label_counter
void reset_label_counter(void)
Definition: entity.c:322

expression_constant
constant expression_constant(expression)
This function returns a "constant" object if the expression is a constant such as 10,...
Definition: expression.c:2347

label_string_defined_in_statement_p
bool label_string_defined_in_statement_p(string, statement)
Definition: entity.c:417

entity_qualifiers
list entity_qualifiers(entity)
return the qualifiers associated to entity e if it's a variable NIL otherwise
Definition: entity.c:1394

fprint_C_environment
void fprint_C_environment(FILE *, entity)
Definition: declarations.c:292

entities_p
bool entities_p(list)
Make sure that an list is an homogeneous list of entities.
Definition: entity.c:2580

make_scalar_entity
entity make_scalar_entity(const char *, const char *, basic)
entity make_scalar_entity(name, module_name, base)
Definition: variable.c:331

array_with_numerical_bounds_p
bool array_with_numerical_bounds_p(entity)
bool array_with_numerical_bounds_p(entity a) input : an array entity output : true if all bounds of a...
Definition: variable.c:1266

filter_variables_in_pragma_expr
list filter_variables_in_pragma_expr(list, list)
filter out a pragma (expression list) removing all requested variables @params l_expr is the list of ...
Definition: pragma.c:256

get_referenced_entities_filtered
set get_referenced_entities_filtered(void *, bool(*)(void *), bool(*)(entity))
Same as get_referenced_entities, but will only consider entities that fulfills entity_filter and will...
Definition: entity.c:2982

make_unbounded_subscripts
list make_unbounded_subscripts(int)
FI: this piece of code must have been duplicated somewhere else in an effect library.
Definition: expression.c:4346

std_file_entity_p
bool std_file_entity_p(entity)
Definition: entity.c:1232

add_non_declared_reference_to_declaration
void add_non_declared_reference_to_declaration(reference)
Definition: module.c:142

MakeNullaryCall
expression MakeNullaryCall(entity)
Creates a call expression to a function with zero arguments.
Definition: expression.c:331

flatten_block_if_necessary
void flatten_block_if_necessary(instruction)
Flatten an instruction block if necessary.
Definition: instruction.c:259

module_all_declarations
list module_all_declarations(entity)
The function itself is not in its declarations.
Definition: module.c:419

enclosing_loops_map_undefined_p
bool enclosing_loops_map_undefined_p(void)

brace_expression_to_statements
list brace_expression_to_statements(entity, expression)
converts a brace expression used to initialize an array (not a struct yet) into a statement sequence
Definition: expression.c:3480

functional_type_supporting_references
list functional_type_supporting_references(list, functional)
Definition: type.c:4390

make_max_expression
expression make_max_expression(expression, expression, enum language_utype)
Definition: expression.c:1579

signed_integer_constant_expression_value
int signed_integer_constant_expression_value(expression)
Definition: expression.c:1551

entity_non_pointer_scalar_p
bool entity_non_pointer_scalar_p(entity)
Definition: variable.c:1193

entity_main_module_p
bool entity_main_module_p(entity)
Definition: entity.c:700

syntax_to_expression
expression syntax_to_expression(syntax)
generates an expression from a syntax
Definition: expression.c:3581

brace_expression_p
bool brace_expression_p(expression)
Return bool indicating if expression e is a brace expression.
Definition: expression.c:3384

get_header_comments
sentence get_header_comments(entity)
Get the header comments (before PROGRAM, FUNCTION,...) from the text declaration:
Definition: module.c:254

expression_to_type
type expression_to_type(expression)
For an array declared as int a[10][20], the type returned for a[i] is int [20].
Definition: type.c:2486

time_effect_entity_p
bool time_effect_entity_p(entity)
Definition: entity.c:1170

entity_volatile_variable_p
bool entity_volatile_variable_p(entity)
Definition: variable.c:1637

dimension_dup
dimension dimension_dup(dimension)
Definition: type.c:1159

initialize_clean_up_sequences_statistics
void initialize_clean_up_sequences_statistics(void)
Definition: clean_up_sequences.c:54

generic_basic_equal_p
bool generic_basic_equal_p(basic, basic, bool, bool, hash_table)
Definition: type.c:824

safe_reset_entity_to_size
void safe_reset_entity_to_size(void)
In case of error handling, PIPS may try to reset this table twice.
Definition: size.c:647

compatible_basic_p
bool compatible_basic_p(basic, basic)
check if two basics are similar.
Definition: type.c:978

same_field_entity_p
bool same_field_entity_p(const entity, const entity)
Definition: entity.c:1019

make_scalar_overloaded_type
type make_scalar_overloaded_type(void)
Definition: type.c:726

area_equal_p
bool area_equal_p(area, area)
Definition: type.c:733

entity_global_name
string entity_global_name(entity)
Used instead of the macro to pass as formal argument.
Definition: entity.c:464

module_local_name
const char * module_local_name(entity)
Returns the module local user name.
Definition: entity.c:582

keep_directive_in_code_p
bool keep_directive_in_code_p(const char *)
whether an entity must be kept in the code.
Definition: hpfc.c:101

pragma_omp_parallel_as_exprs
list pragma_omp_parallel_as_exprs(void)
Definition: pragma.c:215

MakeLongDoublecomplexParameter
parameter MakeLongDoublecomplexParameter(void)
MB.
Definition: type.c:234

MakeModeReference
mode MakeModeReference(void)
Definition: type.c:82

expression_equal_p
bool expression_equal_p(expression, expression)
Syntactic equality e1==e2.
Definition: expression.c:1347

StaticArea
entity StaticArea
Definition: area.c:58

make_address_of_expression
expression make_address_of_expression(expression)
generate a newly allocated expression for &(e)
Definition: expression.c:3956

entity_name_without_scope
string entity_name_without_scope(entity)
allocates a new string
Definition: entity.c:543

comment_string_p
bool comment_string_p(const string)
Test if a string can be a Fortran 77 comment:
Definition: util.c:159

make_subscript_expression
expression make_subscript_expression(expression, list)
Definition: expression.c:397

mode_equal_p
bool mode_equal_p(mode, mode)
Definition: type.c:1035

entity_list_to_base
Pbase entity_list_to_base(list)
Definition: entity.c:2860

entity_scalar_p
bool entity_scalar_p(entity)
The concrete type of e is a scalar type.
Definition: variable.c:1113

call_equal_p
bool call_equal_p(call, call)
Definition: expression.c:1529

get_common_members
list get_common_members(entity, entity, bool)

void_function_p
bool void_function_p(entity)
Check if m is a C void function or a Fortran subroutine.
Definition: module.c:538

arguments_difference
cons * arguments_difference(cons *, cons *)
set difference: a1 - a2 ; similar to set intersection
Definition: arguments.c:233

fortran_constant_expression_supporting_entities
list fortran_constant_expression_supporting_entities(list, expression)
Fortran version.
Definition: type.c:4187

subscript_equal_p
bool subscript_equal_p(subscript, subscript)
Definition: expression.c:1495

declaration_supporting_references
list declaration_supporting_references(list)
Find all references in the declaration list.
Definition: module.c:392

make_new_array_variable_with_prefix
entity make_new_array_variable_with_prefix(const char *, entity, basic, list)
J'ai ameliore la fonction make_new_scalar_variable_with_prefix
Definition: variable.c:785

add_ordering_of_the_statement_to_current_mapping
bool add_ordering_of_the_statement_to_current_mapping(statement)
Add the statement for its ordering, if any, in the hash-map.
Definition: ordering.c:130

expression_list_to_conjonction
expression expression_list_to_conjonction(list)
Definition: expression.c:1937

update_dummy_parameter
void update_dummy_parameter(parameter, entity)
Definition: entity.c:2072

reference_with_unbounded_subscript_p
bool reference_with_unbounded_subscript_p(reference)
See if the reference uses the unbounded function '*'.
Definition: expression.c:3085

make_lin_op_exp
expression make_lin_op_exp(entity, expression, expression)
================================================================
Definition: expression.c:2147

entity_basic_p
bool entity_basic_p(entity, enum basic_utype)
return true if the basic associated with entity e matchs the passed tag
Definition: entity.c:1405

wide_forward_control_map_get_blocs
void wide_forward_control_map_get_blocs(control, cons **)

entity_register_p
bool entity_register_p(entity)
Definition: entity.c:766

array_element_type_p
bool array_element_type_p(type, type)
is "et" the type of an element of an array of type "at"?
Definition: type.c:684

MakeSizeofType
expression MakeSizeofType(type)
Definition: expression.c:3904

make_new_module_variable
entity make_new_module_variable(entity, int)
Make a new module integer variable of name X<d>.
Definition: variable.c:830

parameter_equal_p
bool parameter_equal_p(parameter, parameter)
Definition: type.c:1030

divide_expression_p
bool divide_expression_p(expression)
Definition: expression.c:1012

make_new_scalar_variable
entity make_new_scalar_variable(entity, basic)
Definition: variable.c:741

std_file_entity_to_pointed_file_entity
entity std_file_entity_to_pointed_file_entity(entity)
Dummy standard files targets.
Definition: entity.c:1243

reset_keyword_typedef_table
void reset_keyword_typedef_table(void)
Definition: static.c:268

expression_linear_p
bool expression_linear_p(expression)
returns if e is already normalized and linear.
Definition: eval.c:951

pragma_if_as_expr
expression pragma_if_as_expr(expression)
Definition: pragma.c:184

make_entity_copy_with_new_name_and_suffix
entity make_entity_copy_with_new_name_and_suffix(entity, string, bool)
Create a copy of an entity, with (almost) identical type, storage and initial value if move_initializ...
Definition: entity.c:2495

FindEntityFromUserName
entity FindEntityFromUserName(const char *, const char *)
Definition: entity.c:1520

array_of_derived_type_p
bool array_of_derived_type_p(type)
Definition: type.c:3109

parameter_passing_mode_p
bool parameter_passing_mode_p(entity, int tag)
Returns true when f has no parameters.
Definition: entity.c:2089

make_constraint_expression
expression make_constraint_expression(Pvecteur, Variable)
Make an expression from a constraint v for a given index.
Definition: expression.c:1748

add_pragma_strings_to_statement
void add_pragma_strings_to_statement(statement, list, bool)
Add a list of strings as as many pragmas to a statement.
Definition: pragma.c:448

module_codefilename
string module_codefilename(entity)
To find resources (this should be located in workspace-util as it depends both on pipsdbm and ri-util...
Definition: util.c:57

unstructured_reorder
bool unstructured_reorder(unstructured)
Reorder an unstructured.
Definition: reorder.c:166

make_label
entity make_label(const char *, const char *)
Definition: entity.c:308

suggest_basic_for_expression
tag suggest_basic_for_expression(expression)
a BASIC tag is returned for the expression this is a preliminary version.
Definition: expression.c:130

cute_convex_union
Psysteme cute_convex_union(Psysteme, Psysteme)
convex_hull.c
Definition: convex_hull.c:41

entity_basic
basic entity_basic(entity)
return the basic associated to entity e if it's a function/variable/constant basic_undefined otherwis...
Definition: entity.c:1380

empty_static_area_p
bool empty_static_area_p(entity)
Definition: area.c:201

variable_return_p
bool variable_return_p(entity)
True if a variable is the pseudo-variable used to store value returned by a function:
Definition: variable.c:1522

make_factor_expression
expression make_factor_expression(int, entity)
Some functions to generate expressions from vectors and constraint systems.
Definition: expression.c:1631

reset_enclosing_loops_map
void reset_enclosing_loops_map(void)

array_of_pointers_type_p
bool array_of_pointers_type_p(type)
Definition: type.c:3025

clone_statement
statement clone_statement(statement, clone_context)
clone_statement.c
Definition: clone_statement.c:437

pop_statement_global_stack
statement pop_statement_global_stack(void)
Definition: static.c:352

dimension_size
int dimension_size(dimension)
this function computes the size of a dimension.
Definition: size.c:491

number_of_initial_values
int number_of_initial_values(list)
size.c
Definition: size.c:44

expression_to_uncasted_type
type expression_to_uncasted_type(expression)
If the expression is casted, return its type before cast.
Definition: type.c:2620

empty_scope_p
bool empty_scope_p(string)
Definition: entity.c:500

fprint_entity_list
void fprint_entity_list(FILE *, list)
void fprint_entity_list(FILE *fp,list l): prints a list of entities on file fp.
Definition: entity.c:3188

variable_in_common_p
bool variable_in_common_p(entity)
true if v is in a common.
Definition: variable.c:1570

basic_supporting_entities
list basic_supporting_entities(list, set, basic)
Definition: type.c:4211

bool_to_expression
expression bool_to_expression(bool)
Definition: expression.c:1238

unbounded_entity_p
bool unbounded_entity_p(entity)
Definition: expression.c:4323

intrinsic_call_to_type
type intrinsic_call_to_type(call)
END_EOLE.
Definition: type.c:2080

label_string_defined_in_current_module_p
bool label_string_defined_in_current_module_p(string)
Definition: entity.c:407

element_number
int element_number(basic, list)
END_EOLE.
Definition: size.c:391

make_unbounded_dimensions
list make_unbounded_dimensions(int)
Minimal information to build a d-dimensional array type.
Definition: type.c:5752

scalar_integer_type_p
bool scalar_integer_type_p(type)
Definition: type.c:3276

update_statement_enclosing_loops
void update_statement_enclosing_loops(statement, list)

array_size
int array_size(entity)
Definition: size.c:195

MakeBinaryCall
expression MakeBinaryCall(entity, expression, expression)
Creates a call expression to a function with 2 arguments.
Definition: expression.c:354

label_name_conflict_with_labels
bool label_name_conflict_with_labels(const char *, list)
Definition: entity.c:610

MakeLogicalResult
type MakeLogicalResult(void)
Definition: type.c:306

expression_cast
cast expression_cast(expression)
Definition: expression.c:455

derived_entity_p
bool derived_entity_p(entity)
Definition: entity.c:1048

place_holder_variable_p
bool place_holder_variable_p(entity)
Definition: variable.c:2069

variable_entity_p
bool variable_entity_p(entity)
variable.c
Definition: variable.c:70

NormalizeExpression
normalized NormalizeExpression(expression)
normalize.c
Definition: normalize.c:81

remove_a_control_from_a_list_and_relink_direction
remove_a_control_from_a_list_and_relink_direction
For the control graph modifiers:
Definition: ri-util.h:1839

source_is_predecessor_and_dest_is_successor
@ source_is_predecessor_and_dest_is_successor
Put some strange number to avoid random clash as much as possible...
Definition: ri-util.h:1842

source_is_successor_and_dest_is_predecessor
@ source_is_successor_and_dest_is_predecessor
Definition: ri-util.h:1843

expression_to_concrete_type
type expression_to_concrete_type(expression)
A new type is allocated.
Definition: type.c:3751

get_declared_entities
set get_declared_entities(void *)
retrieves the set of entities declared in elem
Definition: entity.c:3086

abs_expression_p
bool abs_expression_p(expression)
Definition: expression.c:1024

logical_entities
list logical_entities
Definition: ri-util.h:2387

scalar_type_p
bool scalar_type_p(type)
Definition: type.c:2955

split_initializations_in_statement
void split_initializations_in_statement(statement)
Transform a declaration with an initialization statement into 2 parts, a declaration statement and an...
Definition: declarations.c:437

make_contrainte_expression
expression make_contrainte_expression(Pcontrainte, Variable)
A wrapper around make_constraint_expression() for compatibility.
Definition: expression.c:1815

realign_directive_p
bool realign_directive_p(entity)
Definition: hpfc.c:62

char_entities
list char_entities
Definition: ri-util.h:2387

MakeDoublecomplexParameter
parameter MakeDoublecomplexParameter(void)
Definition: type.c:229

arguments_subset_p
bool arguments_subset_p(list, list)
Check if a1 is a subset of a2.
Definition: arguments.c:204

expression_application
application expression_application(expression)
Definition: expression.c:485

field_expression_p
bool field_expression_p(expression)
The expression is of kind "a", where "a" is a field of some struct "s".
Definition: expression.c:498

variable_entities_may_conflict_p
bool variable_entities_may_conflict_p(entity, entity)
Definition: size.c:689

EntityCode
code EntityCode(entity)
this function checks that e has an initial value code.
Definition: entity.c:301

unbounded_dimension_p
bool unbounded_dimension_p(dimension)
bool unbounded_dimension_p(dim) input : a dimension of an array entity.
Definition: expression.c:1130

make_temporary_pointer_to_array_entity
entity make_temporary_pointer_to_array_entity(entity, expression, entity)
Definition: variable.c:819

global_variable_p
bool global_variable_p(entity)
Is v a global variable such as "int i;".
Definition: variable.c:1510

TK_CHARCON_to__int
_int TK_CHARCON_to__int(const char *)
Definition: constant.c:88

expression_verbose_reduction_p_and_return_increment
expression expression_verbose_reduction_p_and_return_increment(expression, bool(expression))

symbolic_entity_p
bool symbolic_entity_p(entity)
Definition: entity.c:1277

compilation_unit_entity_p
bool compilation_unit_entity_p(entity)
Check if the given module entity is a compilation unit.
Definition: module.c:87

reference_add_unbounded_subscripts
void reference_add_unbounded_subscripts(reference, type)
Definition: expression.c:300

hpf_directive_entity_p
bool hpf_directive_entity_p(entity)
Definition: hpfc.c:56

substraction_expression_p
bool substraction_expression_p(expression)
Test if an expression is an substraction.
Definition: expression.c:1000

pragma_omp_parallel_for_as_exprs
list pragma_omp_parallel_for_as_exprs(void)
Definition: pragma.c:236

module_to_declaration_length
int module_to_declaration_length(entity)
Number of user declaration lines for a module.
Definition: module.c:352

if_clause_policy
if_clause_policy
that is all for ri-util-local.h
Definition: ri-util.h:2319

AND_IF_POLICY
@ AND_IF_POLICY
Definition: ri-util.h:2321

OR_IF_POLICY
@ OR_IF_POLICY
Definition: ri-util.h:2322

IGNORE_IF_POLICY
@ IGNORE_IF_POLICY
Definition: ri-util.h:2320

basic_to_string
string basic_to_string(basic)
Warning! Do not modify this file that is automatically generated!
Definition: type.c:87

enum_type_p
bool enum_type_p(type)
Returns true if t is of type derived and if the derived type is a enum.
Definition: type.c:3172

reference_add_zero_subscript
void reference_add_zero_subscript(reference)
No check on reference r.
Definition: expression.c:267

derived_type_fields
list derived_type_fields(type)
Definition: type.c:5354

entity_module_p
bool entity_module_p(entity)
Definition: entity.c:683

dynamic_area_p
bool dynamic_area_p(entity)
Definition: area.c:68

make_zero_expression
expression make_zero_expression(void)
Make a zero expression.
Definition: expression.c:1212

module_entitiesfilename
string module_entitiesfilename(entity)
Definition: util.c:87

C_type_to_pointed_type
type C_type_to_pointed_type(type)
returns a copy of t if t is not a pointer type, and the pointed type if t is a pointer type or.
Definition: type.c:5288

expression_normalize_subscripts
void expression_normalize_subscripts(expression)
To be used for initialization expressions.
Definition: expression.c:4465

expression_one_p
bool expression_one_p(expression)
Definition: expression.c:2591

entity_blockdata_p
bool entity_blockdata_p(entity)
Definition: entity.c:712

range_to_expression
expression range_to_expression(range, enum range_to_expression_mode mode)
computes the distance between the lower bound and the upper bound of the range
Definition: eval.c:963

AddEntityToDeclarations
void AddEntityToDeclarations(entity, entity)
END_EOLE.
Definition: variable.c:108

MakeTypeUnknown
type MakeTypeUnknown(void)
Definition: type.c:97

davinci_dump_all_expressions
void davinci_dump_all_expressions(FILE *, statement)
dump all expressions in s to out.
Definition: expression.c:2728

NormalizeConstant
normalized NormalizeConstant(constant)
Definition: normalize.c:175

get_current_statement_from_statement_global_stack
statement get_current_statement_from_statement_global_stack(void)
Definition: static.c:344

type_fundamental_basic_p
bool type_fundamental_basic_p(type)
Definition: type.c:2930

ultimate_array_type
type ultimate_array_type(type)
Definition: type.c:3471

type_to_array_type
type type_to_array_type(type)
convert a type "t" into a newly allocated array type "at" whose elements are of type "t",...
Definition: type.c:5653

MakeComplexResult
type MakeComplexResult(void)
Definition: type.c:311

thread_safe_variable_p
bool thread_safe_variable_p(entity)
Definition: entity.c:2539

make_list_of_constant
list make_list_of_constant(int, int)
of expression
Definition: expression.c:3369

call_to_type
type call_to_type(call)
Definition: type.c:2313

make_empty_blockdata
entity make_empty_blockdata(const char *, language)
Definition: entity.c:290

statement_global_stack_defined_p
bool statement_global_stack_defined_p(void)
Definition: static.c:364

generate_pseudo_formal_variable_for_formal_label
entity generate_pseudo_formal_variable_for_formal_label(const char *, int)
Definition: variable.c:1744

arguments_equal_p
bool arguments_equal_p(list, list)
Check the syntactic equality of lists a1 and a2.
Definition: arguments.c:139

set_ordering_to_statement
hash_table set_ordering_to_statement(statement)
To be used instead of initialize_ordering_to_statement() to make sure that the hash table ots is in s...
Definition: ordering.c:172

add_thread_safe_variable
void add_thread_safe_variable(entity)
Definition: entity.c:2525

type_supporting_references
list type_supporting_references(list, type)
Definition: type.c:4700

FORTRAN_OMP_CONTINUATION
const string FORTRAN_OMP_CONTINUATION
Definition: pragma.c:52

static_global_variable_p
bool static_global_variable_p(entity)
Is v a global variable declared local to a C file such "static int i;".
Definition: variable.c:1498

type_to_pointer_type
type type_to_pointer_type(type)
allocate a new type "pt" which includes directly "t".
Definition: type.c:5253

label_local_name
const char * label_local_name(entity)
END_EOLE.
Definition: entity.c:604

expression_string_constant_p
bool expression_string_constant_p(expression)
Definition: expression.c:2398

make_loop_label
entity make_loop_label(int, entity)

local_entity_of_module_p
bool local_entity_of_module_p(entity, entity)
This test shows that "e" has been declared in "module".
Definition: entity.c:1069

control_node_reorder
void control_node_reorder(control, set)

call_to_functional_type
type call_to_functional_type(call, bool)
The function called can have a functional type, or a typedef type or a pointer type to a functional t...
Definition: type.c:3824

number_of_fields
int number_of_fields(type)
Recursive number of fields in a data structure...
Definition: type.c:3893

normalize_first_expressions_of
void normalize_first_expressions_of(void *)
Definition: normalize.c:694

get_stdout_entity
entity get_stdout_entity(void)
Definition: entity.c:1209

make_new_derived_entity_with_prefix
entity make_new_derived_entity_with_prefix(const char *, entity, type)
derived from make_new_scalar_variable_with_prefix
Definition: variable.c:685

MakeCastExpression
expression MakeCastExpression(type, expression)
Definition: expression.c:3911

function_return_value_p
bool function_return_value_p(entity, entity)
Is entity v the return value of function f?
Definition: module.c:529

make_entity_expression
expression make_entity_expression(entity, cons *)
Definition: expression.c:176

expression_to_float
float expression_to_float(expression)
Same as above for floating point constants.
Definition: expression.c:2305

extract_references_from_declarations
list extract_references_from_declarations(list)
FI: this function has not yet been extended for C types!!!
Definition: entity.c:2834

enum_supporting_entities
list enum_supporting_entities(list, set, entity)
Definition: type.c:4025

entity_empty_label
entity entity_empty_label(void)
Definition: entity.c:1105

variable_dynamic_p
bool variable_dynamic_p(entity)
Definition: variable.c:1586

CreateIntrinsic
entity CreateIntrinsic(string)
this function does not create an intrinsic function because they must all be created beforehand by th...
Definition: entity.c:1311

hpf_directive_string_p
bool hpf_directive_string_p(const char *)
hpfc.c
Definition: hpfc.c:51

statement_normalize_subscripts
void statement_normalize_subscripts(statement)
To be used for module statements.
Definition: expression.c:4471

free_enclosing_loops_map
void free_enclosing_loops_map(void)

empty_extensions
extensions empty_extensions(void)
extension.c
Definition: extension.c:43

entity_not_constant_or_intrinsic_p
bool entity_not_constant_or_intrinsic_p(entity)
Default entity filter for get_referenced_entities()
Definition: entity.c:3050

MakePointerParameter
parameter MakePointerParameter(void)
Definition: type.c:173

fortran95_language_module_p
bool fortran95_language_module_p(entity)
Definition: module.c:457

expression_is_constant_p
bool expression_is_constant_p(expression)
BEGIN_EOLE.
Definition: constant.c:666

memmove_effect_entity_p
bool memmove_effect_entity_p(entity)
Definition: entity.c:1165

MakeTypeVoid
type MakeTypeVoid(void)
Definition: type.c:102

same_type_name_p
bool same_type_name_p(type, type)
For naming homogeneity: expression_to_string(), reference_to_string()...
Definition: type.c:74

SizeOfIthDimension
int SizeOfIthDimension(entity, int)
this function returns the size of the ith dimension of a variable e.
Definition: size.c:453

arithmetic_intrinsic_p
bool arithmetic_intrinsic_p(entity)
true if e is an arithmetic instrinsic
Definition: entity.c:1702

reference_ith_index
expression reference_ith_index(reference, int)
functions for references
Definition: util.c:145

discard_statement_to_goto_table
void discard_statement_to_goto_table(void)
Discard the statement_to_goto_table map:
Definition: clean_up_sequences.c:269

qualifiers_const_p
bool qualifiers_const_p(list)
Check that a qualifier list contains the const qualifier.
Definition: type.c:5453

some_basic_of_any_expression
basic some_basic_of_any_expression(expression, bool, bool)
basic basic_of_any_expression(expression exp, bool apply_p): Makes a basic of the same basic as the e...
Definition: type.c:1258

variable_dimension_number
int variable_dimension_number(variable)
Definition: type.c:5632

constant_string_entity_p
bool constant_string_entity_p(entity)
Definition: constant.c:356

make_constant_entity
entity make_constant_entity(string, tag, size_t)
For historical reason, call the Fortran version.
Definition: constant.c:301

check_fortran_declaration_dependencies
void check_fortran_declaration_dependencies(list)
declarations.c
Definition: declarations.c:47

compute_statement_to_goto_table
void compute_statement_to_goto_table(statement)
Since clean_up_sequences() is called before the controlizer, there may be some GOTO.
Definition: clean_up_sequences.c:257

EvalConstant
value EvalConstant(constant)
Constant c is returned as field of value v.
Definition: eval.c:235

same_basic_p
bool same_basic_p(basic, basic)
check if two basics are similar.
Definition: type.c:969

forward_control_map_get_blocs
void forward_control_map_get_blocs(control, cons **)

entity_field_rank
int entity_field_rank(entity)
f is a field of a structure or of an union: what is its rank?
Definition: entity.c:940

entity_pointer_p
bool entity_pointer_p(entity)
Definition: entity.c:745

comma_expression_p
bool comma_expression_p(expression)
Definition: expression.c:830

RemoveLocalEntities
void RemoveLocalEntities(entity)
Useful for ParserError()?
Definition: clean.c:152

string_remove_trailing_line_feeds
string string_remove_trailing_line_feeds(string)
Remove trailing line feeds.
Definition: util.c:186

NormalizeIntrinsic
normalized NormalizeIntrinsic(entity, list)
Definition: normalize.c:221

fprint_any_environment
void fprint_any_environment(FILE *, entity, bool)
Definition: declarations.c:297

add_C_variable_to_area
int add_C_variable_to_area(entity, entity)
Definition: variable.c:1381

parameter_passing_by_value_p
bool parameter_passing_by_value_p(entity)
Definition: entity.c:2116

basic_of_any_expression
basic basic_of_any_expression(expression, bool)
Definition: type.c:1364

safe_type_to_string
string safe_type_to_string(const type)
Definition: type.c:59

basic_union
basic basic_union(expression, expression)
basic basic_union(expression exp1 exp2): returns the basic of the expression which has the most globa...
Definition: type.c:1792

substitute_entity_variable_in_expression
expression substitute_entity_variable_in_expression(entity, entity, expression)
(This function isn't use for the moment) This function replaces all the occurrences of an old entity ...
Definition: expression.c:2772

MakeVoidPointerResult
type MakeVoidPointerResult(void)
Definition: type.c:271

entity_field_to_entity_union
entity entity_field_to_entity_union(entity)
Definition: entity.c:915

generic_constant_expression_supporting_entities
list generic_constant_expression_supporting_entities(list, set, expression, bool)
Definition: type.c:4058

size_of_actual_array
expression size_of_actual_array(entity, list, int)
Definition: expression.c:4197

actual_label_replacement_p
bool actual_label_replacement_p(expression)
Assumes that eap is a call.
Definition: variable.c:1811

FindEntity
entity FindEntity(const char *, const char *)
Retrieve an entity from its package/module name and its local name.
Definition: entity.c:1503

type_fields
list type_fields(type)
Definition: type.c:3073

dabs_expression_p
bool dabs_expression_p(expression)
Definition: expression.c:1042

basic_supporting_references
list basic_supporting_references(list, basic)
Definition: type.c:4519

dummy_parameter_entity_p
bool dummy_parameter_entity_p(entity)
is p a dummy parameter?
Definition: entity.c:1941

dereference_expression
expression dereference_expression(expression)
generate a newly allocated expression for *(e)
Definition: expression.c:3934

MakeOverloadedParameter
parameter MakeOverloadedParameter(void)
Definition: type.c:167

overloaded_parameters_p
bool overloaded_parameters_p(list)
Definition: type.c:5236

entity_union_p
bool entity_union_p(entity)
Is entity e an entity representing the union declaration?
Definition: entity.c:1038

label_defined_in_statement_p
bool label_defined_in_statement_p(entity, statement)
Definition: entity.c:388

type_to_final_pointed_type
type type_to_final_pointed_type(type)
returns t if t is not a pointer type, and the first indirectly pointed type that is not a pointer if ...
Definition: type.c:5336

do_get_declared_entities
bool do_get_declared_entities(statement, set)
Helper for get_declared_entities() Add all locally declared entity to the set given in argument.
Definition: entity.c:3074

number_of_items
int number_of_items(type)
Same as above, but arrays in struct are taken into account.
Definition: type.c:3925

store_statement_enclosing_loops
void store_statement_enclosing_loops(statement, list)

basic_type_p
bool basic_type_p(type)
Safer than the other implementation? bool pointer_type_p(type t) { bool is_pointer = false;.
Definition: type.c:2912

entity_in_common_p
bool entity_in_common_p(entity)
Definition: entity.c:1082

AddEntityToCurrentModuleWithoutDeclaration
void AddEntityToCurrentModuleWithoutDeclaration(entity)
Add a variable entity to the current module declarations.
Definition: variable.c:271

EvalSyntax
value EvalSyntax(syntax)
Definition: eval.c:113

type_equal_p
bool type_equal_p(type, type)
Definition: type.c:547

DefaultLengthOfBasic
int DefaultLengthOfBasic(tag)
constant.c
Definition: constant.c:44

reset_unique_variable_numbers
void reset_unique_variable_numbers(void)
Definition: variable.c:421

is_c_keyword_typedef
_int is_c_keyword_typedef(char *)
This function checks if s is a C keyword or typedef name and returns the token number thanks to the h...
Definition: static.c:297

member_entity_p
bool member_entity_p(entity)
Definition: entity.c:1921

module_body_reorder
bool module_body_reorder(statement)
Reorder a module.
Definition: reorder.c:211

power_expression_p
bool power_expression_p(expression)
Definition: expression.c:1018

return_value_p
bool return_value_p(entity)
Is entity v the return value of some function?
Definition: module.c:522

variable_in_module_p
bool variable_in_module_p(entity, entity)
This test can only be applied to variables, not to functions, subroutines or commons visible from a m...
Definition: variable.c:1610

generic_variable_equal_p
bool generic_variable_equal_p(variable, variable, bool, bool, hash_table)
Definition: type.c:762

set_std_static_entities
void set_std_static_entities(void)
entity.c
Definition: entity.c:80

io_luns_entity_p
bool io_luns_entity_p(entity)
Definition: entity.c:1146

discard_module_declaration_text
void discard_module_declaration_text(entity)
Discard the decls_text string of the module code to make the prettyprinter ignoring the textual decla...
Definition: variable.c:1696

set_entity_to_size
void set_entity_to_size(void)
Definition: size.c:625

maximal_type_depth
size_t maximal_type_depth(type)
Number of steps to access the lowest leave of type t without a recursive test.
Definition: type.c:4856

expression_to_user_type
type expression_to_user_type(expression)
Preserve typedef'ed types when possible.
Definition: type.c:2645

MakeCharacterParameter
parameter MakeCharacterParameter(void)
Definition: type.c:239

declare_new_typedef
void declare_new_typedef(const string)
Definition: static.c:283

AddEntityToModule
entity AddEntityToModule(entity, entity)
!!! caution, it may not be a module, but a common...
Definition: entity.c:3171

basic_equal_p
bool basic_equal_p(basic, basic)
Definition: type.c:927

build_new_top_level_module_name
string build_new_top_level_module_name(const char *, bool)
module.c
Definition: module.c:55

fprint_functional
void fprint_functional(FILE *, functional)
This function is called from c_parse() via ResetCurrentModule() and fprint_environment()
Definition: declarations.c:227

generic_parameter_equal_p
bool generic_parameter_equal_p(parameter, parameter, bool, bool, hash_table)
Definition: type.c:1016

expression_to_entity
entity expression_to_entity(expression)
just returns the entity of an expression, or entity_undefined
Definition: expression.c:3140

EvalIntrinsic
value EvalIntrinsic(entity, list)
This function tries to evaluate a call to an intrinsic function.
Definition: eval.c:290

integer_scalar_entity_p
bool integer_scalar_entity_p(entity)
integer_scalar_entity_p() is obsolete; use entity_integer_scalar_p()
Definition: variable.c:1137

malloc_effect_entity_p
bool malloc_effect_entity_p(entity)
Definition: entity.c:1158

basic_of_any_reference
basic basic_of_any_reference(reference, bool, bool)
Retrieves the basic of a reference in a newly allocated basic object.
Definition: type.c:1395

syntax_to_reference_list
list syntax_to_reference_list(syntax, list)
Definition: expression.c:1270

pragma_build_if_condition
expression pragma_build_if_condition(expression, language)
build the expression to be put in the if clause.
Definition: pragma.c:159

entity_f95use_p
bool entity_f95use_p(entity)
Definition: entity.c:694

add_abstract_state_variable
void add_abstract_state_variable(entity)
Definition: entity.c:2558

complex_constant_expression_p
bool complex_constant_expression_p(expression)
Definition: constant.c:416

complex_to_expression
expression complex_to_expression(float, float)
Definition: expression.c:1234

entity_user_name
const char * entity_user_name(entity)
Since entity_local_name may contain PIPS special characters such as prefixes (label,...
Definition: entity.c:487

add_pragma_str_to_statement
void add_pragma_str_to_statement(statement, const char *, bool)
Add a string as a pragma to a statement.
Definition: pragma.c:425

integer_type_p
bool integer_type_p(type)
Definition: type.c:3298

extended_integer_constant_expression_p
bool extended_integer_constant_expression_p(expression)
More extensive than next function.
Definition: expression.c:858

Pvecteur_to_assign_statement
statement Pvecteur_to_assign_statement(entity, Pvecteur)
generates var = linear expression from the Pvecteur.
Definition: expression.c:1720

make_call_expression
expression make_call_expression(entity, list)
Build an expression that call an function entity with an argument list.
Definition: expression.c:321

type_equal_up_to_qualifiers_p
bool type_equal_up_to_qualifiers_p(type, type)
Definition: type.c:552

syntax_equal_p
bool syntax_equal_p(syntax, syntax)
Definition: expression.c:1462

AddEntityToCurrentModule
void AddEntityToCurrentModule(entity)
Add a variable entity to the current module declarations.
Definition: variable.c:260

unnormalized_array_p
bool unnormalized_array_p(entity)
Definition: entity.c:846

type_memory_size
int type_memory_size(type)
Definition: size.c:248

module_name_to_entity
entity module_name_to_entity(const char *)
This is an alias for local_name_to_top_level_entity.
Definition: entity.c:1479

assumed_size_array_p
bool assumed_size_array_p(entity)
Definition: entity.c:807

MakeCharacterResult
type MakeCharacterResult(void)
Definition: type.c:328

concrete_type_equal_p
bool concrete_type_equal_p(type, type)
Expand typedefs before the type comparison.
Definition: type.c:571

bound_generation_compare_vector_component
int bound_generation_compare_vector_component(Pvecteur *, Pvecteur *)
bound_generation.c
Definition: bound_generation.c:40

expression_integer_constant_p
bool expression_integer_constant_p(expression)
Definition: expression.c:2417

abstract_state_variable_p
bool abstract_state_variable_p(entity)
Definition: entity.c:2572

MakeTypeArray
type MakeTypeArray(basic, cons *)
functions on types
Definition: type.c:162

new_add_any_variable_to_area
int new_add_any_variable_to_area(entity, entity, bool)
Definition: variable.c:1436

vecteur_nul_p
bool vecteur_nul_p(Pvecteur)
Definition: constraint.c:56

entity_and_common_name
const char * entity_and_common_name(entity)
See next function!
Definition: entity.c:654

type_supporting_entities
list type_supporting_entities(list, type)
Definition: type.c:4347

MakeBasicOverloaded
basic MakeBasicOverloaded(void)
bool same_type_name_p(const type t0, const type t1) {
Definition: type.c:77

RemoveLocalEntityFromDeclarations
void RemoveLocalEntityFromDeclarations(entity, entity, statement)
Definition: variable.c:120

lexicographic_order_p
bool lexicographic_order_p(entity, entity)
true if var1 <= var2
Definition: entity.c:1365

same_entity_name_p
bool same_entity_name_p(entity, entity)
compare entity names
Definition: entity.c:2208

update_operator_to_regular_operator
entity update_operator_to_regular_operator(entity)
Returns the binary operator associated to a C update operator such as +=.
Definition: entity.c:2154

constant_reference_to_normalized_constant_reference
reference constant_reference_to_normalized_constant_reference(reference)
Allocate a new reference with evaluated subscripts.
Definition: eval.c:1068

type_to_pointed_type
type type_to_pointed_type(type)
returns t if t is not a pointer type, and the pointed type if t is a pointer type.
Definition: type.c:5265

formal_area_p
bool formal_area_p(entity)
Definition: area.c:95

free_expressions
void free_expressions(list)
Free a list of expressions.
Definition: expression.c:4084

symbolic_constant_declaration_verify
void symbolic_constant_declaration_verify(call)
Definition: module.c:128

check_C_function_type
bool check_C_function_type(entity, list)
Check that an effective parameter list is compatible with a function type.
Definition: type.c:4716

ValueSizeOfDimension
Value ValueSizeOfDimension(dimension)
FI: I do not understand the "Value" cast.
Definition: size.c:531

expression_field_p
bool expression_field_p(expression)
The expression is of kind "s.a", where "s" is a struct and a "a" field.
Definition: expression.c:491

entity_basic_concrete_type
type entity_basic_concrete_type(entity)
retrieves or computes and then returns the basic concrete type of an entity
Definition: type.c:3677

dup_arguments
cons * dup_arguments(cons *)
Definition: arguments.c:225

cast_equal_p
bool cast_equal_p(cast, cast)
Definition: expression.c:1455

reference_offset
expression reference_offset(reference)
computes the offset of a C reference with its origin
Definition: expression.c:3807

module_resource_name
const char * module_resource_name(entity)
Returns a pointer towards the resource name.
Definition: entity.c:593

FindOrCreateTopLevelEntity
entity FindOrCreateTopLevelEntity(const char *)
Return a top-level entity.
Definition: entity.c:1603

is_expression_reference_to_entity_p
bool is_expression_reference_to_entity_p(expression, entity)
Test if an expression is a reference to a given variable entity.
Definition: expression.c:541

dump_arguments
void dump_arguments(cons *)
entity_name is a macro, hence the code replication
Definition: arguments.c:69

simplify_expressions
void simplify_expressions(void *)
Definition: expression.c:3801

extern_entity_p
bool extern_entity_p(entity, entity)
Definition: entity.c:1977

entity_memory_size
int entity_memory_size(entity)
Definition: size.c:239

pointed_type
type pointed_type(type)
returns the type pointed by the input type if it is a pointer or an array of pointers
Definition: type.c:3035

unsigned_type_p
bool unsigned_type_p(type)
Predicates on types.
Definition: type.c:2821

intrinsic_name_p
bool intrinsic_name_p(const char *)
Definition: entity.c:1282

integer_constant_expression_value
int integer_constant_expression_value(expression)
Definition: expression.c:1545

statement_to_goto_table_flt
bool statement_to_goto_table_flt(instruction)
End: clean up sequences context.
Definition: clean_up_sequences.c:221

dimension_equal_p
bool dimension_equal_p(dimension, dimension)
Definition: type.c:747

allocatable_area_p
bool allocatable_area_p(entity)
Definition: area.c:64

MakeComplexConstant
entity MakeComplexConstant(expression, expression)
make a complex constant from two calls to real or integer constants
Definition: constant.c:373

NormalizeCast
normalized NormalizeCast(cast)
Definition: normalize.c:130

ValueSizeOfArray
Value ValueSizeOfArray(entity)
Definition: size.c:206

signed_constant_expression_p
bool signed_constant_expression_p(expression)
Definition: constant.c:604

basic_concrete_type_leads_to_pointer_p
bool basic_concrete_type_leads_to_pointer_p(type)
returns true when the input type successors may be pointers
Definition: type.c:3699

arguments_rm_entity
cons * arguments_rm_entity(cons *, entity)
Definition: arguments.c:94

declarable_type_p
bool declarable_type_p(type, list)
Are all types necessary to define fully type "t" listed in list "pdl"?
Definition: type.c:4361

variable_stack_p
bool variable_stack_p(entity)
Definition: variable.c:1593

io_entity_p
bool io_entity_p(entity)
Several implicit entities are declared to define the implicit effects of IO statements.
Definition: entity.c:1139

entity_module_name
const char * entity_module_name(entity)
See comments about module_name().
Definition: entity.c:1092

max0_expression_p
bool max0_expression_p(expression)
Definition: expression.c:1061

entity_basic_concrete_types_init
void entity_basic_concrete_types_init(void)
Definition: type.c:3507

MakeAnyScalarResult
type MakeAnyScalarResult(tag, _int)
Definition: type.c:337

get_allocatable_data_expr
expression get_allocatable_data_expr(entity)
This function produce an expression that is an access to the array inside the allocatable structure.
Definition: allocatable.c:141

entity_local_name
const char * entity_local_name(entity)
entity_local_name modified so that it does not core when used in vect_fprint, since someone thought t...
Definition: entity.c:453

MakeIntegerResult
type MakeIntegerResult(void)
Definition: type.c:276

signed_integer_constant_expression_p
bool signed_integer_constant_expression_p(expression)
Definition: expression.c:932

find_ith_expression
expression find_ith_expression(list, int)
find_ith_expression() is obsolet; use find_ith_argument() instead
Definition: expression.c:1161

register_static_entity
void register_static_entity(entity *)
add given entity to the set of entities that must reset upon workspace deletion practically,...
Definition: entity.c:156

subscripted_type_to_type
type subscripted_type_to_type(type, expression)
Returns the type of an object of type t subscripted by expression se.
Definition: type.c:5562

entity_used_in_declarations_p
bool entity_used_in_declarations_p(entity, list)
check if e is used to declare one of the entities in entity list ldecl
Definition: entity.c:2258

trivial_expression_p
int trivial_expression_p(expression)
This function returns:
Definition: expression.c:679

GenericCleanEntities
void GenericCleanEntities(list, entity, bool)
clean.c
Definition: clean.c:63

sort_list_of_entities
void sort_list_of_entities(list)
sorted in place.
Definition: entity.c:1358

IsUnaryOperator
int IsUnaryOperator(entity)
Definition: eval.c:632

FILE_star_type_p
bool FILE_star_type_p(type)
Definition: type.c:3046

same_scalar_location_p
bool same_scalar_location_p(entity, entity)
FI: transferred from semantics (should be used for effect translation as well)
Definition: variable.c:1992

expression_subscript
subscript expression_subscript(expression)
Definition: expression.c:1843

c_module_p
bool c_module_p(entity)
Test if a module "m" is written in C.
Definition: entity.c:2777

StackArea
entity StackArea
Definition: area.c:60

generate_string_for_alternate_return_argument
expression generate_string_for_alternate_return_argument(string)
Definition: variable.c:1721

variable_declaration_coherency_p
bool variable_declaration_coherency_p(entity, statement)
Definition: module.c:203

unbounded_expression_p
bool unbounded_expression_p(expression)
Definition: expression.c:4329

EvalBinaryOp
value EvalBinaryOp(int, list)
t defines the operator and la is a list to two sub-expressions.
Definition: eval.c:385

array_type_projection
type array_type_projection(type)
T is assumed to be an array type.
Definition: type.c:596

EvalUnaryOp
value EvalUnaryOp(int, list)
Definition: eval.c:349

unnormalize_expression
void unnormalize_expression(void *)
void unnormalize_expression(expression exp): puts all the normalized field of expressions in "st" to ...
Definition: normalize.c:452

variable_type_supporting_entities
list variable_type_supporting_entities(list, set, variable)
Definition: type.c:4254

integer_constant_name_p
bool integer_constant_name_p(string)
Definition: constant.c:83

union_type_p
bool union_type_p(type)
Returns true if t is of type derived and if the derived type is a union.
Definition: type.c:3151

statement_enclosing_loops_undefined_p
bool statement_enclosing_loops_undefined_p(statement)

pointer_type_p
bool pointer_type_p(type)
Check for scalar pointers.
Definition: type.c:2993

array_entity_p
bool array_entity_p(entity)
Definition: entity.c:793

integer_constant_expression_p
bool integer_constant_expression_p(expression)
positive integer constant expression: call to a positive constant or to a sum of positive integer con...
Definition: expression.c:903

top_level_entity_p
bool top_level_entity_p(entity)
Check if the scope of entity e is global.
Definition: entity.c:1130

adjust_goto_from_to
void adjust_goto_from_to(statement, statement)
Adjust all the GOTOs pointing s1 to s2:
Definition: clean_up_sequences.c:282

expression_equal_integer_p
bool expression_equal_integer_p(expression, int)
================================================================
Definition: expression.c:1977

array_type_dimension
unsigned int array_type_dimension(type)
Definition: type.c:2947

qualifier_to_string
string qualifier_to_string(qualifier)
Definition: type.c:5427

enum_supporting_references
list enum_supporting_references(list, entity)
Definition: type.c:4415

derived_type_to_fields
list derived_type_to_fields(type)
Definition: type.c:5381

dimensions_equal_p
bool dimensions_equal_p(list, list)
Definition: type.c:754

make_new_common
entity make_new_common(string, entity)
This function creates a common for a given name in a given module.
Definition: entity.c:1806

module_reorder
bool module_reorder(statement)
Reorder a module and recompute order to statement if any.
Definition: reorder.c:244

type_structurally_equal_p
bool type_structurally_equal_p(type, type)
Type t1 and t2 are equal if their basic concrete components are equal.
Definition: type.c:586

entity_to_expression
expression entity_to_expression(entity)
if v is a constant, returns a constant call.
Definition: expression.c:165

normalize_subscript_expression
void normalize_subscript_expression(expression)
Normalization of subscript in expressions.
Definition: expression.c:4407

entity_intrinsic
entity entity_intrinsic(const char *)
FI: I do not understand this function name (see next one!).
Definition: entity.c:1292

array_pointer_type_equal_p
bool array_pointer_type_equal_p(type, type)
assume that a pointer to type x is equal to a 1-D array of x
Definition: type.c:609

expression_to_reference
reference expression_to_reference(expression)
Definition: expression.c:212

make_scalar_integer_entity
entity make_scalar_integer_entity(const char *, const char *)
Create an integer variable of name "name" in module of name "module_name".
Definition: variable.c:1068

simplify_expression
bool simplify_expression(expression *)
use polynomials to simplify an expression in some cases this operation can change the basic of the ex...
Definition: expression.c:3770

MakeRealResult
type MakeRealResult(void)
Definition: type.c:291

type_depth
size_t type_depth(type)
Number of steps to access the lowest leave of type t without dereferencing.
Definition: type.c:4880

type_union_variable_p
bool type_union_variable_p(type)
Definition: type.c:3877

MakeTypeStatement
type MakeTypeStatement(void)
Definition: type.c:92

derived_type_p
bool derived_type_p(type)
Returns true if t is of type struct, union or enum.
Definition: type.c:3104

make_false_expression
expression make_false_expression(void)
Definition: expression.c:1108

MakeDoubleprecisionResult
type MakeDoubleprecisionResult(void)
Definition: type.c:296

c_language_module_p
bool c_language_module_p(entity)
Definition: module.c:447

make_scalar_integer_type
type make_scalar_integer_type(_int)
Definition: type.c:712

positive_expression_p
bool positive_expression_p(expression)
Use constants and type information to decide if the value of sigma(e) is always positive,...
Definition: eval.c:826

formal_parameter_p
bool formal_parameter_p(entity)
Definition: variable.c:1489

compare_entities
int compare_entities(const entity *, const entity *)
Comparison function for qsort.
Definition: entity.c:1328

simplify_C_expression
bool simplify_C_expression(expression)
Replace C operators "+C" and "-C" which can handle pointers by arithmetic operators "+" and "-" when ...
Definition: expression.c:2814

variable_initial_expression
expression variable_initial_expression(entity)
Returns a copy of the initial (i.e.
Definition: variable.c:1899

store_independent_reference_p
bool store_independent_reference_p(reference)
Does this reference define the same set of memory locations regardless of the current (environment an...
Definition: expression.c:3108

generic_reference_add_fixed_subscripts
void generic_reference_add_fixed_subscripts(reference, type, bool)
Add a set of zero subscripts to a reference "r" by side effect.
Definition: expression.c:236

make_keyword_typedef_table
hash_table make_keyword_typedef_table(int)
Definition: static.c:256

make_C_or_Fortran_constant_entity
entity make_C_or_Fortran_constant_entity(const char *, tag, size_t, bool, bool(*)(const char *, const char *))
This function creates a constant.
Definition: constant.c:148

unsigned_basic_p
bool unsigned_basic_p(basic)
Definition: type.c:2812

set_register_qualifier
void set_register_qualifier(entity)
Assuming that v is of type variable, add a qualifier register.
Definition: entity.c:778

struct_type_to_fields
list struct_type_to_fields(type)
Definition: type.c:5798

extended_expression_constant_p
bool extended_expression_constant_p(expression)
Returns true if the value of the expression does not depend syntactically on the current store.
Definition: expression.c:2461

binary_to_normalized
normalized binary_to_normalized(list, int)
Definition: normalize.c:320

make_empty_function
entity make_empty_function(const char *, type, language)
Definition: entity.c:283

entity_is_argument_p
bool entity_is_argument_p(entity, cons *)
Definition: arguments.c:150

MakeIntegerParameter
parameter MakeIntegerParameter(void)
Definition: type.c:184

generic_clone_variable_with_unique_name
entity generic_clone_variable_with_unique_name(entity, statement, string, string, entity, bool)
clone a variable with a new name.
Definition: variable.c:509

dead_fcd_directive_p
bool dead_fcd_directive_p(entity)
Definition: hpfc.c:74

operator_expression_p
bool operator_expression_p(expression, string)
Definition: expression.c:1087

expressions_to_operation
expression expressions_to_operation(const list, entity)
take a list of expression and apply a binary operator between all of them and return it as an express...
Definition: expression.c:3544

call_contains_alternate_returns_p
bool call_contains_alternate_returns_p(call)
Definition: variable.c:1835

module_par_codefilename
string module_par_codefilename(entity)
Definition: util.c:62

print_entity_set
void print_entity_set(set)
Definition: entity.c:174

make_new_array_variable
entity make_new_array_variable(entity, basic, list)
Definition: variable.c:793

keyword_typedef_table
hash_table keyword_typedef_table
Because of typedefs, the C lexers need help to decide if a character string such as toto is a type na...
Definition: static.c:253

entity_atomic_reference_p
bool entity_atomic_reference_p(entity)
Any reference r such that reference_variable(r)==e accesses all bytes (or bits) allocated to variable...
Definition: variable.c:1163

io_intrinsic_p
bool io_intrinsic_p(entity)
rue is a statement s is an io intrinsic
Definition: entity.c:1655

arguments_intersection
list arguments_intersection(list, list)
Build a new list with all entities occuring in both a1 and a2.
Definition: arguments.c:158

assignment_expression_p
bool assignment_expression_p(expression)
Test if an expression is an assignment operation.
Definition: expression.c:979

new_label_local_name
char * new_label_local_name(entity)
Definition: entity.c:326

module_formal_parameters
list module_formal_parameters(entity)
list module_formal_parameters(entity func) input : an entity representing a function.
Definition: module.c:327

empty_extensions_p
bool empty_extensions_p(extensions)
Definition: extension.c:50

variable_type_supporting_references
list variable_type_supporting_references(list, variable)
Definition: type.c:4562

entity_in_list_p
bool entity_in_list_p(entity, list)
look for ent in ent_l
Definition: entity.c:2221

dimensions_to_normalized_dimensions
list dimensions_to_normalized_dimensions(list)
evaluate constant expressions appearing in dimensions of list dl
Definition: type.c:3528

variable_in_list_p
bool variable_in_list_p(entity, list)
Definition: variable.c:1623

iabs_expression_p
bool iabs_expression_p(expression)
Definition: expression.c:1036

SizeOfElements
_int SizeOfElements(basic)
This function returns the length in bytes of the Fortran or C type represented by a basic,...
Definition: size.c:297

entity_return_label_p
bool entity_return_label_p(entity)
Definition: entity.c:673

print_homogeneous_arguments
void print_homogeneous_arguments(list, const char *(entity))
arguments.c
Definition: arguments.c:54

function_to_return_value
entity function_to_return_value(entity)
Returns the entity rv that carries the value returned by module m, when m is not a C void function or...
Definition: module.c:509

expression_null_p
bool expression_null_p(expression)
returns true if the expression is equal to zero or NULL (even if there is a cast before such as in (v...
Definition: expression.c:2611

effects_package_entity_p
bool effects_package_entity_p(entity)
checks if an entity is an IO_EFFECTS_PACKAGE_NAME, a MALLOC_EFFECTS_NAME or a RAND_EFFECTS_PACKAGE_NA...
Definition: entity.c:1181

module_name_to_runtime_entity
entity module_name_to_runtime_entity(const char *)
similar to module_name_to_entity but generates a warning and a stub if the entity is not found
Definition: entity.c:1485

array_pointer_string_type_equal_p
bool array_pointer_string_type_equal_p(type, type)
Assume that a pointer to type x is equal to a 1-D array of x.
Definition: type.c:658

MakeTypeOverloaded
type MakeTypeOverloaded(void)
Definition: type.c:107

SafeMakeConstant
entity SafeMakeConstant(string, tag, bool(*)(const char *, const char *))
END_EOLE.
Definition: constant.c:315

struct_type_p
bool struct_type_p(type)
Returns true if t is of type derived and if the derived type is a struct.
Definition: type.c:3121

MakeQuadprecisionResult
type MakeQuadprecisionResult(void)
MB.
Definition: type.c:301

MakeUnsignedIntegerParameter
parameter MakeUnsignedIntegerParameter(void)
Definition: type.c:194

MakeCommaExpression
expression MakeCommaExpression(list)
Definition: expression.c:3918

operator_neutral_element
entity operator_neutral_element(entity)
Definition: entity.c:2593

qualified_variable_p
bool qualified_variable_p(entity, unsigned int)
The variable may turn out to be a function.
Definition: variable.c:1666

MakeBraceExpression
expression MakeBraceExpression(list)
Definition: expression.c:3927

make_derived_entity
entity make_derived_entity(const char *, const char *, type)
Definition: variable.c:378

same_expression_p
bool same_expression_p(expression, expression)
this is slightly different from expression_equal_p, as it will return true for a+b vs b+a
Definition: expression.c:1426

expression_string_constant
char * expression_string_constant(expression)
returns a newly allocated string!
Definition: expression.c:2409

range_to_distance
@ range_to_distance
Definition: ri-util.h:2307

range_to_nbiter
@ range_to_nbiter
Definition: ri-util.h:2308

MakeCompilationUnitEntity
entity MakeCompilationUnitEntity(const char *)
This is useful for the C language only.
Definition: entity.c:1954

basic_of_call
basic basic_of_call(call, bool, bool)
basic basic_of_call(call c): returns the basic of the result given by the call "c".
Definition: type.c:1469

expression_intrinsic_operation_p
bool expression_intrinsic_operation_p(expression)
bool expression_intrinsic_operation_p(expression exp): Returns true if "exp" is an expression with a ...
Definition: expression.c:1949

MakeSizeofExpression
expression MakeSizeofExpression(expression)
Definition: expression.c:3896

EvalCall
value EvalCall(call)
only calls to constant, symbolic or intrinsic functions might be evaluated.
Definition: eval.c:170

push_statement_on_statement_global_stack
void push_statement_on_statement_global_stack(statement)
Definition: static.c:333

MakeVoidPointerParameter
parameter MakeVoidPointerParameter(void)
Definition: type.c:178

reset_internal_static_entities
void reset_internal_static_entities(void)
Definition: entity.c:119

find_or_create_typed_entity
entity find_or_create_typed_entity(string, const char *, tag)
Looks for an entity of the specified basic.
Definition: variable.c:1046

generic_functional_equal_p
bool generic_functional_equal_p(functional, functional, bool, bool, hash_table)
Definition: type.c:983

make_empty_module
entity make_empty_module(const char *, type, language)
The source language is not specified.
Definition: entity.c:197

false_expression_p
bool false_expression_p(expression)
Definition: expression.c:1118

make_new_scalar_variable_with_prefix
entity make_new_scalar_variable_with_prefix(const char *, entity, basic)
Create a new scalar variable of type b in the given module.
Definition: variable.c:592

EvalExpression
value EvalExpression(expression)
cproto-generated files
Definition: eval.c:108

make_bound_expression
void make_bound_expression(Variable, Pbase, Psysteme, expression *, expression *)
void make_bound_expression(variable index, Pbase base, Psysteme sc, expression *lower,...
Definition: bound_generation.c:91

add_pragma_expr_to_statement
void add_pragma_expr_to_statement(statement, list)
Add a pragma as a list of expression to a statement.
Definition: pragma.c:460

extended_integer_constant_expression_p_to_int
bool extended_integer_constant_expression_p_to_int(expression, int *)
Definition: expression.c:874

type_with_const_qualifier_p
bool type_with_const_qualifier_p(type)
Is there a const qualifier associated to type t.
Definition: type.c:5483

find_label_entity
entity find_label_entity(const char *, const char *)
util.c
Definition: util.c:43

float_type_p
bool float_type_p(type)
Definition: type.c:3263

get_declaration_comments
sentence get_declaration_comments(entity)
Get all the declaration comments, that are comments from the PROGRAM, FUNCTION,...
Definition: module.c:275

array_type_to_element_type
type array_type_to_element_type(type)
returns the type of the elements of an array type, as a newly allocated type.
Definition: type.c:5700

entity_list_p
bool entity_list_p(list)
Checks that el only contains entity.
Definition: entity.c:1411

MakeRealParameter
parameter MakeRealParameter(void)
Definition: type.c:204

NumberOfDimension
int NumberOfDimension(entity)
Definition: size.c:588

make_entity_copy_with_new_name
entity make_entity_copy_with_new_name(entity, string, bool)
Create a copy of an entity, with (almost) identical type, storage and initial value if move_initializ...
Definition: entity.c:2463

entity_formal_p
bool entity_formal_p(entity)
is p a formal parameter?
Definition: entity.c:1935

expression_to_int
int expression_to_int(expression)
================================================================
Definition: expression.c:2205

integer_entities
list integer_entities
Make a new variable entity which name is one letter prefix + one incrementing number.
Definition: ri-util.h:2787

reference_add_zero_subscripts
void reference_add_zero_subscripts(reference, type)
Definition: expression.c:261

redistribute_directive_p
bool redistribute_directive_p(entity)
Definition: hpfc.c:68

display_clean_up_sequences_statistics
void display_clean_up_sequences_statistics(void)
Definition: clean_up_sequences.c:62

brace_expression_to_updated_type
void brace_expression_to_updated_type(entity, expression)
use a brace expression to update the type of array "arr" if the dimensions are implicit
Definition: expression.c:3517

sizeofexpression_equal_p
bool sizeofexpression_equal_p(sizeofexpression, sizeofexpression)
Definition: expression.c:1446

entities_to_expressions
list entities_to_expressions(list)
build a list of expressions from a list of entities
Definition: entity.c:2703

expression_to_dereferencing_expression
expression expression_to_dereferencing_expression(expression)
Reuse expression e to build expression *(e) without cheking the legality of the construct.
Definition: expression.c:4051

integer_expression_p
bool integer_expression_p(expression)
Definition: expression.c:601

bit_type_p
bool bit_type_p(type)
Definition: type.c:2843

local_name_to_scope
string local_name_to_scope(const char *)
allocates a new string
Definition: entity.c:563

MakeOverloadedResult
type MakeOverloadedResult(void)
this function creates a default fortran operator result, i.e.
Definition: type.c:261

fortran_module_p
bool fortran_module_p(entity)
Test if a module is in Fortran.
Definition: entity.c:2799

module_pp_fortranfilename
string module_pp_fortranfilename(entity)
Definition: util.c:77

expression_minmax_p
bool expression_minmax_p(expression)
Definition: expression.c:3882

generic_function_to_return_value
entity generic_function_to_return_value(entity, bool)
Returns the entity rv that carries the value returned by module m, when m is not a C void function or...
Definition: module.c:469

C_initialization_expression_p
bool C_initialization_expression_p(expression)
Definition: expression.c:4056

negative_expression_p
bool negative_expression_p(expression)
Use constants and type information to decide if the value of sigma(e) is always negative,...
Definition: eval.c:896

reset_ordering_to_statement
void reset_ordering_to_statement(void)
Reset the mapping from ordering to statement.
Definition: ordering.c:185

convert_bound_expression
expression convert_bound_expression(expression, bool, bool)
Replace a C expression used as FOR bound by a Fortran DO bound expression, taking into account the C ...
Definition: expression.c:2968

signed_type_p
bool signed_type_p(type)
Definition: type.c:2800

entity_code
code entity_code(entity)
Definition: entity.c:1098

array_argument_p
bool array_argument_p(expression)
Definition: expression.c:513

MakeLogicalParameter
parameter MakeLogicalParameter(void)
Definition: type.c:219

module_par_fortranfilename
string module_par_fortranfilename(entity)
Definition: util.c:72

ith_parameter_p
bool ith_parameter_p(entity, entity, int)
returns true if v is the ith formal parameter of function f
Definition: util.c:125

AllocatableArea
entity AllocatableArea
Definition: area.c:61

MakeLongIntegerParameter
parameter MakeLongIntegerParameter(void)
Definition: type.c:189

compute_basic_concrete_type
type compute_basic_concrete_type(type)
computes a new type which is the basic concrete type of the input type (this new type is not stored i...
Definition: type.c:3556

safe_entity_name
string safe_entity_name(entity)
predicates and functions for entities
Definition: entity.c:433

make_enclosing_loops_map
void make_enclosing_loops_map(void)

overloaded_type_p
bool overloaded_type_p(type)
Returns true if t is a variable type with a basic overloaded.
Definition: type.c:2666

implicit_c_variable_p
bool implicit_c_variable_p(entity)
Definition: variable.c:1877

expression_reference
reference expression_reference(expression)
Short cut, meaningful only if expression_reference_p(e) holds.
Definition: expression.c:1832

expression_similar_get_context_p
bool expression_similar_get_context_p(expression, expression, hash_table *)
similar to expression_similar_p but the hash_map containing the crossref value is retured for further...
Definition: expression.c:3339

make_new_integer_scalar_common_variable
entity make_new_integer_scalar_common_variable(string, entity, entity)
This function creates a common variable in a given common in a given module.
Definition: entity.c:1843

module_to_dynamic_area
entity module_to_dynamic_area(entity)
Definition: area.c:139

clone_variable_with_unique_name
entity clone_variable_with_unique_name(entity, statement, string, string, entity)
Clone a variable with a new user name.
Definition: variable.c:562

variable_heap_p
bool variable_heap_p(entity)
Definition: variable.c:1600

expression_application_p
bool expression_application_p(expression)
Duplicate bool expression_subscript_p(expression e) { return(syntax_subscript_p(expression_syntax(e))...
Definition: expression.c:480

ldimensions_dup
list ldimensions_dup(list)
Definition: type.c:1166

expression_equal_or_opposite_p
bool expression_equal_or_opposite_p(expression, expression)
e1==e2 or -e1==e2 or e1==-e2 syntactically
Definition: expression.c:1366

entity_continue_p
bool entity_continue_p(entity)
Definition: entity.c:1731

update_range
expression update_range(entity, range, expression, expression, expression, bool)
fortran90.c

expression_sizeofexpression
sizeofexpression expression_sizeofexpression(expression)
Definition: expression.c:465

get_enclosing_loops_map
statement_mapping get_enclosing_loops_map(void)

basic_ultimate
basic basic_ultimate(basic)
get the ultimate basic from a basic typedef
Definition: type.c:1806

stdout_entity_p
bool stdout_entity_p(entity)
Definition: entity.c:1215

get_continue_entity
entity get_continue_entity(void)
true if continue.
Definition: entity.c:1726

normalize_all_expressions_of
void normalize_all_expressions_of(void *)
Definition: normalize.c:668

add_variable_to_area
int add_variable_to_area(entity, entity)
Definition: variable.c:1376

zero_expression_p
bool zero_expression_p(expression)
Definition: expression.c:1217

davinci_dump_expression
void davinci_dump_expression(FILE *, expression)
dump expression e in file out as a davinci graph.
Definition: expression.c:2710

entity_label_p
bool entity_label_p(entity)
Definition: entity.c:678

entity_subroutine_p
bool entity_subroutine_p(entity)
Definition: entity.c:737

expression_integer_value
bool expression_integer_value(expression, intptr_t *)
Definition: eval.c:792

entity_enum_member_p
bool entity_enum_member_p(entity)
Definition: entity.c:980

make_empty_f95module
entity make_empty_f95module(const char *, language)
Definition: entity.c:275

fortran_type_supporting_entities
list fortran_type_supporting_entities(list, type)
Definition: type.c:4593

make_min_expression
expression make_min_expression(expression, expression, enum language_utype)
Definition: expression.c:1600

expression_cast_p
bool expression_cast_p(expression)
Definition: expression.c:450

module_fortranfilename
string module_fortranfilename(entity)
Definition: util.c:67

set_internal_static_entities
void set_internal_static_entities(void)
beware: cannot be called on creating the database
Definition: entity.c:92

make_ref_expr
expression make_ref_expr(entity, list)
Definition: expression.c:4316

make_new_index_entity
entity make_new_index_entity(entity, string)
Definition: variable.c:1851

pointer_type_array_p
bool pointer_type_array_p(entity)
Definition: entity.c:826

char_star_type_p
bool char_star_type_p(type)
Beware of typedefs.
Definition: type.c:5774

print_common_layout
void print_common_layout(FILE *, entity, bool)
Definition: area.c:207

reference_to_type
type reference_to_type(reference)
Definition: type.c:2354

make_empty_subroutine
entity make_empty_subroutine(const char *, language)
Definition: entity.c:268

pointer_reference_to_expression
expression pointer_reference_to_expression(reference)
Assume p is a pointer.
Definition: expression.c:4004

add_subscript_to_reference
reference add_subscript_to_reference(reference, expression)
Add a last subscript expression s to a reference r.
Definition: expression.c:224

expression_allocatable_data_access_p
bool expression_allocatable_data_access_p(expression)
Check if an expression is a reference to an allocatable array.
Definition: allocatable.c:95

error_reset_current_module_entity
void error_reset_current_module_entity(void)
To be called by an error management routine only.
Definition: static.c:109

normalize_integer_constant_expression
expression normalize_integer_constant_expression(expression)
Allocate a new expression equivalent to e, but constant expressions are evaluated.
Definition: eval.c:1112

ENTITY_POINTER_DUMMY_TARGETS_AREA
@ ENTITY_POINTER_DUMMY_TARGETS_AREA
Definition: ri-util.h:2339

ENTITY_STATIC_AREA
@ ENTITY_STATIC_AREA
Definition: ri-util.h:2338

ENTITY_FORMAL_AREA
@ ENTITY_FORMAL_AREA
Definition: ri-util.h:2340

EFFECTS_PACKAGE
@ EFFECTS_PACKAGE
Definition: ri-util.h:2333

ABSTRACT_LOCATION
@ ABSTRACT_LOCATION
Definition: ri-util.h:2334

DEFAULT_ENTITY_KIND
@ DEFAULT_ENTITY_KIND
Definition: ri-util.h:2332

ENTITY_DYNAMIC_AREA
@ ENTITY_DYNAMIC_AREA
Definition: ri-util.h:2337

ENTITY_STACK_AREA
@ ENTITY_STACK_AREA
Definition: ri-util.h:2335

ENTITY_HEAP_AREA
@ ENTITY_HEAP_AREA
Definition: ri-util.h:2336

pointer_dummy_targets_area_p
bool pointer_dummy_targets_area_p(entity)
Definition: area.c:113

string_struct_scope_p
bool string_struct_scope_p(string)
same kind of testing required for union as well
Definition: entity.c:503

string_type_size
int string_type_size(basic)
Definition: type.c:1047

find_ith_argument
expression find_ith_argument(list, int)
Definition: expression.c:1147

entity_struct_p
bool entity_struct_p(entity)
Is entity e the entity corresponding to a struct declaration?
Definition: entity.c:1002

generate_variable_with_unique_name_to_module
entity generate_variable_with_unique_name_to_module(const char *, const char *, const char *, entity)
Generate a new variable name from a seed name to a module.
Definition: variable.c:460

expression_call_p
bool expression_call_p(expression)
Definition: expression.c:415

Pvecteur_to_expression
expression Pvecteur_to_expression(Pvecteur)
AP, sep 25th 95 : some usefull functions moved from static_controlize/utils.c.
Definition: expression.c:1825

string_type_p
bool string_type_p(type)
Definition: type.c:2854

free_expression_normalized
void free_expression_normalized(expression)
Definition: normalize.c:432

MakeLongLongIntegerParameter
parameter MakeLongLongIntegerParameter(void)
MB.
Definition: type.c:199

common_members_of_module
list common_members_of_module(entity, entity, bool)
returns the list of entity to appear in the common declaration.
Definition: entity.c:1741

fcd_directive_string_p
bool fcd_directive_string_p(const char *)
Definition: hpfc.c:80

symbolic_supporting_references
list symbolic_supporting_references(list, symbolic)
Definition: type.c:4512

self_initialization_p
bool self_initialization_p(entity)
Check if a variable is initialized by itself as "int a = a;" is legal C code according to gcc.
Definition: variable.c:1966

MakeTypeVariable
type MakeTypeVariable(basic, cons *)
BEGIN_EOLE.
Definition: type.c:116

free_statement_global_stack
void free_statement_global_stack(void)
Definition: static.c:358

add_any_variable_to_area
int add_any_variable_to_area(entity, entity, bool)
Definition: variable.c:1386

ordering_to_statement
statement ordering_to_statement(int)
Get the statement associated to a given ordering.
Definition: ordering.c:111

subscript_value_stride
expression subscript_value_stride(entity, list)
Definition: expression.c:4127

symbolic_supporting_entities
list symbolic_supporting_entities(list, set, symbolic)
C version.
Definition: type.c:4206

typedef_type_p
bool typedef_type_p(type)
Returns true if t is a typedefED type.
Definition: type.c:3189

normalize_reference
normalized normalize_reference(reference)
Definition: normalize.c:592

monome_to_expression
expression monome_to_expression(Pmonome)
converts a monome to an expression
Definition: expression.c:3589

entity_special_area_p
bool entity_special_area_p(entity)
Definition: area.c:154

entity_function_p
bool entity_function_p(entity)
Definition: entity.c:724

safe_instruction_identification
string safe_instruction_identification(instruction)
Definition: instruction.c:337

array_of_struct_type_p
bool array_of_struct_type_p(type)
Definition: type.c:3133

char_type_p
bool char_type_p(type)
return true whether ‘t’ is a char or an unsigned char
Definition: type.c:2877

SizeOfDimension
expression SizeOfDimension(dimension)
Definition: size.c:503

delete_statement_enclosing_loops
void delete_statement_enclosing_loops(statement)

local_name_to_top_level_entity
entity local_name_to_top_level_entity(const char *)
This function try to find a top-level entity from a local name.
Definition: entity.c:1450

integer_symbolic_constant_p
bool integer_symbolic_constant_p(entity, int *)
(*int_p) gets integer constant if any
Definition: constant.c:556

entity_basic_concrete_types_reset
void entity_basic_concrete_types_reset(void)
Definition: type.c:3513

add_expression_p
bool add_expression_p(expression)
Test if an expression is an addition.
Definition: expression.c:986

user_call_p
bool user_call_p(call)
Test if a call is a user call.
Definition: expression.c:4361

dependence_of_dependent_type
list dependence_of_dependent_type(type)
similar to dependent_type_p but return a list of reference on which the type depend.
Definition: type.c:5942

type_struct_variable_p
bool type_struct_variable_p(type)
Definition: type.c:3867

set_enclosing_loops_map
void set_enclosing_loops_map(statement_mapping)

arguments_add_entity
cons * arguments_add_entity(cons *, entity)
Definition: arguments.c:85

entity_field_to_entity_struct_or_union
entity entity_field_to_entity_struct_or_union(entity)
Definition: entity.c:925

type_pointer_on_struct_variable_p
bool type_pointer_on_struct_variable_p(type)
Definition: type.c:2960

entity_in_formal_area_p
bool entity_in_formal_area_p(entity)
Formal parameters do not use the standard ram storage.
Definition: entity.c:3196

same_expression_in_list_p
bool same_expression_in_list_p(expression, list)
This function returns true, if there exists a same expression in the list false, otherwise.
Definition: expression.c:557

symbolic_constant_entity_p
bool symbolic_constant_entity_p(entity)
BEGIN_EOLE.
Definition: variable.c:83

find_ith_formal_parameter
entity find_ith_formal_parameter(entity, int)
This function gives back the ith formal parameter, which is found in the declarations of a call or a ...
Definition: entity.c:1863

overwrite_ordering_of_the_statement_to_current_mapping
bool overwrite_ordering_of_the_statement_to_current_mapping(statement)
Overwrite the statement for its ordering, if any, in the hash-map.
Definition: ordering.c:142

expressions_to_entities
list expressions_to_entities(list)
map expression_to_entity on expressions
Definition: expression.c:3161

entity_integer_scalar_p
bool entity_integer_scalar_p(entity)
for variables (like I), not constants (like 1)! use integer_constant_p() for constants
Definition: variable.c:1130

string_of_type
string string_of_type(type)
Definition: type.c:56

MakeQuadprecisionParameter
parameter MakeQuadprecisionParameter(void)
MB.
Definition: type.c:214

standard_long_integer_type_p
bool standard_long_integer_type_p(type)
Used to encode the long keyword in the parser.
Definition: type.c:3227

string_to_user_modules
list string_to_user_modules(const char *)
Build a list of functions from a string s containing SPACE separated function names.
Definition: module.c:562

get_ith_dummy
entity get_ith_dummy(string, string, int)
Returns a numbered entity the name of which is suffix + number, the module of which is prefix.
Definition: variable.c:1711

C_pointer_type_p
bool C_pointer_type_p(type)
Returns OK for "char[]" as well as for "char *".
Definition: type.c:3011

ordering_to_statement_initialized_p
bool ordering_to_statement_initialized_p(void)
ordering.c
Definition: ordering.c:63

FreeNormalized
void FreeNormalized(normalized)
Definition: normalize.c:419

EvalSizeofexpression
value EvalSizeofexpression(sizeofexpression)
Definition: eval.c:210

vect_debug
void vect_debug(Pvecteur)
constraint.c
Definition: constraint.c:43

relational_expression_p
bool relational_expression_p(expression)
Definition: expression.c:587

volatile_variable_p
bool volatile_variable_p(variable)
Definition: variable.c:1649

MakeUnaryCall
expression MakeUnaryCall(entity, expression)
Creates a call expression to a function with one argument.
Definition: expression.c:342

reference_to_expression
expression reference_to_expression(reference)
Definition: expression.c:196

make_global_entity_from_local
entity make_global_entity_from_local(entity)
Definition: variable.c:281

clean_all_normalized
void clean_all_normalized(expression)
Definition: expression.c:4102

modulo_expression_p
bool modulo_expression_p(expression)
Definition: expression.c:1006

dump_functional
void dump_functional(functional, string_buffer)
Definition: declarations.c:581

expression_call
call expression_call(expression)
Definition: expression.c:445

functional_equal_p
bool functional_equal_p(functional, functional)
Definition: type.c:1011

ipow
int ipow(int, int)
FI: such a function should exist in Linear/arithmetique.
Definition: eval.c:769

expression_negative_integer_value_p
bool expression_negative_integer_value_p(expression)
Return true iff the expression has an integer value known statically and this value is negative.
Definition: eval.c:814

expression_basic
basic expression_basic(expression)
Definition: type.c:1115

variable_static_p
bool variable_static_p(entity)
true if v appears in a SAVE statement, or in a DATA statement, or is declared static i C.
Definition: variable.c:1579

expression_to_affine
Pvecteur expression_to_affine(expression)
Definition: normalize.c:461

MakeComplexConstantExpression
expression MakeComplexConstantExpression(expression, expression)
Definition: constant.c:397

recursive_type_supporting_entities
list recursive_type_supporting_entities(list, set, type)
Definition: type.c:4283

expression_lists_equal_p
bool expression_lists_equal_p(list, list)
Definition: expression.c:1405

parameter_passing_by_reference_p
bool parameter_passing_by_reference_p(entity)
Definition: entity.c:2121

compare_Pvecteur
int compare_Pvecteur(Pvecteur *, Pvecteur *)
comparison function for Pvecteur in pips, to be used by qsort.
Definition: constraint.c:50

functional_type_supporting_types
list functional_type_supporting_types(functional)
FI: I'm not sure this function is of any use.
Definition: type.c:5059

pragma_private_as_expr_with_args
expression pragma_private_as_expr_with_args(list)
Definition: pragma.c:196

fortran_string_compare
int fortran_string_compare(string, string)
expression.c
Definition: expression.c:101

entity_f95module_p
bool entity_f95module_p(entity)
Definition: entity.c:707

reset_entity_to_size
void reset_entity_to_size(void)
Definition: size.c:635

entity_field_p
bool entity_field_p(entity)
e is the field of a structure
Definition: entity.c:857

variable_entity_dimension
int variable_entity_dimension(entity)
variable_entity_dimension(entity v): returns the dimension of variable v; scalar have dimension 0.
Definition: variable.c:1293

FindOrCreateEntity
entity FindOrCreateEntity(const char *, const char *)
Problem: A functional global entity may be referenced without parenthesis or CALL keyword in a functi...
Definition: entity.c:1586

NormalizeReference
normalized NormalizeReference(reference)
Definition: normalize.c:182

find_field_in_field_list
entity find_field_in_field_list(entity, list)
To deal with fields declared in different C files.
Definition: type.c:5401

add_symbolic_constant_to_declaration
void add_symbolic_constant_to_declaration(call)
Definition: module.c:175

type_equal_up_to_typedefs_and_qualifiers_p
bool type_equal_up_to_typedefs_and_qualifiers_p(type, type)
Definition: type.c:557

range_equal_p
bool range_equal_p(range, range)
Definition: expression.c:1522

is_inferior_basic
bool is_inferior_basic(basic, basic)
bool is_inferior_basic(basic1, basic2) return true if basic1 is less complex than basic2 ex: int is l...
Definition: type.c:2687

constant_expression_supporting_entities
list constant_expression_supporting_entities(list, set, expression)
C version.
Definition: type.c:4181

entity_common_p
bool entity_common_p(entity)
Definition: entity.c:718

basic_of_expressions
basic basic_of_expressions(list, bool)
Definition: type.c:2040

find_or_create_scalar_entity
entity find_or_create_scalar_entity(const char *, const char *, tag)
Looks for an entity which should be a scalar of the specified basic.
Definition: variable.c:1025

entity_variable_length_array_p
bool entity_variable_length_array_p(entity)
Definition: entity.c:798

print_C_common_layout
void print_C_common_layout(FILE *, entity, bool)
Definition: declarations.c:129

string_remove_trailing_line_feed
string string_remove_trailing_line_feed(string)
Remove trailing line feed if any.
Definition: util.c:169

make_statement_global_stack
void make_statement_global_stack(void)
Definition: static.c:318

label_defined_in_current_module_p
bool label_defined_in_current_module_p(entity)
Definition: entity.c:399

make_place_holder_variable
entity make_place_holder_variable(entity)
Definition: variable.c:2059

local_assign_expression
void local_assign_expression(expression, expression)
replace expression caller by expression field , where field is contained by caller
Definition: expression.c:3571

entity_allocatable_p
bool entity_allocatable_p(entity)
allocatable.c
Definition: allocatable.c:72

expression_range_p
bool expression_range_p(expression)
Definition: expression.c:1848

static_area_p
bool static_area_p(entity)
Definition: area.c:77

logical_type_p
bool logical_type_p(type)
Definition: type.c:2865

same_type_p
bool same_type_p(type, type)
Type equality and equivalence.
Definition: type.c:409

call_to_expression
expression call_to_expression(call)
Build an expression that call a function or procedure.
Definition: expression.c:309

float_constant_to_double
double float_constant_to_double(entity)
Definition: constant.c:639

EvalNormalized
bool EvalNormalized(normalized, int *)
Definition: normalize.c:404

float_to_entity
entity float_to_entity(float)
Definition: constant.c:430

entity_empty_label_p
bool entity_empty_label_p(entity)
Definition: entity.c:666

logical_expression_p
bool logical_expression_p(expression)
Definition: expression.c:610

replace_expression_content
expression replace_expression_content(expression, expression)
Use side effects to move the content of e2, s2 and n2, into e1; s1 and n1 are freed,...
Definition: expression.c:3864

basic_of_constant
basic basic_of_constant(call)
basic basic_of_constant(call c): returns the basic of the call to a constant.
Definition: type.c:1763

qualifier_equal_p
bool qualifier_equal_p(qualifier, qualifier)
Definition: type.c:5420

type_to_returned_type
type type_to_returned_type(type)
returns t if t is not a functoional type, and the returned type if t is a functional type.
Definition: type.c:5316

expression_variable
entity expression_variable(expression)
Definition: expression.c:532

find_ith_parameter
entity find_ith_parameter(entity, int)
Definition: util.c:93

variable_in_module_p2
bool variable_in_module_p2(entity, entity)
Definition: module.c:94

make_integer_constant_entity
entity make_integer_constant_entity(_int)
entity make_integer_constant_entity(int c) make entity for integer constant c
Definition: variable.c:1345

pragma_omp_merge_expr
list pragma_omp_merge_expr(list, list, language)
merge omp pragma.
Definition: pragma.c:326

instruction_identification
string instruction_identification(instruction)
Return a constant string representing symbolically the instruction type.
Definition: instruction.c:284

same_struct_entity_p
bool same_struct_entity_p(const entity, const entity)
Definition: entity.c:1012

expression_to_reference_list
list expression_to_reference_list(expression, list)
conversion of an expression into a list of references; references are appended to list lr as they are...
Definition: expression.c:1263

MakeComplexParameter
parameter MakeComplexParameter(void)
Definition: type.c:224

type_to_string
string type_to_string(const type)
type.c
Definition: type.c:51

basic_of_reference
basic basic_of_reference(reference)
Retrieves the basic of a reference in a newly allocated basic object.
Definition: type.c:1459

float_constant_p
bool float_constant_p(entity)
ent can be either a numerical or a symbolic float constant
Definition: constant.c:487

entity_area_p
bool entity_area_p(entity)
Definition: area.c:149

basic_maximum
basic basic_maximum(basic, basic)
Definition: type.c:1816

user_function_call_p
bool user_function_call_p(expression)
Definition: expression.c:1068

concrete_array_pointer_type_equal_p
bool concrete_array_pointer_type_equal_p(type, type)
Same as above, but resolve typedefs first.
Definition: type.c:700

string_to_entity_list
list string_to_entity_list(string, string)
of entity
Definition: entity.c:1887

print_entities
void print_entities(list)
Definition: entity.c:167

CSafeSizeOfArray
int CSafeSizeOfArray(entity)
BEGIN_EOLE.
Definition: size.c:225

polynome_to_expression
expression polynome_to_expression(Ppolynome)
converts a polynomial to expression
Definition: expression.c:3622

make_temporary_pointer_to_array_entity_with_prefix
entity make_temporary_pointer_to_array_entity_with_prefix(char *, entity, entity, expression)
Definition: variable.c:801

struct_variable_to_fields
list struct_variable_to_fields(entity)
Assume that v is declared as a struct.
Definition: variable.c:2045

ri.h

basic_utype
basic_utype
Definition: ri.h:570

call
struct _newgen_struct_call_ * call
Definition: ri.h:63

language_utype
language_utype
Definition: ri.h:1565

intptr_t
#define intptr_t
Definition: stdint.in.h:294

Scontrainte
Definition: contrainte-local.h:86

Smonome
Definition: polynome-local.h:130

Spolynome
Definition: polynome-local.h:135

Ssysteme
Definition: sc-local.h:69

Svecteur
le type des coefficients dans les vecteurs: Value est defini dans le package arithmetique
Definition: vecteur-local.h:89

__hash_table
Definition: hash.c:64

__string_buffer_head
internally defined structure.
Definition: string_buffer.c:47

_newgen_struct_application_
Definition: ri.h:500

_newgen_struct_area_
Definition: ri.h:536

_newgen_struct_basic_
Definition: ri.h:595

_newgen_struct_call_
Definition: ri.h:701

_newgen_struct_cast_
Definition: ri.h:737

_newgen_struct_clone_context_
Definition: cloning.h:56

_newgen_struct_code_
Definition: ri.h:773

_newgen_struct_constant_
Definition: ri.h:833

_newgen_struct_control_
Definition: ri.h:932

_newgen_struct_dimension_
Definition: ri.h:971

_newgen_struct_entity_
Definition: ri.h:2778

_newgen_struct_execution_
Definition: ri.h:1197

_newgen_struct_expression_
Definition: ri.h:1239

_newgen_struct_extension_
Definition: ri.h:1282

_newgen_struct_extensions_
Definition: ri.h:1324

_newgen_struct_forloop_
Definition: ri.h:1356

_newgen_struct_functional_
Definition: ri.h:1434

_newgen_struct_instruction_
Definition: ri.h:1493

_newgen_struct_language_
Definition: ri.h:1578

_newgen_struct_loop_
Definition: ri.h:1628

_newgen_struct_mode_
Definition: ri.h:1683

_newgen_struct_multitest_
Definition: ri.h:1725

_newgen_struct_normalized_
Definition: ri.h:1768

_newgen_struct_parameter_
Definition: ri.h:1810

_newgen_struct_persistant_statement_to_int_
Definition: ri.h:1931

_newgen_struct_qualifier_
Definition: ri.h:2155

_newgen_struct_range_
Definition: ri.h:2279

_newgen_struct_reference_
Definition: ri.h:2318

_newgen_struct_sentence_
Definition: text.h:65

_newgen_struct_sequence_
Definition: ri.h:2354

_newgen_struct_sizeofexpression_
Definition: ri.h:2393

_newgen_struct_statement_
Definition: ri.h:2435

_newgen_struct_storage_
Definition: ri.h:2503

_newgen_struct_subscript_
Definition: ri.h:2553

_newgen_struct_symbolic_
Definition: ri.h:2589

_newgen_struct_syntax_
Definition: ri.h:2711

_newgen_struct_test_
Definition: ri.h:2824

_newgen_struct_type_
Definition: ri.h:2922

_newgen_struct_unstructured_
Definition: ri.h:2996

_newgen_struct_value_
Definition: ri.h:3049

_newgen_struct_variable_
Definition: ri.h:3111

_newgen_struct_whileloop_
Definition: ri.h:3150

_set_chunk
FI: I do not understand why the type is duplicated at the set level.
Definition: set.c:59

cons
The structure used to build lists in NewGen.
Definition: newgen_list.h:41

intrinsic_desc_t
for intrinsic registration
Definition: ri-util-local.h:2318

text.h

Variable
void * Variable
arithmetique is a requirement for vecteur, but I do not want to inforce it in all pips files....
Definition: vecteur-local.h:60