strtorf.c (112158) | strtorf.c (165743) |
---|---|
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 | 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 30 David M. Gay 31 Bell Laboratories, Room 2C-463 32 600 Mountain Avenue 33 Murray Hill, NJ 07974-0636 34 U.S.A. 35 dmg@bell-labs.com 36 */ | 29/* Please send bug reports to David M. Gay (dmg at acm dot org, 30 * with " at " changed at "@" and " dot " changed to "."). */ |
37 38#include "gdtoaimp.h" 39 40 void 41#ifdef KR_headers 42ULtof(L, bits, exp, k) ULong *L; ULong *bits; Long exp; int k; 43#else 44ULtof(ULong *L, ULong *bits, Long exp, int k) --- 14 unchanged lines hidden (view full) --- 59 L[0] = bits[0]; 60 break; 61 62 case STRTOG_Infinite: 63 L[0] = 0x7f800000; 64 break; 65 66 case STRTOG_NaN: | 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: |
67 L[0] = 0x7fffffff; | 61 L[0] = f_QNAN; |
68 } 69 if (k & STRTOG_Neg) 70 L[0] |= 0x80000000L; 71 } 72 73 int 74#ifdef KR_headers 75strtorf(s, sp, rounding, f) CONST char *s; char **sp; int rounding; float *f; --- 20 unchanged lines hidden --- | 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 --- |