* arith.c (highest_significant_bit): New static function.

(comp_clamp): Bugfix: avoid shifting left into sign bit. Function
renamed to comp_trunc.
(logtrunc, ash): New functions.

* eval.c (eval_init): Registered logtrunc and ash intrinsics.

* lib.h (logtrunc, ash): Declared.

* mpi-patches/add-bitops (s_highest_bit_mp): Forward declaration for
added.
(mp_clamp_comp): Bugfix in handling remainder bits. Function
renamed to mp_trunc_comp.
(mp_trunc, mp_shift): New functions.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 4050a2ea..ec5db76a 100644
--- a/eval.c
+++ b/eval.c
@@ -2235,6 +2235,8 @@ void eval_init(void)
   reg_fun(intern(lit("logior"), user_package), func_n2(logior));
   reg_fun(intern(lit("logxor"), user_package), func_n2(logxor));
   reg_fun(intern(lit("logcomp"), user_package), func_n2o(logcomp, 1));
+  reg_fun(intern(lit("logtrunc"), user_package), func_n2(logtrunc));
+  reg_fun(intern(lit("ash"), user_package), func_n2(ash));
 
   reg_fun(intern(lit("regex-compile"), user_package), func_n1(regex_compile));
   reg_fun(intern(lit("regexp"), user_package), func_n1(regexp));