From 1d5b8fd52599bfbf674a1fdb25d37cefc1766dbe Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Mon, 21 Nov 2022 17:51:34 +0100
Subject: [PATCH] bignum: move ecl_init_bignum_registers to bignum.d

---
 src/c/big.d  | 20 ++++++++++++++++++++
 src/c/main.d | 22 ----------------------
 2 files changed, 20 insertions(+), 22 deletions(-)

diff --git a/src/c/big.d b/src/c/big.d
index ebb71c937..bb86dfcf9 100644
--- a/src/c/big.d
+++ b/src/c/big.d
@@ -628,6 +628,26 @@ _ecl_big_boole_operator(int op)
   return bignum_operations[op];
 }
 
+void
+ecl_init_bignum_registers(cl_env_ptr env)
+{
+  int i;
+  for (i = 0; i < ECL_BIGNUM_REGISTER_NUMBER; i++) {
+    cl_object x = ecl_alloc_object(t_bignum);
+    _ecl_big_init2(x, ECL_BIG_REGISTER_SIZE);
+    env->big_register[i] = x;
+  }
+}
+
+void
+ecl_clear_bignum_registers(cl_env_ptr env)
+{
+  int i;
+  for (i = 0; i < ECL_BIGNUM_REGISTER_NUMBER; i++) {
+    _ecl_big_clear(env->big_register[i]);
+  }
+}
+
 void
 init_big()
 {
diff --git a/src/c/main.d b/src/c/main.d
index 1d35509f1..c63520dcf 100644
--- a/src/c/main.d
+++ b/src/c/main.d
@@ -130,26 +130,6 @@ ecl_set_option(int option, cl_fixnum value)
   }
 }
 
-void
-ecl_init_bignum_registers(cl_env_ptr env)
-{
-  int i;
-  for (i = 0; i < ECL_BIGNUM_REGISTER_NUMBER; i++) {
-    cl_object x = ecl_alloc_object(t_bignum);
-    _ecl_big_init2(x, ECL_BIG_REGISTER_SIZE);
-    env->big_register[i] = x;
-  }
-}
-
-void
-ecl_clear_bignum_registers(cl_env_ptr env)
-{
-  int i;
-  for (i = 0; i < ECL_BIGNUM_REGISTER_NUMBER; i++) {
-    _ecl_big_clear(env->big_register[i]);
-  }
-}
-
 void
 ecl_init_env(cl_env_ptr env)
 {
@@ -535,8 +515,6 @@ cl_boot(int argc, char **argv)
   cl_core.path_max = MAXPATHLEN;
 #endif
 
-  env->packages_to_be_created = ECL_NIL;
-
 #ifdef ECL_THREADS
   env->bindings_array = si_make_vector(ECL_T, ecl_make_fixnum(1024),
                                        ECL_NIL, ECL_NIL, ECL_NIL, ECL_NIL);