From a02f195555bdced57004f49c14eca95649b0ebc6 Mon Sep 17 00:00:00 2001 From: dzaima Date: Wed, 18 Dec 2024 13:29:32 +0200 Subject: [PATCH] =?UTF-8?q?make=20native=20inverse=20bindings=20for=20?= =?UTF-8?q?=E2=8B=86=E2=81=BCx=20&=20w=E2=8B=86=E2=81=BCx?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/arithd.c | 1 + src/builtins/arithm.c | 6 ++++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/src/builtins/arithd.c b/src/builtins/arithd.c index 305b7f31..0b0f5299 100644 --- a/src/builtins/arithd.c +++ b/src/builtins/arithd.c @@ -530,4 +530,5 @@ B lcm_c2(B t, B w, B x) { void arithd_init() { c(BFn, bi_atan2)->iw = atan2iw_c2; c(BFn, bi_atan2)->ix = atan2ix_c2; + c(BFn, bi_pow)->ix = log_c2; } diff --git a/src/builtins/arithm.c b/src/builtins/arithm.c index 244f7784..cb98fc38 100644 --- a/src/builtins/arithm.c +++ b/src/builtins/arithm.c @@ -184,7 +184,6 @@ void arithm_init(void) { #define INVERSE_PAIR(F,G) \ c(BFn,bi_##F)->im = G##_c1; \ c(BFn,bi_##G)->im = F##_c1; - c(BFn,bi_sub)->im = sub_c1; INVERSE_PAIR(sin, asin) INVERSE_PAIR(cos, acos) INVERSE_PAIR(tan, atan) @@ -192,7 +191,10 @@ void arithm_init(void) { INVERSE_PAIR(cosh, acosh) INVERSE_PAIR(tanh, atanh) INVERSE_PAIR(expm1, log1p) + #undef INVERSE_PAIR + + c(BFn,bi_sub)->im = sub_c1; + c(BFn,bi_pow)->im = log_c1; c(BFn,bi_fact)->im = fact_inv_c1; c(BFn,bi_logfact)->im = logfact_inv_c1; - #undef INVERSE_PAIR }