diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2015-03-27 14:24:03 +0100 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2015-03-27 14:24:03 +0100 |
| commit | 33b742bb41725e47bd88dc12f2a4f40173023f83 (patch) | |
| tree | 07f8c559aa58c9e4fcfb417a71e713665520e1c9 /backend/PrintMach.ml | |
| parent | ecbecdd399d0d685ffed2024e864dc4aaccdfbf6 (diff) | |
| download | compcert-kvx-33b742bb41725e47bd88dc12f2a4f40173023f83.tar.gz compcert-kvx-33b742bb41725e47bd88dc12f2a4f40173023f83.zip | |
Updated the Caml part. Added some more tests in annot1.c.
Diffstat (limited to 'backend/PrintMach.ml')
| -rw-r--r-- | backend/PrintMach.ml | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/backend/PrintMach.ml b/backend/PrintMach.ml index b356ca9e..8484a5c3 100644 --- a/backend/PrintMach.ml +++ b/backend/PrintMach.ml @@ -34,15 +34,6 @@ let rec regs pp = function | [r] -> reg pp r | r1::rl -> fprintf pp "%a, %a" reg r1 regs rl -let annot_param pp = function - | APreg r -> reg pp r - | APstack(chunk, ofs) -> fprintf pp "stack(%s,%ld)" (name_of_chunk chunk) (camlint_of_coqint ofs) - -let rec annot_params pp = function - | [] -> () - | [r] -> annot_param pp r - | r1::rl -> fprintf pp "%a, %a" annot_param r1 annot_params rl - let ros pp = function | Coq_inl r -> reg pp r | Coq_inr s -> fprintf pp "\"%s\"" (extern_atom s) @@ -78,7 +69,8 @@ let print_instruction pp i = fprintf pp "\t%a = %s(%a)\n" regs res (name_of_external ef) regs args | Mannot(ef, args) -> - fprintf pp "\t%s(%a)\n" (name_of_external ef) annot_params args + fprintf pp "\t%s(%a)\n" + (name_of_external ef) (print_annot_args reg) args | Mlabel lbl -> fprintf pp "%5d:" (P.to_int lbl) | Mgoto lbl -> |