diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-03-03 10:22:27 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-03-03 10:22:27 +0000 |
commit | 891377ce1962cdb31357d6580d6546ec22df2b4f (patch) | |
tree | 4ff7c38749cc7a4c1af411c5aa3eb7225c4ae6a1 /powerpc/PrintAsm.ml | |
parent | 018edf2d81bf94197892cf1df221f7eeac1f96f6 (diff) | |
download | compcert-891377ce1962cdb31357d6580d6546ec22df2b4f.tar.gz compcert-891377ce1962cdb31357d6580d6546ec22df2b4f.zip |
Switching to the new C parser/elaborator/simplifier
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1269 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'powerpc/PrintAsm.ml')
-rw-r--r-- | powerpc/PrintAsm.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/powerpc/PrintAsm.ml b/powerpc/PrintAsm.ml index 50a84744..8bf40a97 100644 --- a/powerpc/PrintAsm.ml +++ b/powerpc/PrintAsm.ml @@ -496,7 +496,7 @@ let print_function oc name code = | Some s -> s | None -> text); fprintf oc " .align 2\n"; - if not (Cil2Csyntax.atom_is_static name) then + if not (C2Clight.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 @@ -712,13 +712,13 @@ let print_var oc (Coq_pair(Coq_pair(name, init_data), _)) = match CPragmas.section_for_atom name init with | Some s -> s | None -> - if Cil2Csyntax.atom_is_readonly name + if C2Clight.atom_is_readonly name then const_data else data in section oc sec; fprintf oc " .align 3\n"; - if not (Cil2Csyntax.atom_is_static name) then + if not (C2Clight.atom_is_static name) then fprintf oc " .globl %a\n" symbol name; fprintf oc "%a:\n" symbol name; print_init_data oc init_data |