diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-06 22:33:46 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-06 22:33:46 +0200 |
| commit | e64b9464fb6662bf63ac255eca94d17d572c9d81 (patch) | |
| tree | 517819d4f4e29fbd3a68d6431dd471baf0d427b0 /common | |
| parent | 8e03466a1a2e7bbc9057ac76ee18deda990dc884 (diff) | |
| download | compcert-kvx-e64b9464fb6662bf63ac255eca94d17d572c9d81.tar.gz compcert-kvx-e64b9464fb6662bf63ac255eca94d17d572c9d81.zip | |
ONE "admitted" and things compile
Diffstat (limited to 'common')
| -rw-r--r-- | common/PrintAST.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/common/PrintAST.ml b/common/PrintAST.ml index e477957a..baddb722 100644 --- a/common/PrintAST.ml +++ b/common/PrintAST.ml @@ -90,3 +90,7 @@ let rec print_builtin_res px oc = function fprintf oc "splitlong(%a, %a)" (print_builtin_res px) hi (print_builtin_res px) lo +let print_trapping_mode oc = function + | TRAP -> () + | NOTRAP -> output_string oc " [notrap]" + |