Diff for /gforth/engine/ecvt.c between versions 1.6 and 1.8

version 1.6, 2000/09/23 15:06:07 version 1.8, 2007/02/09 19:07:35
Line 16 Line 16
   
   You should have received a copy of the GNU General Public License    You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software    along with this program; if not, write to the Free Software
   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
 */  */
   
 #include <stdio.h>  #include <stdio.h>
Line 33  char* ecvt(double x, int len, int* exp, Line 33  char* ecvt(double x, int len, int* exp,
    int i, j;     int i, j;
    double z;     double z;
         
      if (isnan(x)) {
        *sign=0;
        *exp=0;
        return "nan";
      }
      if (isinf(x)) {
        *sign=0; /* this mimics the glibc ecvt */
        *exp=0;
        if (x<0)
          return "-inf";
        else
          return "inf";
      }
          
    if(len > (MAXCONV-1)) len = MAXCONV-1;     if(len > (MAXCONV-1)) len = MAXCONV-1;
         
    if(x<0)     if(x<0)

Removed from v.1.6  
changed lines
  Added in v.1.8


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>