limit row-wise F⌜ to 7<≠⥊𝕩
This commit is contained in:
parent
599c56051d
commit
32d8c09e2b
@ -59,24 +59,24 @@ B tbl_c2(Md1D* d, B w, B x) { B f = d->f;
|
|||||||
B r;
|
B r;
|
||||||
usz* rsh;
|
usz* rsh;
|
||||||
|
|
||||||
|
BBB2B fc2 = c2fn(f);
|
||||||
if (!EACH_FILLS && isFun(f) && isPervasiveDy(f) && TI(w,arrD1)) {
|
if (!EACH_FILLS && isFun(f) && isPervasiveDy(f) && TI(w,arrD1)) {
|
||||||
BBB2B fc2 = c(Fun,f)->c2;
|
|
||||||
if (TI(x,arrD1) && xia<80 && wia>130) {
|
if (TI(x,arrD1) && xia<80 && wia>130) {
|
||||||
Arr* wd = arr_shVec(TI(w,slice)(incG(w), 0, wia));
|
Arr* wd = arr_shVec(TI(w,slice)(incG(w), 0, wia));
|
||||||
r = fc2(f, slash_c2(f, m_i32(xia), taga(wd)), shape_c2(f, m_f64(ria), incG(x)));
|
r = fc2(f, slash_c2(f, m_i32(xia), taga(wd)), shape_c2(f, m_f64(ria), incG(x)));
|
||||||
} else {
|
} else if (xia>7) {
|
||||||
SGet(w)
|
SGet(w)
|
||||||
M_HARR(r, wia)
|
M_HARR(r, wia)
|
||||||
for (usz wi = 0; wi < wia; wi++) HARR_ADD(r, wi, fc2(f, Get(w,wi), incG(x)));
|
for (usz wi = 0; wi < wia; wi++) HARR_ADD(r, wi, fc2(f, Get(w,wi), incG(x)));
|
||||||
r = bqn_merge(HARR_FV(r));
|
r = bqn_merge(HARR_FV(r));
|
||||||
}
|
} else goto generic;
|
||||||
if (rnk(r)>1) {
|
if (rnk(r)>1) {
|
||||||
srnk(r, 0); // otherwise the following arr_shAlloc failing will result in r->sh dangling
|
srnk(r, 0); // otherwise the following arr_shAlloc failing will result in r->sh dangling
|
||||||
ptr_dec(shObj(r));
|
ptr_dec(shObj(r));
|
||||||
}
|
}
|
||||||
rsh = arr_shAlloc(a(r), rr);
|
rsh = arr_shAlloc(a(r), rr);
|
||||||
} else {
|
} else {
|
||||||
BBB2B fc2 = c2fn(f);
|
generic:;
|
||||||
SGetU(w) SGet(x)
|
SGetU(w) SGet(x)
|
||||||
|
|
||||||
M_HARR(r, ria)
|
M_HARR(r, ria)
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user