diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-08 22:36:10 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-08 22:36:10 +0200 |
| commit | 4b67ece83b9ed56bce68c76b7179ae34cbdf0416 (patch) | |
| tree | 1e6e146efa08fb5d562ec25aa541f1a01ee947ae | |
| parent | 5f73c0ee8081599280a9aac03d267e7a20fc066b (diff) | |
| download | compcert-kvx-4b67ece83b9ed56bce68c76b7179ae34cbdf0416.tar.gz compcert-kvx-4b67ece83b9ed56bce68c76b7179ae34cbdf0416.zip | |
fix Icond now has a extra argument
| -rw-r--r-- | backend/CSE3.v | 4 | ||||
| -rw-r--r-- | backend/CSE3analysis.v | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/backend/CSE3.v b/backend/CSE3.v index d0dc3aef..352cc895 100644 --- a/backend/CSE3.v +++ b/backend/CSE3.v @@ -62,8 +62,8 @@ Definition transf_instr (fmap : PMap.t RB.t) Icall sig ros (subst_args fmap pc args) dst s | Itailcall sig ros args => Itailcall sig ros (subst_args fmap pc args) - | Icond cond args s1 s2 => - Icond cond (subst_args fmap pc args) s1 s2 + | Icond cond args s1 s2 expected => + Icond cond (subst_args fmap pc args) s1 s2 expected | Ijumptable arg tbl => Ijumptable (subst_arg fmap pc arg) tbl | Ireturn (Some arg) => diff --git a/backend/CSE3analysis.v b/backend/CSE3analysis.v index 12fb2d1f..90ce4ce7 100644 --- a/backend/CSE3analysis.v +++ b/backend/CSE3analysis.v @@ -328,7 +328,7 @@ Section OPERATIONS. Definition apply_instr (tenv : typing_env) (instr : RTL.instruction) (rel : RELATION.t) : RB.t := match instr with | Inop _ - | Icond _ _ _ _ + | Icond _ _ _ _ _ | Ijumptable _ _ => Some rel | Istore chunk addr args src _ => Some (store chunk addr args src (tenv src) rel) |