--- rpl/src/instructions_s6.c 2017/06/21 10:20:14 1.61 +++ rpl/src/instructions_s6.c 2024/01/09 07:33:54 1.74 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.26 - Copyright (C) 1989-2017 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.35 + Copyright (C) 1989-2024 Dr. BERTRAND Joël This file is part of RPL/2. @@ -512,11 +512,14 @@ instruction_sync(struct_processus *s_eta if (fsync(fileno((*descripteur).descripteur_c)) != 0) { - liberation(s_etat_processus, s_objet_argument); + if ((errno != EROFS) && (errno != EINVAL)) + { + liberation(s_etat_processus, s_objet_argument); - (*s_etat_processus).erreur_execution = - d_ex_erreur_acces_fichier; - return; + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } } } else