12 #include "cl_LF_impl.h"
17 const cl_LF extend (const cl_LF& x, uintC len)
19 var Lfloat y = allocate_lfloat(len,TheLfloat(x)->expo,TheLfloat(x)->sign); // neues LF
20 { var uintC oldlen = TheLfloat(x)->len; // alte Länge, < len
21 // Mantisse von x nach y kopieren:
22 var uintD* ptr = copy_loop_msp(arrayMSDptr(TheLfloat(x)->data,oldlen),arrayMSDptr(TheLfloat(y)->data,len),oldlen);
23 // und mit Null-Digits ergänzen:
24 clear_loop_msp(ptr,len-oldlen);