From: Richard Kreckel <Richard.Kreckel@uni-mainz.de>
Date: Mon, 19 Dec 2005 00:58:28 +0000 (+0000)
Subject: * Fix bug in numeric construction when cl_value_len is large (for CLN 1.2).
X-Git-Tag: release_1-4-0~122
X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?a=commitdiff_plain;h=48ac2cd6f4e3dbd2781e0e66df6462a1f451a1de;p=ginac.git

* Fix bug in numeric construction when cl_value_len is large (for CLN 1.2).
---

diff --git a/ginac/numeric.cpp b/ginac/numeric.cpp
index 8825bdb9..9f7968ea 100644
--- 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));