version 1.88, 2015/02/19 11:01:30
|
version 1.97, 2017/01/18 15:44:24
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.21 |
RPL/2 (R) version 4.1.26 |
Copyright (C) 1989-2015 Dr. BERTRAND Joël |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 541 sequenceur(struct_processus *s_etat_proc
|
Line 541 sequenceur(struct_processus *s_etat_proc
|
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
|
(*s_etat_processus).instruction_sensible = 'N'; |
analyse(s_etat_processus, NULL); |
analyse(s_etat_processus, NULL); |
|
|
if ((*s_etat_processus).traitement_cycle_exit != 'N') |
if ((*s_etat_processus).traitement_cycle_exit != 'N') |
Line 585 sequenceur(struct_processus *s_etat_proc
|
Line 586 sequenceur(struct_processus *s_etat_proc
|
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
if ((*s_etat_processus).debug == d_vrai) |
if (recherche_variable_partagee(s_etat_processus, |
if (((*s_etat_processus).type_debug & |
(*(*s_etat_processus) |
d_debug_variables) != 0) |
.pointeur_variable_courante).nom, |
|
(*(*s_etat_processus) |
|
.pointeur_variable_courante).variable_partagee, |
|
'P') != NULL) |
{ |
{ |
if ((*s_etat_processus).langue == 'F') |
// La variable existe. |
|
|
|
if ((*s_etat_processus).debug == d_vrai) |
|
if (((*s_etat_processus).type_debug & |
|
d_debug_variables) != 0) |
{ |
{ |
printf("[%d] Évaluation de la variable " |
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
printf("[%d] Évaluation de la variable " |
"partagée %s de type %d\n", |
"partagée %s de type %d\n", |
(int) getpid(), (*s_etat_processus) |
(int) getpid(), (*s_etat_processus) |
.instruction_courante, |
.instruction_courante, |
(*(*(*s_etat_processus) |
(*(*(*s_etat_processus) |
.pointeur_variable_courante).objet) |
.pointeur_variable_partagee_courante) |
.type); |
.objet).type); |
} |
} |
else |
else |
{ |
{ |
printf("[%d] Pushing %s as %d type shared " |
printf("[%d] Pushing %s as %d type shared " |
"variable\n", (int) getpid(), |
"variable\n", (int) getpid(), |
(*s_etat_processus) |
(*s_etat_processus) |
.instruction_courante, |
.instruction_courante, |
(*(*(*s_etat_processus) |
(*(*(*s_etat_processus) |
.pointeur_variable_courante).objet) |
.pointeur_variable_partagee_courante) |
.type); |
.objet).type); |
} |
} |
|
|
fflush(stdout); |
|
} |
|
|
|
if (recherche_variable_partagee(s_etat_processus, |
fflush(stdout); |
(*(*s_etat_processus) |
} |
.pointeur_variable_courante).nom, |
|
(*(*s_etat_processus) |
|
.pointeur_variable_courante).variable_partagee, |
|
'P') != NULL) |
|
{ |
|
// La variable existe. |
|
|
|
if ((s_objet = copie_objet(s_etat_processus, |
if ((s_objet = copie_objet(s_etat_processus, |
(*(*s_etat_processus) |
(*(*s_etat_processus) |
Line 653 sequenceur(struct_processus *s_etat_proc
|
Line 654 sequenceur(struct_processus *s_etat_proc
|
else |
else |
{ |
{ |
// La variable n'existe plus. |
// La variable n'existe plus. |
|
if ((*s_etat_processus).debug == d_vrai) |
|
if (((*s_etat_processus).type_debug & |
|
d_debug_variables) != 0) |
|
{ |
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
printf("[%d] Tentative d'accès à la " |
|
"variable partagée non définie %s\n", |
|
(int) getpid(), (*s_etat_processus) |
|
.instruction_courante); |
|
} |
|
else |
|
{ |
|
printf("[%d] Trying to access to undefined " |
|
"shared variable %s\n", |
|
(int) getpid(), |
|
(*s_etat_processus) |
|
.instruction_courante); |
|
} |
|
|
|
fflush(stdout); |
|
} |
} |
} |
} |
} |
|
|
Line 911 sequenceur(struct_processus *s_etat_proc
|
Line 934 sequenceur(struct_processus *s_etat_proc
|
(*((struct_fonction *) (*s_objet).objet)) |
(*((struct_fonction *) (*s_objet).objet)) |
.nombre_arguments = 0; |
.nombre_arguments = 0; |
|
|
if ((*s_etat_processus).instruction_intrinseque == 'Y') |
if (((*s_etat_processus).instruction_intrinseque == 'Y') && |
|
((*s_etat_processus).instruction_sensible == 'N')) |
{ |
{ |
if (((*((struct_fonction *) (*s_objet).objet)) |
if (((*((struct_fonction *) (*s_objet).objet)) |
.nom_fonction = conversion_majuscule( |
.nom_fonction = conversion_majuscule( |
Line 1502 sequenceur(struct_processus *s_etat_proc
|
Line 1526 sequenceur(struct_processus *s_etat_proc
|
if ((*s_etat_processus).var_volatile_processus_pere == 0) |
if ((*s_etat_processus).var_volatile_processus_pere == 0) |
{ |
{ |
envoi_signal_processus((*s_etat_processus).pid_processus_pere, |
envoi_signal_processus((*s_etat_processus).pid_processus_pere, |
rpl_sigalrm); |
rpl_sigalrm, d_faux); |
} |
} |
else |
else |
{ |
{ |