diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-06-08 09:10:30 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-06-08 09:10:30 +0000 |
| commit | a29dfda37f01871db5b8e40d5312d08fc0ee53e3 (patch) | |
| tree | cc419fa83c387e438427b14837eb1d9a4f32b0fc /backend | |
| parent | 37dc5ae288e8c2d857139751209575307f7913ad (diff) | |
MAJ suite aux changements dans Cminorgen
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@36 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/Main.v | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/backend/Main.v b/backend/Main.v index 6647e26..80a0577 100644 --- a/backend/Main.v +++ b/backend/Main.v @@ -91,9 +91,10 @@ Definition transf_cminor_function (f: Cminor.function) : option PPC.code := (** And here is the translation for Csharpminor functions. *) -Definition transf_csharpminor_function (f: Csharpminor.function) : option PPC.code := +Definition transf_csharpminor_function + (gce: Cminorgen.compilenv) (f: Csharpminor.function) : option PPC.code := Some f - @@@ Cminorgen.transl_function + @@@ Cminorgen.transl_function gce @@@ transf_cminor_function. (** The corresponding translations for whole program follow. *) @@ -102,7 +103,10 @@ Definition transf_cminor_program (p: Cminor.program) : option PPC.program := transform_partial_program transf_cminor_function p. Definition transf_csharpminor_program (p: Csharpminor.program) : option PPC.program := - transform_partial_program transf_csharpminor_function p. + let gce := Cminorgen.build_global_compilenv p in + transform_partial_program + (transf_csharpminor_function gce) + (Csharpminor.program_of_program p). (** * Equivalence with whole program transformations *) |