diff options
| author | Cyril SIX <cyril.six@kalray.eu> | 2018-04-04 16:57:50 +0200 |
|---|---|---|
| committer | Cyril SIX <cyril.six@kalray.eu> | 2018-04-04 16:57:50 +0200 |
| commit | be6796ea9e15f543606191bd6a26281ba37421ab (patch) | |
| tree | 8999642f12d18fa396b85f35a04b16201352c1c8 | |
| parent | 17c38f7c4a01cbe5cf20a4f8d5f5d8c0ca888855 (diff) | |
| download | compcert-kvx-be6796ea9e15f543606191bd6a26281ba37421ab.tar.gz compcert-kvx-be6796ea9e15f543606191bd6a26281ba37421ab.zip | |
MPPA - Desactivated Pbuiltin EF_annot
| -rw-r--r-- | mppa_k1c/TargetPrinter.ml | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/mppa_k1c/TargetPrinter.ml b/mppa_k1c/TargetPrinter.ml index 2fafb127..ac6f8f1b 100644 --- a/mppa_k1c/TargetPrinter.ml +++ b/mppa_k1c/TargetPrinter.ml @@ -266,17 +266,16 @@ module Target : TARGET = fprintf oc "%s end pseudoinstr btbl\n" comment *)| Pbuiltin(ef, args, res) -> begin match ef with - | EF_annot(kind,txt, targs) -> - let annot = + (*| EF_annot(kind,txt, targs) -> begin match (P.to_int kind) with - | 1 -> annot_text preg_annot "sp" (camlstring_of_coqstring txt) args + | 1 -> let annot = annot_text preg_annot "x2" (camlstring_of_coqstring txt) args in + fprintf oc "%s annotation: %S\n" comment annot | 2 -> let lbl = new_label () in fprintf oc "%a: " label lbl; - ais_annot_text lbl preg_annot "r1" (camlstring_of_coqstring txt) args + add_ais_annot lbl preg_annot "x2" (camlstring_of_coqstring txt) args | _ -> assert false - end in - fprintf oc "%s annotation: %S\n" comment annot - | EF_debug(kind, txt, targs) -> + end + *)| EF_debug(kind, txt, targs) -> print_debug_info comment print_file_line preg_annot "sp" oc (P.to_int kind) (extern_atom txt) args | EF_inline_asm(txt, sg, clob) -> |