27 #ifdef BUILDER_ARRAY_RESIZING_STATISTIC
30 #include "pips_config.h"
51 static int number_of_pointer_type_and_formal_arrays = 0;
52 static int number_of_assumed_size_and_formal_arrays = 0;
53 static int number_of_formal_arrays = 0;
54 static int number_of_pointer_type_and_not_formal_arrays = 0;
55 static int number_of_assumed_size_and_not_formal_arrays = 0;
56 static int number_of_not_formal_arrays = 0;
67 debug_on(
"ARRAY_RESIZING_STATISTIC_DEBUG_LEVEL");
86 number_of_formal_arrays++;
88 number_of_not_formal_arrays++;
92 number_of_assumed_size_and_formal_arrays++;
94 number_of_assumed_size_and_not_formal_arrays++;
99 number_of_pointer_type_and_formal_arrays++;
101 number_of_pointer_type_and_not_formal_arrays++;
105 l_decl =
CDR(l_decl);
108 user_log(
" \n Number of pointer-type A(1), formal arrays : %d \n"
109 ,number_of_pointer_type_and_formal_arrays );
110 user_log(
" \n Number of assumed-size A(*), formal arrays : %d \n"
111 ,number_of_assumed_size_and_formal_arrays );
112 user_log(
" \n Number of formal array declarators : %d\n"
113 ,number_of_formal_arrays );
114 user_log(
" \n Number of pointer-type A(1), local arrays : %d \n"
115 ,number_of_pointer_type_and_not_formal_arrays );
116 user_log(
" \n Number of assumed-size A(*), local arrays : %d \n"
117 ,number_of_assumed_size_and_not_formal_arrays );
118 user_log(
" \n Number of local array declarators : %d\n"
119 ,number_of_not_formal_arrays );
120 user_log(
" \n Total number of pointer-type arrays : %d\n"
121 ,number_of_pointer_type_and_formal_arrays +
122 number_of_pointer_type_and_not_formal_arrays );
123 user_log(
" \n Total number of assumed-size arrays : %d\n"
124 ,number_of_assumed_size_and_formal_arrays +
125 number_of_assumed_size_and_not_formal_arrays);
126 user_log(
" \n Total number of arrays : %d\n"
127 ,number_of_formal_arrays +
128 number_of_not_formal_arrays);
130 user_log(
"\n Number of processed modules: %d \n"
void user_log(const char *format,...)
static int number_of_processed_modules
const char * module_name(const char *s)
Return the module part of an entity name.
#define ENDP(l)
Test if a list is empty.
#define NIL
The empty list (nil in Lisp)
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.
#define entity_variable_p(e)
An entity_variable_p(e) may hide a typedef and hence a functional type.
code entity_code(entity e)
entity module_name_to_entity(const char *mn)
This is an alias for local_name_to_top_level_entity.
bool unbounded_dimension_p(dimension dim)
bool unbounded_dimension_p(dim) input : a dimension of an array entity.
bool expression_equal_integer_p(expression exp, int i)
================================================================
dimension find_ith_dimension(list, int)
This function returns the ith dimension of a list of dimensions.
#define storage_formal_p(x)
#define entity_storage(x)
#define code_declarations(x)
#define dimension_upper(x)
#define variable_dimensions(x)
int fprintf()
test sc_min : ce test s'appelle par : programme fichier1.data fichier2.data ...
The structure used to build lists in NewGen.
#define exp
Avoid some warnings from "gcc -Wshadow".