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 /common/Sections.ml | |
| parent | 97257c59566d9506a2ff397ec35fff7b59506a8f (diff) | |
| download | compcert-kvx-c1daedb244d1f7586c12749642b0d78ae910e60a.tar.gz compcert-kvx-c1daedb244d1f7586c12749642b0d78ae910e60a.zip | |
Clean up support for common symbols. Uninitialized "const" symbols can be common.
Diffstat (limited to 'common/Sections.ml')
| -rw-r--r-- | common/Sections.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/common/Sections.ml b/common/Sections.ml index d7ae8195..c6d4c4c2 100644 --- a/common/Sections.ml +++ b/common/Sections.ml @@ -21,8 +21,8 @@ type section_name = | Section_text | Section_data of bool (* true = init data, false = uninit data *) | Section_small_data of bool - | Section_const - | Section_small_const + | Section_const of bool + | Section_small_const of bool | Section_string | Section_literal | Section_jumptable @@ -68,13 +68,13 @@ let builtin_sections = [ sec_writable = true; sec_executable = false; sec_access = Access_near}; "CONST", - {sec_name_init = Section_const; - sec_name_uninit = Section_const; + {sec_name_init = Section_const true; + sec_name_uninit = Section_const false; sec_writable = false; sec_executable = false; sec_access = Access_default}; "SCONST", - {sec_name_init = Section_small_const; - sec_name_uninit = Section_small_const; + {sec_name_init = Section_small_const true; + sec_name_uninit = Section_small_const false; sec_writable = false; sec_executable = false; sec_access = Access_near}; "STRING", |