From 1099583341e3a218accf80391202a7e5390f54cc Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Fri, 16 Feb 2018 13:12:20 +0100 Subject: Move struct passing/return style to Machine. Since the used configuration for passing and returning values struct values is pretty much static it can be hardwired into the machine settings. --- driver/Frontend.ml | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'driver/Frontend.ml') diff --git a/driver/Frontend.ml b/driver/Frontend.ml index 2bc4f844..209e72e9 100644 --- a/driver/Frontend.ml +++ b/driver/Frontend.ml @@ -65,7 +65,9 @@ let init () = Machine.config:= begin match Configuration.arch with | "powerpc" -> if Configuration.gnu_toolchain - then Machine.ppc_32_bigendian + then if Configuration.abi = "linux" + then Machine.ppc_32_linux_bigendian + else Machine.ppc_32_bigendian else Machine.ppc_32_diab_bigendian | "arm" -> if Configuration.is_big_endian then Machine.arm_bigendian @@ -75,6 +77,8 @@ let init () = else if Configuration.abi = "macosx" then Machine.x86_32_macosx + else if Configuration.system = "bsd" + then Machine.x86_32_bsd else Machine.x86_32 | "riscV" -> if Configuration.model = "64" then Machine.rv64 -- cgit