--- rpl/src/transliteration.c 2016/03/09 22:11:27 1.88 +++ rpl/src/transliteration.c 2022/09/07 13:40:42 1.105 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.25 - Copyright (C) 1989-2016 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.34 + Copyright (C) 1989-2021 Dr. BERTRAND Joël This file is part of RPL/2. @@ -131,7 +131,15 @@ reencodage(struct_processus *s_etat_proc longueur_sortie = d_LONGUEUR; pointeur = buffer_sortie; - if ((ios = iconv(transcodage, (char **) &buffer_entree, + if ((ios = iconv(transcodage, +# if defined(Linux) + (char **) +# elif defined(NetBSD) + (const char **) +# else + (char **) +# endif + &buffer_entree, &longueur_entree, (char **) &pointeur, &longueur_sortie)) == (size_t) -1) { @@ -465,23 +473,27 @@ localisation_courante(struct_processus * return; } - if (waitpid(pid, &status, 0) == -1) + while(waitpid(pid, &status, 0) == -1) { -# 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 (errno != EINTR) +# ifndef SEMAPHORES_NOMMES + while(sem_wait(&((*s_etat_processus).semaphore_fork)) + != 0) +# else + while(sem_wait((*s_etat_processus).semaphore_fork) != 0) +# endif { - (*s_etat_processus).erreur_systeme = d_es_processus; - return; + if (errno != EINTR) + { + (*s_etat_processus).erreur_systeme = d_es_processus; + return; + } } - } - (*s_etat_processus).erreur_systeme = d_es_processus; - return; + (*s_etat_processus).erreur_systeme = d_es_processus; + return; + } } # ifndef SEMAPHORES_NOMMES @@ -878,8 +890,8 @@ readline_wrapper(struct_processus *s_eta return(NULL); } - if ((rpl_chaine = rpl_malloc(s_etat_processus, (strlen(sys_chaine) + 1) * - sizeof(unsigned char *))) == NULL) + if ((rpl_chaine = malloc((strlen(sys_chaine) + 1) * + sizeof(unsigned char))) == NULL) { sys_free(sys_chaine); (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;