--- rpl/src/formateur_fichiers.c 2012/04/13 14:12:48 1.41 +++ rpl/src/formateur_fichiers.c 2012/06/22 10:12:19 1.43 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.1.8 + RPL/2 (R) version 4.1.9 Copyright (C) 1989-2012 Dr. BERTRAND Joël This file is part of RPL/2. @@ -1497,6 +1497,17 @@ formateur_fichier(struct_processus *s_et } position_3 = strlen(format_chaine); + + if (format_chaine[position_3] != ')') + { + free(chaine); + free(format_chaine); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } + format_chaine[--position_3] = d_code_fin_chaine; position_2 = position_1;