X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Fnumtheory%2Fcl_nt_sqrtmodp.cc;h=8c0741e9c7524cb7c6b7316a79bcf887b431e987;hb=8b3d91dec77438c0fe679b10869ab29e6cdeba58;hp=3b95574e2bd5dc14cdb6a0aa1098f52b58aba363;hpb=c84c6db5d56829d69083c819688a973867694a2a;p=cln.git

diff --git a/src/numtheory/cl_nt_sqrtmodp.cc b/src/numtheory/cl_nt_sqrtmodp.cc
index 3b95574..8c0741e 100644
--- a/src/numtheory/cl_nt_sqrtmodp.cc
+++ b/src/numtheory/cl_nt_sqrtmodp.cc
@@ -10,7 +10,7 @@
 // Implementation.
 
 #include "cl_I.h"
-#include "cln/abort.h"
+#include "cln/exception.h"
 
 #undef floor
 #include <cmath>
@@ -287,7 +287,7 @@ static const sqrt_mod_p_t tonelli_shanks_sqrt (const cl_modint_ring& R, const cl
 
 const sqrt_mod_p_t sqrt_mod_p (const cl_modint_ring& R, const cl_MI& a)
 {
-	if (!(a.ring() == R)) cl_abort();
+	if (!(a.ring() == R)) throw runtime_exception();
 	var cl_I& p = R->modulus;
 	var cl_I aa = R->retract(a);
 	switch (jacobi(aa,p)) {