diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-01-25 20:11:09 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-01-25 20:11:09 +0100 |
commit | 35c7398e985c51a765c6bbf08719d9df7c285f9c (patch) | |
tree | bf49c213bb115c9db418eabe66e11affa9f1db82 /driver/Clflagsprinter.ml | |
parent | 4467453e0edca993c175690b7141d4916af3dc19 (diff) | |
download | compcert-35c7398e985c51a765c6bbf08719d9df7c285f9c.tar.gz compcert-35c7398e985c51a765c6bbf08719d9df7c285f9c.zip |
Added printer for Configuration and finished Clflags.
Diffstat (limited to 'driver/Clflagsprinter.ml')
-rw-r--r-- | driver/Clflagsprinter.ml | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/driver/Clflagsprinter.ml b/driver/Clflagsprinter.ml deleted file mode 100644 index 11dcc818..00000000 --- a/driver/Clflagsprinter.ml +++ /dev/null @@ -1,41 +0,0 @@ -(* *********************************************************************) -(* *) -(* The Compcert verified compiler *) -(* *) -(* Bernhard Schommer, AbsInt Angewandte Informatik GmbH *) -(* *) -(* AbsInt Angewandte Informatik GmbH. All rights reserved. This file *) -(* is distributed under the terms of the INRIA Non-Commercial *) -(* License Agreement. *) -(* *) -(* *********************************************************************) - -open Clflags -open Json -open Printf - -let print_member oc name p_mem mem = - fprintf oc "\n%a:%a" p_jstring name p_mem mem - -let print_list oc name l = - print_member oc name (p_jarray p_jstring) l - -let print oc ((): unit) = - fprintf oc "{"; - print_list oc "Preprocessor Options" !prepro_options; - print_list oc "Linker Options" !linker_options; - print_list oc "Assembler Options" !assembler_options; - print_member oc "Flongdouble" p_jbool !option_flongdouble; - print_member oc "Fstruct_passing" p_jbool !option_fstruct_passing; - print_member oc "Fbitfields" p_jbool !option_fbitfields; - print_member oc "Fvarag_calls" p_jbool !option_fvararg_calls; - print_member oc "Funprototyped" p_jbool !option_funprototyped; - print_member oc "Fpacked_structs" p_jbool !option_fpacked_structs; - print_member oc "Ffpu" p_jbool !option_ffpu; - print_member oc "Ffloatconstprop" p_jint !option_ffloatconstprop; - print_member oc "Ftailcalls" p_jbool !option_ftailcalls; - print_member oc "Fconstprop" p_jbool !option_fconstprop; - print_member oc "Fcse" p_jbool !option_fcse; - print_member oc "Fredundance" p_jbool !option_fredundancy; - - fprintf oc "\n}" |