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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
Port to C23. Various problems without the bug
found in bumping package version
--- a/src/taucs_ccs_ooc_llt.c
+++ b/src/taucs_ccs_ooc_llt.c
@@ -281,7 +281,7 @@
int do_order,
int ipostorder[],
double given_mem,
- void (*sn_struct_handler)(),
+ void (*sn_struct_handler)(void* argument, int sn, int sn_up_size, int* sn_struct_ptr[]),
void* sn_struct_handler_arg
)
{
@@ -455,7 +455,7 @@
int do_order,
int do_column_to_sn_map,
double given_mem,
- void (*sn_struct_handler)(),
+ void (*sn_struct_handler)(void* argument, int sn, int sn_up_size, int* sn_struct_ptr[]),
void* sn_struct_handler_arg
)
{
--- a/src/taucs_vaidya.c
+++ b/src/taucs_vaidya.c
@@ -3046,7 +3046,7 @@
int row, col;
int *pi1 = 0; /* warning */
double x, y, min, max, not;
- byte bool=1;
+ byte Bool=1;
edge *p,*dummy, *pe ,*max_pe;
int count = 0;
@@ -3116,18 +3116,18 @@
for(minrho=1;minrho<maxdist;minrho++)
{
- bool = 1;
+ Bool = 1;
for(k=0;k<min(j,classes);k++)
{
if ((double)(findrho[(minrho+1)*classes+k]-findrho[minrho*classes+k]) > (findrho[minrho*classes+k])/x)
- bool = 0;
+ Bool = 0;
}
- if (bool)
+ if (Bool)
goto afterr;
}
afterr:
- if (bool)
+ if (Bool)
{
for(i=0;i<n;i++)
if ((d[i] <= minrho) && (d[i] != -1) )
--- a/progs/direct.c
+++ b/progs/direct.c
@@ -691,7 +691,6 @@
/***********************************************************/
if (A->flags & TAUCS_SINGLE) {
- float snrm2_();
int one = 1;
NormErr = 0.0;
@@ -704,7 +703,6 @@
}
if (A->flags & TAUCS_DOUBLE) {
- double dnrm2_();
int one = 1;
NormErr = 0.0;
@@ -718,7 +716,6 @@
#ifdef TAUCS_CONFIG_DCOMPLEX
if (A->flags & TAUCS_DCOMPLEX) {
- double dznrm2_();
int one = 1;
double* pX = (double*) Xz;
double* pNX = (double*) NXz;
--- a/progs/direct_coverage.c
+++ b/progs/direct_coverage.c
@@ -729,7 +729,6 @@
/***********************************************************/
if (A->flags & TAUCS_SINGLE) {
- float snrm2_();
int one = 1;
NormErr = 0.0;
@@ -742,7 +741,6 @@
}
if (A->flags & TAUCS_DOUBLE) {
- double dnrm2_();
int one = 1;
NormErr = 0.0;
@@ -755,7 +753,6 @@
}
if (A->flags & TAUCS_DCOMPLEX) {
- double dznrm2_();
int one = 1;
double* pX = (double*) Xz;
double* pNX = (double*) NXz;
diff '--color=auto' -ur taucs-2.2.1.old/progs/test_cilk_snmf.c taucs-2.2.1/progs/test_cilk_snmf.c
--- taucs-2.2.1.old/progs/test_cilk_snmf.c 2025-02-21 22:18:08.370013676 +0400
+++ taucs-2.2.1/progs/test_cilk_snmf.c 2025-02-21 22:18:37.175471226 +0400
@@ -27,8 +27,6 @@
#define my_dnrm2 dnrm2
#endif
-double my_dnrm2();
-
int main()
{
int xyz = 30;
|
