From 504658d3ef3a3e8e51963dea290b2575208996b6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 29 Nov 2024 23:38:56 +0100
Subject: [PATCH] process: move ecl_clear_bignum_registers to _dealloc_env

This resolves a fixme.
---
 src/c/main.d    | 1 +
 src/c/process.d | 2 --
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/c/main.d b/src/c/main.d
index e2b9c7d69..9e7667184 100644
--- a/src/c/main.d
+++ b/src/c/main.d
@@ -134,6 +134,7 @@ _ecl_dealloc_env(cl_env_ptr env)
   if (!VirtualFree(env, 0, MEM_RELEASE))
     ecl_internal_error("Unable to deallocate environment structure.");
 #else
+  ecl_clear_bignum_registers(env);
   ecl_free_unsafe(env);
 #endif
 }
diff --git a/src/c/process.d b/src/c/process.d
index aec804237..5ff7b4afd 100644
--- a/src/c/process.d
+++ b/src/c/process.d
@@ -209,8 +209,6 @@ ecl_disown_cpu()
   if (the_env == NULL)
     return;
   ecl_disable_interrupts_env(the_env);
-  /* FIXME this should be part of dealloc. */
-  ecl_clear_bignum_registers(the_env);
 #ifdef ECL_WINDOWS_THREADS
   CloseHandle(the_env->thread);
 #endif