diff options
| author | Léo Gourdin <leo.gourdin@lilo.org> | 2021-07-28 10:32:09 +0200 |
|---|---|---|
| committer | Léo Gourdin <leo.gourdin@lilo.org> | 2021-07-28 10:32:09 +0200 |
| commit | 056658bd2986d9e12ac07a54d25c08eb8a62ff60 (patch) | |
| tree | 93e3f9a49f656bc8cf1ea3aa460ea2be1c083915 /scheduling/PrintBTL.ml | |
| parent | 77ee161826e24e87f801cbbeb797fb3a4a4a0fe9 (diff) | |
| download | compcert-kvx-056658bd2986d9e12ac07a54d25c08eb8a62ff60.tar.gz compcert-kvx-056658bd2986d9e12ac07a54d25c08eb8a62ff60.zip | |
remove todos, clean
Diffstat (limited to 'scheduling/PrintBTL.ml')
| -rw-r--r-- | scheduling/PrintBTL.ml | 13 |
1 files changed, 0 insertions, 13 deletions
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*) |