12 #include "cl_LF_impl.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);