diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2014-12-17 11:33:23 +0100 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2014-12-17 11:33:23 +0100 |
commit | c1daedb244d1f7586c12749642b0d78ae910e60a (patch) | |
tree | c2fbe8c758f15d01cdcf3fa8bf642ab8a47dc5c3 /arm/PrintAsm.ml | |
parent | 97257c59566d9506a2ff397ec35fff7b59506a8f (diff) | |
download | compcert-c1daedb244d1f7586c12749642b0d78ae910e60a.tar.gz compcert-c1daedb244d1f7586c12749642b0d78ae910e60a.zip |
Clean up support for common symbols. Uninitialized "const" symbols can be common.
Diffstat (limited to 'arm/PrintAsm.ml')
-rw-r--r-- | arm/PrintAsm.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/arm/PrintAsm.ml b/arm/PrintAsm.ml index 7b9e2cc8..c7157aac 100644 --- a/arm/PrintAsm.ml +++ b/arm/PrintAsm.ml @@ -168,8 +168,10 @@ let thumbS oc = let name_of_section = function | Section_text -> ".text" - | Section_data i | Section_small_data i -> if i then ".data" else "COMM" - | Section_const | Section_small_const -> ".section .rodata" + | Section_data i | Section_small_data i -> + if i then ".data" else "COMM" + | Section_const i | Section_small_const i -> + if i then ".section .rodata" else "COMM" | Section_string -> ".section .rodata" | Section_literal -> ".text" | Section_jumptable -> ".text" |