diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-27 18:18:24 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-27 18:18:24 +0200 |
| commit | 28e66eb4b60c485bebb1e217bc8f50bdc2cc6ddb (patch) | |
| tree | 9a99e19fdec1846b513cf18b6f5f82258338d66c /common | |
| parent | 87615fd17854019e12a5acdebab11adc62eec5c1 (diff) | |
| download | compcert-kvx-28e66eb4b60c485bebb1e217bc8f50bdc2cc6ddb.tar.gz compcert-kvx-28e66eb4b60c485bebb1e217bc8f50bdc2cc6ddb.zip | |
moved operators to specific file instead of common file
Diffstat (limited to 'common')
| -rw-r--r-- | common/Values.v | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/common/Values.v b/common/Values.v index ecc1c458..127d1085 100644 --- a/common/Values.v +++ b/common/Values.v @@ -767,61 +767,6 @@ Definition rolml (v: val) (amount: int) (mask: int64): val := end. -Definition extfz stop start v := - if (Z.leb start stop) - && (Z.geb start Z.zero) - && (Z.ltb stop Int.zwordsize) - then - let stop' := Z.add stop Z.one in - match v with - | Vint w => - Vint (Int.shru (Int.shl w (Int.repr (Z.sub Int.zwordsize stop'))) (Int.repr (Z.sub Int.zwordsize (Z.sub stop' start)))) - | _ => Vundef - end - else Vundef. - - -Definition extfs stop start v := - if (Z.leb start stop) - && (Z.geb start Z.zero) - && (Z.ltb stop Int.zwordsize) - then - let stop' := Z.add stop Z.one in - match v with - | Vint w => - 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. - -Definition extfzl stop start v := - if (Z.leb start stop) - && (Z.geb start Z.zero) - && (Z.ltb stop Int64.zwordsize) - then - let stop' := Z.add stop Z.one in - match v with - | Vlong w => - Vlong (Int64.shru' (Int64.shl' w (Int.repr (Z.sub Int64.zwordsize stop'))) (Int.repr (Z.sub Int64.zwordsize (Z.sub stop' start)))) - | _ => Vundef - end - else Vundef. - - -Definition extfsl stop start v := - if (Z.leb start stop) - && (Z.geb start Z.zero) - && (Z.ltb stop Int64.zwordsize) - then - let stop' := Z.add stop Z.one in - match v with - | Vlong w => - Vlong (Int64.shr' (Int64.shl' w (Int.repr (Z.sub Int64.zwordsize stop'))) (Int.repr (Z.sub Int64.zwordsize (Z.sub stop' start)))) - | _ => Vundef - end - else Vundef. - - (** Comparisons *) Section COMPARISONS. |