25 #include "pips_config.h"
42 #define FATAL(msg,value) {fprintf(stderr,msg,value);exit(1);}
63 (*the_result) *= a_temp_int;
79 (*the_int) = upper_dim - lower_dim + 1;
107 return ((
basic_tag(b) == a_basic) && (n = 1));
112 "warning : cannot verify the type\n");
132 "very strange type encountered, waiting for a variable\n");
155 flint_message(
"find_bd_expression",
"no basic in this expression\n");
183 if (len_dim < len_ind)
186 for (i = 1; i <= len_ind; i++)
187 (*dims) =
CDR(*dims);
201 "very strange function encountered\n");
float a2sf[2] __attribute__((aligned(16)))
USER generates a user error (i.e., non fatal) by printing the given MSG according to the FMT.
static reference ref
Current stmt (an integer)
bdt base
Current expression.
void flint_message(char *fun, char *fmt,...)
bool size_of_dimension(dimension d, intptr_t *the_int)
this function computes the size of a dimension.
bool find_bd_type_variable(type tp, basic *base, list *dims)
#define FATAL(msg, value)
Print error message and exit from flint.
bool find_bd_parameter(parameter param, basic *base, list *dims)
bool find_bd_expression(expression exp, basic *base, list *dims)
bool find_bd_call(call c, basic *base, list *dims)
bool control_type_in_expression(enum basic_utype a_basic, int __attribute__((unused)) a_dim, expression exp)
bool find_bd_reference(reference ref, basic *base, list *dims)
bool number_of_elements(list ld, intptr_t *the_result)
flint_utils.c
size_t gen_length(const list l)
#define CAR(pcons)
Get the value of the first element of a list.
#define CDR(pcons)
Get the list less its first element.
bool expression_integer_value(expression e, intptr_t *pval)
#define type_functional_p(x)
#define functional_result(x)
#define parameter_type(x)
#define syntax_reference(x)
#define reference_variable(x)
#define type_functional(x)
#define dimension_lower(x)
#define dimension_upper(x)
#define reference_indices(x)
#define variable_dimensions(x)
#define expression_syntax(x)
#define type_variable_p(x)
#define variable_basic(x)
The structure used to build lists in NewGen.
#define exp
Avoid some warnings from "gcc -Wshadow".