From 99b02bd388f2b84acf9c2c226bf2ac7703c03ba8 Mon Sep 17 00:00:00 2001 From: xleroy Date: Wed, 11 Jul 2012 08:22:38 +0000 Subject: 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 --- ia32/PrintAsm.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'ia32/PrintAsm.ml') diff --git a/ia32/PrintAsm.ml b/ia32/PrintAsm.ml index 096e1e3..80b752d 100644 --- a/ia32/PrintAsm.ml +++ b/ia32/PrintAsm.ml @@ -149,7 +149,7 @@ let name_of_section_ELF = 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_MacOS = function @@ -160,7 +160,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") @@ -172,7 +172,7 @@ let name_of_section_Cygwin = function | Section_literal -> ".section .rdata,\"dr\"" | Section_jumptable -> ".text" | Section_user(s, wr, ex) -> - sprintf ".section %s, \"%s\"\n" + sprintf ".section \"%s\", \"%s\"\n" s (if ex then "xr" else if wr then "d" else "dr") let name_of_section = -- cgit v1.2.3