--- rpl/src/formateur.c 2011/03/12 15:32:02 1.22 +++ rpl/src/formateur.c 2011/04/11 12:10:05 1.25 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.0.21 + RPL/2 (R) version 4.1.0.prerelease.0 Copyright (C) 1989-2011 Dr. BERTRAND Joël This file is part of RPL/2. @@ -392,7 +392,7 @@ formateur(struct_processus *s_etat_proce -------------------------------------------------------------------------------- */ - if (alsprintf(&chaine, "Socket %016lX", + if (alsprintf(&chaine, "Socket $ %016lX", (unsigned long) (*((struct_socket *) ((*s_objet).objet))).socket) < 0) { @@ -1759,7 +1759,8 @@ formateur(struct_processus *s_etat_proce return(NULL); } - if ((*s_etat_processus).autorisation_conversion_chaine == 'Y') + if (((*s_etat_processus).autorisation_conversion_chaine == 'Y') && + (test_cfsf(s_etat_processus, 34) == d_vrai)) { ptr_lecture = (unsigned char *) (*s_objet).objet; ptr_ecriture = chaine;