diff options
author | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2020-06-25 11:21:00 +0200 |
---|---|---|
committer | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2020-06-25 16:58:46 +0200 |
commit | c6b86fd5719388301295f9ab4b07b57653e0d8c6 (patch) | |
tree | b07b1d440fe87025d3493e37f2e4ef6ae008c62d /cfrontend | |
parent | 5b8578daeed73483b130618c954abb24afa8ddb9 (diff) | |
download | compcert-kvx-c6b86fd5719388301295f9ab4b07b57653e0d8c6.tar.gz compcert-kvx-c6b86fd5719388301295f9ab4b07b57653e0d8c6.zip |
Improve printing of builtin function invocations
In particular __builtin_sel.
Diffstat (limited to 'cfrontend')
-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 03dc5837..97a00b09 100644 --- a/cfrontend/PrintCsyntax.ml +++ b/cfrontend/PrintCsyntax.ml @@ -268,6 +268,9 @@ let rec expr p (prec, e) = | 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(EF_builtin(name, _), _, args, _) -> + fprintf p "%s@[<hov 1>(%a)@]" + (camlstring_of_coqstring name) exprlist (true, args) | Ebuiltin(_, _, args, _) -> fprintf p "<unknown builtin>@[<hov 1>(%a)@]" exprlist (true, args) | Eparen(a1, tycast, ty) -> |