Slight perf improvement

1 files changed, 2 insertions, 2 deletions

diff --git a/backend/Duplicateaux.ml b/backend/Duplicateaux.ml
index 55414f40..4684d870 100644
--- a/backend/Duplicateaux.ml
+++ b/backend/Duplicateaux.ml
@@ -724,7 +724,7 @@ let rtl_successors_pref = function
 let rec find_last_node_before_loop code node trace is_loop_header =
   let rtl_succ = rtl_successors @@ get_some @@ PTree.get node code in
   let headers = List.filter (fun n -> 
-    get_some @@ PTree.get n is_loop_header && List.mem n trace) rtl_succ in 
+    get_some @@ PTree.get n is_loop_header && HashedSet.PSet.contains trace n) rtl_succ in 
   match headers with
   | [] -> (
       match (rtl_successors_pref @@ get_some @@ PTree.get node code) with
@@ -760,8 +760,8 @@ let get_inner_loops f code is_loop_header =
           debug "HEADPREDS: %a\n" print_intlist head_preds;
           filtered
         end in
-      let body = HashedSet.PSet.elements body in
       let sb_final = find_last_node_before_loop code head body is_loop_header in
+      let body = HashedSet.PSet.elements body in
       { preds = preds; body = body; head = head; finals = finals;
         sb_final = sb_final; }
     )