From a29dfda37f01871db5b8e40d5312d08fc0ee53e3 Mon Sep 17 00:00:00 2001 From: xleroy Date: Thu, 8 Jun 2006 09:10:30 +0000 Subject: MAJ suite aux changements dans Cminorgen git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@36 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- backend/Main.v | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'backend/Main.v') diff --git a/backend/Main.v b/backend/Main.v index 6647e269..80a0577f 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 *) -- cgit