diff options
author | Cyril SIX <cyril.six@kalray.eu> | 2018-04-09 18:06:30 +0200 |
---|---|---|
committer | Cyril SIX <cyril.six@kalray.eu> | 2018-04-17 17:14:48 +0200 |
commit | 139595171a98e6722503202a2a8fb7c000f267c2 (patch) | |
tree | 0946906744fa10aca528251860338be388dff8fb /mppa_k1c/TargetPrinter.ml | |
parent | b63085295d8495ff640f5eaff8b8ad52fc5c43d1 (diff) | |
download | compcert-kvx-139595171a98e6722503202a2a8fb7c000f267c2.tar.gz compcert-kvx-139595171a98e6722503202a2a8fb7c000f267c2.zip |
MPPA - added Oaddrstack - problem in TargetPrinter.ml Pbuiltin EF_annot
Conflicts:
mppa_k1c/Asmgenproof1.v
Diffstat (limited to 'mppa_k1c/TargetPrinter.ml')
-rw-r--r-- | mppa_k1c/TargetPrinter.ml | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/mppa_k1c/TargetPrinter.ml b/mppa_k1c/TargetPrinter.ml index 977d3019..cb3b558c 100644 --- a/mppa_k1c/TargetPrinter.ml +++ b/mppa_k1c/TargetPrinter.ml @@ -340,16 +340,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) -> - begin match (P.to_int kind) with - | 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; - add_ais_annot lbl preg_annot "x2" (camlstring_of_coqstring txt) args - | _ -> assert false - end - *)| EF_debug(kind, txt, targs) -> + | EF_annot(kind,txt, targs) -> + begin match (P.to_int kind) with + | 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; + add_ais_annot lbl preg_annot "x2" (camlstring_of_coqstring txt) args + *)| _ -> assert false + 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) -> |