25 #include "pips_config.h"
295 debug(3,
"proper_comp_regions_of_intrinsic",
"begin\n");
297 while (pid->
name != NULL) {
298 if (strcmp(pid->
name, s) == 0) {
300 debug(3,
"proper_comp_regions_of_intrinsic",
"end\n");
321 debug(5,
"no_write_comp_regions",
"begin\n");
323 debug(5,
"no_write_comp_regions",
"end\n");
343 debug(5,
"affect_comp_regions",
"begin\n");
354 debug(5,
"affect_comp_regions",
"end\n");
385 debug(5,
"io_comp_regions",
"begin\n");
387 for (pc = args; pc !=
NIL; pc =
CDR(pc)) {
454 debug(5,
"io_comp_regions",
"end\n");
468 debug(5,
"comp_regions_of_io_elem",
"begin\n");
472 debug(6,
"comp_regions_of_io_elem",
"is_action_write\n");
478 debug(6,
"comp_regions_of_io_elem",
"is_action_read\n");
482 debug(5,
"comp_regions_of_elem",
"end\n");
495 debug(5,
"comp_regions_of_io_list",
"begin\n");
517 debug(6,
"comp_regions_of_io_list",
"is_action_write");
522 debug(6,
"comp_regions_of_io_elem",
"is_action_read");
532 debug(5,
"comp_regions_of_io_list",
"end\n");
549 list le, lep, lr, args;
558 debug(5,
"comp_regions_of_implied_do",
"begin\n");
606 debug(7,
"comp_regions_of_implied_do",
"local context : \n%s\n",
632 debug(5,
"comp_regions_of_implied_do",
"index removed");
642 debug(7,
"comp_regions_of_implied_do",
"regions before projection :\n");
652 debug(6,
"comp_regions_of_implied_do",
"regions after projection :\n");
661 debug(5,
"comp_regions_of_implied_do",
"end\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.
reference make_reference(entity a1, list a2)
static reference ref
Current stmt (an integer)
cons * arguments_add_entity(cons *a, entity e)
transformer transformer_dup(transformer t_in)
transformer package - basic routines
void transformer_free(transformer t)
list comp_regions_of_expressions(list, transformer)
}}}
list comp_regions_of_write(reference, transformer)
}}}
list CompRegionsExactUnion(list, list, bool(*)(effect, effect))
list comp_regions_of_read(reference, transformer)
}}}
list comp_regions_of_expression(expression, transformer)
{{{ comp_regions_of_expression
#define region_entity(reg)
list region_add_to_regions(effect, list)
void project_regions_along_loop_index(list, entity, range)
void project_regions_along_loop_index(list l_reg, entity index, l_range) input : a list l_reg of regi...
bool effects_same_action_p(effect, effect)
#define approximation_tag(x)
#define effect_approximation(x)
bool get_bool_property(const string)
FC 2015-07-20: yuk, moved out to prevent an include cycle dependency include "properties....
#define ENDP(l)
Test if a list is empty.
#define NIL
The empty list (nil in Lisp)
#define CONS(_t_, _i_, _l_)
List element cell constructor (insert an element at the beginning of a list)
list gen_nconc(list cp1, list cp2)
physically concatenates CP1 and CP2 but do not duplicates the elements
#define CAR(pcons)
Get the value of the first element of a list.
void gen_free_list(list l)
free the spine of the list
#define CDR(pcons)
Get the list less its first element.
#define MAP(_map_CASTER, _map_item, _map_code, _map_list)
Apply/map an instruction block on all the elements of a list (old fashioned)
#define pips_assert(what, predicate)
common macros, two flavors depending on NDEBUG
#define pips_internal_error
void debug(const int the_expected_debug_level, const char *calling_function_name, const char *a_message_format,...)
ARARGS0.
static IoElementDescriptor * SearchIoElement(char *s, char *i) const
}}
list comp_regions_of_implied_do(expression exp, tag act, transformer context)
}}
list no_write_comp_regions(entity __attribute__((unused)) e, list args, transformer context)
}}
list proper_comp_regions_of_intrinsic(entity e, list args, transformer context)
}}
list comp_regions_of_intrinsic(entity e, list args, transformer context)
}}
list io_comp_regions(entity e, list args, transformer context)
}}
struct IoElementDescriptor IoElementDescriptor
{{ banner
static IoElementDescriptor IoElementDescriptorUndefined
list comp_regions_of_iolist(list exprs, tag act, transformer context)
}}
static IoElementDescriptor IoElementDescriptorTable[]
list comp_regions_of_ioelem(expression exp, tag act, transformer context)
}}
list affect_comp_regions(entity __attribute__((unused)) e, list args, transformer context)
}}
static IntrinsicEffectDescriptor IntrinsicDescriptorTable[]
#define LIST_DIRECTED_FORMAT_NAME
#define TOP_LEVEL_MODULE_NAME
Module containing the global variables in Fortran and C.
int f(int off1, int off2, int n, float r[n], float a[n], float b[n])
#define UNBOUNDED_DIMENSION_NAME
#define IO_EFFECTS_ARRAY_NAME
array of Logical UNits; it is more or less handled as the current file pointer; in C,...
entity FindEntity(const char *package, const char *name)
Retrieve an entity from its package/module name and its local name.
const char * entity_local_name(entity e)
entity_local_name modified so that it does not core when used in vect_fprint, since someone thought t...
bool expression_implied_do_p(e)
#define syntax_reference_p(x)
#define transformer_undefined
#define syntax_reference(x)
#define reference_variable(x)
#define EXPRESSION(x)
EXPRESSION.
#define transformer_arguments(x)
#define call_arguments(x)
#define syntax_range_p(x)
#define expression_syntax(x)
int fprintf()
test sc_min : ce test s'appelle par : programme fichier1.data fichier2.data ...
transformer add_index_range_conditions(transformer pre, entity i, range r, transformer tfb)
the following data structure describes an intrinsic function: its name and the function to apply on a...
The structure used to build lists in NewGen.
#define exp
Avoid some warnings from "gcc -Wshadow".