Skip to content
Snippets Groups Projects
Commit 1b6e71a5 authored by David Bühler's avatar David Bühler
Browse files

[inout] Removes warnings on ignored recursive calls.

Eva does not ignore recursive calls anymore, and Db.Value.ignored_recursive_call
always returns false.
parent e8a4fa9b
No related branches found
No related tags found
No related merge requests found
...@@ -118,10 +118,6 @@ struct ...@@ -118,10 +118,6 @@ struct
method private compute_kf_with_def kf = method private compute_kf_with_def kf =
let f = Kernel_function.get_definition kf in let f = Kernel_function.get_definition kf in
if List.exists (Kernel_function.equal kf) call_stack then ( if List.exists (Kernel_function.equal kf) call_stack then (
if Db.Value.ignored_recursive_call kf then
Inout_parameters.warning ~current:true ~once:true
"During %s analysis of %a: ignoring probable recursive call."
X.analysis_name Kernel_function.pretty kf;
self#add_cycle (Kernel_function.Hptset.singleton kf); self#add_cycle (Kernel_function.Hptset.singleton kf);
self#bottom self#bottom
) )
......
...@@ -743,16 +743,7 @@ module FunctionWise = struct ...@@ -743,16 +743,7 @@ module FunctionWise = struct
let stmt_state s = Db.Value.get_stmt_state s let stmt_state s = Db.Value.get_stmt_state s
let at_call stmt kf = get_external_aux ~stmt kf let at_call stmt kf = get_external_aux ~stmt kf
end) in end) in
Stack.iter Stack.iter (fun g -> if kf == g then raise Exit) call_stack;
(fun g -> if kf == g then begin
if Db.Value.ignored_recursive_call kf then
Inout_parameters.warning ~current:true
"During inout context analysis of %a:@ \
ignoring probable recursive call."
Kernel_function.pretty kf;
raise Exit
end)
call_stack;
Stack.push kf call_stack; Stack.push kf call_stack;
let module [@warning "-60"] Compute = let module [@warning "-60"] Compute =
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment