rpl/src/formateur.c - diff

Return to formateur.c CVS log

Up to [local] / rpl / src

-version 1.35, 2011/07/25 07:44:54
+version 1.40, 2011/09/26 15:57:10
  Line 1
  /*
  ================================================================================
-   RPL/2 (R) version 4.1.2
+   RPL/2 (R) version 4.1.4
    Copyright (C) 1989-2011 Dr. BERTRAND Joël
    This file is part of RPL/2.
  Line 3653  formateur_reel(struct_processus *s_etat_
      if (type == 'R')
      {
+ #       ifdef FP_INFINITE
+         int     signe;
+         if ((signe = isinf((*((real8 *) valeur_numerique)))) != 0)
+         {
+             if (signe > 0)
+             {
+                 strcpy(chaine, "infinity");
+             }
+             else
+             {
+                 strcpy(chaine, "-infinity");
+             }
+             return(chaine);
+         }
+ #       endif
+         if (isnan((*((real8 *) valeur_numerique))))
+         {
+             strcpy(chaine, "undef");
+             return(chaine);
+         }
          tampon_reel = *((real8 *) valeur_numerique);
          if (tampon_reel > ((real8) 0))