version 1.8, 2010/04/17 18:57:36
|
version 1.15, 2010/07/24 18:01:12
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.14 |
RPL/2 (R) version 4.0.18 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 463 instruction_sort(struct_processus *s_eta
|
Line 463 instruction_sort(struct_processus *s_eta
|
indice_j = 0; |
indice_j = 0; |
indice_k = (*((struct_tableau *) (*s_objet_liste).objet)) |
indice_k = (*((struct_tableau *) (*s_objet_liste).objet)) |
.nombre_elements - ecartement; |
.nombre_elements - ecartement; |
|
|
terminaison_boucle_2 = d_faux; |
terminaison_boucle_2 = d_faux; |
|
|
do |
do |
Line 557 instruction_sort(struct_processus *s_eta
|
Line 556 instruction_sort(struct_processus *s_eta
|
|
|
if (condition == d_faux) |
if (condition == d_faux) |
{ |
{ |
swap((void *) (*((struct_tableau *) |
swap(&((*((struct_tableau *) |
(*s_objet_liste).objet)).elements |
(*s_objet_liste).objet)).elements |
[indice_i - 1], (void *) |
[indice_i - 1]), |
(*((struct_tableau *) (*s_objet_liste) |
&((*((struct_tableau *) (*s_objet_liste) |
.objet)).elements[indice_l - 1], |
.objet)).elements[indice_l - 1]), |
sizeof(struct_objet)); |
sizeof(struct_objet *)); |
|
|
indice_i -= ecartement; |
indice_i -= ecartement; |
|
|
Line 793 instruction_save(struct_processus *s_eta
|
Line 792 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 968 instruction_suspend(struct_processus *s_
|
Line 975 instruction_suspend(struct_processus *s_
|
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_processus; |
(*s_etat_processus).erreur_systeme = d_es_processus; |
return; |
return; |
|
} |
|
|
|
if (sigdelset(&masque, SIGFABORT) != 0) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_processus; |
|
return; |
} |
} |
|
|
if (sigdelset(&masque, SIGURG) != 0) |
if (sigdelset(&masque, SIGURG) != 0) |