From 056658bd2986d9e12ac07a54d25c08eb8a62ff60 Mon Sep 17 00:00:00 2001
From: Léo Gourdin <leo.gourdin@lilo.org>
Date: Wed, 28 Jul 2021 10:32:09 +0200
Subject: remove todos, clean

---
 scheduling/PrintBTL.ml | 13 -------------
 1 file changed, 13 deletions(-)

(limited to 'scheduling/PrintBTL.ml')

diff --git a/scheduling/PrintBTL.ml b/scheduling/PrintBTL.ml
index 52178064..89254301 100644
--- a/scheduling/PrintBTL.ml
+++ b/scheduling/PrintBTL.ml
@@ -116,16 +116,3 @@ let print_btl_code pp btl =
       (PTree.elements btl);
     fprintf pp "\n")
   else ()
-
-(* TODO gourdinl remove or adapt this?
-let print_function pp id f =
-  fprintf pp "%s(%a) {\n" (extern_atom id) regs f.fn_params;
-  let instrs = List.map (fun (n, i) -> i.entry) (PTree.elements f.fn_code) in
-  List.iter (print_iblock pp true "") instrs;
-  fprintf pp "}\n\n"
-
-let print_globdef pp (id, gd) =
-  match gd with Gfun (Internal f) -> print_function pp id f | _ -> ()
-
-let print_program pp (prog : BTL.program) =
-  List.iter (print_globdef pp) prog.prog_defs*)
-- 
cgit