k_tanl.c (176386) | k_tanl.c (176387) |
---|---|
1/* From: @(#)k_tan.c 1.5 04/04/22 SMI */ 2 3/* 4 * ==================================================== 5 * Copyright 2004 Sun Microsystems, Inc. All Rights Reserved. 6 * Copyright (c) 2008 Steven G. Kargl, David Schultz, Bruce D. Evans. 7 * 8 * Permission to use, copy, modify, and distribute this 9 * software is freely granted, provided that this notice 10 * is preserved. 11 * ==================================================== 12 */ 13 14#include <sys/cdefs.h> | 1/* From: @(#)k_tan.c 1.5 04/04/22 SMI */ 2 3/* 4 * ==================================================== 5 * Copyright 2004 Sun Microsystems, Inc. All Rights Reserved. 6 * Copyright (c) 2008 Steven G. Kargl, David Schultz, Bruce D. Evans. 7 * 8 * Permission to use, copy, modify, and distribute this 9 * software is freely granted, provided that this notice 10 * is preserved. 11 * ==================================================== 12 */ 13 14#include <sys/cdefs.h> |
15__FBSDID("$FreeBSD: head/lib/msun/ld80/k_tanl.c 176386 2008-02-18 14:09:41Z bde $"); | 15__FBSDID("$FreeBSD: head/lib/msun/ld80/k_tanl.c 176387 2008-02-18 15:39:52Z bde $"); |
16 17/* 18 * ld80 version of k_tan.c. See ../src/k_tan.c for most comments. 19 */ 20 21#include "math.h" 22#include "math_private.h" 23 --- 21 unchanged lines hidden (view full) --- 45#define T7 ((long double)T7hi + T7lo) 46#define pio4 ((long double)pio4_hi + pio4_lo) 47#define pio4lo ((long double)pio4lo_hi + pio4lo_lo) 48#else 49static const long double 50T3 = 0.333333333333333333180L, /* 0xaaaaaaaaaaaaaaa5.0p-65 */ 51T5 = 0.133333333333333372290L, /* 0x88888888888893c3.0p-66 */ 52T7 = 0.0539682539682504975744L, /* 0xdd0dd0dd0dc13ba2.0p-68 */ | 16 17/* 18 * ld80 version of k_tan.c. See ../src/k_tan.c for most comments. 19 */ 20 21#include "math.h" 22#include "math_private.h" 23 --- 21 unchanged lines hidden (view full) --- 45#define T7 ((long double)T7hi + T7lo) 46#define pio4 ((long double)pio4_hi + pio4_lo) 47#define pio4lo ((long double)pio4lo_hi + pio4lo_lo) 48#else 49static const long double 50T3 = 0.333333333333333333180L, /* 0xaaaaaaaaaaaaaaa5.0p-65 */ 51T5 = 0.133333333333333372290L, /* 0x88888888888893c3.0p-66 */ 52T7 = 0.0539682539682504975744L, /* 0xdd0dd0dd0dc13ba2.0p-68 */ |
53pio4 = 0.785398163397448309628, /* 0xc90fdaa22168c235.0p-64 */ 54pio4lo = -1.25413940316708300586e-20; /* -0xece675d1fc8f8cbb.0p-130 */ | 53pio4 = 0.785398163397448309628L, /* 0xc90fdaa22168c235.0p-64 */ 54pio4lo = -1.25413940316708300586e-20L; /* -0xece675d1fc8f8cbb.0p-130 */ |
55#endif 56 57static const double 58T9 = 0.021869488536312216, /* 0x1664f4882cc1c2.0p-58 */ 59T11 = 0.0088632355256619590, /* 0x1226e355c17612.0p-59 */ 60T13 = 0.0035921281113786528, /* 0x1d6d3d185d7ff8.0p-61 */ 61T15 = 0.0014558334756312418, /* 0x17da354aa3f96b.0p-62 */ 62T17 = 0.00059003538700862256, /* 0x13559358685b83.0p-63 */ --- 62 unchanged lines hidden --- | 55#endif 56 57static const double 58T9 = 0.021869488536312216, /* 0x1664f4882cc1c2.0p-58 */ 59T11 = 0.0088632355256619590, /* 0x1226e355c17612.0p-59 */ 60T13 = 0.0035921281113786528, /* 0x1d6d3d185d7ff8.0p-61 */ 61T15 = 0.0014558334756312418, /* 0x17da354aa3f96b.0p-62 */ 62T17 = 0.00059003538700862256, /* 0x13559358685b83.0p-63 */ --- 62 unchanged lines hidden --- |