Ajout de TODO dans cfg_nop_elim et elang_gen + Mise à jour du sujet

src/cfg_nop_elim.ml

@@ -47,6 +47,7 @@ let nop_transitions_closed cfgfunbody =
 (* [replace_succ nop_succs s] donne le nouveau nom du nœud [s], en utilisant la
    liste [nop_succs] (telle que renvoyée par [nop_transitions_closed]). *)
 let replace_succ nop_succs s =
+   (* TODO *)
    s
 
 (* [replace_succs nop_succs n] remplace le nœud [n] par un nœud équivalent où on

src/elang_gen.ml

@@ -58,6 +58,7 @@ let rec make_eexpr_of_ast (a: tree) : expr res =
 let rec make_einstr_of_ast (a: tree) : instr res =
   let res =
     match a with
+    (* TODO *)
     | _ -> Error (Printf.sprintf "Unacceptable ast in make_einstr_of_ast %s"
                     (string_of_ast a))
   in