X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Ffloat%2Fconv%2Fcl_SF_to_LF.cc;h=c8e137d07d533158006e0619048db152599ed821;hb=3af2cde18b3aabed4c808b0113daa81c2263b0bd;hp=540aaf451e61cdb8df753bebc06ade697dc8c6ee;hpb=850abfde7f0d985ba01526c346bcd0d733562943;p=cln.git diff --git a/src/float/conv/cl_SF_to_LF.cc b/src/float/conv/cl_SF_to_LF.cc index 540aaf4..c8e137d 100644 --- a/src/float/conv/cl_SF_to_LF.cc +++ b/src/float/conv/cl_SF_to_LF.cc @@ -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);