diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-04-22 11:25:08 +0200 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-04-22 11:25:08 +0200 |
commit | ac7b7bd5e911d21439615263e5fd9d132c0e7fba (patch) | |
tree | 8fb2c1fe7d43f980116e1eb3a4c4fe7de579cc68 /driver/Frontend.ml | |
parent | dff562c47c47fcac90c116782c92b692f2bb9bf9 (diff) | |
parent | a05f92785ffa93e4001d2a2e9a630351593fabc2 (diff) | |
download | compcert-kvx-ac7b7bd5e911d21439615263e5fd9d132c0e7fba.tar.gz compcert-kvx-ac7b7bd5e911d21439615263e5fd9d132c0e7fba.zip |
Merge branch 'kvx-work' of gricad-gitlab.univ-grenoble-alpes.fr:sixcy/CompCert into kvx-work
Diffstat (limited to 'driver/Frontend.ml')
-rw-r--r-- | driver/Frontend.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/driver/Frontend.ml b/driver/Frontend.ml index c99da945..c8890046 100644 --- a/driver/Frontend.ml +++ b/driver/Frontend.ml @@ -117,7 +117,10 @@ let init () = | "riscV" -> if Configuration.model = "64" then Machine.rv64 else Machine.rv32 - | "kvx" -> Machine.kvx + | "kvx" -> if Configuration.os = "cos" then Machine.kvxcos + else if Configuration.os = "mbr" then Machine.kvxmbr + else (Printf.eprintf "Configuration OS = %s\n" Configuration.os; + failwith "Wrong OS configuration for KVX") | "aarch64" -> Machine.aarch64 | _ -> assert false end; |