From 22925eee4b958b7bfce491ebcd55e218d8e71546 Mon Sep 17 00:00:00 2001 From: Marshall Lochbaum Date: Sat, 13 Aug 2022 15:03:18 -0400 Subject: [PATCH] =?UTF-8?q?Fast=20=E2=8C=8A`,=20matching=20=E2=8C=88`?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/md1.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/builtins/md1.c b/src/builtins/md1.c index 6db40dfe..8652f53b 100644 --- a/src/builtins/md1.c +++ b/src/builtins/md1.c @@ -175,6 +175,11 @@ B scan_c1(Md1D* d, B x) { B f = d->f; if (xe==el_i16) { i16* xp=i16any_ptr(x); i32* rp; B r=m_i32arrv(&rp, ia); i32 c=0; for (usz i=0; ic)c=xp[i]; rp[i]=c; } decG(x); return r; } if (xe==el_i16) { i16* xp=i16any_ptr(x); i16* rp; B r=m_i16arrv(&rp, ia); i16 c=I16_MIN; for (usz i=0; ic)c=xp[i]; rp[i]=c; } decG(x); return r; } @@ -231,6 +236,11 @@ B scan_c2(Md1D* d, B w, B x) { B f = d->f; if (xe==el_i16) { i16* xp=i16any_ptr(x); i32* rp; B r=m_i32arrv(&rp, ia); i32 c=wv; for (usz i=0; ic)c=xp[i]; rp[i]=c; } decG(x); return r; } if (xe==el_i16 && wv==(i16)wv) { i16* xp=i16any_ptr(x); i16* rp; B r=m_i16arrv(&rp, ia); i16 c=wv; for (usz i=0; ic)c=xp[i]; rp[i]=c; } decG(x); return r; }