fix slow small array checks
This commit is contained in:
parent
01b36e927f
commit
7600431fa6
@ -738,7 +738,6 @@ B g_tf(void* x) { return tag(x,FUN_TAG); }
|
||||
}
|
||||
#endif
|
||||
#if WARN_SLOW==1
|
||||
BBB2B ptr;
|
||||
static void warn_ln(B x) {
|
||||
if (isArr(x)) print_fmt("%s items, %S, shape=%H\n", a(x)->ia, eltype_repr(TI(x,elType)), x);
|
||||
else {
|
||||
@ -752,12 +751,12 @@ B g_tf(void* x) { return tag(x,FUN_TAG); }
|
||||
printf("slow %s: ", s); warn_ln(x);
|
||||
}
|
||||
void warn_slow2(char* s, B w, B x) {
|
||||
if ((isArr(w)||isArr(x)) && (!isArr(x) || a(x)->ia<50) && (!isArr(x) || a(x)->ia<50)) return;
|
||||
if ((isArr(w)||isArr(x)) && (!isArr(w) || a(w)->ia<50) && (!isArr(x) || a(x)->ia<50)) return;
|
||||
printf("slow %s:\n 𝕨: ", s); warn_ln(w);
|
||||
printf(" 𝕩: "); warn_ln(x);
|
||||
}
|
||||
void warn_slow3(char* s, B w, B x, B y) {
|
||||
if ((isArr(w)||isArr(x)) && (!isArr(x) || a(x)->ia<50) && (!isArr(x) || a(x)->ia<50)) return;
|
||||
if ((isArr(w)||isArr(x)) && (!isArr(w) || a(w)->ia<50) && (!isArr(x) || a(x)->ia<50)) return;
|
||||
printf("slow %s:\n 𝕨: ", s); warn_ln(w);
|
||||
printf(" 𝕩: "); warn_ln(x);
|
||||
printf(" f: "); warn_ln(y);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user