version 1.51, 2013/03/05 16:20:47
|
version 1.56, 2013/03/20 17:11:44
|
Line 39 static inline void
|
Line 39 static inline void
|
estimation_taille_pile_systeme(struct_processus *s_etat_processus) |
estimation_taille_pile_systeme(struct_processus *s_etat_processus) |
{ |
{ |
(*s_etat_processus).estimation_taille_pile_systeme_tampon = |
(*s_etat_processus).estimation_taille_pile_systeme_tampon = |
((*s_etat_processus).estimation_taille_pile_systeme_tampon * |
(((double) (*s_etat_processus) |
((double) 0.9)) + ((*s_etat_processus) |
.estimation_taille_pile_systeme_tampon) * |
.hauteur_pile_systeme * ((double) 0.1)); |
((double) 0.9)) + (((double) (*s_etat_processus) |
|
.hauteur_pile_systeme) * ((double) 0.1)); |
return; |
return; |
} |
} |
|
|
Line 132 empilement_pile_systeme(struct_processus
|
Line 133 empilement_pile_systeme(struct_processus
|
(*(*s_etat_processus).l_base_pile_systeme).adresse_retour = 0; |
(*(*s_etat_processus).l_base_pile_systeme).adresse_retour = 0; |
(*(*s_etat_processus).l_base_pile_systeme).niveau_courant = |
(*(*s_etat_processus).l_base_pile_systeme).niveau_courant = |
(*s_etat_processus).niveau_courant; |
(*s_etat_processus).niveau_courant; |
(*(*s_etat_processus).l_base_pile_systeme).pointeur_adresse_retour = NULL; |
|
(*(*s_etat_processus).l_base_pile_systeme).retour_definition = 'N'; |
(*(*s_etat_processus).l_base_pile_systeme).retour_definition = 'N'; |
(*(*s_etat_processus).l_base_pile_systeme).indice_boucle = NULL; |
(*(*s_etat_processus).l_base_pile_systeme).indice_boucle = NULL; |
(*(*s_etat_processus).l_base_pile_systeme).limite_indice_boucle = NULL; |
(*(*s_etat_processus).l_base_pile_systeme).limite_indice_boucle = NULL; |
Line 303 effacement_pile_systeme(struct_processus
|
Line 303 effacement_pile_systeme(struct_processus
|
void |
void |
trace(struct_processus *s_etat_processus, FILE *flux) |
trace(struct_processus *s_etat_processus, FILE *flux) |
{ |
{ |
int candidat; |
|
int j; |
|
int nb_variables; |
|
|
|
integer8 i; |
integer8 i; |
|
integer8 j; |
|
integer8 candidat; |
integer8 candidat8; |
integer8 candidat8; |
integer8 delta; |
integer8 delta; |
|
integer8 nb_variables; |
|
|
struct_liste_chainee *l_element_expression; |
struct_liste_chainee *l_element_expression; |
|
|
Line 333 trace(struct_processus *s_etat_processus
|
Line 332 trace(struct_processus *s_etat_processus
|
|
|
nb_variables = nombre_variables(s_etat_processus); |
nb_variables = nombre_variables(s_etat_processus); |
|
|
if ((tableau = malloc(nb_variables * sizeof(struct_tableau_variables))) |
if ((tableau = malloc(((size_t) nb_variables) * |
== NULL) |
sizeof(struct_tableau_variables))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 349 trace(struct_processus *s_etat_processus
|
Line 348 trace(struct_processus *s_etat_processus
|
|
|
while(l_element_courant != NULL) |
while(l_element_courant != NULL) |
{ |
{ |
fprintf(flux, "%d : address # %016Xh\n", i--, l_element_courant); |
fprintf(flux, "%lld : address # %016Xh\n", i--, l_element_courant); |
|
|
if ((*l_element_courant).creation_variables_statiques == d_vrai) |
if ((*l_element_courant).creation_variables_statiques == d_vrai) |
{ |
{ |
Line 572 trace(struct_processus *s_etat_processus
|
Line 571 trace(struct_processus *s_etat_processus
|
} |
} |
else |
else |
{ |
{ |
|
fprintf(flux, " Come from = compiled code\n"); |
fprintf(flux, " = " |
fprintf(flux, " = " |
"optimized definition\n"); |
"optimized definition\n"); |
} |
} |
Line 596 trace(struct_processus *s_etat_processus
|
Line 596 trace(struct_processus *s_etat_processus
|
if ((*(tableau[j].objet)).type == ADR) |
if ((*(tableau[j].objet)).type == ADR) |
{ |
{ |
delta = (*l_element_courant).adresse_retour |
delta = (*l_element_courant).adresse_retour |
- (*((unsigned long *) |
- (*((integer8 *) |
(*(tableau[j].objet)).objet)); |
(*(tableau[j].objet)).objet)); |
|
|
if ((delta >= 0) && (delta < candidat8)) |
if ((delta >= 0) && (delta < candidat8)) |
Line 666 trace(struct_processus *s_etat_processus
|
Line 666 trace(struct_processus *s_etat_processus
|
l_element_courant = (*l_element_courant).suivant; |
l_element_courant = (*l_element_courant).suivant; |
} |
} |
|
|
fprintf(flux, "\n"); |
|
funlockfile(flux); |
funlockfile(flux); |
|
|
free(tableau); |
free(tableau); |