diff options
| author | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2020-12-30 11:41:10 +0100 |
|---|---|---|
| committer | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2021-02-23 11:33:14 +0100 |
| commit | 30feb31c6d6e9235acad42ec5d09d14f3919cc36 (patch) | |
| tree | 8bcf3c6c4a0bd2875d36858979de1a5cd219d677 /powerpc | |
| parent | 25483cf1acce8695a438f4f2164b09fb1ecd9d2e (diff) | |
| download | compcert-kvx-30feb31c6d6e9235acad42ec5d09d14f3919cc36.tar.gz compcert-kvx-30feb31c6d6e9235acad42ec5d09d14f3919cc36.zip | |
Introduce and use PrintAsmaux.variable_section
This is a generalization of the previous PrintAsmaux.common_section
function that
- handles initialized variables in addition to uninitialized variables;
- can be used for Section_const, not just for Section_data.
Diffstat (limited to 'powerpc')
| -rw-r--r-- | powerpc/TargetPrinter.ml | 22 |
1 files changed, 8 insertions, 14 deletions
diff --git a/powerpc/TargetPrinter.ml b/powerpc/TargetPrinter.ml index 43d2447d..cf00e659 100644 --- a/powerpc/TargetPrinter.ml +++ b/powerpc/TargetPrinter.ml @@ -118,22 +118,16 @@ module Linux_System : SYSTEM = let name_of_section = function | Section_text -> ".text" | Section_data i -> - if i then - ".data" - else - common_section ~sec:".section .bss" () + variable_section ~sec:".data" ~bss:".section .bss" i | Section_small_data i -> - if i then - ".section .sdata,\"aw\",@progbits" - else - common_section ~sec:".section .sbss,\"aw\",@nobits" () + variable_section + ~sec:".section .sdata,\"aw\",@progbits" + ~bss:".section .sbss,\"aw\",@nobits" + i | Section_const i -> - if i || (not !Clflags.option_fcommon) then ".rodata" else "COMM" + variable_section ~sec:".rodata" i | Section_small_const i -> - if i || (not !Clflags.option_fcommon) then - ".section .sdata2,\"a\",@progbits" - else - "COMM" + variable_section ~sec:".section .sdata2,\"a\",@progbits" i | Section_string -> ".rodata" | Section_literal -> ".section .rodata.cst8,\"aM\",@progbits,8" | Section_jumptable -> ".text" @@ -218,7 +212,7 @@ module Diab_System : SYSTEM = let name_of_section = function | Section_text -> ".text" - | Section_data i -> if i then ".data" else common_section () + | Section_data i -> variable_section ~sec:".data" ~bss:".bss" i | Section_small_data i -> if i then ".sdata" else ".sbss" | Section_const _ -> ".text" | Section_small_const _ -> ".sdata2" |