diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-02-24 15:56:16 +0100 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-02-24 15:56:16 +0100 |
commit | 034eff1d4d4f168008cded71b73bd39066b97997 (patch) | |
tree | d718cf295f51a81a5d7bc2b182f8a9cbbfb77089 /cparser/Cleanup.ml | |
parent | ba21b0ae95189f2d40cca38c502c1ca583a0e1bb (diff) | |
download | compcert-kvx-034eff1d4d4f168008cded71b73bd39066b97997.tar.gz compcert-kvx-034eff1d4d4f168008cded71b73bd39066b97997.zip |
begin implementing thread_local storage
Diffstat (limited to 'cparser/Cleanup.ml')
-rw-r--r-- | cparser/Cleanup.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cparser/Cleanup.ml b/cparser/Cleanup.ml index 63ac8ac1..b15e150c 100644 --- a/cparser/Cleanup.ml +++ b/cparser/Cleanup.ml @@ -131,9 +131,9 @@ let visible_decl (sto, id, ty, init) = let visible_fundef f = match f.fd_storage with - | Storage_default -> not f.fd_inline - | Storage_extern -> true - | Storage_static -> false + | Storage_default | Storage_thread_local -> not f.fd_inline + | Storage_extern | Storage_thread_local_extern -> true + | Storage_static | Storage_thread_local_static -> false | Storage_auto | Storage_register -> assert false let rec add_init_globdecls accu = function |