1 |
slords |
1.1 |
--- dietlibc-0.30/libm/gamma.c~ 2005-03-15 08:51:23.000000000 +0000 |
2 |
|
|
+++ dietlibc-0.30/libm/gamma.c 2006-12-28 14:36:58.000000000 +0000 |
3 |
|
|
@@ -33,19 +33,19 @@ Return value gamma returns a value in |
4 |
|
|
#include <stdlib.h> |
5 |
|
|
#include <math.h> |
6 |
|
|
|
7 |
|
|
-#define B0 + 1.0l/ 6/ 1/ 2 |
8 |
|
|
-#define B1 - 1.0l/ 30/ 3/ 4 |
9 |
|
|
-#define B2 + 1.0l/ 42/ 5/ 6 |
10 |
|
|
-#define B3 - 1.0l/ 30/ 7/ 8 |
11 |
|
|
-#define B4 + 5.0l/ 66/ 9/10 |
12 |
|
|
-#define B5 - 691.0l/2730/11/12 |
13 |
|
|
-#define B6 + 7.0l/ 6/13/14 |
14 |
|
|
-#define B7 - 3617.0l/ 510/15/16 |
15 |
|
|
-#define B8 + 43867.0l/ 798/17/18 |
16 |
|
|
-#define B9 - 174611.0l/ 330/19/20 |
17 |
|
|
-#define B10 + 854513.0l/ 138/21/22 |
18 |
|
|
-#define B11 - 236364091.0l/2730/23/24 |
19 |
|
|
-#define B12 + 8553103.0l/ 6/25/26 |
20 |
|
|
+#define B0 + 1.0/ 6/ 1/ 2 |
21 |
|
|
+#define B1 - 1.0/ 30/ 3/ 4 |
22 |
|
|
+#define B2 + 1.0/ 42/ 5/ 6 |
23 |
|
|
+#define B3 - 1.0/ 30/ 7/ 8 |
24 |
|
|
+#define B4 + 5.0/ 66/ 9/10 |
25 |
|
|
+#define B5 - 691.0/2730/11/12 |
26 |
|
|
+#define B6 + 7.0/ 6/13/14 |
27 |
|
|
+#define B7 - 3617.0/ 510/15/16 |
28 |
|
|
+#define B8 + 43867.0/ 798/17/18 |
29 |
|
|
+#define B9 - 174611.0/ 330/19/20 |
30 |
|
|
+#define B10 + 854513.0/ 138/21/22 |
31 |
|
|
+#define B11 - 236364091.0/2730/23/24 |
32 |
|
|
+#define B12 + 8553103.0/ 6/25/26 |
33 |
|
|
|
34 |
|
|
static const double coeff[] = { B0, B1, B2, B3, B4, B5, B6, B7, B8, B9, B10 }; |
35 |
|
|
int signgam; |