From 561199ab1687e14d6ce2ad3722f795f049e1ed69 Mon Sep 17 00:00:00 2001 From: dzaima Date: Mon, 4 Oct 2021 11:15:21 +0300 Subject: [PATCH] =?UTF-8?q?fast=20=F0=9D=95=A8=E2=88=A8=C2=B4=F0=9D=95=A9?= =?UTF-8?q?=20and=20=F0=9D=95=A8=E2=88=A7=C2=B4=F0=9D=95=A9?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/md1.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/builtins/md1.c b/src/builtins/md1.c index 8de109c9..58b71504 100644 --- a/src/builtins/md1.c +++ b/src/builtins/md1.c @@ -281,6 +281,7 @@ B fold_c2(Md1D* d, B w, B x) { B f = d->f; if (xe==el_i32) { i32* xp = i32any_ptr(x); i32 c=wi; for (usz i=0; i>6); i++) if (~xp[i]){r=0;break;} if(~bitp_l1(xp,ia))r=0; } dec(x); return m_i32(r); } if (xe==el_i8 ) { i8* xp = i8any_ptr (x); i32 c=wi; for (usz i=0; if; if (xe==el_i32) { i32* xp = i32any_ptr(x); i32 c=wi; for (usz i=0; ic) c=xp[i]; dec(x); return m_i32(c); } } if (rtid==11 && (wi&1)==wi) { // ∨ - if (xe==el_bit) { u64* xp = bitarr_ptr(x); bool r=0; if (wi) r=1; else for (usz i=0; i>6); i++) if(xp[i]){r=1;break;} if(bitp_l0(xp,ia))r=1; } dec(x); return m_i32(r); } if (xe==el_i8 ) { i8* xp = i8any_ptr (x); bool q=wi; for (usz i=0; i