diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-11 08:22:38 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-11 08:22:38 +0000 |
commit | 99b02bd388f2b84acf9c2c226bf2ac7703c03ba8 (patch) | |
tree | 535f92607fe6e16d05750d07234efe1cd6297141 /powerpc/PrintAsm.ml | |
parent | 9e76f90bc5255d6ec933d705bf99baf3ca80d5d5 (diff) |
Strip quotes from section names during #pragma parsing.
Reinstall the quotes when printing asm.
The idea is that .sdump files now contain unquoted section names,
which is easier on cchecklink.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1967 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 0b94aaa..9d23ad9 100644 --- a/powerpc/PrintAsm.ml +++ b/powerpc/PrintAsm.ml @@ -197,7 +197,7 @@ let name_of_section_MacOS = function | Section_literal -> ".literal8" | Section_jumptable -> ".const" | Section_user(s, wr, ex) -> - sprintf ".section %s, %s, %s" + sprintf ".section \"%s\", %s, %s" (if wr then "__DATA" else "__TEXT") s (if ex then "regular, pure_instructions" else "regular") @@ -211,7 +211,7 @@ let name_of_section_Linux = function | Section_literal -> ".section .rodata.cst8,\"aM\",@progbits,8" | Section_jumptable -> ".text" | Section_user(s, wr, ex) -> - sprintf ".section %s,\"a%s%s\",@progbits" + sprintf ".section \"%s\",\"a%s%s\",@progbits" s (if wr then "w" else "") (if ex then "x" else "") let name_of_section_Diab = function @@ -224,7 +224,7 @@ let name_of_section_Diab = function | Section_literal -> ".text" | Section_jumptable -> ".text" | Section_user(s, wr, ex) -> - sprintf ".section %s,,%c" + sprintf ".section \"%s\",,%c" s (match wr, ex with | true, true -> 'm' (* text+data *) |