* 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/lib.h b/lib.h
index 91cca628..2f49d347 100644
--- a/lib.h
+++ b/lib.h
@@ -475,6 +475,8 @@ val logand(val, val);
 val logior(val, val);
 val logxor(val, val);
 val logcomp(val, val);
+val logtrunc(val a, val bits);
+val ash(val a, val bits);
 val string_own(wchar_t *str);
 val string(const wchar_t *str);
 val string_utf8(const char *str);