diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-25 10:32:38 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-25 10:32:38 +0200 |
| commit | bb185aa85ddf32feed61d7888c1b199fffdd821f (patch) | |
| tree | 04b9489a4ad344b635f958eefba2126709d10cf7 /common | |
| parent | b66d6034fb09e6129ca24dd458fbef49e4cb98d7 (diff) | |
| download | compcert-kvx-bb185aa85ddf32feed61d7888c1b199fffdd821f.tar.gz compcert-kvx-bb185aa85ddf32feed61d7888c1b199fffdd821f.zip | |
IT COMPILES
Diffstat (limited to 'common')
| -rw-r--r-- | common/Values.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/common/Values.v b/common/Values.v index ae8d31f3..837ed799 100644 --- a/common/Values.v +++ b/common/Values.v @@ -768,14 +768,14 @@ Definition rolml (v: val) (amount: int) (mask: int64): val := Definition extfz stop start v := - if (Int.cmp Cle start stop) - && (Int.cmp Cge start Int.zero) - && (Int.cmp Clt stop Int.iwordsize) + if (Z.leb start stop) + && (Z.geb start Z.zero) + && (Z.ltb stop Int.zwordsize) then - let stop' := Int.add stop Int.one in + let stop' := Z.add stop Z.one in match v with | Vint w => - Vint (Int.shr (Int.shl w (Int.sub Int.iwordsize stop')) (Int.sub Int.iwordsize (Int.sub stop' start))) + Vint (Int.shr (Int.shl w (Int.repr (Z.sub Int.zwordsize stop'))) (Int.repr (Z.sub Int.zwordsize (Z.sub stop' start)))) | _ => Vundef end else Vundef. |