diff options
| author | Cyril SIX <cyril.six@kalray.eu> | 2021-01-06 21:32:08 +0100 |
|---|---|---|
| committer | Cyril SIX <cyril.six@kalray.eu> | 2021-01-06 21:33:17 +0100 |
| commit | d82f294dcc879acad5fb7e2d2fd4a48070f3f04d (patch) | |
| tree | 36abee31da6f635ea21684a61b414f71616ec9a6 /backend/Duplicate.v | |
| parent | 6a77f39a8e8ea383ddfa76cbe444b93ef5501429 (diff) | |
| download | compcert-kvx-d82f294dcc879acad5fb7e2d2fd4a48070f3f04d.tar.gz compcert-kvx-d82f294dcc879acad5fb7e2d2fd4a48070f3f04d.zip | |
Making verify_mapping_mn_rec tail recursive (should fix arm CI) #231
Diffstat (limited to 'backend/Duplicate.v')
| -rw-r--r-- | backend/Duplicate.v | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/backend/Duplicate.v b/backend/Duplicate.v index 7dea752b..40db4e45 100644 --- a/backend/Duplicate.v +++ b/backend/Duplicate.v @@ -203,8 +203,7 @@ Fixpoint verify_mapping_mn_rec dupmap f f' lm := match lm with | nil => OK tt | m :: lm => do u <- verify_mapping_mn dupmap f f' m; - do u2 <- verify_mapping_mn_rec dupmap f f' lm; - OK tt + verify_mapping_mn_rec dupmap f f' lm end. Definition verify_mapping_match_nodes dupmap (f f': function): res unit := |