]> www.ginac.de Git - cln.git/blobdiff - src/float/transcendental/cl_LF_ratsumseries_pqcd_aux.cc
* */*: Remove cl_boolean, cl_true, and cl_false in favor of built-in
[cln.git] / src / float / transcendental / cl_LF_ratsumseries_pqcd_aux.cc
index 232214e75052aecededd849cc07ec51ed8bc312f..97cc535e6b6c4a924fb78b81ee126e51d0326989 100644 (file)
 // Implementation.
 
 #include "cln/integer.h"
-#include "cln/abort.h"
+#include "cln/exception.h"
 
 namespace cln {
 
-void eval_pqcd_series_aux (uintC N, cl_pqcd_series_term* args, cl_pqcd_series_result& Z, cl_boolean rightmost)
+void eval_pqcd_series_aux (uintC N, cl_pqcd_series_term* args, cl_pqcd_series_result& Z, bool rightmost)
 {
        // N = N2-N1
        switch (N) {
        case 0:
-               cl_abort(); break;
+               throw runtime_exception(); break;
        case 1:
                if (!rightmost) { Z.P = args[0].p; }
                Z.Q = args[0].q;
@@ -60,7 +60,7 @@ void eval_pqcd_series_aux (uintC N, cl_pqcd_series_term* args, cl_pqcd_series_re
                var uintC Nm = N/2; // midpoint
                // Compute left part.
                var cl_pqcd_series_result L;
-               eval_pqcd_series_aux(Nm,args+0,L,cl_false);
+               eval_pqcd_series_aux(Nm,args+0,L,false);
                // Compute right part.
                var cl_pqcd_series_result R;
                eval_pqcd_series_aux(N-Nm,args+Nm,R,rightmost);