simpler slash_ucw !elInt(w) case
This commit is contained in:
parent
741d7ca31d
commit
42ae82eb1f
@ -775,10 +775,16 @@ B slash_im(B t, B x) {
|
|||||||
}
|
}
|
||||||
|
|
||||||
B slash_ucw(B t, B o, B w, B x) {
|
B slash_ucw(B t, B o, B w, B x) {
|
||||||
if (isAtm(w) || isAtm(x) || RNK(w)!=1 || RNK(x)!=1 || IA(w)!=IA(x)) return def_fn_ucw(t, o, w, x);
|
if (isAtm(w) || isAtm(x) || RNK(w)!=1 || RNK(x)!=1 || IA(w)!=IA(x)) {
|
||||||
|
base:
|
||||||
|
return def_fn_ucw(t, o, w, x);
|
||||||
|
}
|
||||||
usz ia = IA(x);
|
usz ia = IA(x);
|
||||||
SGetU(w)
|
SGetU(w)
|
||||||
if (!elInt(TI(w,elType))) for (usz i = 0; i < ia; i++) if (!q_i32(GetU(w,i))) return def_fn_ucw(t, o, w, x);
|
if (TY(w) != t_bitarr) {
|
||||||
|
w = num_squeezeChk(w);
|
||||||
|
if (!elInt(TI(w,elType))) goto base;
|
||||||
|
}
|
||||||
B arg = slash_c2(t, inc(w), inc(x));
|
B arg = slash_c2(t, inc(w), inc(x));
|
||||||
usz argIA = IA(arg);
|
usz argIA = IA(arg);
|
||||||
B rep = c1(o, arg);
|
B rep = c1(o, arg);
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user