From 034eff1d4d4f168008cded71b73bd39066b97997 Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Mon, 24 Feb 2020 15:56:16 +0100 Subject: begin implementing thread_local storage --- cparser/Cleanup.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'cparser/Cleanup.ml') 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 -- cgit