Extend the exponent range from 32 bits to 64 bits on selected platforms.

[cln.git] / src / complex / ring / cl_C_ring.cc

diff --git a/src/complex/ring/cl_C_ring.cc b/src/complex/ring/cl_C_ring.cc
index 49cfcc37d593834a793dc9075ac30a4a4b020e23..5a576ece813e2ac2e24be81b05d0c1b9ed4fb6f3 100644 (file)
--- a/src/complex/ring/cl_C_ring.cc
+++ b/src/complex/ring/cl_C_ring.cc
@@ -6,16 +6,18 @@
 CL_PROVIDE(cl_C_ring)
 
 // Specification.
-#include "cl_complex_ring.h"
+#include "cln/complex_ring.h"
 
 
 // Implementation.
 
-#include "cl_complex.h"
-#include "cl_complex_io.h"
+#include "cln/complex.h"
+#include "cln/complex_io.h"
 #include "cl_C.h"
 
-static void N_fprint (cl_heap_ring* R, cl_ostream stream, const _cl_ring_element& x)
+namespace cln {
+
+static void N_fprint (cl_heap_ring* R, std::ostream& stream, const _cl_ring_element& x)
 {
        unused R;
        fprint(stream,The(cl_N)(x));
@@ -24,7 +26,7 @@ static void N_fprint (cl_heap_ring* R, cl_ostream stream, const _cl_ring_element
 static cl_boolean N_equal (cl_heap_ring* R, const _cl_ring_element& x, const _cl_ring_element& y)
 {
        unused R;
-       return cl_equal(The(cl_N)(x),The(cl_N)(y));
+       return equal(The(cl_N)(x),The(cl_N)(y));
 }
 
 static const _cl_ring_element N_zero (cl_heap_ring* R)
@@ -111,7 +113,7 @@ static cl_ring_mulops N_mulops = {
 
 static cl_number_ring_ops<cl_N> N_ops = {
        cl_N_p,
-       cl_equal,
+       equal,
        exact_zerop,
        operator+,
        operator-,
@@ -151,9 +153,12 @@ cl_class cl_class_complex_ring = {
 };
 
 // Constructor.
+template <>
 inline cl_complex_ring::cl_specialized_number_ring ()
        : cl_number_ring (new cl_heap_complex_ring()) {}
 
 const cl_complex_ring cl_C_ring;
 
+}  // namespace cln
+
 CL_PROVIDE_END(cl_C_ring)