1/**************************************************************** 2 3The author of this software is David M. Gay. 4 5Copyright (C) 1998, 2000 by Lucent Technologies 6All Rights Reserved 7 8Permission to use, copy, modify, and distribute this software and --- 12 unchanged lines hidden (view full) --- 21SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 22WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER 23IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, 24ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF 25THIS SOFTWARE. 26 27****************************************************************/ 28 |
29/* Please send bug reports to David M. Gay (dmg at acm dot org, 30 * with " at " changed at "@" and " dot " changed to "."). */ |
31 32#include "gdtoaimp.h" 33 34 void 35#ifdef KR_headers 36ULtof(L, bits, exp, k) ULong *L; ULong *bits; Long exp; int k; 37#else 38ULtof(ULong *L, ULong *bits, Long exp, int k) --- 14 unchanged lines hidden (view full) --- 53 L[0] = bits[0]; 54 break; 55 56 case STRTOG_Infinite: 57 L[0] = 0x7f800000; 58 break; 59 60 case STRTOG_NaN: |
61 L[0] = f_QNAN; |
62 } 63 if (k & STRTOG_Neg) 64 L[0] |= 0x80000000L; 65 } 66 67 int 68#ifdef KR_headers 69strtorf(s, sp, rounding, f) CONST char *s; char **sp; int rounding; float *f; --- 20 unchanged lines hidden --- |