--- rpl/src/instructions_l5.c 2013/04/01 15:29:36 1.45 +++ rpl/src/instructions_l5.c 2017/08/03 17:17:47 1.63 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.14 - Copyright (C) 1989-2013 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.28 + Copyright (C) 1989-2017 Dr. BERTRAND Joël This file is part of RPL/2. @@ -446,8 +446,12 @@ instruction_label(struct_processus *s_et void instruction_logger(struct_processus *s_etat_processus) { + integer8 longueur; + struct_objet *s_objet_argument; + unsigned char *tampon; + (*s_etat_processus).erreur_execution = d_ex; if ((*s_etat_processus).affichage_arguments == 'Y') @@ -490,7 +494,15 @@ instruction_logger(struct_processus *s_e if ((*s_objet_argument).type == CHN) { - syslog(LOG_NOTICE, "%s", (unsigned char *) (*s_objet_argument).objet); + if ((tampon = formateur_flux(s_etat_processus, + (unsigned char *) (*s_objet_argument).objet, &longueur)) + == NULL) + { + return; + } + + syslog(LOG_NOTICE, "%s", tampon); + free(tampon); } else {