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 /mppa_k1c/ValueAOp.v | |
| parent | b66d6034fb09e6129ca24dd458fbef49e4cb98d7 (diff) | |
| download | compcert-kvx-bb185aa85ddf32feed61d7888c1b199fffdd821f.tar.gz compcert-kvx-bb185aa85ddf32feed61d7888c1b199fffdd821f.zip | |
IT COMPILES
Diffstat (limited to 'mppa_k1c/ValueAOp.v')
| -rw-r--r-- | mppa_k1c/ValueAOp.v | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/mppa_k1c/ValueAOp.v b/mppa_k1c/ValueAOp.v index 64002cef..e498d237 100644 --- a/mppa_k1c/ValueAOp.v +++ b/mppa_k1c/ValueAOp.v @@ -75,15 +75,15 @@ Definition eval_static_selectfs (cond : condition0) (v0 v1 vselect : aval) : ava end. -Definition eval_static_extfz (stop : int) (start : int) (v : aval) := - if (Int.cmp Cle start stop) - && (Int.cmp Cge start Int.zero) - && (Int.cmp Clt stop Int.iwordsize) +Definition eval_static_extfz (stop : Z) (start : Z) (v : aval) := + 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 | I w => - I (Int.shr (Int.shl w (Int.sub Int.iwordsize stop')) (Int.sub Int.iwordsize (Int.sub stop' start))) + I (Int.shr (Int.shl w (Int.repr (Z.sub Int.zwordsize stop'))) (Int.repr (Z.sub Int.zwordsize (Z.sub stop' start)))) | _ => Vtop end else Vtop. |