From 826e9c693a628ce1e9684583c63ffcc5e7d54869 Mon Sep 17 00:00:00 2001 From: dzaima Date: Mon, 18 Apr 2022 23:23:42 +0300 Subject: [PATCH] =?UTF-8?q?fix=202=C3=97=C2=B41=E2=80=BF1?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/md1.c | 3 ++- src/builtins/sysfn.c | 1 - 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/builtins/md1.c b/src/builtins/md1.c index d25dd2de..9ee0c071 100644 --- a/src/builtins/md1.c +++ b/src/builtins/md1.c @@ -304,7 +304,8 @@ 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; } decG(x); return m_i32(r); } + if (xe==el_bit && + wi==(wi&1)) { u64* xp = bitarr_ptr(x); bool r=wi; if (r) { for (usz i=0; i<(ia>>6); i++) if (~xp[i]){r=0;break;} if(~bitp_l1(xp,ia))r=0; } decG(x); return m_i32(r); } if (xe==el_i8 ) { i8* xp = i8any_ptr (x); i32 c=wi; for (usz i=0; i