Specify instruction width explicitly.

[cln.git] / src / integer / ring / cl_I_ring.cc

diff --git a/src/integer/ring/cl_I_ring.cc b/src/integer/ring/cl_I_ring.cc
index f7ae40bad320f3c314764773a5b019154f245416..416738a3e97c8dd2c0a8f58dde350f0d19f6d6c9 100644 (file)
--- a/src/integer/ring/cl_I_ring.cc
+++ b/src/integer/ring/cl_I_ring.cc
@@ -17,13 +17,13 @@ CL_PROVIDE(cl_I_ring)
 
 namespace cln {
 
-static void I_fprint (cl_heap_ring* R, cl_ostream stream, const _cl_ring_element& x)
+static void I_fprint (cl_heap_ring* R, std::ostream& stream, const _cl_ring_element& x)
 {
        unused R;
        fprint(stream,The(cl_I)(x));
 }
 
-static cl_boolean I_equal (cl_heap_ring* R, const _cl_ring_element& x, const _cl_ring_element& y)
+static bool I_equal (cl_heap_ring* R, const _cl_ring_element& x, const _cl_ring_element& y)
 {
        unused R;
        return equal(The(cl_I)(x),The(cl_I)(y));
@@ -34,7 +34,7 @@ static const _cl_ring_element I_zero (cl_heap_ring* R)
        return _cl_ring_element(R, (cl_I)0);
 }
 
-static cl_boolean I_zerop (cl_heap_ring* R, const _cl_ring_element& x)
+static bool I_zerop (cl_heap_ring* R, const _cl_ring_element& x)
 {
        unused R;
        return zerop(The(cl_I)(x));
@@ -80,13 +80,11 @@ static const _cl_ring_element I_expt_pos (cl_heap_ring* R, const _cl_ring_elemen
        return _cl_ring_element(R, expt_pos(The(cl_I)(x),y));
 }
 
-static cl_boolean cl_I_p (const cl_number& x)
+static bool cl_I_p (const cl_number& x)
 {
-       return (cl_boolean)
-              (!x.pointer_p()
+       return (!x.pointer_p()
                ? x.nonpointer_tag() == cl_FN_tag
-               : x.pointer_type() == &cl_class_bignum
-              );
+               : x.pointer_type() == &cl_class_bignum);
 }
 
 static cl_ring_setops I_setops = {
@@ -150,6 +148,7 @@ cl_class cl_class_integer_ring = {
 };
 
 // Constructor.
+template <>
 inline cl_integer_ring::cl_specialized_number_ring ()
        : cl_number_ring (new cl_heap_integer_ring()) {}