diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-08-18 09:10:05 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-08-18 09:10:05 +0000 |
commit | 790c187f338303d3b9a47cd3e08ba34d8cc75191 (patch) | |
tree | b20182164c17198eecaf5b4a9be93ebb340a9553 | |
parent | a15858a0a8fcea82db02fe8c9bd2ed912210419f (diff) | |
download | compcert-790c187f338303d3b9a47cd3e08ba34d8cc75191.tar.gz compcert-790c187f338303d3b9a47cd3e08ba34d8cc75191.zip |
Renamed C2Clight into C2C
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1468 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
-rw-r--r-- | arm/PrintAsm.ml | 4 | ||||
-rw-r--r-- | cfrontend/C2C.ml (renamed from cfrontend/C2Clight.ml) | 0 | ||||
-rw-r--r-- | driver/Driver.ml | 4 | ||||
-rw-r--r-- | powerpc/PrintAsm.ml | 6 |
4 files changed, 7 insertions, 7 deletions
diff --git a/arm/PrintAsm.ml b/arm/PrintAsm.ml index b3f49cd6..c2fc8a9e 100644 --- a/arm/PrintAsm.ml +++ b/arm/PrintAsm.ml @@ -523,7 +523,7 @@ let print_function oc name code = currpos := 0; fprintf oc " .text\n"; fprintf oc " .align 2\n"; - if not (C2Clight.atom_is_static name) then + if not (C2C.atom_is_static name) then fprintf oc " .global %a\n" print_symb name; fprintf oc " .type %a, %%function\n" print_symb name; fprintf oc "%a:\n" print_symb name; @@ -616,7 +616,7 @@ let print_var oc (Coq_pair(name, v)) = then fprintf oc " .const\n" else fprintf oc " .data\n"; fprintf oc " .align 2\n"; - if not (C2Clight.atom_is_static name) then + if not (C2C.atom_is_static name) then fprintf oc " .global %a\n" print_symb name; fprintf oc " .type %a, %%object\n" print_symb name; fprintf oc "%a:\n" print_symb name; diff --git a/cfrontend/C2Clight.ml b/cfrontend/C2C.ml index f62099a4..f62099a4 100644 --- a/cfrontend/C2Clight.ml +++ b/cfrontend/C2C.ml diff --git a/driver/Driver.ml b/driver/Driver.ml index 8afe03c6..4f98be21 100644 --- a/driver/Driver.ml +++ b/driver/Driver.ml @@ -84,7 +84,7 @@ let compile_c_file sourcename ifile ofile = end; (* Conversion to Csyntax *) let csyntax = - match C2Clight.convertProgram ast with + match C2C.convertProgram ast with | None -> exit 2 | Some p -> p in flush stderr; @@ -346,7 +346,7 @@ let cmdline_actions = let _ = Cparser.Machine.config := Cparser.Machine.ilp32ll64; - Cparser.Builtins.set C2Clight.builtins; + Cparser.Builtins.set C2C.builtins; CPragmas.initialize(); parse_cmdline cmdline_actions usage_string; if !linker_options <> [] diff --git a/powerpc/PrintAsm.ml b/powerpc/PrintAsm.ml index b3ccb20b..f23515f5 100644 --- a/powerpc/PrintAsm.ml +++ b/powerpc/PrintAsm.ml @@ -697,7 +697,7 @@ let print_function oc name code = let (text, lit, jmptbl) = sections_for_function name in section oc text; fprintf oc " .align 2\n"; - if not (C2Clight.atom_is_static name) then + if not (C2C.atom_is_static name) then fprintf oc " .globl %a\n" symbol name; fprintf oc "%a:\n" symbol name; List.iter (print_instruction oc (labels_of_code Labelset.empty code)) code; @@ -917,13 +917,13 @@ let print_var oc (Coq_pair(name, v)) = let sec = Sections.section_for_variable name init and align = - match C2Clight.atom_alignof name with + match C2C.atom_alignof name with | Some a -> log2 a | None -> 3 (* 8-alignment is a safe default *) in section oc sec; fprintf oc " .align %d\n" align; - if not (C2Clight.atom_is_static name) then + if not (C2C.atom_is_static name) then fprintf oc " .globl %a\n" symbol name; fprintf oc "%a:\n" symbol name; print_init_data oc name v.gvar_init; |