--- src/basemath/bibli1.c.orig	2022-09-16 11:16:27.000000000 -0600
+++ src/basemath/bibli1.c	2022-09-19 16:27:28.250543096 -0600
@@ -1944,7 +1944,7 @@ END:
 GEN
 fincke_pohst(GEN a, GEN B0, long stockmax, long PREC, FP_chk_fun *CHECK)
 {
-  pari_sp av = avma;
+  VOLATILE pari_sp av = avma;
   VOLATILE long i,j,l;
   VOLATILE GEN r,rinv,rinvtrans,u,v,res,z,vnorm,rperm,perm,uperm, bound = B0;
 
--- src/gp/gp.c.orig	2022-09-16 11:16:27.000000000 -0600
+++ src/gp/gp.c	2022-09-19 16:27:28.251543098 -0600
@@ -438,7 +438,8 @@ break_loop(int numerr)
 {
   filtre_t F;
   Buffer *b;
-  int sigint = numerr<0, go_on = sigint;
+  int sigint = numerr<0;
+  VOLATILE int go_on = sigint;
   struct gp_context rec1, rec2;
   const char *prompt, *msg;
   long nenv, oldframe_level = frame_level;
--- src/language/gplib.c.orig	2022-09-16 11:16:27.000000000 -0600
+++ src/language/gplib.c	2022-09-19 16:27:28.251543098 -0600
@@ -963,7 +963,7 @@ parse_key_val_paren(char *src, char **ps
 void
 gp_initrc(pari_stack *p_A)
 {
-  FILE *file = gprc_get();
+  FILE * VOLATILE file = gprc_get();
   Buffer *b;
   filtre_t F;
   VOLATILE long c = 0;
--- src/modules/stark.c.orig	2022-09-19 16:27:28.252543100 -0600
+++ src/modules/stark.c	2022-09-19 16:28:20.241662010 -0600
@@ -2554,9 +2554,10 @@ quadray_init(GEN *pD, GEN *pbnf, long pr
 /* compute the polynomial over Q of the Hilbert class field of
    Q(sqrt(D)) where D is a positive fundamental discriminant */
 static GEN
-quadhilbertreal(GEN D, long prec)
+quadhilbertreal(GEN D, long baseprec)
 {
   GEN bnf, bnr, dtQ, data, M;
+  VOLATILE long prec = baseprec;
   long newprec;
   pari_timer T;