diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-12 19:31:42 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-12 19:31:42 +0100 |
| commit | 7ead22b0a04fbea3fb0ef99ba3528460f0d6bd67 (patch) | |
| tree | 6700f03c7ff29d2ff7afedb7f42828b07ac98ba2 /backend/CSE3.v | |
| parent | 560c9837eee2145e3a9763aa2e37a6eb34c7e9ac (diff) | |
| download | compcert-kvx-7ead22b0a04fbea3fb0ef99ba3528460f0d6bd67.tar.gz compcert-kvx-7ead22b0a04fbea3fb0ef99ba3528460f0d6bd67.zip | |
CSE3 analysis
Diffstat (limited to 'backend/CSE3.v')
| -rw-r--r-- | backend/CSE3.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/CSE3.v b/backend/CSE3.v index d54b9ffa..f8a25515 100644 --- a/backend/CSE3.v +++ b/backend/CSE3.v @@ -69,7 +69,7 @@ Definition transf_function (f: function) : res function := do tenv <- type_function f; let (invariants, hints) := preanalysis tenv f in let ctx := context_from_hints hints in - if check_inductiveness (ctx:=ctx) tenv invariants f + if check_inductiveness (ctx:=ctx) f tenv invariants then OK {| fn_sig := f.(fn_sig); fn_params := f.(fn_params); |