aboutsummaryrefslogtreecommitdiffstats
path: root/test/monniaux/bitfields
diff options
context:
space:
mode:
authorDavid Monniaux <david.monniaux@univ-grenoble-alpes.fr>2019-04-29 07:43:28 +0200
committerDavid Monniaux <david.monniaux@univ-grenoble-alpes.fr>2019-04-29 07:43:28 +0200
commitf2e996383571ba2cb794f9ecf9487a53bd370a0c (patch)
tree0726cb598de828429de082ab8978e27e9d089a4c /test/monniaux/bitfields
parent2c7b68275dd09d700e7f8b70cf5ec091336fc1c9 (diff)
downloadcompcert-kvx-f2e996383571ba2cb794f9ecf9487a53bd370a0c.tar.gz
compcert-kvx-f2e996383571ba2cb794f9ecf9487a53bd370a0c.zip
test for long bitfields
Diffstat (limited to 'test/monniaux/bitfields')
-rw-r--r--test/monniaux/bitfields/bitfields_long.c19
1 files changed, 19 insertions, 0 deletions
diff --git a/test/monniaux/bitfields/bitfields_long.c b/test/monniaux/bitfields/bitfields_long.c
new file mode 100644
index 00000000..93bba8d0
--- /dev/null
+++ b/test/monniaux/bitfields/bitfields_long.c
@@ -0,0 +1,19 @@
+#include <stdio.h>
+#include <stdint.h>
+
+#define GET_FIELD_L(x, stop, start) (((x) << (63-(stop))) >> (63-(stop)+(start)))
+#define FIELD_MASK(stop, start) ((1ULL<<(stop)) - (1ULL<<(start)) + (1ULL<<(stop)))
+
+#define SET_FIELD_L(x, stop, start, y) (((x) & ~FIELD_MASK(stop, start)) | ((y << start) & FIELD_MASK(stop, start)))
+
+uint64_t get_f2(uint64_t x) {
+ return GET_FIELD_L(x, 47, 16);
+}
+
+uint64_t set_f2(uint64_t x, uint64_t y) {
+ return SET_FIELD_L(x, 47, 16, y);
+}
+
+int main() {
+ printf("%lx %lx\n", FIELD_MASK(47, 16), set_f2(0x12345678ABCD1234ULL, 0x11112222ULL));
+}