diff --git a/src/builtins/slash.c b/src/builtins/slash.c index c0137fd9..bba78dd2 100644 --- a/src/builtins/slash.c +++ b/src/builtins/slash.c @@ -262,8 +262,6 @@ static B where(B x, usz xia, u64 s) { } static B compress(B w, B x, usz wia, B xf) { - usz xia = wia; - usz ri = 0; B r; u64* wp = bitarr_ptr(w); u8 xe = TI(x,elType); @@ -292,24 +290,6 @@ static B compress(B w, B x, usz wia, B xf) { #if SINGELI case el_i8: case el_c8: { i8* xp=tyany_ptr(x); i8* rp=m_tyarrvO(&r,1,wsum,el2t(xe), 8); bmipopc_2slash8 (wp, xp, rp, wia); return r; } case el_i16:case el_c16: { i16* xp=tyany_ptr(x); i16* rp=m_tyarrvO(&r,2,wsum,el2t(xe), 16); bmipopc_2slash16(wp, xp, rp, wia); return r; } - case el_i32:case el_c32: { - i32* xp=tyany_ptr(x); i32* rp=m_tyarrv(&r,4,wsum,el2t(xe)); - usz b = 1<<7; - TALLOC(i8, buf, b); - i32* rq=rp; i32* end=xp+xia-b; - while (xp < end) { - bmipopc_1slash8(wp, buf, b); - usz bs = bit_sum(wp, b); - for (usz j=0; jwia-i) { b=wia-i; bs=wsum-(rp-rp0); } \ + else { bs=bit_sum(wp,b); } \ + where_block_u16(wp, (u16*)buf, b, bs); \ + for (usz j=0; j