From 6a3f3a62452670380827f9e39dd28c5092741099 Mon Sep 17 00:00:00 2001
From: Cyril SIX <cyril.six@kalray.eu>
Date: Wed, 21 Feb 2018 17:45:44 +0100
Subject: Hook for MPPA_K1c (generates Risc-V code for now)

---
 driver/Configuration.ml | 2 +-
 driver/Frontend.ml      | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'driver')

diff --git a/driver/Configuration.ml b/driver/Configuration.ml
index 972fd295..eae3aaab 100644
--- a/driver/Configuration.ml
+++ b/driver/Configuration.ml
@@ -123,7 +123,7 @@ let get_bool_config key =
 
 let arch =
   match get_config_string "arch" with
-  | "powerpc"|"arm"|"x86"|"riscV" as a -> a
+  | "powerpc"|"arm"|"x86"|"riscV"|"mppa_k1c" as a -> a
   | v -> bad_config "arch" [v]
 let model = get_config_string "model"
 let abi = get_config_string "abi"
diff --git a/driver/Frontend.ml b/driver/Frontend.ml
index 209e72e9..db84a9f9 100644
--- a/driver/Frontend.ml
+++ b/driver/Frontend.ml
@@ -83,6 +83,7 @@ let init () =
     | "riscV"   -> if Configuration.model = "64"
                    then Machine.rv64
                    else Machine.rv32
+    | "mppa_k1c" -> Machine.mppa_k1c
     | _         -> assert false
   end;
   Builtins.set C2C.builtins;
-- 
cgit