--- rpl/src/instructions_l5.c 2015/01/05 13:12:36 1.52 +++ rpl/src/instructions_l5.c 2019/10/31 15:40:13 1.68 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.19 - Copyright (C) 1989-2015 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.32 + Copyright (C) 1989-2019 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 {