summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>2011-04-16 15:20:02 +0000
committerGravatar xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>2011-04-16 15:20:02 +0000
commitd9860475ac209eed6065cbb7b413f88a1bbde767 (patch)
tree1522a7054c9ff5075ecabc1d2f095512f718edfa
parent507e6c242ced3c7f083edc1657092c9ff7a9c8f2 (diff)
Fixed some typos
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1637 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
-rw-r--r--powerpc/PrintAsm.ml8
1 files changed, 4 insertions, 4 deletions
diff --git a/powerpc/PrintAsm.ml b/powerpc/PrintAsm.ml
index 71d73c0..2264498 100644
--- a/powerpc/PrintAsm.ml
+++ b/powerpc/PrintAsm.ml
@@ -201,8 +201,8 @@ let name_of_section_MacOS = function
let name_of_section_Linux = function
| Section_text -> ".text"
- | Section_data i -> if i then ".data" else ".bss"
- | Section_small_data i -> if i then ".sdata" else ".sbss"
+ | Section_data i -> ".data" (*if i then ".data" else ".bss"*)
+ | Section_small_data i -> ".sdata" (*if i then ".sdata" else ".sbss"*)
| Section_const -> ".rodata"
| Section_small_const -> ".sdata2"
| Section_string -> ".rodata"
@@ -482,9 +482,9 @@ let print_instruction oc labels = function
fprintf oc " bt %a, %a\n" crbit bit label (transl_label lbl)
| Pbtbl(r, tbl) ->
let lbl = new_label() in
- fprintf oc "%s begin pseudoinstr btbl(%a)\n comment ireg r;
+ fprintf oc "%s begin pseudoinstr btbl(%a)\n" comment ireg r;
fprintf oc "%s jumptable [ " comment;
- List.iter (fun l -> fprintf oc "%a " (transl_label l)) tbl;
+ List.iter (fun l -> fprintf oc "%a " label (transl_label l)) tbl;
fprintf oc "]\n";
fprintf oc " addis %a, %a, %a\n" ireg GPR12 ireg r label_high lbl;
fprintf oc " lwz %a, %a(%a)\n" ireg GPR12 label_low lbl ireg GPR12;