]> www.ginac.de Git - cln.git/blobdiff - src/float/conv/cl_SF_to_LF.cc
Replace unused macro with cl_unused.
[cln.git] / src / float / conv / cl_SF_to_LF.cc
index 540aaf451e61cdb8df753bebc06ade697dc8c6ee..c8e137d07d533158006e0619048db152599ed821 100644 (file)
@@ -1,18 +1,18 @@
 // cl_SF_to_LF().
 
 // General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
 
 // Specification.
-#include "cl_F.h"
+#include "float/cl_F.h"
 
 
 // Implementation.
 
-#include "cl_SF.h"
-#include "cl_LF.h"
-#include "cl_LF_impl.h"
-#include "cl_DS.h"
+#include "float/sfloat/cl_SF.h"
+#include "float/lfloat/cl_LF.h"
+#include "float/lfloat/cl_LF_impl.h"
+#include "base/digitseq/cl_DS.h"
 
 namespace cln {
 
@@ -28,10 +28,10 @@ const cl_LF cl_SF_to_LF (const cl_SF& x, uintC len)
        #endif
        SF_decode(x, { return encode_LF0(len); }, sign=,exp=(sintL),mant=);
        // Long-Float allozieren,
-       // Mantisse mit intDsize*len-SF_mant_len-1 Nullbits auffüllen:
+       // Mantisse mit intDsize*len-SF_mant_len-1 Nullbits auffüllen:
        var Lfloat y = allocate_lfloat(len,exp+LF_exp_mid,sign);
        var uintD* ptr = arrayMSDptr(TheLfloat(y)->data,len);
-       // erste k := ceiling(SF_mant_len+1,intDsize) Digits mit mant füllen:
+       // erste k := ceiling(SF_mant_len+1,intDsize) Digits mit mant füllen:
        mant = mant << (ceiling(SF_mant_len+1,intDsize)*intDsize-(SF_mant_len+1));
        #if (intDsize==64)
        set_max64_Dptr(SF_mant_len+1,ptr,mant);