--- rpl/src/instructions_r4.c 2019/01/01 09:03:09 1.109 +++ rpl/src/instructions_r4.c 2023/08/07 17:42:57 1.116 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.30 - Copyright (C) 1989-2019 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.35 + Copyright (C) 1989-2023 Dr. BERTRAND Joël This file is part of RPL/2. @@ -2120,7 +2120,8 @@ instruction_read(struct_processus *s_eta if (sscanf(&(format_chaine[8]), "%lld", &longueur) != 1) { - liberation(s_etat_processus, s_objet_argument_1); + liberation(s_etat_processus, + s_objet_argument_1); liberation(s_etat_processus, s_objet_resultat); free(format_chaine);