rpl/src/formateur.c - diff

Return to formateur.c CVS log

Up to [local] / rpl / src

-version 1.37, 2011/08/01 10:01:37
+version 1.38, 2011/08/06 10:32:12
  Line 3654  formateur_reel(struct_processus *s_etat_
      if (type == 'R')
      {
  #       ifdef FP_INFINITE
-         if (isinf((*((real8 *) valeur_numerique))))
+         int     signe;
+         if ((signe = isinf((*((real8 *) valeur_numerique)))) != 0)
          {
-             strcpy(chaine, "infinity");
+             if (signe > 0)
+             {
+                 strcpy(chaine, "infinity");
+             }
+             else
+             {
+                 strcpy(chaine, "-infinity");
+             }
              return(chaine);
          }
  #       endif