--- rpl/src/formateur.c 2011/05/09 13:52:11 1.24.2.4 +++ rpl/src/formateur.c 2011/04/11 12:10:05 1.25 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.0.24 + RPL/2 (R) version 4.1.0.prerelease.0 Copyright (C) 1989-2011 Dr. BERTRAND Joël This file is part of RPL/2. @@ -3883,15 +3883,8 @@ formateur_reel(struct_processus *s_etat_ if (exposant >= 0) { - if ((exposant + 1) < longueur_utile_limite) - { - sprintf(format, "%%.%luf", (longueur_utile_limite - exposant - - 1)); - } - else - { - strcpy(format, "%.0f."); - } + sprintf(format, "%%.%luf", (longueur_utile_limite - exposant + - 1)); } else {