From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 19591 invoked by alias); 16 Dec 2019 18:41:36 -0000 Mailing-List: contact newlib-cvs-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: newlib-cvs-owner@sourceware.org Received: (qmail 19549 invoked by uid 9078); 16 Dec 2019 18:41:36 -0000 Date: Mon, 16 Dec 2019 18:41:00 -0000 Message-ID: <20191216184136.19547.qmail@sourceware.org> Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: Corinna Vinschen To: newlib-cvs@sourceware.org Subject: [newlib-cygwin] strtold: set errno to ERANGE on underflow per POSIX X-Act-Checkin: newlib-cygwin X-Git-Author: Bruno Haible X-Git-Refname: refs/heads/master X-Git-Oldrev: 29ba52da95532f61e2e15694245d5f25620e34b6 X-Git-Newrev: c81a76b3b96a7e4b12e13d73ef4834142852213b X-SW-Source: 2019-q4/txt/msg00022.txt.bz2 https://sourceware.org/git/gitweb.cgi?p=newlib-cygwin.git;h=c81a76b3b96a7e4b12e13d73ef4834142852213b commit c81a76b3b96a7e4b12e13d73ef4834142852213b Author: Bruno Haible Date: Mon Dec 16 15:11:47 2019 +0100 strtold: set errno to ERANGE on underflow per POSIX https://pubs.opengroup.org/onlinepubs/9699919799/functions/strtod.html Diff: --- newlib/libc/stdlib/strtodg.c | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/newlib/libc/stdlib/strtodg.c b/newlib/libc/stdlib/strtodg.c index 0133159..743f60b 100644 --- a/newlib/libc/stdlib/strtodg.c +++ b/newlib/libc/stdlib/strtodg.c @@ -348,6 +348,9 @@ rvOK (struct _reent *p, double d, FPI *fpi, Long *exp, __ULong *bits, int exact, if (k > nb || fpi->sudden_underflow) { b->_wds = inex = 0; *irv = STRTOG_Underflow | STRTOG_Inexlo; +#ifndef NO_ERRNO + errno = ERANGE; +#endif } else { k1 = k - 1; @@ -362,9 +365,15 @@ rvOK (struct _reent *p, double d, FPI *fpi, Long *exp, __ULong *bits, int exact, if (carry) { b = increment(p, b); inex = STRTOG_Inexhi | STRTOG_Underflow; +#ifndef NO_ERRNO + errno = ERANGE; +#endif } else if (lostbits) inex = STRTOG_Inexlo | STRTOG_Underflow; +#ifndef NO_ERRNO + errno = ERANGE; +#endif } } else if (e > fpi->emax) { @@ -761,6 +770,9 @@ _strtodg_l (struct _reent *p, const char *s00, char **se, FPI *fpi, Long *exp, rvb->_x[0] = 0; *exp = emin; irv = STRTOG_Underflow | STRTOG_Inexlo; +#ifndef NO_ERRNO + errno = ERANGE; +#endif goto ret; } rvb->_x[0] = rvb->_wds = rvbits = 1; @@ -940,6 +952,9 @@ _strtodg_l (struct _reent *p, const char *s00, char **se, FPI *fpi, Long *exp, rvb->_wds = 0; rve = emin; irv = STRTOG_Underflow | STRTOG_Inexlo; +#ifndef NO_ERRNO + errno = ERANGE; +#endif break; } adj0 = dval(adj) = 1.; @@ -1083,12 +1098,18 @@ _strtodg_l (struct _reent *p, const char *s00, char **se, FPI *fpi, Long *exp, if (sudden_underflow) { rvb->_wds = 0; irv = STRTOG_Underflow | STRTOG_Inexlo; +#ifndef NO_ERRNO + errno = ERANGE; +#endif } else { irv = (irv & ~STRTOG_Retmask) | (rvb->_wds > 0 ? STRTOG_Denormal : STRTOG_Zero); if (irv & STRTOG_Inexact) irv |= STRTOG_Underflow; +#ifndef NO_ERRNO + errno = ERANGE; +#endif } } if (se)