diff options
Diffstat (limited to 'common/PrintAST.ml')
| -rw-r--r-- | common/PrintAST.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/common/PrintAST.ml b/common/PrintAST.ml index e477957a..ef8b98a5 100644 --- a/common/PrintAST.ml +++ b/common/PrintAST.ml @@ -54,6 +54,7 @@ let name_of_external = function | EF_inline_asm(text, sg, clob) -> sprintf "inline_asm %S" (camlstring_of_coqstring text) | EF_debug(kind, text, targs) -> sprintf "debug%d %S" (P.to_int kind) (extern_atom text) + | EF_select ty -> sprintf "select %s" (name_of_type ty) let rec print_builtin_arg px oc = function | BA x -> px oc x |