diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2015-08-22 09:46:37 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2015-08-22 09:46:37 +0200 |
| commit | 33dfbe7601ad16fcea5377563fa7ceb4053cb85a (patch) | |
| tree | 962468d4f01ae9620441a97082c826bc6fdf8c5a /common/PrintAST.ml | |
| parent | 4f187fdafdac0cf4a8b83964c89d79741dbd813e (diff) | |
| download | compcert-33dfbe7601ad16fcea5377563fa7ceb4053cb85a.tar.gz compcert-33dfbe7601ad16fcea5377563fa7ceb4053cb85a.zip | |
Renaming {BA,BR}_longofwords -> {BA,BR}_splitlong.
Use EF_debug instead of EF_annot for line number annotations.
Introduce PrintAsmaux.print_debug_info (very incomplete).
powerpc/Asmexpand: revise expand_memcpy_small.
Diffstat (limited to 'common/PrintAST.ml')
| -rw-r--r-- | common/PrintAST.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/common/PrintAST.ml b/common/PrintAST.ml index 5f1db76b..aea8ff0f 100644 --- a/common/PrintAST.ml +++ b/common/PrintAST.ml @@ -66,8 +66,8 @@ let rec print_builtin_arg px oc = function (name_of_chunk chunk) (extern_atom id) (camlint_of_coqint ofs) | BA_addrglobal(id, ofs) -> fprintf oc "&%s + %ld" (extern_atom id) (camlint_of_coqint ofs) - | BA_longofwords(hi, lo) -> - fprintf oc "long(%a, %a)" + | BA_splitlong(hi, lo) -> + fprintf oc "splitlong(%a, %a)" (print_builtin_arg px) hi (print_builtin_arg px) lo let rec print_builtin_args px oc = function @@ -79,7 +79,7 @@ let rec print_builtin_args px oc = function let rec print_builtin_res px oc = function | BR x -> px oc x | BR_none -> fprintf oc "_" - | BR_longofwords(hi, lo) -> - fprintf oc "long(%a, %a)" + | BR_splitlong(hi, lo) -> + fprintf oc "splitlong(%a, %a)" (print_builtin_res px) hi (print_builtin_res px) lo |