* Sync to HEAD (CLN 1.2 anticipation).

diff --git a/ginac/numeric.cpp b/ginac/numeric.cpp
index 961d90539dd7d5065b2eb90af07acb249f3c8a6f..26e012b9f75f60fc104897c7e8648500b69fa251 100644 (file)
--- a/ginac/numeric.cpp
+++ b/ginac/numeric.cpp
@@ -107,7 +107,7 @@ numeric::numeric(unsigned int i) : basic(TINFO_numeric)
        // emphasizes efficiency.  However, if the integer is small enough
        // we save space and dereferences by using an immediate type.
        // (C.f. <cln/object.h>)
-       if (i < (1U << (cl_value_len-1)))
+       if (i < (1UL << (cl_value_len-1)))
                value = cln::cl_I(i);
        else
                value = cln::cl_I(static_cast<unsigned long>(i));