--- rpl/src/instructions_s6.c 2016/09/27 15:29:38 1.59 +++ 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-2016 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. @@ -509,6 +509,18 @@ instruction_sync(struct_processus *s_eta d_ex_erreur_acces_fichier; return; } + + if (fsync(fileno((*descripteur).descripteur_c)) != 0) + { + if ((errno != EROFS) && (errno != EINVAL)) + { + liberation(s_etat_processus, s_objet_argument); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_acces_fichier; + return; + } + } } else {