X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Ffloat%2Fmisc%2Fcl_F_epspos.cc;h=f3ade60722ab5950d6902beb78786f2e4ded1ef0;hb=c84c6db5d56829d69083c819688a973867694a2a;hp=52385c01b0ef22aa02645674f4d7b3b3dd6faa4e;hpb=976a13157ca8d274a5bcbdac662cac538091e92c;p=cln.git

diff --git a/src/float/misc/cl_F_epspos.cc b/src/float/misc/cl_F_epspos.cc
index 52385c0..f3ade60 100644
--- a/src/float/misc/cl_F_epspos.cc
+++ b/src/float/misc/cl_F_epspos.cc
@@ -37,7 +37,7 @@ static const cl_DF DF_epsilon =
 
 inline const cl_LF LF_epsilon (uintC len)
 {
-	var Lfloat erg = allocate_lfloat(len,LF_exp_mid+1-intDsize*(uintL)len,0);
+	var Lfloat erg = allocate_lfloat(len,LF_exp_mid+1-intDsize*len,0);
 	var uintD* ptr = &TheLfloat(erg)->data[0];
 	#if CL_DS_BIG_ENDIAN_P
 	  *ptr++ = bit(intDsize-1);
@@ -53,7 +53,7 @@ inline const cl_LF LF_epsilon (uintC len)
 
 const cl_F float_epsilon (float_format_t f)
 {
-	floatformatcase((uintL)f
+	floatformatcase((uintC)f
 	,	return SF_epsilon;
 	,	return FF_epsilon;
 	,	return DF_epsilon;