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
|
Description: debianization -- workaround around a gcc9 bug
Meant to workaround what looks like a gcc9 compiler bug:
the merit of this patch is that it works, do not ask me why.
Origin: vendor, debian
Forwarded: not-needed
Author: Jerome Benoit <calculus@rezozer.net>
Last-Update: 2019-08-16
--- a/apop_arms.c
+++ b/apop_arms.c
@@ -37,11 +37,15 @@
)
Apop_settings_init(apop_arms,
- if ((in.xl || in.xr) && !in.xinit)
+ if ((in.xl || in.xr) && !in.xinit){
+ char ADHOC[64];
out->xinit = (double []) {in.xl+GSL_DBL_EPSILON, (in.xl+in.xr)/2., in.xr-GSL_DBL_EPSILON};
- else{
+ snprintf(ADHOC,sizeof(ADHOC),"{%g,%g,%g}",out->xinit[0],out->xinit[1],out->xinit[2]);
+ } else{
+ char ADHOC[64];
//Apop_varad_set(xinit, ((double []) {0, 0.5, 1}));
Apop_varad_set(xinit, ((double []) {-1, 0, 1}));
+ snprintf(ADHOC,sizeof(ADHOC),"{%g,%g,%g}",out->xinit[0],out->xinit[1],out->xinit[2]);
}
Apop_varad_set(ninit, 3);
Apop_varad_set(xl, GSL_MIN(out->xinit[0]/10., out->xinit[0]*10)-.1);
|
