Fix privatization unsoundness without threadflag

Happened in sv-benchmarks/c/systemc/pipeline.cil-1.

Author: sim642

src/analyses/apron/apronAnalysis.apron.ml

@@ -684,7 +684,8 @@ let get_spec (): (module MCPSpec) =
 
 let after_config () =
   let module Spec = (val get_spec ()) in
-  MCP.register_analysis (module Spec : MCPSpec);
+  (* Need threadflag to emit EnterMultithreaded to have sound MUTEX_INITS. *)
+  MCP.register_analysis ~dep:["threadflag"] (module Spec : MCPSpec);
   GobConfig.set_string "ana.path_sens[+]"  (Spec.name ())
 
 let _ =

src/analyses/base.ml

@@ -2844,7 +2844,8 @@ let get_main (): (module MainSpec) =
 let after_config () =
   let module Main = (val get_main ()) in
   (* add ~dep:["expRelation"] after modifying test cases accordingly *)
-  MCP.register_analysis ~dep:["mallocWrapper"] (module Main : MCPSpec)
+  (* Need threadflag to emit EnterMultithreaded to have sound MUTEX_INITS. *)
+  MCP.register_analysis ~dep:["mallocWrapper"; "threadflag"] (module Main : MCPSpec)
 
 let _ =
   AfterConfig.register after_config

src/autoTune.ml

@@ -135,7 +135,7 @@ let disableIntervalContextsInRecursiveFunctions () =
 (*escape is also still enabled, because otherwise we get a warning*)
 (*does not consider dynamic calls!*)
 
-let notNeccessaryThreadAnalyses = ["race"; "deadlock"; "maylocks"; "symb_locks"; "thread"; "threadflag"; "threadid"; "threadJoins"; "threadreturn"]
+let notNeccessaryThreadAnalyses = ["race"; "deadlock"; "maylocks"; "symb_locks"; "thread"; "threadid"; "threadJoins"; "threadreturn"]
 let reduceThreadAnalyses () =
   let hasThreadCreate () =
     ResettableLazy.force functionCallMaps