blob: 86d4f0acee77c80ebb2738d1ac2834e13b48e1ee (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
(* *************************************************************)
(* *)
(* The Compcert verified compiler *)
(* *)
(* Sylvain Boulmé Grenoble-INP, VERIMAG *)
(* David Monniaux CNRS, VERIMAG *)
(* Cyril Six Kalray *)
(* *)
(* Copyright Kalray. Copyright VERIMAG. All rights reserved. *)
(* This file is distributed under the terms of the INRIA *)
(* Non-Commercial License Agreement. *)
(* *)
(* *************************************************************)
Require Import AST.
Require Import Values.
Require Import Integers.
Require Import Coq.ZArith.BinIntDef.
Require Import BinNums.
Local Open Scope Z_scope.
Definition zscale_of_chunk (chunk: memory_chunk) : Z :=
match chunk with
| Mint8signed => 0
| Mint8unsigned => 0
| Mint16signed => 1
| Mint16unsigned => 1
| Mint32 => 2
| Mint64 => 3
| Mfloat32 => 2
| Mfloat64 => 3
| Many32 => 2
| Many64 => 3
end.
Definition scale_of_chunk chunk := Vint (Int.repr (zscale_of_chunk chunk)).
|