aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDavid Monniaux <david.monniaux@univ-grenoble-alpes.fr>2019-05-02 06:57:46 +0200
committerDavid Monniaux <david.monniaux@univ-grenoble-alpes.fr>2019-05-02 06:57:46 +0200
commit053cfa54205575ceb984f5922f51f4fce5980604 (patch)
tree011d5425e72a988722201d308e84e2e396ca2632
parent49f970ff21e05135dba6b1b32d52c77564cdcee3 (diff)
downloadcompcert-kvx-053cfa54205575ceb984f5922f51f4fce5980604.tar.gz
compcert-kvx-053cfa54205575ceb984f5922f51f4fce5980604.zip
forgot Chunks.v
-rw-r--r--mppa_k1c/Chunks.v20
-rw-r--r--test/monniaux/ocaml/config/Makefile2
2 files changed, 21 insertions, 1 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)).
diff --git a/test/monniaux/ocaml/config/Makefile b/test/monniaux/ocaml/config/Makefile
index 8fa72626..26b14670 100644
--- a/test/monniaux/ocaml/config/Makefile
+++ b/test/monniaux/ocaml/config/Makefile
@@ -22,7 +22,7 @@ X11_LINK=-lX11
LIBBFD_LINK=
LIBBFD_INCLUDE=
# DM CC=k1-mbr-gcc
-CC=/home/monniaux/work/Kalray/CompCert/ccomp
+CC=/home/monniaux/work/Kalray/mppa-xsaddr/ccomp
CPP=$(CC) -E
CFLAGS=-O -Wall -fall
# DM CFLAGS=-O3 -Wall