diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-11-06 13:26:11 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-11-06 13:27:40 +0100 |
commit | 76cb39f790fc3bf4d1e2fae99cda7eeae8bbbbf2 (patch) | |
tree | a623d9b17903dc9071cc80dce22495b44d9123ac | |
parent | fa8cd845f95041ab3f25c208b8521d3c89e3e8b1 (diff) | |
download | compcert-76cb39f790fc3bf4d1e2fae99cda7eeae8bbbbf2.tar.gz compcert-76cb39f790fc3bf4d1e2fae99cda7eeae8bbbbf2.zip |
Added printing functions for debug annotations.
Instead of printing <unknown builtin> we now print the debug
annotations.
Fix 17581.
-rw-r--r-- | cfrontend/PrintCsyntax.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/cfrontend/PrintCsyntax.ml b/cfrontend/PrintCsyntax.ml index 4f2a8d0c..bb6576aa 100644 --- a/cfrontend/PrintCsyntax.ml +++ b/cfrontend/PrintCsyntax.ml @@ -266,6 +266,9 @@ let rec expr p (prec, e) = fprintf p "%s@[<hov 1>(%a)@]" (camlstring_of_coqstring id) exprlist (true, args) | Ebuiltin(EF_inline_asm(txt, sg, clob), _, args, _) -> extended_asm p txt None args clob + | Ebuiltin(EF_debug(kind,txt,_),_,args,_) -> + fprintf p "__builtin_debug@[<hov 1>(%d,%S%a)@]" + (P.to_int kind) (extern_atom txt) exprlist (false,args) | Ebuiltin(_, _, args, _) -> fprintf p "<unknown builtin>@[<hov 1>(%a)@]" exprlist (true, args) | Eparen(a1, tycast, ty) -> |