X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Fnumtheory%2Fcl_nt_sqrtmodp.cc;h=098c4065e0803c1146fe63d473dd43f4b6076ffe;hb=bcf970403e0a455f0dd2eeab49324acd9f2d9948;hp=6a74c5f26805af6bcb4dd89f11004cf453120816;hpb=850abfde7f0d985ba01526c346bcd0d733562943;p=cln.git

diff --git a/src/numtheory/cl_nt_sqrtmodp.cc b/src/numtheory/cl_nt_sqrtmodp.cc
index 6a74c5f..098c406 100644
--- a/src/numtheory/cl_nt_sqrtmodp.cc
+++ b/src/numtheory/cl_nt_sqrtmodp.cc
@@ -173,6 +173,16 @@ static const sqrt_mod_p_t cantor_zassenhaus_sqrt (const cl_modint_ring& R, const
 	}
 }
 
+#if defined(__GNUC__) && defined(__s390__) && (__GNUC__ == 2)  // Workaround GCC-bug (see below)
+		struct cl_sylow2gen_property : public cl_property {
+			SUBCLASS_cl_property();
+		public:
+			cl_I h_rep;
+			// Constructor.
+			cl_sylow2gen_property (const cl_symbol& k, const cl_MI& h) : cl_property (k), h_rep (h.rep) {}
+		};
+#endif
+
 // Algorithm 3 (for p > 2 only):
 // Tonelli-Shanks.
 // [Cohen, A Course in Computational Algebraic Number Theory,
@@ -213,6 +223,7 @@ static const sqrt_mod_p_t tonelli_shanks_sqrt (const cl_modint_ring& R, const cl
 		// Since this computation is a bit costly, we cache its result
 		// on the ring's property list.
 		static const cl_symbol key = (cl_symbol)(cl_string)"generator of 2-Sylow subgroup of (Z/pZ)^*";
+#if !(defined(__GNUC__) && defined(__s390__) && (__GNUC__ == 2))  // Workaround GCC-bug (see above)
 		struct cl_sylow2gen_property : public cl_property {
 			SUBCLASS_cl_property();
 		public:
@@ -220,6 +231,7 @@ static const sqrt_mod_p_t tonelli_shanks_sqrt (const cl_modint_ring& R, const cl
 			// Constructor.
 			cl_sylow2gen_property (const cl_symbol& k, const cl_MI& h) : cl_property (k), h_rep (h.rep) {}
 		};
+#endif
 		var cl_sylow2gen_property* prop = (cl_sylow2gen_property*) R->get_property(key);
 		if (prop)
 			h = cl_MI(R,prop->h_rep);