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
|
#endif
|
||||||
#if WARN_SLOW==1
|
#if WARN_SLOW==1
|
||||||
BBB2B ptr;
|
|
||||||
static void warn_ln(B x) {
|
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);
|
if (isArr(x)) print_fmt("%s items, %S, shape=%H\n", a(x)->ia, eltype_repr(TI(x,elType)), x);
|
||||||
else {
|
else {
|
||||||
@ -752,12 +751,12 @@ B g_tf(void* x) { return tag(x,FUN_TAG); }
|
|||||||
printf("slow %s: ", s); warn_ln(x);
|
printf("slow %s: ", s); warn_ln(x);
|
||||||
}
|
}
|
||||||
void warn_slow2(char* s, B w, B 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("slow %s:\n 𝕨: ", s); warn_ln(w);
|
||||||
printf(" 𝕩: "); warn_ln(x);
|
printf(" 𝕩: "); warn_ln(x);
|
||||||
}
|
}
|
||||||
void warn_slow3(char* s, B w, B x, B y) {
|
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("slow %s:\n 𝕨: ", s); warn_ln(w);
|
||||||
printf(" 𝕩: "); warn_ln(x);
|
printf(" 𝕩: "); warn_ln(x);
|
||||||
printf(" f: "); warn_ln(y);
|
printf(" f: "); warn_ln(y);
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user