diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-04 15:08:29 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-04 15:08:29 +0000 |
commit | 73729d23ac13275c0d28d23bc1b1f6056104e5d9 (patch) | |
tree | e3044ce75edb30377bd8c87356b7617eba5ed223 /extraction/extraction.v | |
parent | c79434827bf2bd71f857f4471f7bbf381fddd189 (diff) | |
download | compcert-73729d23ac13275c0d28d23bc1b1f6056104e5d9.tar.gz compcert-73729d23ac13275c0d28d23bc1b1f6056104e5d9.zip |
Fusion de la branche "traces":
- Ajout de traces d'evenements d'E/S dans les semantiques
- Ajout constructions switch et allocation dynamique
- Initialisation des variables globales
- Portage Coq 8.1 beta
Debut d'integration du front-end C:
- Traduction Clight -> Csharpminor dans cfrontend/
- Modifications de Csharpminor et Globalenvs en consequence.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@72 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'extraction/extraction.v')
-rw-r--r-- | extraction/extraction.v | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/extraction/extraction.v b/extraction/extraction.v index 17178822..47c6f36c 100644 --- a/extraction/extraction.v +++ b/extraction/extraction.v @@ -1,9 +1,8 @@ +Require Iteration. Require Floats. -Require Kildall. Require RTLgen. Require Coloring. Require Allocation. -Require Cmconstr. Require Main. (* Standard lib *) @@ -28,9 +27,22 @@ Extract Constant Floats.Float.div => "( /. )". Extract Constant Floats.Float.cmp => "Floataux.cmp". Extract Constant Floats.Float.eq_dec => "fun (x: float) (y: float) -> x = y". +(* Iteration *) +Extract Constant Iteration.dependent_description' => + "fun x -> assert false". + +Extract Constant Iteration.GenIter.iterate => + "let rec iter f a = + match f a with Coq_inl b -> Some b | Coq_inr a' -> iter f a' + in iter". + + (* RTLgen *) Extract Constant RTLgen.more_likely => "RTLgenaux.more_likely". +(* RTLtyping *) +Extract Constant RTLtyping.infer_type_environment => "RTLtypingaux.infer_type_environment". + (* Coloring *) Extract Constant Coloring.graph_coloring => "Coloringaux.graph_coloring". @@ -49,5 +61,3 @@ Extract Constant PPC.preg_eq => "fun (x: preg) (y: preg) -> x = y". (* Go! *) Recursive Extraction Library Main. -(*Extraction Library Compare_dec. - Extraction Library Cmconstr.*) |