1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
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=,);
|
