|
|
d87f6c9 |
--- src/basemath/bibli1.c
|
|
|
d87f6c9 |
+++ src/basemath/bibli1.c
|
|
|
87fecc4 |
@@ -2016,7 +2016,7 @@ sub_fudge(GEN x) {
|
|
|
87fecc4 |
* If (check != NULL) consider only vectors passing the check, and assumes
|
|
|
87fecc4 |
* we only want the smallest possible vectors */
|
|
|
87fecc4 |
static GEN
|
|
|
87fecc4 |
-smallvectors(GEN q, GEN BORNE, long maxnum, FP_chk_fun *CHECK)
|
|
|
87fecc4 |
+smallvectors(GEN q, GEN BORNE, const long maxnum, FP_chk_fun *CHECK)
|
|
|
87fecc4 |
{
|
|
|
87fecc4 |
long N = lg(q), n = N-1, i, j, k, s, stockmax, checkcnt = 1;
|
|
|
87fecc4 |
pari_sp av, av1, lim;
|
|
|
d87f6c9 |
@@ -2238,9 +2238,9 @@ END:
|
|
|
d87f6c9 |
* If check is non-NULL keep x only if check(x).
|
|
|
d87f6c9 |
* If a is a vector, assume a[1] is the LLL-reduced Cholesky form of q */
|
|
|
d87f6c9 |
GEN
|
|
|
d87f6c9 |
-fincke_pohst(GEN a, GEN B0, long stockmax, long PREC, FP_chk_fun *CHECK)
|
|
|
87fecc4 |
+fincke_pohst(GEN a, GEN B0, const long stockmax, long PREC, FP_chk_fun *CHECK)
|
|
|
d87f6c9 |
{
|
|
|
d87f6c9 |
- pari_sp av = avma;
|
|
|
d87f6c9 |
+ VOLATILE pari_sp av = avma;
|
|
|
d87f6c9 |
VOLATILE long i,j,l;
|
|
|
d87f6c9 |
VOLATILE GEN r,rinv,rinvtrans,u,v,res,z,vnorm,rperm,perm,uperm, bound = B0;
|
|
|
d87f6c9 |
|
|
|
d87f6c9 |
--- src/gp/gp.c
|
|
|
d87f6c9 |
+++ src/gp/gp.c
|
|
|
d87f6c9 |
@@ -1250,7 +1250,7 @@ static void
|
|
|
d87f6c9 |
gp_initrc(pari_stack *p_A, char *path)
|
|
|
d87f6c9 |
{
|
|
|
d87f6c9 |
char *nexts,*s,*t;
|
|
|
d87f6c9 |
- FILE *file = gprc_get(path);
|
|
|
d87f6c9 |
+ FILE * VOLATILE file = gprc_get(path);
|
|
|
d87f6c9 |
Buffer *b;
|
|
|
d87f6c9 |
filtre_t F;
|
|
|
d87f6c9 |
VOLATILE long c = 0;
|
|
|
87fecc4 |
--- src/headers/parinf.h
|
|
|
87fecc4 |
+++ src/headers/parinf.h
|
|
|
87fecc4 |
@@ -145,7 +145,7 @@ typedef struct {
|
|
|
87fecc4 |
GEN U; /* base change matrix from generators to bid.gen */
|
|
|
87fecc4 |
} zlog_S;
|
|
|
87fecc4 |
|
|
|
87fecc4 |
-GEN fincke_pohst(GEN a,GEN BOUND,long stockmax,long PREC, FP_chk_fun *CHECK);
|
|
|
87fecc4 |
+GEN fincke_pohst(GEN a,GEN BOUND,const long stockmax,long PREC, FP_chk_fun *CHECK);
|
|
|
87fecc4 |
void remake_GM(GEN nf, nffp_t *F, long prec);
|
|
|
87fecc4 |
GEN nfbasic_to_nf(nfbasic_t *T, GEN ro, long prec);
|
|
|
87fecc4 |
|
|
|
d87f6c9 |
--- src/modules/stark.c
|
|
|
d87f6c9 |
+++ src/modules/stark.c
|
|
|
87fecc4 |
@@ -2740,9 +2740,10 @@ quadray_init(GEN *pD, GEN f, GEN *pbnf,
|
|
|
d87f6c9 |
/* compute the polynomial over Q of the Hilbert class field of
|
|
|
d87f6c9 |
Q(sqrt(D)) where D is a positive fundamental discriminant */
|
|
|
d87f6c9 |
static GEN
|
|
|
d87f6c9 |
-quadhilbertreal(GEN D, long prec)
|
|
|
87fecc4 |
+quadhilbertreal(GEN D, long baseprec)
|
|
|
d87f6c9 |
{
|
|
|
d87f6c9 |
pari_sp av = avma;
|
|
|
87fecc4 |
+ VOLATILE long prec = baseprec;
|
|
|
d87f6c9 |
long newprec;
|
|
|
87fecc4 |
GEN bnf;
|
|
|
87fecc4 |
VOLATILE GEN bnr, dtQ, data, nf, cyc, M;
|