aboutsummaryrefslogtreecommitdiffstats
path: root/riscV/extractionMachdep.v
diff options
context:
space:
mode:
Diffstat (limited to 'riscV/extractionMachdep.v')
-rw-r--r--riscV/extractionMachdep.v24
1 files changed, 24 insertions, 0 deletions
diff --git a/riscV/extractionMachdep.v b/riscV/extractionMachdep.v
new file mode 100644
index 00000000..81cfc88c
--- /dev/null
+++ b/riscV/extractionMachdep.v
@@ -0,0 +1,24 @@
+(* *********************************************************************)
+(* *)
+(* The Compcert verified compiler *)
+(* *)
+(* Xavier Leroy, INRIA Paris-Rocquencourt *)
+(* *)
+(* Copyright Institut National de Recherche en Informatique et en *)
+(* Automatique. All rights reserved. This file is distributed *)
+(* under the terms of the INRIA Non-Commercial License Agreement. *)
+(* *)
+(* *********************************************************************)
+
+(* Additional extraction directives specific to the RISC-V port *)
+
+Require Archi Asm.
+
+(* Archi *)
+
+Extract Constant Archi.ptr64 => " Configuration.model = ""64"" ".
+Extract Constant Archi.pic_code => "fun () -> false". (* for the time being *)
+
+(* Asm *)
+Extract Constant Asm.low_half => "fun _ _ _ -> assert false".
+Extract Constant Asm.high_half => "fun _ _ _ -> assert false".