Finalize CLN 1.3.7 release.

[cln.git] / src / modinteger / cl_MI_int.h

diff --git a/src/modinteger/cl_MI_int.h b/src/modinteger/cl_MI_int.h
index 0fbfe5280d8b7f99e8a95c004e5c3cb08b23f5ab..7224e5d2cce047af16a373a46a87d67f4252a11e 100644 (file)
--- a/src/modinteger/cl_MI_int.h
+++ b/src/modinteger/cl_MI_int.h
@@ -9,7 +9,7 @@ static void int_fprint (cl_heap_modint_ring* R, std::ostream& stream, const _cl_
 
 static const cl_I int_reduce_modulo (cl_heap_modint_ring* R, const cl_I& x)
 {
-       unused R;
+       cl_unused R;
        return x; // reducing modulo 0 does nothing
 }
 
@@ -22,19 +22,16 @@ static const _cl_MI int_canonhom (cl_heap_modint_ring* R, const cl_I& x)
 // This is the only case where retract is surjective.
 static const cl_I int_retract (cl_heap_modint_ring* R, const _cl_MI& x)
 {
-       unused R;
+       cl_unused R;
        return x.rep;
 }
 
 // This is the only case where random yields an error.
 static const _cl_MI int_random (cl_heap_modint_ring* R, random_state& randomstate)
 {
-       unused R;
-       unused randomstate;
+       cl_unused R;
+       cl_unused randomstate;
        throw runtime_exception("Z / 0 Z not a finite set - no equidistributed random function.");
-#if ((defined(__sparc__) || defined(__sparc64__)) && !defined(__GNUC__)) // Sun CC wants a return value
-       return _cl_MI(R, 0);
-#endif
 }
 
 static const _cl_MI int_zero (cl_heap_modint_ring* R)
@@ -42,9 +39,9 @@ static const _cl_MI int_zero (cl_heap_modint_ring* R)
        return _cl_MI(R, 0);
 }
 
-static cl_boolean int_zerop (cl_heap_modint_ring* R, const _cl_MI& x)
+static bool int_zerop (cl_heap_modint_ring* R, const _cl_MI& x)
 {
-       unused R;
+       cl_unused R;
        return zerop(x.rep);
 }