diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-27 19:23:04 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-27 19:23:04 +0200 |
| commit | 146bf43966f0d0c7a1587fc4d8dab58958d621fa (patch) | |
| tree | b95de34ff87fcbd679056a744e915c3a31e4e25c /mppa_k1c/SelectLongproof.v | |
| parent | 28e66eb4b60c485bebb1e217bc8f50bdc2cc6ddb (diff) | |
| download | compcert-kvx-146bf43966f0d0c7a1587fc4d8dab58958d621fa.tar.gz compcert-kvx-146bf43966f0d0c7a1587fc4d8dab58958d621fa.zip | |
factor expressions into single file
Diffstat (limited to 'mppa_k1c/SelectLongproof.v')
| -rw-r--r-- | mppa_k1c/SelectLongproof.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mppa_k1c/SelectLongproof.v b/mppa_k1c/SelectLongproof.v index 17d9d2ec..b3cb1ce0 100644 --- a/mppa_k1c/SelectLongproof.v +++ b/mppa_k1c/SelectLongproof.v @@ -251,7 +251,7 @@ Proof. - subst x. simpl negb. cbn iota. - destruct (_ && _ && _) eqn:BOUNDS. + destruct (is_bitfieldl _ _) eqn:BOUNDS. + exists (extfzl (Z.sub Int64.zwordsize (Z.add (Int.unsigned n1) Z.one)) (Z.sub (Z.add @@ -303,7 +303,7 @@ Proof. - subst x. simpl negb. cbn iota. - destruct (_ && _ && _) eqn:BOUNDS. + destruct (is_bitfieldl _ _) eqn:BOUNDS. + exists (extfsl (Z.sub Int64.zwordsize (Z.add (Int.unsigned n1) Z.one)) (Z.sub (Z.add |