Starting work on adding bit operations. The semantics is that

negative integers behave as an "infinite bit two's complement".

* arith.c (logand, logor, logxor): New functions.

* eval.c (eval_init): New intrinsic functions logand, logior, logxor.

* lib.h (logand, logor, logxor): Declared.

* mpi-patches/series: New patch, add-bitops.

* mpi-patches/add-bitops: New file.

1 files changed, 3 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index ecf44424..786fc0d4 100644
--- a/eval.c
+++ b/eval.c
@@ -2231,6 +2231,9 @@ void eval_init(void)
   reg_fun(intern(lit("/="), user_package), func_n0v(numneqv));
   reg_fun(intern(lit("max"), user_package), func_n1v(maxv));
   reg_fun(intern(lit("min"), user_package), func_n1v(minv));
+  reg_fun(intern(lit("logand"), user_package), func_n2(logand));
+  reg_fun(intern(lit("logior"), user_package), func_n2(logior));
+  reg_fun(intern(lit("logxor"), user_package), func_n2(logxor));
 
   reg_fun(intern(lit("regex-compile"), user_package), func_n1(regex_compile));
   reg_fun(intern(lit("regexp"), user_package), func_n1(regexp));