version 1.14, 2010/07/24 16:39:44
|
version 1.19, 2010/08/12 14:13:57
|
Line 20
|
Line 20
|
*/ |
*/ |
|
|
|
|
#include "rpl.conv.h" |
#include "rpl-conv.h" |
|
|
|
|
/* |
/* |
Line 57 instruction_sort(struct_processus *s_eta
|
Line 57 instruction_sort(struct_processus *s_eta
|
struct_objet *s_objet_copie; |
struct_objet *s_objet_copie; |
struct_objet *s_objet_critere; |
struct_objet *s_objet_critere; |
struct_objet *s_objet_liste; |
struct_objet *s_objet_liste; |
|
struct_objet *s_objet_registre; |
struct_objet *s_objet_test; |
struct_objet *s_objet_test; |
|
|
signed long indice_i; |
signed long indice_i; |
Line 556 instruction_sort(struct_processus *s_eta
|
Line 557 instruction_sort(struct_processus *s_eta
|
|
|
if (condition == d_faux) |
if (condition == d_faux) |
{ |
{ |
swap(&((*((struct_tableau *) |
s_objet_registre = |
|
(*((struct_tableau *) |
(*s_objet_liste).objet)).elements |
(*s_objet_liste).objet)).elements |
[indice_i - 1]), |
[indice_i - 1]; |
&((*((struct_tableau *) (*s_objet_liste) |
(*((struct_tableau *) (*s_objet_liste).objet)) |
.objet)).elements[indice_l - 1]), |
.elements[indice_i - 1] = |
sizeof(struct_objet *)); |
(*((struct_tableau *) (*s_objet_liste) |
|
.objet)).elements[indice_l - 1]; |
|
(*((struct_tableau *) (*s_objet_liste) |
|
.objet)).elements[indice_l - 1] = |
|
s_objet_registre; |
|
|
indice_i -= ecartement; |
indice_i -= ecartement; |
|
|
Line 792 instruction_save(struct_processus *s_eta
|
Line 798 instruction_save(struct_processus *s_eta
|
i--; |
i--; |
} |
} |
|
|
(*s_etat_processus).position_variable_courante = i; |
if (presence_variable == d_vrai) |
|
{ |
|
(*s_etat_processus).position_variable_courante = i; |
|
} |
|
else |
|
{ |
|
(*s_etat_processus).position_variable_courante = 0; |
|
} |
|
|
if ((*s_etat_processus).s_liste_variables[(*s_etat_processus) |
if (((*s_etat_processus).s_liste_variables[(*s_etat_processus) |
.position_variable_courante].niveau == 1) |
.position_variable_courante].niveau == 1) && |
|
(presence_variable == d_vrai)) |
{ |
{ |
// On a trouvé une variable globale correspondant au nom et |
// On a trouvé une variable globale correspondant au nom et |
// que l'on modifie. |
// que l'on modifie. |
Line 1778 instruction_swi(struct_processus *s_etat
|
Line 1792 instruction_swi(struct_processus *s_etat
|
return; |
return; |
} |
} |
} |
} |
|
|
|
kill((*s_etat_processus).pid_processus_pere, SIGCONT); |
} |
} |
else |
else |
{ |
{ |
Line 1923 instruction_swi(struct_processus *s_etat
|
Line 1939 instruction_swi(struct_processus *s_etat
|
return; |
return; |
} |
} |
} |
} |
|
|
|
pthread_kill((*s_etat_processus).tid_processus_pere, SIGCONT); |
} |
} |
|
|
attente.tv_sec = 0; |
attente.tv_sec = 0; |