diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-11-26 22:12:38 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-11-26 22:12:38 +0100 |
| commit | 3570ba2827908b280315c922ba7e43289f6d802a (patch) | |
| tree | 7647074921b49ae86df48eba402be2021601ebad /backend/CSE3analysisaux.ml | |
| parent | 61b433cd903fa4182ae255f0f61f692eb163d677 (diff) | |
| download | compcert-kvx-3570ba2827908b280315c922ba7e43289f6d802a.tar.gz compcert-kvx-3570ba2827908b280315c922ba7e43289f6d802a.zip | |
not yet the transfer functions that record predicates
Diffstat (limited to 'backend/CSE3analysisaux.ml')
| -rw-r--r-- | backend/CSE3analysisaux.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/CSE3analysisaux.ml b/backend/CSE3analysisaux.ml index 1642a269..ab8cbeed 100644 --- a/backend/CSE3analysisaux.ml +++ b/backend/CSE3analysisaux.ml @@ -206,7 +206,7 @@ let preanalysis (tenv : typing_env) (f : RTL.coq_function) = let eq_find_oracle node eq = assert (not (is_trivial eq)); let o = Hashtbl.find_opt eq_table (flatten_eq eq) in - (if o = None then failwith "eq_find_oracle"); + (* FIXME (if o = None then failwith "eq_find_oracle"); *) (if !Clflags.option_debug_compcert > 5 then Printf.printf "@%d: eq_find %a -> %a\n" (P.to_int node) pp_eq eq (pp_option pp_P) o); |