From a6038ae9bae41526224c2416332c719f26261812 Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Thu, 11 Jan 2018 15:15:43 +0100 Subject: Move machine initialization to Frontend.init function. (#49) The initialization of Machine.config, as well as the calls to various initialization functions for the C front-end, are now performed by the new `Frontend.init` function. This avoids code duplication in driver/Driver.ml and exportclight/Clightgen.ml. --- driver/Frontend.ml | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) (limited to 'driver/Frontend.ml') diff --git a/driver/Frontend.ml b/driver/Frontend.ml index 148d0f74..2b9d5860 100644 --- a/driver/Frontend.ml +++ b/driver/Frontend.ml @@ -70,6 +70,31 @@ let parse_c_file sourcename ifile = PrintCsyntax.print_if csyntax; csyntax +let init () = + Machine.config:= + begin match Configuration.arch with + | "powerpc" -> if Configuration.gnu_toolchain + then Machine.ppc_32_bigendian + else Machine.ppc_32_diab_bigendian + | "arm" -> if Configuration.is_big_endian + then Machine.arm_bigendian + else Machine.arm_littleendian + | "x86" -> if Configuration.model = "64" then + Machine.x86_64 + else + if Configuration.abi = "macosx" + then Machine.x86_32_macosx + else Machine.x86_32 + | "riscV" -> if Configuration.model = "64" + then Machine.rv64 + else Machine.rv32 + | _ -> assert false + end; + Builtins.set C2C.builtins; + Cutil.declare_attributes C2C.attributes; + CPragmas.initialize() + + (* Add gnu preprocessor list *) let gnu_prepro_opt_key key s = prepro_options := s::key::!prepro_options -- cgit