diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-05 17:14:14 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-05 17:14:14 +0100 |
| commit | 028fffbb055b2966b6205c5eaa432d6c4e22f677 (patch) | |
| tree | c97e7f3252518d9a36032f2c38d0fad2ad8993cd /extraction | |
| parent | 78c4974c0a362cd0ab3bbd80203c0277d267afbb (diff) | |
| download | compcert-kvx-028fffbb055b2966b6205c5eaa432d6c4e22f677.tar.gz compcert-kvx-028fffbb055b2966b6205c5eaa432d6c4e22f677.zip | |
more about extraction and linking
Diffstat (limited to 'extraction')
| -rw-r--r-- | extraction/extraction.v | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/extraction/extraction.v b/extraction/extraction.v index 929c21e0..a258d4d8 100644 --- a/extraction/extraction.v +++ b/extraction/extraction.v @@ -36,6 +36,8 @@ Require Parser. Require Initializers. Require Asmaux. +Require CSE3. (* FIXME *) + (* Standard lib *) Require Import ExtrOcamlBasic. Require Import ExtrOcamlString. @@ -160,6 +162,10 @@ Extract Constant Cabs.loc => Extract Inlined Constant Cabs.string => "String.t". Extract Constant Cabs.char_code => "int64". +Extract Inductive HashedSet.PSet_internals.pset => "HashedSetaux.pset" [ "HashedSetaux.empty" "HashedSetaux.node" ] "HashedSetaux.pset_match". + +Extract Inlined Constant HashedSet.PSet_internals.pset_eq => "(==)" (* "HashedSetaux.eq" *). + (* Processor-specific extraction directives *) Load extractionMachdep. @@ -182,6 +188,7 @@ Set Extraction AccessOpaque. Cd "extraction". Separate Extraction + CSE3.totoro (* FIXME *) Compiler.transf_c_program Compiler.transf_cminor_program Cexec.do_initial_state Cexec.do_step Cexec.at_final_state Ctypes.merge_attributes Ctypes.remove_attributes Ctypes.build_composite_env |