|
|
47eeb38 |
--- src/basemath/buch2.c.orig 2020-10-15 08:30:54.000000000 -0600
|
|
|
47eeb38 |
+++ src/basemath/buch2.c 2020-10-19 16:08:02.707935874 -0600
|
|
|
47eeb38 |
@@ -1140,7 +1140,7 @@ getfu(GEN nf, GEN *ptA, GEN *ptU, long p
|
|
|
47eeb38 |
}
|
|
|
47eeb38 |
|
|
|
47eeb38 |
static void
|
|
|
47eeb38 |
-err_units() { pari_err_PREC("makeunits [cannot get units, use bnfinit(,1)]"); }
|
|
|
47eeb38 |
+err_units(void) { pari_err_PREC("makeunits [cannot get units, use bnfinit(,1)]"); }
|
|
|
47eeb38 |
|
|
|
47eeb38 |
/* bound for log2 |sigma(u)|, sigma complex embedding, u fundamental unit
|
|
|
47eeb38 |
* attached to bnf_get_logfu */
|
|
|
47eeb38 |
--- src/basemath/mftrace.c.orig 2020-10-15 02:36:36.000000000 -0600
|
|
|
47eeb38 |
+++ src/basemath/mftrace.c 2020-10-19 16:07:40.945917453 -0600
|
|
|
47eeb38 |
@@ -625,7 +625,7 @@ mfcharGL(GEN G, GEN L)
|
|
|
80bdf67 |
return mkvec4(G, L, o, polcyclo(ord,vt));
|
|
|
80bdf67 |
}
|
|
|
80bdf67 |
static GEN
|
|
|
80bdf67 |
-mfchartrivial()
|
|
|
80bdf67 |
+mfchartrivial(void)
|
|
|
80bdf67 |
{ return mfcharGL(znstar0(gen_1,1), cgetg(1,t_COL)); }
|
|
|
80bdf67 |
/* convert a generic character into an 'mfchar' */
|
|
|
80bdf67 |
static GEN
|
|
|
47eeb38 |
@@ -1712,7 +1712,7 @@ mfcoef(GEN F, long n)
|
|
|
80bdf67 |
}
|
|
|
80bdf67 |
|
|
|
80bdf67 |
static GEN
|
|
|
80bdf67 |
-paramconst() { return tagparams(t_MF_CONST, mkNK(1,0,mfchartrivial())); }
|
|
|
80bdf67 |
+paramconst(void) { return tagparams(t_MF_CONST, mkNK(1,0,mfchartrivial())); }
|
|
|
80bdf67 |
static GEN
|
|
|
80bdf67 |
mftrivial(void) { retmkvec2(paramconst(), cgetg(1,t_VEC)); }
|
|
|
80bdf67 |
static GEN
|
|
|
47eeb38 |
--- src/basemath/modsym.c.orig 2020-10-15 02:36:36.000000000 -0600
|
|
|
47eeb38 |
+++ src/basemath/modsym.c 2020-10-19 16:07:40.947917455 -0600
|
|
|
47eeb38 |
@@ -1404,11 +1404,11 @@ indices_backward(GEN W, GEN C)
|
|
|
80bdf67 |
|
|
|
80bdf67 |
/*[0,-1;1,-1]*/
|
|
|
80bdf67 |
static GEN
|
|
|
80bdf67 |
-mkTAU()
|
|
|
80bdf67 |
+mkTAU(void)
|
|
|
80bdf67 |
{ return mkmat22(gen_0,gen_m1, gen_1,gen_m1); }
|
|
|
80bdf67 |
/* S */
|
|
|
80bdf67 |
static GEN
|
|
|
80bdf67 |
-mkS()
|
|
|
80bdf67 |
+mkS(void)
|
|
|
80bdf67 |
{ return mkmat22(gen_0,gen_1, gen_m1,gen_0); }
|
|
|
80bdf67 |
/* N = integer > 1. Returns data describing Delta_0 = Z[P^1(Q)]_0 seen as
|
|
|
80bdf67 |
* a Gamma_0(N) - module. */
|
|
|
47eeb38 |
--- src/language/eval.c.orig 2020-10-15 02:36:36.000000000 -0600
|
|
|
47eeb38 |
+++ src/language/eval.c 2020-10-19 16:07:40.948917456 -0600
|
|
|
47eeb38 |
@@ -1345,11 +1345,11 @@ closure_eval(GEN C)
|
|
|
d87f6c9 |
break;
|
|
|
d87f6c9 |
}
|
|
|
d87f6c9 |
|
|
|
d87f6c9 |
-#define EVAL_f(f) \
|
|
|
d87f6c9 |
+#define EVAL_f0(f) f()
|
|
|
d87f6c9 |
+#define EVAL_f1(f) sp--; f(st[sp])
|
|
|
d87f6c9 |
+#define EVAL_fn(f) \
|
|
|
d87f6c9 |
switch (ep->arity) \
|
|
|
d87f6c9 |
{ \
|
|
|
d87f6c9 |
- case 0: f(); break; \
|
|
|
d87f6c9 |
- case 1: sp--; f(st[sp]); break; \
|
|
|
d87f6c9 |
case 2: sp-=2; f(st[sp],st[sp+1]); break; \
|
|
|
d87f6c9 |
case 3: sp-=3; f(st[sp],st[sp+1],st[sp+2]); break; \
|
|
|
d87f6c9 |
case 4: sp-=4; f(st[sp],st[sp+1],st[sp+2],st[sp+3]); break; \
|
|
|
47eeb38 |
@@ -1380,7 +1380,12 @@ closure_eval(GEN C)
|
|
|
d87f6c9 |
GEN res;
|
|
|
d87f6c9 |
/* Macro Madness : evaluate function ep->value on arguments
|
|
|
d87f6c9 |
* st[sp-ep->arity .. sp]. Set res = result. */
|
|
|
d87f6c9 |
- EVAL_f(res = ((GEN (*)(ANYARG))ep->value));
|
|
|
d87f6c9 |
+ switch (ep->arity)
|
|
|
d87f6c9 |
+ {
|
|
|
d87f6c9 |
+ case 0: EVAL_f0(res = ((GEN (*)(void))ep->value)); break;
|
|
|
d87f6c9 |
+ case 1: EVAL_f1(res = ((GEN (*)(long))ep->value)); break;
|
|
|
d87f6c9 |
+ default: EVAL_fn(res = ((GEN (*)(long, ...))ep->value));
|
|
|
d87f6c9 |
+ }
|
|
|
d87f6c9 |
if (br_status) goto endeval;
|
|
|
d87f6c9 |
gel(st,sp++)=res;
|
|
|
d87f6c9 |
break;
|
|
|
47eeb38 |
@@ -1399,7 +1404,12 @@ closure_eval(GEN C)
|
|
|
d87f6c9 |
{
|
|
|
d87f6c9 |
entree *ep = (entree *)operand;
|
|
|
d87f6c9 |
long res;
|
|
|
d87f6c9 |
- EVAL_f(res = ((long (*)(ANYARG))ep->value));
|
|
|
d87f6c9 |
+ switch (ep->arity)
|
|
|
d87f6c9 |
+ {
|
|
|
d87f6c9 |
+ case 0: EVAL_f0(res = ((long (*)(void))ep->value)); break;
|
|
|
d87f6c9 |
+ case 1: EVAL_f1(res = ((long (*)(long))ep->value)); break;
|
|
|
d87f6c9 |
+ default: EVAL_fn(res = ((long (*)(long, ...))ep->value));
|
|
|
d87f6c9 |
+ }
|
|
|
d87f6c9 |
if (br_status) goto endeval;
|
|
|
d87f6c9 |
st[sp++] = res;
|
|
|
d87f6c9 |
break;
|
|
|
47eeb38 |
@@ -1408,7 +1418,12 @@ closure_eval(GEN C)
|
|
|
d87f6c9 |
{
|
|
|
d87f6c9 |
entree *ep = (entree *)operand;
|
|
|
d87f6c9 |
long res;
|
|
|
d87f6c9 |
- EVAL_f(res = ((int (*)(ANYARG))ep->value));
|
|
|
d87f6c9 |
+ switch (ep->arity)
|
|
|
d87f6c9 |
+ {
|
|
|
d87f6c9 |
+ case 0: EVAL_f0(res = ((int (*)(void))ep->value)); break;
|
|
|
d87f6c9 |
+ case 1: EVAL_f1(res = ((int (*)(long))ep->value)); break;
|
|
|
d87f6c9 |
+ default: EVAL_fn(res = ((int (*)(long, ...))ep->value));
|
|
|
d87f6c9 |
+ }
|
|
|
d87f6c9 |
if (br_status) goto endeval;
|
|
|
d87f6c9 |
st[sp++] = res;
|
|
|
d87f6c9 |
break;
|
|
|
47eeb38 |
@@ -1416,11 +1431,18 @@ closure_eval(GEN C)
|
|
|
d87f6c9 |
case OCcallvoid:
|
|
|
d87f6c9 |
{
|
|
|
d87f6c9 |
entree *ep = (entree *)operand;
|
|
|
d87f6c9 |
- EVAL_f(((void (*)(ANYARG))ep->value));
|
|
|
d87f6c9 |
+ switch (ep->arity)
|
|
|
d87f6c9 |
+ {
|
|
|
d87f6c9 |
+ case 0: EVAL_f0(((void (*)(void))ep->value)); break;
|
|
|
d87f6c9 |
+ case 1: EVAL_f1(((void (*)(long))ep->value)); break;
|
|
|
d87f6c9 |
+ default: EVAL_fn(((void (*)(long, ...))ep->value));
|
|
|
d87f6c9 |
+ }
|
|
|
d87f6c9 |
if (br_status) goto endeval;
|
|
|
d87f6c9 |
break;
|
|
|
d87f6c9 |
}
|
|
|
d87f6c9 |
-#undef EVAL_f
|
|
|
d87f6c9 |
+#undef EVAL_f0
|
|
|
d87f6c9 |
+#undef EVAL_f1
|
|
|
d87f6c9 |
+#undef EVAL_fn
|
|
|
d87f6c9 |
|
|
|
d87f6c9 |
case OCcalluser:
|
|
|
d87f6c9 |
{
|
|
|
47eeb38 |
--- src/language/init.c.orig 2020-10-15 02:36:36.000000000 -0600
|
|
|
47eeb38 |
+++ src/language/init.c 2020-10-19 16:07:40.950917458 -0600
|
|
|
47eeb38 |
@@ -121,7 +121,7 @@ void (*cb_pari_pre_recover)(long);
|
|
|
06e7417 |
void (*cb_pari_err_recover)(long);
|
|
|
06e7417 |
int (*cb_pari_break_loop)(int);
|
|
|
06e7417 |
int (*cb_pari_is_interactive)(void);
|
|
|
06e7417 |
-void (*cb_pari_start_output)();
|
|
|
06e7417 |
+void (*cb_pari_start_output)(void);
|
|
|
06e7417 |
|
|
|
06e7417 |
const char * pari_library_path = NULL;
|
|
|
06e7417 |
|
|
|
47eeb38 |
--- src/modules/mpqs.c.orig 2020-10-19 11:13:10.000000000 -0600
|
|
|
47eeb38 |
+++ src/modules/mpqs.c 2020-10-19 16:08:21.266951580 -0600
|
|
|
47eeb38 |
@@ -1495,7 +1495,7 @@ mpqs_solve_linear_system(mpqs_handle_t *
|
|
|
47eeb38 |
/** MAIN ENTRY POINT AND DRIVER ROUTINE **/
|
|
|
47eeb38 |
/*********************************************************************/
|
|
|
47eeb38 |
static void
|
|
|
47eeb38 |
-toolarge()
|
|
|
47eeb38 |
+toolarge(void)
|
|
|
47eeb38 |
{ pari_warn(warner, "MPQS: number too big to be factored with MPQS,\n\tgiving up"); }
|
|
|
47eeb38 |
|
|
|
47eeb38 |
/* Factors N using the self-initializing multipolynomial quadratic sieve
|