summaryrefslogtreecommitdiff
path: root/extraction/extraction.v
diff options
context:
space:
mode:
Diffstat (limited to 'extraction/extraction.v')
-rw-r--r--extraction/extraction.v5
1 files changed, 3 insertions, 2 deletions
diff --git a/extraction/extraction.v b/extraction/extraction.v
index d987629..a097bdb 100644
--- a/extraction/extraction.v
+++ b/extraction/extraction.v
@@ -16,6 +16,7 @@ Require AST.
Require Iteration.
Require Floats.
Require SelectLong.
+Require Selection.
Require RTLgen.
Require Inlining.
Require ValueDomain.
@@ -62,9 +63,9 @@ Extract Constant SelectLong.get_helper =>
Extract Constant SelectLong.get_builtin =>
"fun s sg ->
Errors.OK (Camlcoq.intern_string (Camlcoq.camlstring_of_coqstring s))".
+Extract Constant Selection.compile_switch => "Switchaux.compile_switch".
(* RTLgen *)
-Extract Constant RTLgen.compile_switch => "RTLgenaux.compile_switch".
Extract Constant RTLgen.more_likely => "RTLgenaux.more_likely".
Extraction Inline RTLgen.ret RTLgen.error RTLgen.bind RTLgen.bind2.
@@ -133,7 +134,7 @@ Load extractionMachdep.
(* Avoid name clashes *)
Extraction Blacklist List String Int.
-(* Cutting the dependancy to R. *)
+(* Cutting the dependency to R. *)
Extract Inlined Constant Fcore_defs.F2R => "fun _ -> assert false".
Extract Inlined Constant Fappli_IEEE.FF2R => "fun _ -> assert false".
Extract Inlined Constant Fappli_IEEE.B2R => "fun _ -> assert false".