4 #include "base/cl_sysdep.h"
7 #include "float/lfloat/cl_LF.h"
12 #include "float/lfloat/cl_LF_impl.h"
13 #include "base/digitseq/cl_DS.h"
17 const cl_LF LF_LF_minus_LF (const cl_LF& x1, const cl_LF& x2)
20 // (- x1 x2) = (+ x1 (- x2))
21 if (TheLfloat(x2)->expo == 0)
24 { var uintC len2 = TheLfloat(x2)->len;
25 var Lfloat mx2 = allocate_lfloat(len2, TheLfloat(x2)->expo, ~ TheLfloat(x2)->sign);
26 copy_loop_up(&TheLfloat(x2)->data[0],&TheLfloat(mx2)->data[0],len2);
27 return LF_LF_plus_LF(x1,mx2);