diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-02 06:57:46 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-02 06:57:46 +0200 |
| commit | 053cfa54205575ceb984f5922f51f4fce5980604 (patch) | |
| tree | 011d5425e72a988722201d308e84e2e396ca2632 /mppa_k1c/Chunks.v | |
| parent | 49f970ff21e05135dba6b1b32d52c77564cdcee3 (diff) | |
| download | compcert-kvx-053cfa54205575ceb984f5922f51f4fce5980604.tar.gz compcert-kvx-053cfa54205575ceb984f5922f51f4fce5980604.zip | |
forgot Chunks.v
Diffstat (limited to 'mppa_k1c/Chunks.v')
| -rw-r--r-- | mppa_k1c/Chunks.v | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/mppa_k1c/Chunks.v b/mppa_k1c/Chunks.v new file mode 100644 index 00000000..833f8116 --- /dev/null +++ b/mppa_k1c/Chunks.v @@ -0,0 +1,20 @@ +Require Import AST. +Require Import Values. +Require Import Integers. + +Local Open Scope Z_scope. + +Definition zscale_of_chunk (chunk: memory_chunk) := + 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)). |