version 1.37, 2012/01/05 10:19:05
|
version 1.49, 2013/03/21 11:30:31
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.5 |
RPL/2 (R) version 4.1.13 |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 38
|
Line 38
|
logical1 |
logical1 |
sequenceur_optimise(struct_processus *s_etat_processus) |
sequenceur_optimise(struct_processus *s_etat_processus) |
{ |
{ |
int i; |
integer8 adresse_point_entree; |
int nb_variables; |
integer8 i; |
int point_entree; |
integer8 nb_variables; |
|
integer8 point_entree; |
|
|
logical1 erreur; |
logical1 erreur; |
|
|
Line 51 sequenceur_optimise(struct_processus *s_
|
Line 52 sequenceur_optimise(struct_processus *s_
|
unsigned char *message; |
unsigned char *message; |
unsigned char registre; |
unsigned char registre; |
|
|
unsigned long adresse_point_entree; |
|
|
|
if ((*s_etat_processus).debug == d_vrai) |
if ((*s_etat_processus).debug == d_vrai) |
if (((*s_etat_processus).type_debug & |
if (((*s_etat_processus).type_debug & |
d_debug_analyse) != 0) |
d_debug_analyse) != 0) |
Line 79 sequenceur_optimise(struct_processus *s_
|
Line 78 sequenceur_optimise(struct_processus *s_
|
(*s_etat_processus).autorisation_empilement_programme = 'Y'; |
(*s_etat_processus).autorisation_empilement_programme = 'Y'; |
(*s_etat_processus).mode_execution_programme = 'N'; |
(*s_etat_processus).mode_execution_programme = 'N'; |
|
|
nb_variables = nombre_variables(s_etat_processus, |
nb_variables = nombre_variables(s_etat_processus); |
(*s_etat_processus).s_arbre_variables); |
|
|
|
if ((tableau = malloc(nb_variables * sizeof(struct_tableau_variables))) |
if ((tableau = malloc(((size_t) nb_variables) * |
== NULL) |
sizeof(struct_tableau_variables))) == NULL) |
{ |
{ |
if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
{ |
{ |
Line 94 sequenceur_optimise(struct_processus *s_
|
Line 92 sequenceur_optimise(struct_processus *s_
|
printf("+++System : Not enough memory\n"); |
printf("+++System : Not enough memory\n"); |
} |
} |
|
|
|
liberation_mutexes_arbre_variables_partagees(s_etat_processus, |
|
(*(*s_etat_processus).s_arbre_variables_partagees)); |
return(d_erreur); |
return(d_erreur); |
} |
} |
|
|
liste_variables(s_etat_processus, tableau, 0, |
liste_variables(s_etat_processus, tableau); |
(*s_etat_processus).s_arbre_variables); |
|
|
|
for(i = 0; i < nb_variables; i++) |
for(i = 0; i < nb_variables; i++) |
{ |
{ |
Line 106 sequenceur_optimise(struct_processus *s_
|
Line 105 sequenceur_optimise(struct_processus *s_
|
{ |
{ |
// Variables qui contiennent les points d'entrée des définitions. |
// Variables qui contiennent les points d'entrée des définitions. |
|
|
(*s_etat_processus).position_courante = (*((unsigned long *) |
(*s_etat_processus).position_courante = (*((integer8 *) |
(*(tableau[i].objet)).objet)); |
(*(tableau[i].objet)).objet)); |
|
|
if (point_entree == -1) |
if (point_entree == -1) |