From: Richard Kreckel <kreckel@ginac.de>
Date: Fri, 2 Mar 2012 22:40:34 +0000 (+0100)
Subject: Fix bug in converting cl_LF to float, double.
X-Git-Url: http://www.ginac.de/CLN/cln.git/?p=cln.git;a=commitdiff_plain;h=3c6225a8b3fedffaba7279d86db96b8f180b3f28

Fix bug in converting cl_LF to float, double.
---

diff --git a/src/float/conv/cl_LF_to_double.cc b/src/float/conv/cl_LF_to_double.cc
index 078bd1b..f9f5e86 100644
--- a/src/float/conv/cl_LF_to_double.cc
+++ b/src/float/conv/cl_LF_to_double.cc
@@ -20,7 +20,7 @@ double double_approx (const cl_LF& x)
 {
 	// x entpacken:
 	var cl_signean sign;
-	var sintL exp;
+	var sintE exp;
 	var uintD* ptr;
 	var uintC len;
 	LF_decode(x, { return 0.0; }, sign=,exp=,ptr=,len=,);
diff --git a/src/float/conv/cl_LF_to_float.cc b/src/float/conv/cl_LF_to_float.cc
index 913b08e..b476d04 100644
--- a/src/float/conv/cl_LF_to_float.cc
+++ b/src/float/conv/cl_LF_to_float.cc
@@ -20,7 +20,7 @@ float float_approx (const cl_LF& x)
 {
 	// x entpacken:
 	var cl_signean sign;
-	var sintL exp;
+	var sintE exp;
 	var uintD* ptr;
 	var uintC len;
 	LF_decode(x, { return 0.0; }, sign=,exp=,ptr=,len=,);