1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
diff -r -u gsl-1.6/vector/test_complex_source.c gsl-1.6-patched/vector/test_complex_source.c
--- gsl-1.6/vector/test_complex_source.c 2004-09-13 15:23:20.000000000 +0200
+++ gsl-1.6-patched/vector/test_complex_source.c 2005-07-24 08:37:54.000000000 +0200
@@ -75,7 +75,7 @@
if (stride == 1)
{
v0 = FUNCTION (gsl_vector, alloc) (N);
- view = FUNCTION (gsl_vector, subvector) (v, 0, N);
+ view = FUNCTION (gsl_vector, subvector) (v0, 0, N);
v = &view.vector;
}
else
diff -r -u gsl-1.6/vector/test_source.c gsl-1.6-patched/vector/test_source.c
--- gsl-1.6/vector/test_source.c 2004-09-13 15:23:20.000000000 +0200
+++ gsl-1.6-patched/vector/test_source.c 2005-07-24 08:37:54.000000000 +0200
@@ -75,7 +75,7 @@
if (stride == 1)
{
v0 = FUNCTION (gsl_vector, alloc) (N);
- view = FUNCTION (gsl_vector, subvector) (v, 0, N);
+ view = FUNCTION (gsl_vector, subvector) (v0, 0, N);
v = &view.vector;
}
else
diff -r -u gsl-1.6/wavelet/dwt.c gsl-1.6-patched/wavelet/dwt.c
--- gsl-1.6/wavelet/dwt.c 2004-12-24 14:57:34.000000000 +0100
+++ gsl-1.6-patched/wavelet/dwt.c 2005-07-24 08:38:05.000000000 +0200
@@ -30,7 +30,7 @@
static int binary_logn (const size_t n);
static void dwt_step (const gsl_wavelet * w, double *a, size_t stride,
- size_t n, int isign, gsl_wavelet_workspace * work);
+ size_t n, gsl_wavelet_direction dir, gsl_wavelet_workspace * work);
static int
binary_logn (const size_t n)
diff -r -u gsl-1.6/eigen/jacobi.c gsl-1.6-patched/eigen/jacobi.c
--- gsl-1.6/eigen/jacobi.c
+++ gsl-1.6-patched/eigen/jacobi.c
@@ -215,7 +215,7 @@
{
const size_t n = a->size2;
size_t i,j,k;
- size_t nrot = 0;
+ unsigned int nrot = 0;
int status;
gsl_vector * eval = gsl_vector_alloc(n);
diff -r -u gsl-1.6/configure.ac gsl-1.6-patched/configure.ac
--- gsl-1.6/configure.ac
+++ gsl-1.6-patched/configure.ac
@@ -325,7 +325,7 @@
inf = exp(1.0e10);
nan = inf / inf ;
status = (nan == nan);
- exit (status);
+ return status;
}]])],[ac_cv_c_ieee_comparisons="yes"],[ac_cv_c_ieee_comparisons="no"],[ac_cv_c_ieee_comparisons="yes"])
])
@@ -346,7 +346,7 @@
for (i = 0; i < 5; i++) { z = z / 10.0 ; };
for (i = 0; i < 5; i++) { z = z * 10.0 ; };
status = (z == 0.0);
- exit (status);
+ return status;
}]])],[ac_cv_c_ieee_denormals="yes"],[ac_cv_c_ieee_denormals="no"],[ac_cv_c_ieee_denormals="yes"])
])
|
