From c4e588d03c0340322e357524c2f53902ec8e8692 Mon Sep 17 00:00:00 2001
From: Olivier Nicole <olivier.github.com@chnik.fr>
Date: Thu, 12 Dec 2024 14:13:20 +0100
Subject: [PATCH] CR: Simplification in compiler/lib/effects.ml
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Co-authored-by: Jérôme Vouillon <jerome.vouillon@gmail.com>
---
 compiler/lib/effects.ml | 2 --
 1 file changed, 2 deletions(-)

diff --git a/compiler/lib/effects.ml b/compiler/lib/effects.ml
index 04806ff0f4..92b0c366b0 100644
--- a/compiler/lib/effects.ml
+++ b/compiler/lib/effects.ml
@@ -326,9 +326,7 @@ let mk_cps_pc_of_direct ~st pc =
   then (
     try Hashtbl.find st.cps_pc_of_direct pc
     with Not_found ->
-      let new_blocks = st.new_blocks in
       let free_pc = st.free_pc in
-      st.new_blocks <- new_blocks;
       st.free_pc <- free_pc + 1;
       Hashtbl.add st.cps_pc_of_direct pc free_pc;
       free_pc)