From 0ef8800530c877e93d2b1aa48abdbd6b552411ed Mon Sep 17 00:00:00 2001 From: dzaima Date: Thu, 8 Dec 2022 13:26:04 +0200 Subject: [PATCH] =?UTF-8?q?native=20F=E2=8C=BE=E2=8A=A2=F0=9D=95=A9=20&=20?= =?UTF-8?q?F=E2=8C=BE=E2=8A=A3=F0=9D=95=A9?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/fns.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/builtins/fns.c b/src/builtins/fns.c index 2098484b..ca405931 100644 --- a/src/builtins/fns.c +++ b/src/builtins/fns.c @@ -2,6 +2,7 @@ #include "../utils/hash.h" #include "../utils/mut.h" #include "../utils/talloc.h" +#include "../builtins.h" #include "../nfns.h" @@ -270,6 +271,9 @@ void profiler_freeMap(void* mapRaw) { free_b2i((H_b2i*)mapRaw); } +B tack_uc1(B t, B o, B x) { + return c1(o, x); +} void fun_gcFn() { @@ -294,4 +298,6 @@ void fns_init() { { u64* p; B a=m_bitarrv(&p, 1); *p=0; bitUD[1] = a(a); gc_add(a); } { u64* p; B a=m_bitarrv(&p, 2); *p=0; bitp_set(p,1,1); bitUD[2] = a(a); bit2x[0] = a; gc_add(a); } { u64* p; B a=m_bitarrv(&p, 2); *p=0; bitp_set(p,0,1); bit2x[1] = a; gc_add(a); } + c(BFn,bi_ltack)->uc1 = tack_uc1; + c(BFn,bi_rtack)->uc1 = tack_uc1; }