--- rpl/src/instructions_w1.c 2018/12/21 10:56:21 1.111 +++ rpl/src/instructions_w1.c 2019/02/13 14:27:44 1.118 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.29 - Copyright (C) 1989-2018 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.31 + Copyright (C) 1989-2019 Dr. BERTRAND Joël This file is part of RPL/2. @@ -1732,32 +1732,32 @@ instruction_write(struct_processus *s_et (*s_objet_argument_1).objet)).type, "SEQUENTIAL DATAGRAM") == 0)) { // Sockets connectées - - action.sa_handler = SIG_IGN; - action.sa_flags = SA_ONSTACK; - - if (sigaction(SIGPIPE, &action, ®istre) != 0) - { - (*s_etat_processus).erreur_systeme = d_es_signal; - return; - } - # ifndef SEMAPHORES_NOMMES if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0) # else if (sem_post((*s_etat_processus).semaphore_fork) != 0) # endif { - if (sigaction(SIGPIPE, ®istre, NULL) != 0) - { - (*s_etat_processus).erreur_systeme = d_es_signal; - return; - } + (*s_etat_processus).erreur_systeme = d_es_processus; + return; + } + if (pthread_mutex_lock(&mutex_sigaction) != 0) + { (*s_etat_processus).erreur_systeme = d_es_processus; return; } + action.sa_handler = SIG_IGN; + action.sa_flags = 0; + + if (sigaction(SIGPIPE, &action, ®istre) != 0) + { + pthread_mutex_unlock(&mutex_sigaction); + (*s_etat_processus).erreur_systeme = d_es_signal; + return; + } + if (send((*((struct_socket *) (*s_objet_argument_1).objet)) .socket, chaine, (size_t) longueur_effective, 0) < 0) { @@ -1765,10 +1765,17 @@ instruction_write(struct_processus *s_et if (sigaction(SIGPIPE, ®istre, NULL) != 0) { + pthread_mutex_unlock(&mutex_sigaction); (*s_etat_processus).erreur_systeme = d_es_signal; return; } + if (pthread_mutex_unlock(&mutex_sigaction) != 0) + { + (*s_etat_processus).erreur_systeme = d_es_processus; + return; + } + # ifndef SEMAPHORES_NOMMES while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0) # else @@ -1793,6 +1800,41 @@ instruction_write(struct_processus *s_et return; } + if (sigaction(SIGPIPE, ®istre, NULL) != 0) + { + pthread_mutex_unlock(&mutex_sigaction); + +# ifndef SEMAPHORES_NOMMES + while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0) +# else + while(sem_wait((*s_etat_processus).semaphore_fork) != 0) +# endif + { + if (errno != EINTR) + { + if (sigaction(SIGPIPE, ®istre, NULL) != 0) + { + pthread_mutex_unlock(&mutex_sigaction); + (*s_etat_processus).erreur_systeme = d_es_signal; + return; + } + + pthread_mutex_unlock(&mutex_sigaction); + (*s_etat_processus).erreur_systeme = d_es_processus; + return; + } + } + + (*s_etat_processus).erreur_systeme = d_es_signal; + return; + } + + if (pthread_mutex_unlock(&mutex_sigaction) != 0) + { + (*s_etat_processus).erreur_systeme = d_es_processus; + return; + } + # ifndef SEMAPHORES_NOMMES while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0) # else @@ -1811,12 +1853,6 @@ instruction_write(struct_processus *s_et return; } } - - if (sigaction(SIGPIPE, ®istre, NULL) != 0) - { - (*s_etat_processus).erreur_systeme = d_es_signal; - return; - } } else { // Sockets non connectées @@ -2292,29 +2328,6 @@ instruction_wflock(struct_processus *s_e return; } -# ifndef SEMAPHORES_NOMMES - if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0) -# else - if (sem_post((*s_etat_processus).semaphore_fork) != 0) -# endif - { - (*s_etat_processus).erreur_systeme = d_es_processus; - return; - } - -# ifndef SEMAPHORES_NOMMES - while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0) -# else - while(sem_wait((*s_etat_processus).semaphore_fork) != 0) -# endif - { - if (errno != EINTR) - { - (*s_etat_processus).erreur_systeme = d_es_processus; - return; - } - } - if (lock.l_type == F_UNLCK) { drapeau = d_vrai; @@ -2350,10 +2363,34 @@ instruction_wflock(struct_processus *s_e registre_instruction_valide; } - nanosleep(&attente, NULL); scrutation_injection(s_etat_processus); +# ifndef SEMAPHORES_NOMMES + if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0) +# else + if (sem_post((*s_etat_processus).semaphore_fork) != 0) +# endif + { + (*s_etat_processus).erreur_systeme = d_es_processus; + return; + } + + nanosleep(&attente, NULL); + INCR_GRANULARITE(attente.tv_nsec); + +# ifndef SEMAPHORES_NOMMES + while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0) +# else + while(sem_wait((*s_etat_processus).semaphore_fork) != 0) +# endif + { + if (errno != EINTR) + { + (*s_etat_processus).erreur_systeme = d_es_processus; + return; + } + } } } while((drapeau == d_faux) && ((*s_etat_processus) .var_volatile_requete_arret != -1)); @@ -3892,7 +3929,30 @@ instruction_wfswi(struct_processus *s_et } else { +# ifndef SEMAPHORES_NOMMES + if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0) +# else + if (sem_post((*s_etat_processus).semaphore_fork) != 0) +# endif + { + (*s_etat_processus).erreur_systeme = d_es_processus; + return; + } nanosleep(&attente, NULL); + +# ifndef SEMAPHORES_NOMMES + while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0) +# else + while(sem_wait((*s_etat_processus).semaphore_fork) != 0) +# endif + { + if (errno != EINTR) + { + (*s_etat_processus).erreur_systeme = d_es_processus; + return; + } + } + scrutation_injection(s_etat_processus); INCR_GRANULARITE(attente.tv_nsec); }