Finalize CLN 1.3.7 release.

[cln.git] / src / float / sfloat / elem / cl_SF_from_I.cc

diff --git a/src/float/sfloat/elem/cl_SF_from_I.cc b/src/float/sfloat/elem/cl_SF_from_I.cc
index c6787ee29366961030bfa8f894cabd87c05407f5..9a89e8195a158bb8b5d743e1cbc3dbfe6d18767a 100644 (file)
--- a/src/float/sfloat/elem/cl_SF_from_I.cc
+++ b/src/float/sfloat/elem/cl_SF_from_I.cc
@@ -1,17 +1,17 @@
 // cl_I_to_SF().
 
 // General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
 
 // Specification.
-#include "cl_SF.h"
+#include "float/sfloat/cl_SF.h"
 
 
 // Implementation.
 
 #include "cln/integer.h"
-#include "cl_I.h"
-#include "cl_DS.h"
+#include "integer/cl_I.h"
+#include "base/digitseq/cl_DS.h"
 
 namespace cln {
 
@@ -112,7 +112,7 @@ const cl_SF cl_I_to_SF (const cl_I& x)
             { mant = mant>>1; exp = exp+1; }
         }
       #endif
-      return encode_SF(sign,(sintL)exp,mant);
+      return encode_SF(sign,(sintE)exp,mant);
 }
 
 }  // namespace cln