12 #include "cl_LF_impl.h"
15 const cl_LF LF_LF_minus_LF (const cl_LF& x1, const cl_LF& x2)
18 // (- x1 x2) = (+ x1 (- x2))
19 if (TheLfloat(x2)->expo == 0)
22 { var uintC len2 = TheLfloat(x2)->len;
23 var Lfloat mx2 = allocate_lfloat(len2, TheLfloat(x2)->expo, ~ TheLfloat(x2)->sign);
24 copy_loop_up(&TheLfloat(x2)->data[0],&TheLfloat(mx2)->data[0],len2);
25 return LF_LF_plus_LF(x1,mx2);