diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-09 16:27:57 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-09 16:27:57 +0200 |
| commit | f2e6e7ff8aedb94b42da53ddc6bcd1c9ada38b80 (patch) | |
| tree | d7a43f7d0d1f1a8eaf984817d17eaed8510ddd31 /x86 | |
| parent | df5dbeebdaed3fd7df3ea9a6bdb9f36e07c288e9 (diff) | |
| parent | f38ba5c864ca09b2be8906ae2b0a81e8a57b734b (diff) | |
| download | compcert-kvx-f2e6e7ff8aedb94b42da53ddc6bcd1c9ada38b80.tar.gz compcert-kvx-f2e6e7ff8aedb94b42da53ddc6bcd1c9ada38b80.zip | |
Merge remote-tracking branch 'origin/mppa-thread' into mppa-work
Diffstat (limited to 'x86')
| -rw-r--r-- | x86/TargetPrinter.ml | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/x86/TargetPrinter.ml b/x86/TargetPrinter.ml index 6159437e..e371380c 100644 --- a/x86/TargetPrinter.ml +++ b/x86/TargetPrinter.ml @@ -133,7 +133,9 @@ module ELF_System : SYSTEM = let name_of_section = function | Section_text -> ".text" - | Section_data i | Section_small_data i -> + | Section_data(i, true) -> + failwith "_Thread_local unsupported on this platform" + | Section_data(i, false) | Section_small_data i -> if i then ".data" else common_section () | Section_const i | Section_small_const i -> if i || (not !Clflags.option_fcommon) then ".section .rodata" else "COMM" @@ -191,7 +193,9 @@ module MacOS_System : SYSTEM = let name_of_section = function | Section_text -> ".text" - | Section_data i | Section_small_data i -> + | Section_data(i, true) -> + failwith "_Thread_local unsupported on this platform" + | Section_data(i, false) | Section_small_data i -> if i || (not !Clflags.option_fcommon) then ".data" else "COMM" | Section_const i | Section_small_const i -> if i || (not !Clflags.option_fcommon) then ".const" else "COMM" @@ -268,7 +272,9 @@ module Cygwin_System : SYSTEM = let name_of_section = function | Section_text -> ".text" - | Section_data i | Section_small_data i -> + | Section_data(i, true) -> + failwith "_Thread_local unsupported on this platform" + | Section_data(i, false) | Section_small_data i -> if i then ".data" else common_section () | Section_const i | Section_small_const i -> if i || (not !Clflags.option_fcommon) then ".section .rdata,\"dr\"" else "COMM" |