libs/newlib-cygwin
libs/newlib-cygwin
4
0
Fork 0
mirror of git://sourceware.org/git/newlib-cygwin.git synced 2025-02-28 03:27:46 +08:00
Code Issues Projects Releases Wiki Activity

2000-12-07 Jeff Johnston <jjohnstn@redhat.com>

Browse Source 
* libc/stdlib/ldtoa.c: Removed include of alloca.h.
        Also removed \r's.
        (asctoeg): Replaced alloca call with stack array and malloc
        when storage exceeds reasonable limit.
        (e53toe): Fixed einfin calls missing ldp parameter.
        (eiisinf): Hide behind check for LDBL_MANT_DIG == 64.
This commit is contained in:
Jeff Johnston 2000-12-07 23:38:05 +00:00
parent f7b2d4dfbb
commit 2005ab6be7
2 changed files with 3689 additions and 3667 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
newlib/ChangeLog
View File

@ -1,5 +1,15 @@
2000-12-07 Jeff Johnston <jjohnstn@redhat.com>
* libc/stdlib/ldtoa.c: Removed include of alloca.h.
Also removed \r's.
(asctoeg): Replaced alloca call with stack array and malloc
when storage exceeds reasonable limit.
(e53toe): Fixed einfin calls missing ldp parameter.
(eiisinf): Hide behind check for LDBL_MANT_DIG == 64.
2000-12-06 Jeff Johnston <jjohnstn@redhat.com> 2000-12-06 Jeff Johnston <jjohnstn@redhat.com>
* libc/stdio/vfscanf.c: Fix typo for _NO_LONGDBL macro. * libc/stdio/vfscanf.c: Fix typo for _NO_LONGDBL macro.
2000-12-06 Jeff Johnston <jjohnstn@redhat.com> 2000-12-06 Jeff Johnston <jjohnstn@redhat.com>

26
newlib/libc/stdlib/ldtoa.c
View File

@ -7,7 +7,6 @@
#include <reent.h> #include <reent.h>
#include <string.h> #include <string.h>
#include <stdlib.h> #include <stdlib.h>
#include <alloca.h>
#include "mprec.h" #include "mprec.h"
/* These are the externally visible entries. */ /* These are the externally visible entries. */
@ -76,6 +75,7 @@ static void eclear(register short unsigned int *x);
static void einfin(register short unsigned int *x, register LDPARMS *ldp); static void einfin(register short unsigned int *x, register LDPARMS *ldp);
static void efloor(short unsigned int *x, short unsigned int *y, LDPARMS *ldp); static void efloor(short unsigned int *x, short unsigned int *y, LDPARMS *ldp);
static void etoasc(short unsigned int *x, char *string, int ndigs, int outformat, LDPARMS *ldp); static void etoasc(short unsigned int *x, char *string, int ndigs, int outformat, LDPARMS *ldp);
#if LDBL_MANT_DIG == 24 #if LDBL_MANT_DIG == 24
static void e24toe(short unsigned int *pe, short unsigned int *y, LDPARMS *ldp); static void e24toe(short unsigned int *pe, short unsigned int *y, LDPARMS *ldp);
#elif LDBL_MANT_DIG == 53 #elif LDBL_MANT_DIG == 53
@ -706,8 +706,9 @@ if( (x[E] & 0x7fff) == 0x7fff )
return(0); return(0);
} }
/* Return nonzero if internal format number is infinite. */ #if LDBL_MANT_DIG == 64
/* Return nonzero if internal format number is infinite. */
static int static int
eiisinf (x) eiisinf (x)
unsigned short x[]; unsigned short x[];
@ -721,6 +722,7 @@ eiisinf (x)
return (1); return (1);
return (0); return (0);
} }
#endif /* LDBL_MANT_DIG == 64 */
/* /*
; Compare significands of numbers in internal format. ; Compare significands of numbers in internal format.
@ -1732,7 +1734,7 @@ if( r == 0x7fff )
#endif /* !IBMPC */ #endif /* !IBMPC */
#endif /* NANS */ #endif /* NANS */
eclear( y ); eclear( y );
einfin( y ); einfin( y, ldp );
if( *e & 0x8000 ) if( *e & 0x8000 )
eneg(y); eneg(y);
return; return;
@ -2019,7 +2021,7 @@ if( r == 0x7ff0 )
#endif /* !IBMPC */ #endif /* !IBMPC */
#endif /* NANS */ #endif /* NANS */
eclear( y ); eclear( y );
einfin( y ); einfin( y, ldp );
if( yy[0] ) if( yy[0] )
eneg(y); eneg(y);
return; return;
@ -2209,7 +2211,7 @@ if( r == 0x7f80 )
#endif /* !MIEEE */ #endif /* !MIEEE */
#endif /* NANS */ #endif /* NANS */
eclear( y ); eclear( y );
einfin( y ); einfin( y, ldp );
if( yy[0] ) if( yy[0] )
eneg(y); eneg(y);
return; return;
@ -3172,7 +3174,7 @@ long double _strtold (char *s, char **se)
return x; return x;
} }
#define REASONABLE_LEN 200
static int static int
asctoeg(char *ss, short unsigned int *y, int oprec, LDPARMS *ldp) asctoeg(char *ss, short unsigned int *y, int oprec, LDPARMS *ldp)
@ -3184,10 +3186,18 @@ long lexp;
unsigned short nsign, *p; unsigned short nsign, *p;
char *sp, *s, *lstr; char *sp, *s, *lstr;
int lenldstr; int lenldstr;
int mflag = 0;
char tmpstr[REASONABLE_LEN];
/* Copy the input string. */ /* Copy the input string. */
c = strlen (ss) + 2; c = strlen (ss) + 2;
lstr = (char *) alloca (c); if (c <= REASONABLE_LEN)
lstr = tmpstr;
else
{
lstr = (char *) calloc (c, 1);
mflag = 1;
}
s = ss; s = ss;
lenldstr = 0; lenldstr = 0;
while( *s == ' ' ) /* skip leading spaces */ while( *s == ' ' ) /* skip leading spaces */
@ -3485,6 +3495,8 @@ switch( oprec )
#endif #endif
} }
lenldstr += s - lstr; lenldstr += s - lstr;
if (mflag)
free (lstr);
return lenldstr; return lenldstr;
} }