Skip to content
Snippets Groups Projects
Commit 48f79944 authored by Julien Signoles's avatar Julien Signoles
Browse files

[Keep_status] revert to previous state (changes commited by mistake)

parent 3e1613da
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/plugins/e-acsl/keep_status.ml
+ 3
− 3
View file @ 48f79944
...@@ -133,9 +133,9 @@ let must_translate kf kind = ...@@ -133,9 +133,9 @@ let must_translate kf kind =
let name = Functions.RTL.get_original_name kf in let name = Functions.RTL.get_original_name kf in
try try
let info = let info =
(* try*) Datatype.String.Hashtbl.find keep_status name try Datatype.String.Hashtbl.find keep_status name
(* with Not_found -> with Not_found ->
Options.fatal "[keep_status] unbound function" Datatype.String.pretty kf*) Options.fatal "[keep_status] unbound function" Datatype.String.pretty kf
in in
info.cpt <- info.cpt + 1; info.cpt <- info.cpt + 1;
let kind', keep = let kind', keep =
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment