version 1.91, 2015/09/18 13:41:22
|
version 1.103, 2019/01/01 09:03:16
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.23 |
RPL/2 (R) version 4.1.30 |
Copyright (C) 1989-2015 Dr. BERTRAND Joël |
Copyright (C) 1989-2019 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 933 sequenceur(struct_processus *s_etat_proc
|
Line 935 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 1524 sequenceur(struct_processus *s_etat_proc
|
Line 1527 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 |
{ |
{ |