diff --git a/.github/workflows/coq-action.yml b/.github/workflows/coq-action.yml
index d8abe027f4..40732b42dc 100644
--- a/.github/workflows/coq-action.yml
+++ b/.github/workflows/coq-action.yml
@@ -21,7 +21,7 @@ jobs:
# except for the "make_target" field and make_target related excludes
coq_version:
# See https://github.com/coq-community/docker-coq/wiki for supported images
- - '8.17'
+# - '8.17'
- '8.18'
- '8.19'
- 'dev'
@@ -31,8 +31,8 @@ jobs:
make_target:
- vst
exclude:
- - coq_version: 8.17
- bit_size: 32
+# - coq_version: 8.17
+# bit_size: 32
- coq_version: 8.18
bit_size: 32
- coq_version: dev
@@ -64,7 +64,9 @@ jobs:
endGroup
script: |
startGroup "Build & Install"
- make ${{matrix.make_target}} BITSIZE=${{matrix.bit_size}} COMPCERT=${{ matrix.coq_version=='dev' && 'bundled' || 'platform' }} IGNORECOQVERSION=true IGNORECOMPCERTVERSION=true
+ # put the first version back once CompCert 3.15 is in the Coq Platform
+ # make ${{matrix.make_target}} BITSIZE=${{matrix.bit_size}} COMPCERT=${{ matrix.coq_version=='dev' && 'bundled' || 'platform' }} IGNORECOQVERSION=true IGNORECOMPCERTVERSION=true
+ make ${{matrix.make_target}} BITSIZE=${{matrix.bit_size}} COMPCERT=bundled IGNORECOQVERSION=true IGNORECOMPCERTVERSION=true
endGroup
after_script: |
startGroup 'Copy Opam coq/user-contrib and coq-variant'
@@ -89,7 +91,7 @@ jobs:
fail-fast: false
matrix:
coq_version:
- - '8.17'
+# - '8.17'
- '8.18'
- '8.19'
- 'dev'
@@ -104,8 +106,8 @@ jobs:
- 32
- 64
exclude:
- - coq_version: 8.17
- bit_size: 32
+# - coq_version: 8.17
+# bit_size: 32
- coq_version: 8.18
bit_size: 32
- coq_version: dev
@@ -114,7 +116,7 @@ jobs:
make_target: test3
- bit_size: 32
make_target: test4
- - bit_size: 64
+ - bit_size: 32
make_target: test5
steps:
@@ -141,6 +143,8 @@ jobs:
script: |
startGroup "Build & Install"
make -f util/make-touch IGNORECOQVERSION=true IGNORECOMPCERTVERSION=true
- make ${{matrix.make_target}} BITSIZE=${{matrix.bit_size}} COMPCERT=${{ matrix.coq_version=='dev' && 'bundled' || 'platform' }} IGNORECOQVERSION=true IGNORECOMPCERTVERSION=true
+ # put the first version back once CompCert 3.15 is in the Coq Platform
+ # make ${{matrix.make_target}} BITSIZE=${{matrix.bit_size}} COMPCERT=${{ matrix.coq_version=='dev' && 'bundled' || 'platform' }} IGNORECOQVERSION=true IGNORECOMPCERTVERSION=true
+ make ${{matrix.make_target}} BITSIZE=${{matrix.bit_size}} COMPCERT=bundled IGNORECOQVERSION=true IGNORECOMPCERTVERSION=true
endGroup
uninstall:
diff --git a/Makefile b/Makefile
index 002dc2582a..27b8bfdbdc 100644
--- a/Makefile
+++ b/Makefile
@@ -762,19 +762,19 @@ vst: _CoqProject msl veric floyd simpleconc
ifeq ($(BITSIZE),64)
test: vst progs64
- @# need this tab here to turn of special behavior of 'test' target
+ @# need this tab here to turn off special behavior of 'test' target
test2: io
test4: mailbox
-test6: VSUpile64
-tests: test test2 test4 test6
+test5: VSUpile64
+tests: test test2 test4 test5
all: tests
else
test: vst progs
- @# need this tab here to turn of special behavior of 'test' target
+ @# need this tab here to turn off special behavior of 'test' target
test2: io
test3: sha hmac
test5: VSUpile
-tests: test test2 test3 test5 test6
+tests: test test2 test3 test5
all: vst files tests hmacdrbg tweetnacl aes
endif
@@ -860,13 +860,13 @@ ifdef CLIGHTGEN
all-cv-files: $(patsubst %.c,$(PROGSDIR)/%.v, $(SINGLE_C_FILES) even.c odd.c) \
$(patsubst %.c,%.v, $(SHA_C_FILES)) \
aes/aes.v tweetnacl20140427/tweetnaclVerifiableC.v \
- mailbox/mailbox.v concurrency/threads.v atomics/SC_atomics.v
+ mailbox/mailbox.v atomics/SC_atomics.v # concurrency/threads.v
ifneq (, $(findstring -short-idents, $(CGFLAGS)))
$(patsubst %.c,%.v, $(SHA_C_FILES)) &: $(SHA_C_FILES)
$(CLIGHTGEN) ${CGFLAGS} $^
$(PROGSDIR)/odd.v: $(PROGSDIR)/even.v
mailbox/mailbox.v: mailbox/atomic_exchange.c mailbox/mailbox.c
- $(CLIGHTGEN) ${CGFLAGS} $^
+ $(CLIGHTGEN) -DCOMPCERT -normalize -canonical-idents $^
else
ifeq (, $(findstring -canonical-idents, $(CGFLAGS)))
$(warning CGFLAGS contains neither -short-idents nor -canonical-idents, using default which is probably -canonical-idents)
diff --git a/VERSION b/VERSION
index ae656d4736..e3d0696453 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-2.13
+2.15
diff --git a/aes/aes.v b/aes/aes.v
index 3811e5c15b..1e4a2852aa 100644
--- a/aes/aes.v
+++ b/aes/aes.v
@@ -6,67 +6,68 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.9".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "32sse2".
- Definition abi := "standard".
- Definition bitsize := 32.
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
+ Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "aes/mbedtls/library/aes.c".
Definition normalized := false.
End Info.
-Definition _FSb : ident := 5%positive.
-Definition _FT0 : ident := 6%positive.
-Definition _FT1 : ident := 7%positive.
-Definition _FT2 : ident := 8%positive.
-Definition _FT3 : ident := 9%positive.
-Definition _RCON : ident := 15%positive.
-Definition _RK : ident := 93%positive.
-Definition _RSb : ident := 10%positive.
-Definition _RT0 : ident := 11%positive.
-Definition _RT1 : ident := 12%positive.
-Definition _RT2 : ident := 13%positive.
-Definition _RT3 : ident := 14%positive.
-Definition _SK : ident := 110%positive.
-Definition _X0 : ident := 116%positive.
-Definition _X1 : ident := 117%positive.
-Definition _X2 : ident := 118%positive.
-Definition _X3 : ident := 119%positive.
-Definition _Y0 : ident := 120%positive.
-Definition _Y1 : ident := 121%positive.
-Definition _Y2 : ident := 122%positive.
-Definition _Y3 : ident := 123%positive.
+Definition _FSb : ident := 6%positive.
+Definition _FT0 : ident := 7%positive.
+Definition _FT1 : ident := 8%positive.
+Definition _FT2 : ident := 9%positive.
+Definition _FT3 : ident := 10%positive.
+Definition _RCON : ident := 16%positive.
+Definition _RK : ident := 92%positive.
+Definition _RSb : ident := 11%positive.
+Definition _RT0 : ident := 12%positive.
+Definition _RT1 : ident := 13%positive.
+Definition _RT2 : ident := 14%positive.
+Definition _RT3 : ident := 15%positive.
+Definition _SK : ident := 109%positive.
+Definition _X0 : ident := 115%positive.
+Definition _X1 : ident := 116%positive.
+Definition _X2 : ident := 117%positive.
+Definition _X3 : ident := 118%positive.
+Definition _Y0 : ident := 119%positive.
+Definition _Y1 : ident := 120%positive.
+Definition _Y2 : ident := 121%positive.
+Definition _Y3 : ident := 122%positive.
Definition ___builtin_annot : ident := 33%positive.
Definition ___builtin_annot_intval : ident := 34%positive.
Definition ___builtin_bswap : ident := 18%positive.
Definition ___builtin_bswap16 : ident := 20%positive.
Definition ___builtin_bswap32 : ident := 19%positive.
Definition ___builtin_bswap64 : ident := 17%positive.
+Definition ___builtin_cls : ident := 42%positive.
+Definition ___builtin_clsl : ident := 43%positive.
+Definition ___builtin_clsll : ident := 44%positive.
Definition ___builtin_clz : ident := 21%positive.
Definition ___builtin_clzl : ident := 22%positive.
Definition ___builtin_clzll : ident := 23%positive.
Definition ___builtin_ctz : ident := 24%positive.
Definition ___builtin_ctzl : ident := 25%positive.
Definition ___builtin_ctzll : ident := 26%positive.
-Definition ___builtin_debug : ident := 52%positive.
+Definition ___builtin_debug : ident := 51%positive.
Definition ___builtin_expect : ident := 41%positive.
Definition ___builtin_fabs : ident := 27%positive.
Definition ___builtin_fabsf : ident := 28%positive.
-Definition ___builtin_fmadd : ident := 44%positive.
-Definition ___builtin_fmax : ident := 42%positive.
-Definition ___builtin_fmin : ident := 43%positive.
-Definition ___builtin_fmsub : ident := 45%positive.
-Definition ___builtin_fnmadd : ident := 46%positive.
-Definition ___builtin_fnmsub : ident := 47%positive.
+Definition ___builtin_fmadd : ident := 45%positive.
+Definition ___builtin_fmax : ident := 49%positive.
+Definition ___builtin_fmin : ident := 50%positive.
+Definition ___builtin_fmsub : ident := 46%positive.
+Definition ___builtin_fnmadd : ident := 47%positive.
+Definition ___builtin_fnmsub : ident := 48%positive.
Definition ___builtin_fsqrt : ident := 29%positive.
Definition ___builtin_membar : ident := 35%positive.
Definition ___builtin_memcpy_aligned : ident := 31%positive.
-Definition ___builtin_read16_reversed : ident := 48%positive.
-Definition ___builtin_read32_reversed : ident := 49%positive.
Definition ___builtin_sel : ident := 32%positive.
Definition ___builtin_sqrt : ident := 30%positive.
Definition ___builtin_unreachable : ident := 40%positive.
@@ -74,157 +75,155 @@ Definition ___builtin_va_arg : ident := 37%positive.
Definition ___builtin_va_copy : ident := 38%positive.
Definition ___builtin_va_end : ident := 39%positive.
Definition ___builtin_va_start : ident := 36%positive.
-Definition ___builtin_write16_reversed : ident := 50%positive.
-Definition ___builtin_write32_reversed : ident := 51%positive.
-Definition ___compcert_i64_dtos : ident := 171%positive.
-Definition ___compcert_i64_dtou : ident := 172%positive.
-Definition ___compcert_i64_sar : ident := 183%positive.
-Definition ___compcert_i64_sdiv : ident := 177%positive.
-Definition ___compcert_i64_shl : ident := 181%positive.
-Definition ___compcert_i64_shr : ident := 182%positive.
-Definition ___compcert_i64_smod : ident := 179%positive.
-Definition ___compcert_i64_smulh : ident := 184%positive.
-Definition ___compcert_i64_stod : ident := 173%positive.
-Definition ___compcert_i64_stof : ident := 175%positive.
-Definition ___compcert_i64_udiv : ident := 178%positive.
-Definition ___compcert_i64_umod : ident := 180%positive.
-Definition ___compcert_i64_umulh : ident := 185%positive.
-Definition ___compcert_i64_utod : ident := 174%positive.
-Definition ___compcert_i64_utof : ident := 176%positive.
-Definition ___compcert_va_composite : ident := 170%positive.
-Definition ___compcert_va_float64 : ident := 169%positive.
-Definition ___compcert_va_int32 : ident := 167%positive.
-Definition ___compcert_va_int64 : ident := 168%positive.
-Definition ___stringlit_1 : ident := 160%positive.
-Definition ___stringlit_2 : ident := 161%positive.
-Definition ___stringlit_3 : ident := 162%positive.
-Definition ___stringlit_4 : ident := 163%positive.
-Definition ___stringlit_5 : ident := 164%positive.
-Definition ___stringlit_6 : ident := 165%positive.
-Definition _aes_gen_tables : ident := 86%positive.
-Definition _aes_init_done : ident := 61%positive.
-Definition _aes_tables_struct : ident := 16%positive.
-Definition _aes_test_ecb_dec : ident := 155%positive.
-Definition _aes_test_ecb_enc : ident := 156%positive.
-Definition _b0 : ident := 95%positive.
-Definition _b0__1 : ident := 102%positive.
-Definition _b0__2 : ident := 124%positive.
-Definition _b0__3 : ident := 128%positive.
-Definition _b0__4 : ident := 132%positive.
-Definition _b0__5 : ident := 137%positive.
-Definition _b0__6 : ident := 142%positive.
-Definition _b0__7 : ident := 147%positive.
-Definition _b1 : ident := 96%positive.
-Definition _b1__1 : ident := 103%positive.
-Definition _b1__2 : ident := 125%positive.
-Definition _b1__3 : ident := 129%positive.
-Definition _b1__4 : ident := 133%positive.
-Definition _b1__5 : ident := 138%positive.
-Definition _b1__6 : ident := 143%positive.
-Definition _b1__7 : ident := 148%positive.
-Definition _b2 : ident := 97%positive.
-Definition _b2__1 : ident := 104%positive.
-Definition _b2__2 : ident := 126%positive.
-Definition _b2__3 : ident := 130%positive.
-Definition _b2__4 : ident := 134%positive.
-Definition _b2__5 : ident := 139%positive.
-Definition _b2__6 : ident := 144%positive.
-Definition _b2__7 : ident := 149%positive.
-Definition _b3 : ident := 98%positive.
-Definition _b3__1 : ident := 105%positive.
-Definition _b3__2 : ident := 127%positive.
-Definition _b3__3 : ident := 131%positive.
-Definition _b3__4 : ident := 135%positive.
-Definition _b3__5 : ident := 140%positive.
-Definition _b3__6 : ident := 145%positive.
-Definition _b3__7 : ident := 150%positive.
-Definition _buf : ident := 3%positive.
-Definition _ctx : ident := 87%positive.
-Definition _cty : ident := 109%positive.
-Definition _exit : ident := 112%positive.
-Definition _i : ident := 62%positive.
-Definition _input : ident := 114%positive.
-Definition _iv : ident := 159%positive.
-Definition _j : ident := 107%positive.
-Definition _key : ident := 90%positive.
-Definition _key_word : ident := 92%positive.
-Definition _keybits : ident := 91%positive.
-Definition _log : ident := 67%positive.
-Definition _logi : ident := 69%positive.
-Definition _logx : ident := 74%positive.
-Definition _logx__1 : ident := 77%positive.
-Definition _logx__2 : ident := 80%positive.
-Definition _logx__3 : ident := 83%positive.
-Definition _logy : ident := 75%positive.
-Definition _logy__1 : ident := 78%positive.
-Definition _logy__2 : ident := 81%positive.
-Definition _logy__3 : ident := 84%positive.
-Definition _m : ident := 76%positive.
-Definition _m__1 : ident := 79%positive.
-Definition _m__2 : ident := 82%positive.
-Definition _m__3 : ident := 85%positive.
-Definition _main : ident := 186%positive.
-Definition _mbedtls_aes_context_struct : ident := 4%positive.
-Definition _mbedtls_aes_crypt_ecb : ident := 154%positive.
-Definition _mbedtls_aes_decrypt : ident := 152%positive.
-Definition _mbedtls_aes_encrypt : ident := 151%positive.
-Definition _mbedtls_aes_free : ident := 89%positive.
-Definition _mbedtls_aes_init : ident := 88%positive.
-Definition _mbedtls_aes_self_test : ident := 166%positive.
-Definition _mbedtls_aes_setkey_dec : ident := 113%positive.
-Definition _mbedtls_aes_setkey_enc : ident := 106%positive.
-Definition _mbedtls_zeroize : ident := 59%positive.
-Definition _memcmp : ident := 53%positive.
-Definition _memset : ident := 54%positive.
-Definition _mode : ident := 153%positive.
-Definition _n : ident := 57%positive.
-Definition _nr : ident := 1%positive.
-Definition _output : ident := 115%positive.
-Definition _p : ident := 58%positive.
-Definition _pow : ident := 66%positive.
-Definition _printf : ident := 55%positive.
-Definition _prod1 : ident := 70%positive.
-Definition _prod2 : ident := 71%positive.
-Definition _prod3 : ident := 72%positive.
-Definition _prod4 : ident := 73%positive.
-Definition _rcon : ident := 101%positive.
-Definition _ret : ident := 108%positive.
-Definition _rk : ident := 2%positive.
-Definition _rk0 : ident := 99%positive.
-Definition _rk7 : ident := 100%positive.
-Definition _rk__1 : ident := 136%positive.
-Definition _rk__2 : ident := 141%positive.
-Definition _rk__3 : ident := 146%positive.
-Definition _rot : ident := 68%positive.
-Definition _sk : ident := 111%positive.
-Definition _tables : ident := 60%positive.
-Definition _tmp : ident := 94%positive.
-Definition _u : ident := 158%positive.
-Definition _v : ident := 56%positive.
-Definition _verbose : ident := 157%positive.
-Definition _x : ident := 63%positive.
-Definition _y : ident := 64%positive.
-Definition _z : ident := 65%positive.
-Definition _t'1 : ident := 187%positive.
-Definition _t'10 : ident := 196%positive.
-Definition _t'11 : ident := 197%positive.
-Definition _t'12 : ident := 198%positive.
-Definition _t'13 : ident := 199%positive.
-Definition _t'14 : ident := 200%positive.
-Definition _t'15 : ident := 201%positive.
-Definition _t'16 : ident := 202%positive.
-Definition _t'17 : ident := 203%positive.
-Definition _t'18 : ident := 204%positive.
-Definition _t'19 : ident := 205%positive.
-Definition _t'2 : ident := 188%positive.
-Definition _t'20 : ident := 206%positive.
-Definition _t'3 : ident := 189%positive.
-Definition _t'4 : ident := 190%positive.
-Definition _t'5 : ident := 191%positive.
-Definition _t'6 : ident := 192%positive.
-Definition _t'7 : ident := 193%positive.
-Definition _t'8 : ident := 194%positive.
-Definition _t'9 : ident := 195%positive.
+Definition ___compcert_i64_dtos : ident := 170%positive.
+Definition ___compcert_i64_dtou : ident := 171%positive.
+Definition ___compcert_i64_sar : ident := 182%positive.
+Definition ___compcert_i64_sdiv : ident := 176%positive.
+Definition ___compcert_i64_shl : ident := 180%positive.
+Definition ___compcert_i64_shr : ident := 181%positive.
+Definition ___compcert_i64_smod : ident := 178%positive.
+Definition ___compcert_i64_smulh : ident := 183%positive.
+Definition ___compcert_i64_stod : ident := 172%positive.
+Definition ___compcert_i64_stof : ident := 174%positive.
+Definition ___compcert_i64_udiv : ident := 177%positive.
+Definition ___compcert_i64_umod : ident := 179%positive.
+Definition ___compcert_i64_umulh : ident := 184%positive.
+Definition ___compcert_i64_utod : ident := 173%positive.
+Definition ___compcert_i64_utof : ident := 175%positive.
+Definition ___compcert_va_composite : ident := 169%positive.
+Definition ___compcert_va_float64 : ident := 168%positive.
+Definition ___compcert_va_int32 : ident := 166%positive.
+Definition ___compcert_va_int64 : ident := 167%positive.
+Definition ___stringlit_1 : ident := 159%positive.
+Definition ___stringlit_2 : ident := 160%positive.
+Definition ___stringlit_3 : ident := 161%positive.
+Definition ___stringlit_4 : ident := 162%positive.
+Definition ___stringlit_5 : ident := 163%positive.
+Definition ___stringlit_6 : ident := 164%positive.
+Definition _aes_gen_tables : ident := 85%positive.
+Definition _aes_init_done : ident := 60%positive.
+Definition _aes_tables_struct : ident := 5%positive.
+Definition _aes_test_ecb_dec : ident := 154%positive.
+Definition _aes_test_ecb_enc : ident := 155%positive.
+Definition _b0 : ident := 94%positive.
+Definition _b0__1 : ident := 101%positive.
+Definition _b0__2 : ident := 123%positive.
+Definition _b0__3 : ident := 127%positive.
+Definition _b0__4 : ident := 131%positive.
+Definition _b0__5 : ident := 136%positive.
+Definition _b0__6 : ident := 141%positive.
+Definition _b0__7 : ident := 146%positive.
+Definition _b1 : ident := 95%positive.
+Definition _b1__1 : ident := 102%positive.
+Definition _b1__2 : ident := 124%positive.
+Definition _b1__3 : ident := 128%positive.
+Definition _b1__4 : ident := 132%positive.
+Definition _b1__5 : ident := 137%positive.
+Definition _b1__6 : ident := 142%positive.
+Definition _b1__7 : ident := 147%positive.
+Definition _b2 : ident := 96%positive.
+Definition _b2__1 : ident := 103%positive.
+Definition _b2__2 : ident := 125%positive.
+Definition _b2__3 : ident := 129%positive.
+Definition _b2__4 : ident := 133%positive.
+Definition _b2__5 : ident := 138%positive.
+Definition _b2__6 : ident := 143%positive.
+Definition _b2__7 : ident := 148%positive.
+Definition _b3 : ident := 97%positive.
+Definition _b3__1 : ident := 104%positive.
+Definition _b3__2 : ident := 126%positive.
+Definition _b3__3 : ident := 130%positive.
+Definition _b3__4 : ident := 134%positive.
+Definition _b3__5 : ident := 139%positive.
+Definition _b3__6 : ident := 144%positive.
+Definition _b3__7 : ident := 149%positive.
+Definition _buf : ident := 4%positive.
+Definition _ctx : ident := 86%positive.
+Definition _cty : ident := 108%positive.
+Definition _exit : ident := 111%positive.
+Definition _i : ident := 61%positive.
+Definition _input : ident := 113%positive.
+Definition _iv : ident := 158%positive.
+Definition _j : ident := 106%positive.
+Definition _key : ident := 89%positive.
+Definition _key_word : ident := 91%positive.
+Definition _keybits : ident := 90%positive.
+Definition _log : ident := 66%positive.
+Definition _logi : ident := 68%positive.
+Definition _logx : ident := 73%positive.
+Definition _logx__1 : ident := 76%positive.
+Definition _logx__2 : ident := 79%positive.
+Definition _logx__3 : ident := 82%positive.
+Definition _logy : ident := 74%positive.
+Definition _logy__1 : ident := 77%positive.
+Definition _logy__2 : ident := 80%positive.
+Definition _logy__3 : ident := 83%positive.
+Definition _m : ident := 75%positive.
+Definition _m__1 : ident := 78%positive.
+Definition _m__2 : ident := 81%positive.
+Definition _m__3 : ident := 84%positive.
+Definition _main : ident := 185%positive.
+Definition _mbedtls_aes_context_struct : ident := 1%positive.
+Definition _mbedtls_aes_crypt_ecb : ident := 153%positive.
+Definition _mbedtls_aes_decrypt : ident := 151%positive.
+Definition _mbedtls_aes_encrypt : ident := 150%positive.
+Definition _mbedtls_aes_free : ident := 88%positive.
+Definition _mbedtls_aes_init : ident := 87%positive.
+Definition _mbedtls_aes_self_test : ident := 165%positive.
+Definition _mbedtls_aes_setkey_dec : ident := 112%positive.
+Definition _mbedtls_aes_setkey_enc : ident := 105%positive.
+Definition _mbedtls_zeroize : ident := 58%positive.
+Definition _memcmp : ident := 52%positive.
+Definition _memset : ident := 53%positive.
+Definition _mode : ident := 152%positive.
+Definition _n : ident := 56%positive.
+Definition _nr : ident := 2%positive.
+Definition _output : ident := 114%positive.
+Definition _p : ident := 57%positive.
+Definition _pow : ident := 65%positive.
+Definition _printf : ident := 54%positive.
+Definition _prod1 : ident := 69%positive.
+Definition _prod2 : ident := 70%positive.
+Definition _prod3 : ident := 71%positive.
+Definition _prod4 : ident := 72%positive.
+Definition _rcon : ident := 100%positive.
+Definition _ret : ident := 107%positive.
+Definition _rk : ident := 3%positive.
+Definition _rk0 : ident := 98%positive.
+Definition _rk7 : ident := 99%positive.
+Definition _rk__1 : ident := 135%positive.
+Definition _rk__2 : ident := 140%positive.
+Definition _rk__3 : ident := 145%positive.
+Definition _rot : ident := 67%positive.
+Definition _sk : ident := 110%positive.
+Definition _tables : ident := 59%positive.
+Definition _tmp : ident := 93%positive.
+Definition _u : ident := 157%positive.
+Definition _v : ident := 55%positive.
+Definition _verbose : ident := 156%positive.
+Definition _x : ident := 62%positive.
+Definition _y : ident := 63%positive.
+Definition _z : ident := 64%positive.
+Definition _t'1 : ident := 186%positive.
+Definition _t'10 : ident := 195%positive.
+Definition _t'11 : ident := 196%positive.
+Definition _t'12 : ident := 197%positive.
+Definition _t'13 : ident := 198%positive.
+Definition _t'14 : ident := 199%positive.
+Definition _t'15 : ident := 200%positive.
+Definition _t'16 : ident := 201%positive.
+Definition _t'17 : ident := 202%positive.
+Definition _t'18 : ident := 203%positive.
+Definition _t'19 : ident := 204%positive.
+Definition _t'2 : ident := 187%positive.
+Definition _t'20 : ident := 205%positive.
+Definition _t'3 : ident := 188%positive.
+Definition _t'4 : ident := 189%positive.
+Definition _t'5 : ident := 190%positive.
+Definition _t'6 : ident := 191%positive.
+Definition _t'7 : ident := 192%positive.
+Definition _t'8 : ident := 193%positive.
+Definition _t'9 : ident := 194%positive.
Definition v___stringlit_3 := {|
gvar_info := (tarray tschar 21);
@@ -289,10 +288,10 @@ Definition v___stringlit_4 := {|
Definition f_mbedtls_zeroize := {|
fn_return := tvoid;
fn_callconv := cc_default;
- fn_params := ((_v, (tptr tvoid)) :: (_n, tuint) :: nil);
+ fn_params := ((_v, (tptr tvoid)) :: (_n, tulong) :: nil);
fn_vars := nil;
fn_temps := ((_p, (tptr tuchar)) :: (_t'2, (tptr tuchar)) ::
- (_t'1, tuint) :: nil);
+ (_t'1, tulong) :: nil);
fn_body :=
(Ssequence
(Sset _p (Etempvar _v (tptr tvoid)))
@@ -300,11 +299,11 @@ Definition f_mbedtls_zeroize := {|
(Ssequence
(Ssequence
(Ssequence
- (Sset _t'1 (Etempvar _n tuint))
+ (Sset _t'1 (Etempvar _n tulong))
(Sset _n
- (Ebinop Osub (Etempvar _t'1 tuint) (Econst_int (Int.repr 1) tint)
- tuint)))
- (Sifthenelse (Etempvar _t'1 tuint) Sskip Sbreak))
+ (Ebinop Osub (Etempvar _t'1 tulong)
+ (Econst_int (Int.repr 1) tint) tulong)))
+ (Sifthenelse (Etempvar _t'1 tulong) Sskip Sbreak))
(Ssequence
(Ssequence
(Sset _t'2 (Etempvar _p (tptr tuchar)))
@@ -970,12 +969,11 @@ Definition f_mbedtls_aes_init := {|
fn_temps := nil;
fn_body :=
(Scall None
- (Evar _memset (Tfunction
- (Tcons (tptr tvoid) (Tcons tint (Tcons tuint Tnil)))
+ (Evar _memset (Tfunction ((tptr tvoid) :: tint :: tulong :: nil)
(tptr tvoid) cc_default))
((Etempvar _ctx (tptr (Tstruct _mbedtls_aes_context_struct noattr))) ::
(Econst_int (Int.repr 0) tint) ::
- (Esizeof (Tstruct _mbedtls_aes_context_struct noattr) tuint) :: nil))
+ (Esizeof (Tstruct _mbedtls_aes_context_struct noattr) tulong) :: nil))
|}.
Definition f_mbedtls_aes_free := {|
@@ -993,10 +991,10 @@ Definition f_mbedtls_aes_free := {|
(Sreturn None)
Sskip)
(Scall None
- (Evar _mbedtls_zeroize (Tfunction (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default))
+ (Evar _mbedtls_zeroize (Tfunction ((tptr tvoid) :: tulong :: nil) tvoid
+ cc_default))
((Etempvar _ctx (tptr (Tstruct _mbedtls_aes_context_struct noattr))) ::
- (Esizeof (Tstruct _mbedtls_aes_context_struct noattr) tuint) :: nil)))
+ (Esizeof (Tstruct _mbedtls_aes_context_struct noattr) tulong) :: nil)))
|}.
Definition f_mbedtls_aes_setkey_enc := {|
@@ -1018,7 +1016,7 @@ Definition f_mbedtls_aes_setkey_enc := {|
(Sifthenelse (Ebinop Oeq (Etempvar _tmp tint)
(Econst_int (Int.repr 0) tint) tint)
(Ssequence
- (Scall None (Evar _aes_gen_tables (Tfunction Tnil tvoid cc_default))
+ (Scall None (Evar _aes_gen_tables (Tfunction nil tvoid cc_default))
nil)
(Sassign (Evar _aes_init_done tint) (Econst_int (Int.repr 1) tint)))
Sskip)
@@ -1533,9 +1531,8 @@ Definition f_mbedtls_aes_setkey_dec := {|
(Ssequence
(Scall None
(Evar _mbedtls_aes_init (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_aes_context_struct noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _mbedtls_aes_context_struct noattr)) ::
+ nil) tvoid cc_default))
((Eaddrof (Evar _cty (Tstruct _mbedtls_aes_context_struct noattr))
(tptr (Tstruct _mbedtls_aes_context_struct noattr))) :: nil))
(Ssequence
@@ -1561,11 +1558,9 @@ Definition f_mbedtls_aes_setkey_dec := {|
(Ssequence
(Scall (Some _t'2)
(Evar _mbedtls_aes_setkey_enc (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_aes_context_struct noattr))
- (Tcons (tptr tuchar)
- (Tcons tuint Tnil))) tint
- cc_default))
+ ((tptr (Tstruct _mbedtls_aes_context_struct noattr)) ::
+ (tptr tuchar) :: tuint :: nil)
+ tint cc_default))
((Eaddrof
(Evar _cty (Tstruct _mbedtls_aes_context_struct noattr))
(tptr (Tstruct _mbedtls_aes_context_struct noattr))) ::
@@ -1965,9 +1960,8 @@ Definition f_mbedtls_aes_setkey_dec := {|
(Scall None
(Evar _mbedtls_aes_free
(Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_aes_context_struct noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _mbedtls_aes_context_struct noattr)) ::
+ nil) tvoid cc_default))
((Eaddrof
(Evar _cty (Tstruct _mbedtls_aes_context_struct noattr))
(tptr (Tstruct _mbedtls_aes_context_struct noattr))) ::
@@ -6075,21 +6069,17 @@ Definition f_mbedtls_aes_crypt_ecb := {|
(Econst_int (Int.repr 1) tint) tint)
(Scall None
(Evar _mbedtls_aes_encrypt (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_aes_context_struct noattr))
- (Tcons (tptr tuchar)
- (Tcons (tptr tuchar) Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _mbedtls_aes_context_struct noattr)) ::
+ (tptr tuchar) :: (tptr tuchar) :: nil)
+ tvoid cc_default))
((Etempvar _ctx (tptr (Tstruct _mbedtls_aes_context_struct noattr))) ::
(Etempvar _input (tptr tuchar)) :: (Etempvar _output (tptr tuchar)) ::
nil))
(Scall None
(Evar _mbedtls_aes_decrypt (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_aes_context_struct noattr))
- (Tcons (tptr tuchar)
- (Tcons (tptr tuchar) Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _mbedtls_aes_context_struct noattr)) ::
+ (tptr tuchar) :: (tptr tuchar) :: nil)
+ tvoid cc_default))
((Etempvar _ctx (tptr (Tstruct _mbedtls_aes_context_struct noattr))) ::
(Etempvar _input (tptr tuchar)) :: (Etempvar _output (tptr tuchar)) ::
nil)))
@@ -6171,17 +6161,15 @@ Definition f_mbedtls_aes_self_test := {|
(Sset _ret (Econst_int (Int.repr 0) tint))
(Ssequence
(Scall None
- (Evar _memset (Tfunction
- (Tcons (tptr tvoid) (Tcons tint (Tcons tuint Tnil)))
+ (Evar _memset (Tfunction ((tptr tvoid) :: tint :: tulong :: nil)
(tptr tvoid) cc_default))
((Evar _key (tarray tuchar 32)) :: (Econst_int (Int.repr 0) tint) ::
(Econst_int (Int.repr 32) tint) :: nil))
(Ssequence
(Scall None
(Evar _mbedtls_aes_init (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_aes_context_struct noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _mbedtls_aes_context_struct noattr)) ::
+ nil) tvoid cc_default))
((Eaddrof (Evar _ctx (Tstruct _mbedtls_aes_context_struct noattr))
(tptr (Tstruct _mbedtls_aes_context_struct noattr))) :: nil))
(Ssequence
@@ -6214,7 +6202,7 @@ Definition f_mbedtls_aes_self_test := {|
(Ecast (Evar ___stringlit_1 (tarray tschar 4))
(tptr tschar))))
(Scall None
- (Evar _printf (Tfunction (Tcons (tptr tschar) Tnil)
+ (Evar _printf (Tfunction ((tptr tschar) :: nil)
tint
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
((Evar ___stringlit_3 (tarray tschar 21)) ::
@@ -6226,9 +6214,8 @@ Definition f_mbedtls_aes_self_test := {|
(Ssequence
(Scall None
(Evar _memset (Tfunction
- (Tcons (tptr tvoid)
- (Tcons tint (Tcons tuint Tnil)))
- (tptr tvoid) cc_default))
+ ((tptr tvoid) :: tint :: tulong ::
+ nil) (tptr tvoid) cc_default))
((Evar _buf (tarray tuchar 64)) ::
(Econst_int (Int.repr 0) tint) ::
(Econst_int (Int.repr 16) tint) :: nil))
@@ -6238,13 +6225,9 @@ Definition f_mbedtls_aes_self_test := {|
(Ssequence
(Scall None
(Evar _mbedtls_aes_setkey_dec (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_aes_context_struct noattr))
- (Tcons
- (tptr tuchar)
- (Tcons
- tuint
- Tnil)))
+ ((tptr (Tstruct _mbedtls_aes_context_struct noattr)) ::
+ (tptr tuchar) ::
+ tuint :: nil)
tint
cc_default))
((Eaddrof
@@ -6268,16 +6251,11 @@ Definition f_mbedtls_aes_self_test := {|
Sbreak)
(Scall None
(Evar _mbedtls_aes_crypt_ecb (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_aes_context_struct noattr))
- (Tcons
- tint
- (Tcons
- (tptr tuchar)
- (Tcons
- (tptr tuchar)
- Tnil))))
- tint
+ ((tptr (Tstruct _mbedtls_aes_context_struct noattr)) ::
+ tint ::
+ (tptr tuchar) ::
+ (tptr tuchar) ::
+ nil) tint
cc_default))
((Eaddrof
(Evar _ctx (Tstruct _mbedtls_aes_context_struct noattr))
@@ -6291,10 +6269,9 @@ Definition f_mbedtls_aes_self_test := {|
(Ssequence
(Scall (Some _t'2)
(Evar _memcmp (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid)
- (Tcons tuint Tnil)))
- tint cc_default))
+ ((tptr tvoid) ::
+ (tptr tvoid) :: tulong ::
+ nil) tint cc_default))
((Evar _buf (tarray tuchar 64)) ::
(Ederef
(Ebinop Oadd
@@ -6313,8 +6290,8 @@ Definition f_mbedtls_aes_self_test := {|
tint)
(Scall None
(Evar _printf (Tfunction
- (Tcons (tptr tschar)
- Tnil) tint
+ ((tptr tschar) ::
+ nil) tint
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
((Evar ___stringlit_4 (tarray tschar 8)) ::
nil))
@@ -6327,13 +6304,9 @@ Definition f_mbedtls_aes_self_test := {|
(Ssequence
(Scall None
(Evar _mbedtls_aes_setkey_enc (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_aes_context_struct noattr))
- (Tcons
- (tptr tuchar)
- (Tcons
- tuint
- Tnil)))
+ ((tptr (Tstruct _mbedtls_aes_context_struct noattr)) ::
+ (tptr tuchar) ::
+ tuint :: nil)
tint
cc_default))
((Eaddrof
@@ -6357,16 +6330,11 @@ Definition f_mbedtls_aes_self_test := {|
Sbreak)
(Scall None
(Evar _mbedtls_aes_crypt_ecb (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_aes_context_struct noattr))
- (Tcons
- tint
- (Tcons
- (tptr tuchar)
- (Tcons
- (tptr tuchar)
- Tnil))))
- tint
+ ((tptr (Tstruct _mbedtls_aes_context_struct noattr)) ::
+ tint ::
+ (tptr tuchar) ::
+ (tptr tuchar) ::
+ nil) tint
cc_default))
((Eaddrof
(Evar _ctx (Tstruct _mbedtls_aes_context_struct noattr))
@@ -6380,10 +6348,9 @@ Definition f_mbedtls_aes_self_test := {|
(Ssequence
(Scall (Some _t'3)
(Evar _memcmp (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid)
- (Tcons tuint Tnil)))
- tint cc_default))
+ ((tptr tvoid) ::
+ (tptr tvoid) :: tulong ::
+ nil) tint cc_default))
((Evar _buf (tarray tuchar 64)) ::
(Ederef
(Ebinop Oadd
@@ -6402,8 +6369,8 @@ Definition f_mbedtls_aes_self_test := {|
tint)
(Scall None
(Evar _printf (Tfunction
- (Tcons (tptr tschar)
- Tnil) tint
+ ((tptr tschar) ::
+ nil) tint
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
((Evar ___stringlit_4 (tarray tschar 8)) ::
nil))
@@ -6416,8 +6383,8 @@ Definition f_mbedtls_aes_self_test := {|
(Sifthenelse (Ebinop One (Etempvar _verbose tint)
(Econst_int (Int.repr 0) tint) tint)
(Scall None
- (Evar _printf (Tfunction
- (Tcons (tptr tschar) Tnil) tint
+ (Evar _printf (Tfunction ((tptr tschar) :: nil)
+ tint
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
((Evar ___stringlit_5 (tarray tschar 8)) :: nil))
Sskip)))))))
@@ -6428,7 +6395,7 @@ Definition f_mbedtls_aes_self_test := {|
(Sifthenelse (Ebinop One (Etempvar _verbose tint)
(Econst_int (Int.repr 0) tint) tint)
(Scall None
- (Evar _printf (Tfunction (Tcons (tptr tschar) Tnil) tint
+ (Evar _printf (Tfunction ((tptr tschar) :: nil) tint
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
((Evar ___stringlit_6 (tarray tschar 2)) :: nil))
Sskip)
@@ -6438,9 +6405,8 @@ Definition f_mbedtls_aes_self_test := {|
(Slabel _exit
(Scall None
(Evar _mbedtls_aes_free (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_aes_context_struct noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _mbedtls_aes_context_struct noattr)) ::
+ nil) tvoid cc_default))
((Eaddrof
(Evar _ctx (Tstruct _mbedtls_aes_context_struct noattr))
(tptr (Tstruct _mbedtls_aes_context_struct noattr))) ::
@@ -6470,89 +6436,83 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) :: (___stringlit_3, Gvar v___stringlit_3) ::
(___stringlit_1, Gvar v___stringlit_1) ::
(___stringlit_5, Gvar v___stringlit_5) ::
@@ -6561,196 +6521,182 @@ Definition global_definitions : list (ident * globdef fundef type) :=
(___stringlit_4, Gvar v___stringlit_4) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_memcmp,
Gfun(External (EF_external "memcmp"
- (mksignature (AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tint cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) (Tcons tuint Tnil))) tint
- cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: AST.Xlong :: nil)
+ AST.Xint cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: nil) tint cc_default)) ::
(_memset,
Gfun(External (EF_external "memset"
- (mksignature (AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tint cc_default))
- (Tcons (tptr tvoid) (Tcons tint (Tcons tuint Tnil))) (tptr tvoid)
- cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: AST.Xlong :: nil)
+ AST.Xptr cc_default))
+ ((tptr tvoid) :: tint :: tulong :: nil) (tptr tvoid) cc_default)) ::
(_printf,
Gfun(External (EF_external "printf"
- (mksignature (AST.Tint :: nil) AST.Tint
+ (mksignature (AST.Xptr :: nil) AST.Xint
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tint
+ ((tptr tschar) :: nil) tint
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_mbedtls_zeroize, Gfun(Internal f_mbedtls_zeroize)) ::
(_tables, Gvar v_tables) :: (_aes_init_done, Gvar v_aes_init_done) ::
@@ -6770,26 +6716,25 @@ Definition public_idents : list ident :=
(_mbedtls_aes_self_test :: _mbedtls_aes_crypt_ecb :: _mbedtls_aes_decrypt ::
_mbedtls_aes_encrypt :: _mbedtls_aes_setkey_dec ::
_mbedtls_aes_setkey_enc :: _mbedtls_aes_free :: _mbedtls_aes_init ::
- _printf :: _memset :: _memcmp :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
- ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
- ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
- ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
- ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
- ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
- ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
- ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
- ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ _printf :: _memset :: _memcmp :: ___builtin_debug :: ___builtin_fmin ::
+ ___builtin_fmax :: ___builtin_fnmsub :: ___builtin_fnmadd ::
+ ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_clsll ::
+ ___builtin_clsl :: ___builtin_cls :: ___builtin_expect ::
+ ___builtin_unreachable :: ___builtin_va_end :: ___builtin_va_copy ::
+ ___builtin_va_arg :: ___builtin_va_start :: ___builtin_membar ::
+ ___builtin_annot_intval :: ___builtin_annot :: ___builtin_sel ::
+ ___builtin_memcpy_aligned :: ___builtin_sqrt :: ___builtin_fsqrt ::
+ ___builtin_fabsf :: ___builtin_fabs :: ___builtin_ctzll ::
+ ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll :: ___builtin_clzl ::
+ ___builtin_clz :: ___builtin_bswap16 :: ___builtin_bswap32 ::
+ ___builtin_bswap :: ___builtin_bswap64 :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/atomics/atomics.v b/atomics/atomics.v
deleted file mode 100644
index 6a81c041f6..0000000000
--- a/atomics/atomics.v
+++ /dev/null
@@ -1,400 +0,0 @@
-
-Require Import Clightdefs.
-Local Open Scope Z_scope.
-Definition ___builtin_annot : ident := 5%positive.
-Definition ___builtin_annot_intval : ident := 6%positive.
-Definition ___builtin_bswap : ident := 29%positive.
-Definition ___builtin_bswap16 : ident := 31%positive.
-Definition ___builtin_bswap32 : ident := 30%positive.
-Definition ___builtin_clz : ident := 32%positive.
-Definition ___builtin_clzl : ident := 33%positive.
-Definition ___builtin_clzll : ident := 34%positive.
-Definition ___builtin_ctz : ident := 35%positive.
-Definition ___builtin_ctzl : ident := 36%positive.
-Definition ___builtin_ctzll : ident := 37%positive.
-Definition ___builtin_debug : ident := 50%positive.
-Definition ___builtin_fabs : ident := 3%positive.
-Definition ___builtin_fmadd : ident := 41%positive.
-Definition ___builtin_fmax : ident := 39%positive.
-Definition ___builtin_fmin : ident := 40%positive.
-Definition ___builtin_fmsub : ident := 42%positive.
-Definition ___builtin_fnmadd : ident := 43%positive.
-Definition ___builtin_fnmsub : ident := 44%positive.
-Definition ___builtin_fsqrt : ident := 38%positive.
-Definition ___builtin_membar : ident := 7%positive.
-Definition ___builtin_memcpy_aligned : ident := 4%positive.
-Definition ___builtin_nop : ident := 49%positive.
-Definition ___builtin_read16_reversed : ident := 45%positive.
-Definition ___builtin_read32_reversed : ident := 46%positive.
-Definition ___builtin_va_arg : ident := 9%positive.
-Definition ___builtin_va_copy : ident := 10%positive.
-Definition ___builtin_va_end : ident := 11%positive.
-Definition ___builtin_va_start : ident := 8%positive.
-Definition ___builtin_write16_reversed : ident := 47%positive.
-Definition ___builtin_write32_reversed : ident := 48%positive.
-Definition ___compcert_va_composite : ident := 15%positive.
-Definition ___compcert_va_float64 : ident := 14%positive.
-Definition ___compcert_va_int32 : ident := 12%positive.
-Definition ___compcert_va_int64 : ident := 13%positive.
-Definition ___i64_dtos : ident := 16%positive.
-Definition ___i64_dtou : ident := 17%positive.
-Definition ___i64_sar : ident := 28%positive.
-Definition ___i64_sdiv : ident := 22%positive.
-Definition ___i64_shl : ident := 26%positive.
-Definition ___i64_shr : ident := 27%positive.
-Definition ___i64_smod : ident := 24%positive.
-Definition ___i64_stod : ident := 18%positive.
-Definition ___i64_stof : ident := 20%positive.
-Definition ___i64_udiv : ident := 23%positive.
-Definition ___i64_umod : ident := 25%positive.
-Definition ___i64_utod : ident := 19%positive.
-Definition ___i64_utof : ident := 21%positive.
-Definition _a : ident := 1%positive.
-Definition _acquire : ident := 51%positive.
-Definition _c : ident := 59%positive.
-Definition _l : ident := 54%positive.
-Definition _lock_t : ident := 2%positive.
-Definition _main : ident := 61%positive.
-Definition _release : ident := 52%positive.
-Definition _simulate_atomic_CAS : ident := 60%positive.
-Definition _simulate_atomic_load : ident := 56%positive.
-Definition _simulate_atomic_store : ident := 58%positive.
-Definition _tgt : ident := 53%positive.
-Definition _v : ident := 57%positive.
-Definition _x : ident := 55%positive.
-
-Definition f_simulate_atomic_load := {|
- fn_return := tint;
- fn_callconv := cc_default;
- fn_params := ((_tgt, (tptr tint)) ::
- (_l, (tptr (Tstruct _lock_t noattr))) :: nil);
- fn_vars := nil;
- fn_temps := ((_x, tint) :: nil);
- fn_body :=
-(Ssequence
- (Scall None
- (Evar _acquire (Tfunction (Tcons (tptr tvoid) Tnil) tvoid cc_default))
- ((Etempvar _l (tptr (Tstruct _lock_t noattr))) :: nil))
- (Ssequence
- (Sset _x (Ederef (Etempvar _tgt (tptr tint)) tint))
- (Ssequence
- (Scall None
- (Evar _release (Tfunction (Tcons (tptr tvoid) Tnil) tvoid cc_default))
- ((Etempvar _l (tptr (Tstruct _lock_t noattr))) :: nil))
- (Sreturn (Some (Etempvar _x tint))))))
-|}.
-
-Definition f_simulate_atomic_store := {|
- fn_return := tvoid;
- fn_callconv := cc_default;
- fn_params := ((_tgt, (tptr tint)) ::
- (_l, (tptr (Tstruct _lock_t noattr))) :: (_v, tint) :: nil);
- fn_vars := nil;
- fn_temps := ((_x, tint) :: nil);
- fn_body :=
-(Ssequence
- (Scall None
- (Evar _acquire (Tfunction (Tcons (tptr tvoid) Tnil) tvoid cc_default))
- ((Etempvar _l (tptr (Tstruct _lock_t noattr))) :: nil))
- (Ssequence
- (Sassign (Ederef (Etempvar _tgt (tptr tint)) tint) (Etempvar _v tint))
- (Scall None
- (Evar _release (Tfunction (Tcons (tptr tvoid) Tnil) tvoid cc_default))
- ((Etempvar _l (tptr (Tstruct _lock_t noattr))) :: nil))))
-|}.
-
-Definition f_simulate_atomic_CAS := {|
- fn_return := tint;
- fn_callconv := cc_default;
- fn_params := ((_tgt, (tptr tint)) ::
- (_l, (tptr (Tstruct _lock_t noattr))) :: (_c, tint) ::
- (_v, tint) :: nil);
- fn_vars := nil;
- fn_temps := ((_x, tint) :: nil);
- fn_body :=
-(Ssequence
- (Scall None
- (Evar _acquire (Tfunction (Tcons (tptr tvoid) Tnil) tvoid cc_default))
- ((Etempvar _l (tptr (Tstruct _lock_t noattr))) :: nil))
- (Ssequence
- (Sset _x (Ederef (Etempvar _tgt (tptr tint)) tint))
- (Ssequence
- (Sifthenelse (Ebinop Oeq (Etempvar _x tint) (Etempvar _c tint) tint)
- (Sassign (Ederef (Etempvar _tgt (tptr tint)) tint)
- (Etempvar _v tint))
- Sskip)
- (Ssequence
- (Scall None
- (Evar _release (Tfunction (Tcons (tptr tvoid) Tnil) tvoid
- cc_default))
- ((Etempvar _l (tptr (Tstruct _lock_t noattr))) :: nil))
- (Sreturn (Some (Etempvar _x tint)))))))
-|}.
-
-Definition composites : list composite_definition :=
-(Composite _lock_t Struct ((_a, (tarray (tptr tvoid) 4)) :: nil) noattr ::
- nil).
-
-Definition prog : Clight.program := {|
-prog_defs :=
-((___builtin_fabs,
- Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) (Some AST.Tfloat)
- cc_default)) (Tcons tdouble Tnil) tdouble cc_default)) ::
- (___builtin_memcpy_aligned,
- Gfun(External (EF_builtin "__builtin_memcpy_aligned"
- (mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- None cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
- cc_default)) ::
- (___builtin_annot,
- Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) None
- {|cc_vararg:=true; cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
- {|cc_vararg:=true; cc_unproto:=false; cc_structret:=false|})) ::
- (___builtin_annot_intval,
- Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) (Some AST.Tint)
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
- (___builtin_membar,
- Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil None cc_default)) Tnil tvoid cc_default)) ::
- (___builtin_va_start,
- Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) None cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
- (___builtin_va_arg,
- Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) None
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
- (___builtin_va_copy,
- Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) None
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
- (___builtin_va_end,
- Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) None cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
- (___compcert_va_int32,
- Gfun(External (EF_external "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) (Some AST.Tint) cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
- (___compcert_va_int64,
- Gfun(External (EF_external "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) (Some AST.Tlong)
- cc_default)) (Tcons (tptr tvoid) Tnil) tulong
- cc_default)) ::
- (___compcert_va_float64,
- Gfun(External (EF_external "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) (Some AST.Tfloat)
- cc_default)) (Tcons (tptr tvoid) Tnil) tdouble
- cc_default)) ::
- (___compcert_va_composite,
- Gfun(External (EF_external "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) (Some AST.Tint)
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
- (___i64_dtos,
- Gfun(External (EF_runtime "__i64_dtos"
- (mksignature (AST.Tfloat :: nil) (Some AST.Tlong)
- cc_default)) (Tcons tdouble Tnil) tlong cc_default)) ::
- (___i64_dtou,
- Gfun(External (EF_runtime "__i64_dtou"
- (mksignature (AST.Tfloat :: nil) (Some AST.Tlong)
- cc_default)) (Tcons tdouble Tnil) tulong cc_default)) ::
- (___i64_stod,
- Gfun(External (EF_runtime "__i64_stod"
- (mksignature (AST.Tlong :: nil) (Some AST.Tfloat)
- cc_default)) (Tcons tlong Tnil) tdouble cc_default)) ::
- (___i64_utod,
- Gfun(External (EF_runtime "__i64_utod"
- (mksignature (AST.Tlong :: nil) (Some AST.Tfloat)
- cc_default)) (Tcons tulong Tnil) tdouble cc_default)) ::
- (___i64_stof,
- Gfun(External (EF_runtime "__i64_stof"
- (mksignature (AST.Tlong :: nil) (Some AST.Tsingle)
- cc_default)) (Tcons tlong Tnil) tfloat cc_default)) ::
- (___i64_utof,
- Gfun(External (EF_runtime "__i64_utof"
- (mksignature (AST.Tlong :: nil) (Some AST.Tsingle)
- cc_default)) (Tcons tulong Tnil) tfloat cc_default)) ::
- (___i64_sdiv,
- Gfun(External (EF_runtime "__i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil)
- (Some AST.Tlong) cc_default))
- (Tcons tlong (Tcons tlong Tnil)) tlong cc_default)) ::
- (___i64_udiv,
- Gfun(External (EF_runtime "__i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil)
- (Some AST.Tlong) cc_default))
- (Tcons tulong (Tcons tulong Tnil)) tulong cc_default)) ::
- (___i64_smod,
- Gfun(External (EF_runtime "__i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil)
- (Some AST.Tlong) cc_default))
- (Tcons tlong (Tcons tlong Tnil)) tlong cc_default)) ::
- (___i64_umod,
- Gfun(External (EF_runtime "__i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil)
- (Some AST.Tlong) cc_default))
- (Tcons tulong (Tcons tulong Tnil)) tulong cc_default)) ::
- (___i64_shl,
- Gfun(External (EF_runtime "__i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil)
- (Some AST.Tlong) cc_default))
- (Tcons tlong (Tcons tint Tnil)) tlong cc_default)) ::
- (___i64_shr,
- Gfun(External (EF_runtime "__i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil)
- (Some AST.Tlong) cc_default))
- (Tcons tulong (Tcons tint Tnil)) tulong cc_default)) ::
- (___i64_sar,
- Gfun(External (EF_runtime "__i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil)
- (Some AST.Tlong) cc_default))
- (Tcons tlong (Tcons tint Tnil)) tlong cc_default)) ::
- (___builtin_bswap,
- Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) (Some AST.Tint) cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
- (___builtin_bswap32,
- Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) (Some AST.Tint) cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
- (___builtin_bswap16,
- Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) (Some AST.Tint) cc_default))
- (Tcons tushort Tnil) tushort cc_default)) ::
- (___builtin_clz,
- Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) (Some AST.Tint) cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
- (___builtin_clzl,
- Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) (Some AST.Tint) cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
- (___builtin_clzll,
- Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) (Some AST.Tint)
- cc_default)) (Tcons tulong Tnil) tint cc_default)) ::
- (___builtin_ctz,
- Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) (Some AST.Tint) cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
- (___builtin_ctzl,
- Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) (Some AST.Tint) cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
- (___builtin_ctzll,
- Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) (Some AST.Tint)
- cc_default)) (Tcons tulong Tnil) tint cc_default)) ::
- (___builtin_fsqrt,
- Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) (Some AST.Tfloat)
- cc_default)) (Tcons tdouble Tnil) tdouble cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil)
- (Some AST.Tfloat) cc_default))
- (Tcons tdouble (Tcons tdouble Tnil)) tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil)
- (Some AST.Tfloat) cc_default))
- (Tcons tdouble (Tcons tdouble Tnil)) tdouble cc_default)) ::
- (___builtin_fmadd,
- Gfun(External (EF_builtin "__builtin_fmadd"
- (mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- (Some AST.Tfloat) cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
- (___builtin_fmsub,
- Gfun(External (EF_builtin "__builtin_fmsub"
- (mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- (Some AST.Tfloat) cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
- (___builtin_fnmadd,
- Gfun(External (EF_builtin "__builtin_fnmadd"
- (mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- (Some AST.Tfloat) cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
- (___builtin_fnmsub,
- Gfun(External (EF_builtin "__builtin_fnmsub"
- (mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- (Some AST.Tfloat) cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) (Some AST.Tint) cc_default))
- (Tcons (tptr tushort) Tnil) tushort cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) (Some AST.Tint) cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) None
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) None
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
- (___builtin_nop,
- Gfun(External (EF_builtin "__builtin_nop"
- (mksignature nil None cc_default)) Tnil tvoid cc_default)) ::
- (___builtin_debug,
- Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) None
- {|cc_vararg:=true; cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
- {|cc_vararg:=true; cc_unproto:=false; cc_structret:=false|})) ::
- (_acquire,
- Gfun(External (EF_external "acquire"
- (mksignature (AST.Tint :: nil) None cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
- (_release,
- Gfun(External (EF_external "release"
- (mksignature (AST.Tint :: nil) None cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
- (_simulate_atomic_load, Gfun(Internal f_simulate_atomic_load)) ::
- (_simulate_atomic_store, Gfun(Internal f_simulate_atomic_store)) ::
- (_simulate_atomic_CAS, Gfun(Internal f_simulate_atomic_CAS)) :: nil);
-prog_public :=
-(_simulate_atomic_CAS :: _simulate_atomic_store :: _simulate_atomic_load ::
- _release :: _acquire :: ___builtin_debug :: ___builtin_nop ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
- ___builtin_fsqrt :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___i64_sar :: ___i64_shr :: ___i64_shl :: ___i64_umod :: ___i64_smod ::
- ___i64_udiv :: ___i64_sdiv :: ___i64_utof :: ___i64_stof :: ___i64_utod ::
- ___i64_stod :: ___i64_dtou :: ___i64_dtos :: ___compcert_va_composite ::
- ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_memcpy_aligned :: ___builtin_fabs :: nil);
-prog_main := _main;
-prog_types := composites;
-prog_comp_env := make_composite_env composites;
-prog_comp_env_eq := refl_equal _
-|}.
-
diff --git a/compcert/Makefile.config b/compcert/Makefile.config
index d9dc735a1f..c178db80bc 100644
--- a/compcert/Makefile.config
+++ b/compcert/Makefile.config
@@ -6,29 +6,29 @@ SHAREDIR=$(PREFIX)/share
COQDEVDIR=$(PREFIX)/lib/compcert/coq
OCAML_NATIVE_COMP=true
OCAML_OPT_COMP=true
-MENHIR_DIR=/Users/appel/.opam/CP.2023.03.0~8.18+beta1/lib/menhirLib
+MENHIR_DIR=/Users/appel/.opam/coq8.19/lib/menhirLib
COMPFLAGS=-bin-annot
-ABI=standard
-ARCH=x86
+ABI=apple
+ARCH=aarch64
ASM_SUPPORTS_CFI=true
BITSIZE=64
-CASM=gcc
-CASM_OPTIONS=-m64 -c
-CASMRUNTIME=gcc -m64 -c
-CC=gcc -m64
+CASM=cc
+CASM_OPTIONS=-c -arch arm64
+CASMRUNTIME=cc -c -arch arm64
+CC=cc -arch arm64
CLIGHTGEN=true
-CLINKER=gcc
-CLINKER_OPTIONS=-m64 -no-pie
-CPREPRO=gcc
-CPREPRO_OPTIONS=-m64 -U__GNUC__ -U__SIZEOF_INT128__ -E
+CLINKER=cc
+CLINKER_OPTIONS=
+CPREPRO=cc
+CPREPRO_OPTIONS=-arch arm64 -U__GNUC__ -U__clang__ -U__BLOCKS__ '-D__attribute__(x)=' '-D__asm(x)=' '-D_Nullable=' '-D_Nonnull=' '-D__DARWIN_OS_INLINE=static inline' -Wno-\#warnings -E
ARCHIVER=ar rcs
ENDIANNESS=little
HAS_RUNTIME_LIB=true
HAS_STANDARD_HEADERS=true
INSTALL_COQDEV=true
-LIBMATH=-lm
-MODEL=64
-SYSTEM=linux
+LIBMATH=
+MODEL=default
+SYSTEM=macos
RESPONSEFILE=gnu
-LIBRARY_FLOCQ=local
+LIBRARY_FLOCQ=external
LIBRARY_MENHIRLIB=local
diff --git a/compcert/VERSION b/compcert/VERSION
index 1d99ed7066..a814d7d20c 100644
--- a/compcert/VERSION
+++ b/compcert/VERSION
@@ -1,4 +1,4 @@
-version=3.13
+version=3.15
buildnr=
tag=
branch=
diff --git a/compcert/cfrontend/Clight.v b/compcert/cfrontend/Clight.v
index a06e9ac3ef..de711045c2 100644
--- a/compcert/cfrontend/Clight.v
+++ b/compcert/cfrontend/Clight.v
@@ -98,7 +98,7 @@ Inductive statement : Type :=
| Sassign : expr -> expr -> statement (**r assignment [lvalue = rvalue] *)
| Sset : ident -> expr -> statement (**r assignment [tempvar = rvalue] *)
| Scall: option ident -> expr -> list expr -> statement (**r function call *)
- | Sbuiltin: option ident -> external_function -> typelist -> list expr -> statement (**r builtin invocation *)
+ | Sbuiltin: option ident -> external_function -> list type -> list expr -> statement (**r builtin invocation *)
| Ssequence : statement -> statement -> statement (**r sequence *)
| Sifthenelse : expr -> statement -> statement -> statement (**r conditional *)
| Sloop: statement -> statement -> statement (**r infinite loop *)
@@ -440,14 +440,14 @@ Combined Scheme eval_expr_lvalue_ind from eval_expr_ind2, eval_lvalue_ind2.
and produces the list of cast values [vl]. It is used to
evaluate the arguments of function calls. *)
-Inductive eval_exprlist: list expr -> typelist -> list val -> Prop :=
+Inductive eval_exprlist: list expr -> list type -> list val -> Prop :=
| eval_Enil:
- eval_exprlist nil Tnil nil
+ eval_exprlist nil nil nil
| eval_Econs: forall a bl ty tyl v1 v2 vl,
eval_expr a v1 ->
sem_cast v1 (typeof a) ty m = Some v2 ->
eval_exprlist bl tyl vl ->
- eval_exprlist (a :: bl) (Tcons ty tyl) (v2 :: vl).
+ eval_exprlist (a :: bl) (ty :: tyl) (v2 :: vl).
End EXPR.
@@ -687,7 +687,7 @@ Inductive initial_state (p: program): state -> Prop :=
Genv.init_mem p = Some m0 ->
Genv.find_symbol ge p.(prog_main) = Some b ->
Genv.find_funct_ptr ge b = Some f ->
- type_of_fundef f = Tfunction Tnil type_int32s cc_default ->
+ type_of_fundef f = Tfunction nil type_int32s cc_default ->
initial_state p (Callstate f nil Kstop m0).
(** A final state is a [Returnstate] with an empty continuation. *)
diff --git a/compcert/cfrontend/ClightBigstep.v b/compcert/cfrontend/ClightBigstep.v
index 51487fa276..4404660798 100644
--- a/compcert/cfrontend/ClightBigstep.v
+++ b/compcert/cfrontend/ClightBigstep.v
@@ -30,6 +30,16 @@ Require Import Ctypes.
Require Import Cop.
Require Import Clight.
+Section CLIGHT.
+
+(** As in the case of the small-step semantics, there are two big-step
+ semantics for Clight, depending on whether function parameters are treated
+ like variables (Clight1) or like temporaries (Clight2).
+ We abstract over both parameter semantics using the same [function_entry]
+ predicate as in the small-step semantics. *)
+
+Variable function_entry: genv -> function -> list val -> mem -> env -> temp_env -> mem -> Prop.
+
Section BIGSTEP.
Variable ge: genv.
@@ -164,14 +174,12 @@ Inductive exec_stmt: env -> temp_env -> mem -> statement -> trace -> temp_env ->
by the call. *)
with eval_funcall: mem -> fundef -> list val -> trace -> mem -> val -> Prop :=
- | eval_funcall_internal: forall le m f vargs t e m1 m2 m3 out vres m4,
- alloc_variables ge empty_env m (f.(fn_params) ++ f.(fn_vars)) e m1 ->
- list_norepet (var_names f.(fn_params) ++ var_names f.(fn_vars)) ->
- bind_parameters ge e m1 f.(fn_params) vargs m2 ->
- exec_stmt e (create_undef_temps f.(fn_temps)) m2 f.(fn_body) t le m3 out ->
- outcome_result_value out f.(fn_return) vres m3 ->
- Mem.free_list m3 (blocks_of_env ge e) = Some m4 ->
- eval_funcall m (Internal f) vargs t m4 vres
+ | eval_funcall_internal: forall m f vargs t e le1 le2 m1 m2 out vres m3,
+ function_entry ge f vargs m e le1 m1 ->
+ exec_stmt e le1 m1 f.(fn_body) t le2 m2 out ->
+ outcome_result_value out f.(fn_return) vres m2 ->
+ Mem.free_list m2 (blocks_of_env ge e) = Some m3 ->
+ eval_funcall m (Internal f) vargs t m3 vres
| eval_funcall_external: forall m ef targs tres cconv vargs t vres m',
external_call ef ge vargs m t vres m' ->
eval_funcall m (External ef targs tres cconv) vargs t m' vres.
@@ -232,11 +240,9 @@ CoInductive execinf_stmt: env -> temp_env -> mem -> statement -> traceinf -> Pro
[fd] on arguments [args] diverges, with observable trace [t]. *)
with evalinf_funcall: mem -> fundef -> list val -> traceinf -> Prop :=
- | evalinf_funcall_internal: forall m f vargs t e m1 m2,
- alloc_variables ge empty_env m (f.(fn_params) ++ f.(fn_vars)) e m1 ->
- list_norepet (var_names f.(fn_params) ++ var_names f.(fn_vars)) ->
- bind_parameters ge e m1 f.(fn_params) vargs m2 ->
- execinf_stmt e (create_undef_temps f.(fn_temps)) m2 f.(fn_body) t ->
+ | evalinf_funcall_internal: forall m f vargs t e m1 le1,
+ function_entry ge f vargs m e le1 m1 ->
+ execinf_stmt e le1 m1 f.(fn_body) t ->
evalinf_funcall m (Internal f) vargs t.
End BIGSTEP.
@@ -249,7 +255,7 @@ Inductive bigstep_program_terminates (p: program): trace -> int -> Prop :=
Genv.init_mem p = Some m0 ->
Genv.find_symbol ge p.(prog_main) = Some b ->
Genv.find_funct_ptr ge b = Some f ->
- type_of_fundef f = Tfunction Tnil type_int32s cc_default ->
+ type_of_fundef f = Tfunction nil type_int32s cc_default ->
eval_funcall ge m0 f nil t m1 (Vint r) ->
bigstep_program_terminates p t r.
@@ -259,7 +265,7 @@ Inductive bigstep_program_diverges (p: program): traceinf -> Prop :=
Genv.init_mem p = Some m0 ->
Genv.find_symbol ge p.(prog_main) = Some b ->
Genv.find_funct_ptr ge b = Some f ->
- type_of_fundef f = Tfunction Tnil type_int32s cc_default ->
+ type_of_fundef f = Tfunction nil type_int32s cc_default ->
evalinf_funcall ge m0 f nil t ->
bigstep_program_diverges p t.
@@ -297,18 +303,24 @@ Proof.
destruct k; simpl; intros; contradiction || auto.
Qed.
+Definition step_fe (ge: genv) := step ge (function_entry ge).
+
+Definition semantics_fe (p: program) :=
+ let ge := globalenv p in
+ Semantics_gen step_fe (initial_state p) final_state ge ge.
+
Lemma exec_stmt_eval_funcall_steps:
(forall e le m s t le' m' out,
exec_stmt ge e le m s t le' m' out ->
forall f k, exists S,
- star step1 ge (State f s k e le m) t S
+ star step_fe ge (State f s k e le m) t S
/\ outcome_state_match e le' m' f k out S)
/\
(forall m fd args t m' res,
eval_funcall ge m fd args t m' res ->
forall k,
is_call_cont k ->
- star step1 ge (Callstate fd args k m) t (Returnstate res k m')).
+ star step_fe ge (Callstate fd args k m) t (Returnstate res k m')).
Proof.
apply exec_stmt_funcall_ind; intros.
@@ -451,23 +463,23 @@ Proof.
unfold S2. inv B1; simpl; econstructor; eauto.
(* call internal *)
- destruct (H3 f k) as [S1 [A1 B1]].
- eapply star_left. eapply step_internal_function; eauto. econstructor; eauto.
+ destruct (H1 f k) as [S1 [A1 B1]].
+ eapply star_left. eapply step_internal_function; eauto.
eapply star_right. eexact A1.
inv B1; simpl in H4; try contradiction.
(* Out_normal *)
assert (fn_return f = Tvoid /\ vres = Vundef).
destruct (fn_return f); auto || contradiction.
- destruct H7. subst vres. apply step_skip_call; auto.
+ destruct H5. subst vres. apply step_skip_call; auto.
(* Out_return None *)
assert (fn_return f = Tvoid /\ vres = Vundef).
destruct (fn_return f); auto || contradiction.
- destruct H8. subst vres.
- rewrite <- (is_call_cont_call_cont k H6). rewrite <- H7.
+ destruct H6. subst vres.
+ rewrite <- (is_call_cont_call_cont k H4). rewrite <- H5.
apply step_return_0; auto.
(* Out_return Some *)
- destruct H4.
- rewrite <- (is_call_cont_call_cont k H6). rewrite <- H7.
+ destruct H2.
+ rewrite <- (is_call_cont_call_cont k H4). rewrite <- H5.
eapply step_return_1; eauto.
reflexivity. traceEq.
@@ -479,7 +491,7 @@ Lemma exec_stmt_steps:
forall e le m s t le' m' out,
exec_stmt ge e le m s t le' m' out ->
forall f k, exists S,
- star step1 ge (State f s k e le m) t S
+ star step_fe ge (State f s k e le m) t S
/\ outcome_state_match e le' m' f k out S.
Proof (proj1 exec_stmt_eval_funcall_steps).
@@ -488,7 +500,7 @@ Lemma eval_funcall_steps:
eval_funcall ge m fd args t m' res ->
forall k,
is_call_cont k ->
- star step1 ge (Callstate fd args k m) t (Returnstate res k m').
+ star step_fe ge (Callstate fd args k m) t (Returnstate res k m').
Proof (proj2 exec_stmt_eval_funcall_steps).
Definition order (x y: unit) := False.
@@ -496,12 +508,12 @@ Definition order (x y: unit) := False.
Lemma evalinf_funcall_forever:
forall m fd args T k,
evalinf_funcall ge m fd args T ->
- forever_N step1 order ge tt (Callstate fd args k m) T.
+ forever_N step_fe order ge tt (Callstate fd args k m) T.
Proof.
cofix CIH_FUN.
assert (forall e le m s T f k,
execinf_stmt ge e le m s T ->
- forever_N step1 order ge tt (State f s k e le m) T).
+ forever_N step_fe order ge tt (State f s k e le m) T).
cofix CIH_STMT.
intros. inv H.
@@ -560,13 +572,13 @@ Proof.
(* call internal *)
intros. inv H0.
eapply forever_N_plus.
- eapply plus_one. econstructor; eauto. econstructor; eauto.
+ eapply plus_one. econstructor; eauto.
apply H; eauto.
traceEq.
Qed.
Theorem bigstep_semantics_sound:
- bigstep_sound (bigstep_semantics prog) (semantics1 prog).
+ bigstep_sound (bigstep_semantics prog) (semantics_fe prog).
Proof.
constructor; simpl; intros.
(* termination *)
@@ -583,3 +595,41 @@ Proof.
Qed.
End BIGSTEP_TO_TRANSITIONS.
+
+End CLIGHT.
+
+(** ** Specialized definitions for Clight1 and Clight2 *)
+
+(** Clight1: function parameters are variables. *)
+
+Module Clight1.
+
+Definition exec_stmt := exec_stmt function_entry1.
+Definition eval_funcall := eval_funcall function_entry1.
+Definition bigstep_program_terminates := bigstep_program_terminates function_entry1.
+Definition execinf_stmt := execinf_stmt function_entry1.
+Definition evalinf_funcall := evalinf_funcall function_entry1.
+Definition bigstep_program_diverges := bigstep_program_diverges function_entry1.
+Definition bigstep_semantics := bigstep_semantics function_entry1.
+Theorem bigstep_semantics_sound: forall prog,
+ bigstep_sound (bigstep_semantics prog) (Clight.semantics1 prog).
+Proof (bigstep_semantics_sound function_entry1).
+
+End Clight1.
+
+(** Clight2: function parameters are temporaries. *)
+
+Module Clight2.
+
+Definition exec_stmt := exec_stmt function_entry2.
+Definition eval_funcall := eval_funcall function_entry2.
+Definition bigstep_program_terminates := bigstep_program_terminates function_entry2.
+Definition execinf_stmt := execinf_stmt function_entry2.
+Definition evalinf_funcall := evalinf_funcall function_entry2.
+Definition bigstep_program_diverges := bigstep_program_diverges function_entry2.
+Definition bigstep_semantics := bigstep_semantics function_entry2.
+Theorem bigstep_semantics_sound: forall prog,
+ bigstep_sound (bigstep_semantics prog) (Clight.semantics2 prog).
+Proof (bigstep_semantics_sound function_entry2).
+
+End Clight2.
diff --git a/compcert/cfrontend/Cop.v b/compcert/cfrontend/Cop.v
index 0d7bcc3a5c..a3de535522 100644
--- a/compcert/cfrontend/Cop.v
+++ b/compcert/cfrontend/Cop.v
@@ -104,25 +104,28 @@ Definition classify_cast (tfrom tto: type) : classify_cast_cases :=
match tto, tfrom with
(* To [void] *)
| Tvoid, _ => cast_case_void
- (* To [_Bool] *)
- | Tint IBool _ _, Tint _ _ _ => cast_case_i2bool
- | Tint IBool _ _, Tlong _ _ => cast_case_l2bool
- | Tint IBool _ _, Tfloat F64 _ => cast_case_f2bool
- | Tint IBool _ _, Tfloat F32 _ => cast_case_s2bool
- | Tint IBool _ _, (Tpointer _ _ | Tarray _ _ _ | Tfunction _ _ _) =>
- if Archi.ptr64 then cast_case_l2bool else cast_case_i2bool
- (* To [int] other than [_Bool] *)
+ (* To [int] *)
| Tint sz2 si2 _, Tint _ _ _ =>
- if Archi.ptr64 then cast_case_i2i sz2 si2
- else if intsize_eq sz2 I32 then cast_case_pointer
- else cast_case_i2i sz2 si2
- | Tint sz2 si2 _, Tlong _ _ => cast_case_l2i sz2 si2
- | Tint sz2 si2 _, Tfloat F64 _ => cast_case_f2i sz2 si2
- | Tint sz2 si2 _, Tfloat F32 _ => cast_case_s2i sz2 si2
+ match sz2 with
+ | IBool => cast_case_i2bool
+ | I32 => if Archi.ptr64 then cast_case_i2i sz2 si2 else cast_case_pointer
+ | _ => cast_case_i2i sz2 si2
+ end
+ | Tint sz2 si2 _, Tlong _ _ =>
+ if intsize_eq sz2 IBool then cast_case_l2bool else cast_case_l2i sz2 si2
+ | Tint sz2 si2 _, Tfloat F64 _ =>
+ if intsize_eq sz2 IBool then cast_case_f2bool else cast_case_f2i sz2 si2
+ | Tint sz2 si2 _, Tfloat F32 _ =>
+ if intsize_eq sz2 IBool then cast_case_s2bool else cast_case_s2i sz2 si2
| Tint sz2 si2 _, (Tpointer _ _ | Tarray _ _ _ | Tfunction _ _ _) =>
- if Archi.ptr64 then cast_case_l2i sz2 si2
- else if intsize_eq sz2 I32 then cast_case_pointer
- else cast_case_i2i sz2 si2
+ if Archi.ptr64 then (**r like long to int *)
+ if intsize_eq sz2 IBool then cast_case_l2bool else cast_case_l2i sz2 si2
+ else
+ match sz2 with (**r like int to int *)
+ | IBool => cast_case_i2bool
+ | I32 => cast_case_pointer
+ | _ => cast_case_i2i sz2 si2
+ end
(* To [long] *)
| Tlong _ _, Tlong _ _ =>
if Archi.ptr64 then cast_case_pointer else cast_case_l2l
@@ -1000,7 +1003,7 @@ Definition sem_cmp (c:comparison)
(** ** Function applications *)
Inductive classify_fun_cases : Type :=
- | fun_case_f (targs: typelist) (tres: type) (cc: calling_convention) (**r (pointer to) function *)
+ | fun_case_f (targs: list type) (tres: type) (cc: calling_convention) (**r (pointer to) function *)
| fun_default.
Definition classify_fun (ty: type) :=
@@ -1589,7 +1592,6 @@ Ltac DestructCases :=
| [H: match ?x with _ => _ end = Some _ |- _ ] => destruct x eqn:?; DestructCases
| [H: Some _ = Some _ |- _ ] => inv H; DestructCases
| [H: None = Some _ |- _ ] => discriminate H
- | [H: @eq intsize _ _ |- _ ] => discriminate H || (clear H; DestructCases)
| [ |- val_casted (Vint (if ?x then Int.zero else Int.one)) _ ] =>
try (constructor; destruct x; reflexivity)
| [ |- val_casted (Vint _) (Tint ?sz ?sg _) ] =>
@@ -1601,7 +1603,8 @@ Lemma cast_val_is_casted:
forall v ty ty' v' m, sem_cast v ty ty' m = Some v' -> val_casted v' ty'.
Proof.
unfold sem_cast; intros.
- destruct ty, ty'; simpl in H; DestructCases; constructor; auto.
+ destruct ty, ty'; simpl in H; DestructCases; InvBooleans; subst;
+ try discriminate; constructor; auto.
Qed.
End VAL_CASTED.
@@ -1612,10 +1615,11 @@ Lemma cast_val_casted:
forall v ty m, val_casted v ty -> sem_cast v ty ty m = Some v.
Proof.
intros. unfold sem_cast; inversion H; clear H; subst v ty; simpl.
-- destruct Archi.ptr64; [ | destruct (intsize_eq sz I32)].
-+ destruct sz; f_equal; f_equal; assumption.
-+ subst sz; auto.
-+ destruct sz; f_equal; f_equal; assumption.
+- destruct sz.
+ + congruence.
+ + congruence.
+ + destruct Archi.ptr64; congruence.
+ + simpl in H0. congruence.
- auto.
- auto.
- destruct Archi.ptr64; auto.
@@ -1635,7 +1639,18 @@ Proof.
intros. apply cast_val_casted. eapply cast_val_is_casted; eauto.
Qed.
-(** Moreover, casted values belong to the machine type corresponding to the
+(** Moreover, casted values belong to the machine argument type corresponding
+ to the C type. *)
+
+Lemma val_casted_has_argtype:
+ forall v ty, val_casted v ty -> Val.has_argtype v (argtype_of_type ty).
+Proof.
+ destruct 1; simpl; rewrite ? H; auto.
+- destruct sz; [destruct si | destruct si | | ]; simpl in *; auto.
+ destruct (Int.eq n Int.zero); auto.
+Qed.
+
+(** Likewise, casted values belong to the machine type corresponding to the
C type. *)
Lemma val_casted_has_type:
diff --git a/compcert/cfrontend/Csem.v b/compcert/cfrontend/Csem.v
index 6698c56f4e..f1fed606db 100644
--- a/compcert/cfrontend/Csem.v
+++ b/compcert/cfrontend/Csem.v
@@ -191,12 +191,12 @@ Fixpoint seq_of_labeled_statement (sl: labeled_statements) : statement :=
(** Extract the values from a list of function arguments *)
-Inductive cast_arguments (m: mem): exprlist -> typelist -> list val -> Prop :=
+Inductive cast_arguments (m: mem): exprlist -> list type -> list val -> Prop :=
| cast_args_nil:
- cast_arguments m Enil Tnil nil
+ cast_arguments m Enil nil nil
| cast_args_cons: forall v ty el targ1 targs v1 vl,
sem_cast v ty targ1 m = Some v1 -> cast_arguments m el targs vl ->
- cast_arguments m (Econs (Eval v ty) el) (Tcons targ1 targs) (v1 :: vl).
+ cast_arguments m (Econs (Eval v ty) el) (targ1 :: targs) (v1 :: vl).
(** ** Reduction semantics for expressions *)
@@ -459,9 +459,10 @@ Lemma red_selection:
Proof.
intros. unfold Eselection.
set (t := typ_of_type ty).
- set (sg := mksignature (AST.Tint :: t :: t :: nil) t cc_default).
+ set (x := inj_type t).
+ set (sg := [Xint; x; x ---> x]%asttyp).
assert (LK: lookup_builtin_function "__builtin_sel"%string sg = Some (BI_standard (BI_select t))).
- { unfold sg, t; destruct ty as [ | ? ? ? | ? | [] ? | ? ? | ? ? ? | ? ? ? | ? ? | ? ? ];
+ { unfold sg, x, t; destruct ty as [ | ? ? ? | ? | [] ? | ? ? | ? ? ? | ? ? ? | ? ? | ? ? ];
simpl; unfold Tptr; destruct Archi.ptr64; reflexivity. }
set (v' := if b then v2' else v3').
assert (C: val_casted v' ty).
@@ -832,7 +833,7 @@ Inductive initial_state (p: program): state -> Prop :=
Genv.init_mem p = Some m0 ->
Genv.find_symbol ge p.(prog_main) = Some b ->
Genv.find_funct_ptr ge b = Some f ->
- type_of_fundef f = Tfunction Tnil type_int32s cc_default ->
+ type_of_fundef f = Tfunction nil type_int32s cc_default ->
initial_state p (Callstate f nil Kstop m0).
(** A final state is a [Returnstate] with an empty continuation. *)
diff --git a/compcert/cfrontend/Cstrategy.v b/compcert/cfrontend/Cstrategy.v
index 3c45e93b64..578615db0c 100644
--- a/compcert/cfrontend/Cstrategy.v
+++ b/compcert/cfrontend/Cstrategy.v
@@ -140,13 +140,13 @@ with eval_simple_rvalue: expr -> val -> Prop :=
| esr_alignof: forall ty1 ty,
eval_simple_rvalue (Ealignof ty1 ty) (Vptrofs (Ptrofs.repr (alignof ge ty1))).
-Inductive eval_simple_list: exprlist -> typelist -> list val -> Prop :=
+Inductive eval_simple_list: exprlist -> list type -> list val -> Prop :=
| esrl_nil:
- eval_simple_list Enil Tnil nil
+ eval_simple_list Enil nil nil
| esrl_cons: forall r rl ty tyl v vl v',
eval_simple_rvalue r v' -> sem_cast v' (typeof r) ty m = Some v ->
eval_simple_list rl tyl vl ->
- eval_simple_list (Econs r rl) (Tcons ty tyl) (v :: vl).
+ eval_simple_list (Econs r rl) (ty :: tyl) (v :: vl).
Scheme eval_simple_rvalue_ind2 := Minimality for eval_simple_rvalue Sort Prop
with eval_simple_lvalue_ind2 := Minimality for eval_simple_lvalue Sort Prop.
@@ -2256,7 +2256,7 @@ Proof.
eapply leftcontext_compose; eauto. repeat constructor. intros [A [B D]].
exploit (H2 (fun x => C(Ebinop op a1' x ty))).
eapply leftcontext_compose; eauto. repeat constructor. auto. intros [E [F G]].
- simpl; intuition. eapply star_trans; eauto.
+ simpl; intuition auto with bool. eapply star_trans; eauto.
(* cast *)
exploit (H0 (fun x => C(Ecast x ty))).
eapply leftcontext_compose; eauto. repeat constructor. intros [A [B D]].
@@ -2365,7 +2365,7 @@ Proof.
rewrite exprlist_app_simple. simpl. rewrite H5; rewrite A; auto.
repeat rewrite exprlist_app_assoc. simpl.
intros [E F].
- simpl; intuition.
+ simpl; intuition auto with bool.
eapply star_trans; eauto.
(* skip *)
@@ -3032,7 +3032,7 @@ Inductive bigstep_program_terminates (p: program): trace -> int -> Prop :=
Genv.init_mem p = Some m0 ->
Genv.find_symbol ge p.(prog_main) = Some b ->
Genv.find_funct_ptr ge b = Some f ->
- type_of_fundef f = Tfunction Tnil type_int32s cc_default ->
+ type_of_fundef f = Tfunction nil type_int32s cc_default ->
eval_funcall ge m0 f nil t m1 (Vint r) ->
bigstep_program_terminates p t r.
@@ -3042,7 +3042,7 @@ Inductive bigstep_program_diverges (p: program): traceinf -> Prop :=
Genv.init_mem p = Some m0 ->
Genv.find_symbol ge p.(prog_main) = Some b ->
Genv.find_funct_ptr ge b = Some f ->
- type_of_fundef f = Tfunction Tnil type_int32s cc_default ->
+ type_of_fundef f = Tfunction nil type_int32s cc_default ->
evalinf_funcall ge m0 f nil t ->
bigstep_program_diverges p t.
diff --git a/compcert/cfrontend/Csyntax.v b/compcert/cfrontend/Csyntax.v
index 5b8a62be92..152ac99022 100644
--- a/compcert/cfrontend/Csyntax.v
+++ b/compcert/cfrontend/Csyntax.v
@@ -54,7 +54,7 @@ Inductive expr : Type :=
| Ecomma (r1 r2: expr) (ty: type) (**r sequence expression [r1, r2] *)
| Ecall (r1: expr) (rargs: exprlist) (ty: type)
(**r function call [r1(rargs)] *)
- | Ebuiltin (ef: external_function) (tyargs: typelist) (rargs: exprlist) (ty: type)
+ | Ebuiltin (ef: external_function) (tyargs: list type) (rargs: exprlist) (ty: type)
(**r builtin function call *)
| Eloc (b: block) (ofs: ptrofs) (bf: bitfield) (ty: type)
(**r memory location, result of evaluating a l-value *)
@@ -106,10 +106,10 @@ Definition Epreincr (id: incr_or_decr) (l: expr) (ty: type) :=
It is expressed as an invocation of a builtin function. *)
Definition Eselection (r1 r2 r3: expr) (ty: type) :=
- let t := typ_of_type ty in
- let sg := mksignature (AST.Tint :: t :: t :: nil) t cc_default in
+ let t := inj_type (typ_of_type ty) in
+ let sg := [Xint; t; t ---> t]%asttyp in
Ebuiltin (EF_builtin "__builtin_sel"%string sg)
- (Tcons type_bool (Tcons ty (Tcons ty Tnil)))
+ (type_bool :: ty :: ty :: nil)
(Econs r1 (Econs r2 (Econs r3 Enil)))
ty.
diff --git a/compcert/cfrontend/Ctypes.v b/compcert/cfrontend/Ctypes.v
index 8da714cd36..21a87fe485 100644
--- a/compcert/cfrontend/Ctypes.v
+++ b/compcert/cfrontend/Ctypes.v
@@ -76,12 +76,9 @@ Inductive type : Type :=
| Tfloat: floatsize -> attr -> type (**r floating-point types *)
| Tpointer: type -> attr -> type (**r pointer types ([*ty]) *)
| Tarray: type -> Z -> attr -> type (**r array types ([ty[len]]) *)
- | Tfunction: typelist -> type -> calling_convention -> type (**r function types *)
+ | Tfunction: list type -> type -> calling_convention -> type (**r function types *)
| Tstruct: ident -> attr -> type (**r struct types *)
- | Tunion: ident -> attr -> type (**r union types *)
-with typelist : Type :=
- | Tnil: typelist
- | Tcons: type -> typelist -> typelist.
+ | Tunion: ident -> attr -> type. (**r union types *)
Lemma intsize_eq: forall (s1 s2: intsize), {s1=s2} + {s1<>s2}.
Proof.
@@ -93,23 +90,28 @@ Proof.
decide equality.
Defined.
+Lemma floatsize_eq: forall (s1 s2: floatsize), {s1=s2} + {s1<>s2}.
+Proof.
+ decide equality.
+Defined.
+
Lemma attr_eq: forall (a1 a2: attr), {a1=a2} + {a1<>a2}.
Proof.
decide equality. decide equality. apply N.eq_dec. apply bool_dec.
Defined.
-Lemma type_eq: forall (ty1 ty2: type), {ty1=ty2} + {ty1<>ty2}
-with typelist_eq: forall (tyl1 tyl2: typelist), {tyl1=tyl2} + {tyl1<>tyl2}.
+Lemma type_eq: forall (ty1 ty2: type), {ty1=ty2} + {ty1<>ty2}.
Proof.
- assert (forall (x y: floatsize), {x=y} + {x<>y}) by decide equality.
- generalize ident_eq zeq bool_dec ident_eq intsize_eq signedness_eq attr_eq; intros.
- decide equality.
- decide equality.
- decide equality.
- decide equality.
+ fix REC 1.
+ decide equality; auto using ident_eq, zeq, bool_dec, ident_eq, intsize_eq, signedness_eq, floatsize_eq, attr_eq, list_eq_dec, calling_convention_eq.
Defined.
-Global Opaque intsize_eq signedness_eq attr_eq type_eq typelist_eq.
+Lemma typelist_eq: forall (tyl1 tyl2: list type), {tyl1=tyl2} + {tyl1<>tyl2}.
+Proof.
+ auto using list_eq_dec, type_eq.
+Defined.
+
+Global Opaque intsize_eq signedness_eq floatsize_eq attr_eq type_eq typelist_eq.
(** Extract the attributes of a type. *)
@@ -905,7 +907,7 @@ Definition access_mode (ty: type) : mode :=
| Tint I16 Signed _ => By_value Mint16signed
| Tint I16 Unsigned _ => By_value Mint16unsigned
| Tint I32 _ _ => By_value Mint32
- | Tint IBool _ _ => By_value Mint8unsigned
+ | Tint IBool _ _ => By_value Mbool
| Tlong _ _ => By_value Mint64
| Tfloat F32 _ => By_value Mfloat32
| Tfloat F64 _ => By_value Mfloat64
@@ -1044,11 +1046,8 @@ Fixpoint rank_members (ce: composite_env) (m: members) : nat :=
(** Extracting a type list from a function parameter declaration. *)
-Fixpoint type_of_params (params: list (ident * type)) : typelist :=
- match params with
- | nil => Tnil
- | (id, ty) :: rem => Tcons ty (type_of_params rem)
- end.
+Definition type_of_params (params: list (ident * type)) : list type :=
+ List.map snd params.
(** Translating C types to Cminor types and function signatures. *)
@@ -1062,30 +1061,43 @@ Definition typ_of_type (t: type) : AST.typ :=
| Tpointer _ _ | Tarray _ _ _ | Tfunction _ _ _ | Tstruct _ _ | Tunion _ _ => AST.Tptr
end.
-Definition rettype_of_type (t: type) : AST.rettype :=
+Definition argtype_of_type (t: type) : xtype :=
match t with
- | Tvoid => AST.Tvoid
- | Tint I32 _ _ => AST.Tint
- | Tint I8 Signed _ => AST.Tint8signed
- | Tint I8 Unsigned _ => AST.Tint8unsigned
- | Tint I16 Signed _ => AST.Tint16signed
- | Tint I16 Unsigned _ => AST.Tint16unsigned
- | Tint IBool _ _ => AST.Tint8unsigned
- | Tlong _ _ => AST.Tlong
- | Tfloat F32 _ => AST.Tsingle
- | Tfloat F64 _ => AST.Tfloat
- | Tpointer _ _ => AST.Tptr
- | Tarray _ _ _ | Tfunction _ _ _ | Tstruct _ _ | Tunion _ _ => AST.Tvoid
+ | Tvoid => Xvoid
+ | Tint I32 _ _ => Xint
+ | Tint I8 Signed _ => Xint8signed
+ | Tint I8 Unsigned _ => Xint8unsigned
+ | Tint I16 Signed _ => Xint16signed
+ | Tint I16 Unsigned _ => Xint16unsigned
+ | Tint IBool _ _ => Xbool
+ | Tlong _ _ => Xlong
+ | Tfloat F32 _ => Xsingle
+ | Tfloat F64 _ => Xfloat
+ | Tpointer _ _ => Xptr
+ | Tarray _ _ _ | Tfunction _ _ _ | Tstruct _ _ | Tunion _ _ => Xptr
end.
-Fixpoint typlist_of_typelist (tl: typelist) : list AST.typ :=
- match tl with
- | Tnil => nil
- | Tcons hd tl => typ_of_type hd :: typlist_of_typelist tl
+(** In CompCert C, array, function, struct and union types cannot
+ appear as function return types. *)
+
+Definition rettype_of_type (t: type) : xtype :=
+ match t with
+ | Tvoid => AST.Xvoid
+ | Tint I32 _ _ => AST.Xint
+ | Tint I8 Signed _ => AST.Xint8signed
+ | Tint I8 Unsigned _ => AST.Xint8unsigned
+ | Tint I16 Signed _ => AST.Xint16signed
+ | Tint I16 Unsigned _ => AST.Xint16unsigned
+ | Tint IBool _ _ => AST.Xbool
+ | Tlong _ _ => AST.Xlong
+ | Tfloat F32 _ => AST.Xsingle
+ | Tfloat F64 _ => AST.Xfloat
+ | Tpointer _ _ => AST.Xptr
+ | Tarray _ _ _ | Tfunction _ _ _ | Tstruct _ _ | Tunion _ _ => AST.Xvoid
end.
-Definition signature_of_type (args: typelist) (res: type) (cc: calling_convention): signature :=
- mksignature (typlist_of_typelist args) (rettype_of_type res) cc.
+Definition signature_of_type (args: list type) (res: type) (cc: calling_convention): signature :=
+ mksignature (List.map argtype_of_type args) (rettype_of_type res) cc.
(** * Construction of the composite environment *)
@@ -1505,7 +1517,7 @@ Variable F: Type.
Inductive fundef : Type :=
| Internal: F -> fundef
- | External: external_function -> typelist -> type -> calling_convention -> fundef.
+ | External: external_function -> list type -> type -> calling_convention -> fundef.
(** A program, or compilation unit, is composed of:
- a list of definitions of functions and global variables;
@@ -1806,8 +1818,7 @@ Next Obligation.
+ discriminate.
+ destruct e; inv H. split; constructor.
+ destruct e; inv H. split; constructor.
-+ destruct (external_function_eq e e0 && typelist_eq t t1 && type_eq t0 t2 && calling_convention_eq c c0) eqn:A; inv H.
- InvBooleans. subst. split; constructor.
++ destruct andb eqn:A; inv H. InvBooleans. subst. split; constructor.
Defined.
Remark link_fundef_either:
@@ -1816,7 +1827,7 @@ Proof.
simpl; intros. unfold link_fundef in H. destruct f1, f2; try discriminate.
- destruct e; inv H. auto.
- destruct e; inv H. auto.
-- destruct (external_function_eq e e0 && typelist_eq t t1 && type_eq t0 t2 && calling_convention_eq c c0); inv H; auto.
+- destruct andb; inv H; auto.
Qed.
Global Opaque Linker_fundef.
diff --git a/compcert/common/AST.v b/compcert/common/AST.v
index 2259d74cc4..0b1c5f4544 100644
--- a/compcert/common/AST.v
+++ b/compcert/common/AST.v
@@ -89,30 +89,57 @@ Fixpoint subtype_list (tyl1 tyl2: list typ) : bool :=
| _, _ => false
end.
-(** To describe the values returned by functions, we use the more precise
- types below. *)
-
-Inductive rettype : Type :=
- | Tret (t: typ) (**r like type [t] *)
- | Tint8signed (**r 8-bit signed integer *)
- | Tint8unsigned (**r 8-bit unsigned integer *)
- | Tint16signed (**r 16-bit signed integer *)
- | Tint16unsigned (**r 16-bit unsigned integer *)
- | Tvoid. (**r no value returned *)
-
-Coercion Tret: typ >-> rettype.
-
-Lemma rettype_eq: forall (t1 t2: rettype), {t1=t2} + {t1<>t2}.
-Proof. generalize typ_eq; decide equality. Defined.
-Global Opaque rettype_eq.
-
-Definition proj_rettype (r: rettype) : typ :=
- match r with
- | Tret t => t
- | Tint8signed | Tint8unsigned | Tint16signed | Tint16unsigned => Tint
- | Tvoid => Tint
+(** To describe function arguments and function return values,
+ we use the more precise types below. *)
+
+Inductive xtype : Type :=
+ | Xbool (**r Boolean value (0 or 1) *)
+ | Xint8signed (**r 8-bit signed integer *)
+ | Xint8unsigned (**r 8-bit unsigned integer *)
+ | Xint16signed (**r 16-bit signed integer *)
+ | Xint16unsigned (**r 16-bit unsigned integer *)
+ | Xint (**r 32-bit integers or pointers *)
+ | Xfloat (**r 64-bit double-precision floats *)
+ | Xlong (**r 64-bit integers *)
+ | Xsingle (**r 32-bit single-precision floats *)
+ | Xptr (**r pointers and pointer-sized integers *)
+ | Xany32 (**r any 32-bit value *)
+ | Xany64 (**r any 64-bit value, i.e. any value *)
+ | Xvoid. (**r no meaningful value *)
+
+Definition Xsize_t := if Archi.ptr64 then Xlong else Xint.
+
+Lemma xtype_eq: forall (t1 t2: xtype), {t1=t2} + {t1<>t2}.
+Proof. decide equality. Defined.
+Global Opaque xtype_eq.
+
+Definition inj_type (t: typ) : xtype :=
+ match t with
+ | Tint => Xint
+ | Tfloat => Xfloat
+ | Tlong => Xlong
+ | Tsingle => Xsingle
+ | Tany32 => Xany32
+ | Tany64 => Xany64
+ end.
+
+Definition proj_xtype (x: xtype) : typ :=
+ match x with
+ | Xbool | Xint8signed | Xint8unsigned | Xint16signed | Xint16unsigned | Xint => Tint
+ | Xfloat => Tfloat
+ | Xlong => Tlong
+ | Xsingle => Tsingle
+ | Xptr => Tptr
+ | Xany32 => Tany32
+ | Xany64 => Tany64
+ | Xvoid => Tint
end.
+Lemma proj_inj_type: forall t, proj_xtype (inj_type t) = t.
+Proof.
+ destruct t; auto.
+Qed.
+
(** Additionally, function definitions and function calls are annotated
by function signatures indicating:
- the number and types of arguments;
@@ -138,27 +165,38 @@ Defined.
Global Opaque calling_convention_eq.
Record signature : Type := mksignature {
- sig_args: list typ;
- sig_res: rettype;
+ sig_args: list xtype;
+ sig_res: xtype;
sig_cc: calling_convention
}.
-Definition proj_sig_res (s: signature) : typ := proj_rettype s.(sig_res).
+Definition proj_sig_args (s: signature) : list typ := List.map proj_xtype s.(sig_args).
+Definition proj_sig_res (s: signature) : typ := proj_xtype s.(sig_res).
Definition signature_eq: forall (s1 s2: signature), {s1=s2} + {s1<>s2}.
Proof.
- generalize rettype_eq, list_typ_eq, calling_convention_eq; decide equality.
+ generalize xtype_eq, list_eq_dec, calling_convention_eq; decide equality.
Defined.
Global Opaque signature_eq.
-Definition signature_main :=
- {| sig_args := nil; sig_res := Tint; sig_cc := cc_default |}.
+Declare Scope asttyp_scope.
+Notation "[ ---> y ]" := (mksignature nil y cc_default) : asttyp_scope.
+Notation "[ x ---> y ]" :=
+ (mksignature (@cons xtype x nil) y cc_default) : asttyp_scope.
+Notation "[ x1 ; x2 ; .. ; xn ---> y ]" :=
+ (mksignature (@cons xtype x1 (@cons xtype x2 .. (@cons xtype xn nil) ..)) y cc_default) : asttyp_scope.
+
+Delimit Scope asttyp_scope with asttyp.
+Local Open Scope asttyp_scope.
+
+Definition signature_main := [ ---> Xint].
(** Memory accesses (load and store instructions) are annotated by
a ``memory chunk'' indicating the type, size and signedness of the
chunk of memory being accessed. *)
Inductive memory_chunk : Type :=
+ | Mbool (**r 8-bit integer containing 0 or 1 *)
| Mint8signed (**r 8-bit signed integer *)
| Mint8unsigned (**r 8-bit unsigned integer *)
| Mint16signed (**r 16-bit signed integer *)
@@ -180,6 +218,7 @@ Definition Mptr : memory_chunk := if Archi.ptr64 then Mint64 else Mint32.
Definition type_of_chunk (c: memory_chunk) : typ :=
match c with
+ | Mbool => Tint
| Mint8signed => Tint
| Mint8unsigned => Tint
| Mint16signed => Tint
@@ -195,24 +234,25 @@ Definition type_of_chunk (c: memory_chunk) : typ :=
Lemma type_of_Mptr: type_of_chunk Mptr = Tptr.
Proof. unfold Mptr, Tptr; destruct Archi.ptr64; auto. Qed.
-(** Same, as a return type. *)
+(** Same, as an extended type. *)
-Definition rettype_of_chunk (c: memory_chunk) : rettype :=
+Definition xtype_of_chunk (c: memory_chunk) : xtype :=
match c with
- | Mint8signed => Tint8signed
- | Mint8unsigned => Tint8unsigned
- | Mint16signed => Tint16signed
- | Mint16unsigned => Tint16unsigned
- | Mint32 => Tint
- | Mint64 => Tlong
- | Mfloat32 => Tsingle
- | Mfloat64 => Tfloat
- | Many32 => Tany32
- | Many64 => Tany64
+ | Mbool => Xbool
+ | Mint8signed => Xint8signed
+ | Mint8unsigned => Xint8unsigned
+ | Mint16signed => Xint16signed
+ | Mint16unsigned => Xint16unsigned
+ | Mint32 => Xint
+ | Mint64 => Xlong
+ | Mfloat32 => Xsingle
+ | Mfloat64 => Xfloat
+ | Many32 => Xany32
+ | Many64 => Xany64
end.
-Lemma proj_rettype_of_chunk:
- forall chunk, proj_rettype (rettype_of_chunk chunk) = type_of_chunk chunk.
+Lemma proj_xtype_of_chunk:
+ forall chunk, proj_xtype (xtype_of_chunk chunk) = type_of_chunk chunk.
Proof.
destruct chunk; auto.
Qed.
@@ -517,15 +557,15 @@ Definition ef_sig (ef: external_function): signature :=
| EF_external name sg => sg
| EF_builtin name sg => sg
| EF_runtime name sg => sg
- | EF_vload chunk => mksignature (Tptr :: nil) (rettype_of_chunk chunk) cc_default
- | EF_vstore chunk => mksignature (Tptr :: type_of_chunk chunk :: nil) Tvoid cc_default
- | EF_malloc => mksignature (Tptr :: nil) Tptr cc_default
- | EF_free => mksignature (Tptr :: nil) Tvoid cc_default
- | EF_memcpy sz al => mksignature (Tptr :: Tptr :: nil) Tvoid cc_default
- | EF_annot kind text targs => mksignature targs Tvoid cc_default
- | EF_annot_val kind text targ => mksignature (targ :: nil) targ cc_default
+ | EF_vload chunk => [Xptr ---> xtype_of_chunk chunk]
+ | EF_vstore chunk => [Xptr; xtype_of_chunk chunk ---> Xvoid]
+ | EF_malloc => [Xsize_t ---> Xptr]
+ | EF_free => [Xptr ---> Xvoid]
+ | EF_memcpy sz al => [Xptr; Xptr ---> Xvoid]
+ | EF_annot kind text targs => mksignature (List.map inj_type targs) Xvoid cc_default
+ | EF_annot_val kind text targ => [inj_type targ ---> inj_type targ]
| EF_inline_asm text sg clob => sg
- | EF_debug kind text targs => mksignature targs Tvoid cc_default
+ | EF_debug kind text targs => mksignature (List.map inj_type targs) Xvoid cc_default
end.
(** Whether an external function should be inlined by the compiler. *)
@@ -541,7 +581,7 @@ Definition ef_inline (ef: external_function) : bool :=
| EF_free => false
| EF_memcpy sz al => true
| EF_annot kind text targs => true
- | EF_annot_val kind Text rg => true
+ | EF_annot_val kind text rg => true
| EF_inline_asm text sg clob => true
| EF_debug kind text targs => true
end.
@@ -559,7 +599,7 @@ Definition ef_reloads (ef: external_function) : bool :=
Definition external_function_eq: forall (ef1 ef2: external_function), {ef1=ef2} + {ef1<>ef2}.
Proof.
- generalize ident_eq string_dec signature_eq chunk_eq typ_eq list_eq_dec zeq Int.eq_dec; intros.
+ generalize ident_eq string_dec signature_eq chunk_eq typ_eq xtype_eq list_eq_dec zeq Int.eq_dec; intros.
decide equality.
Defined.
Global Opaque external_function_eq.
diff --git a/compcert/common/Builtins0.v b/compcert/common/Builtins0.v
index d192229710..d99ad1f398 100644
--- a/compcert/common/Builtins0.v
+++ b/compcert/common/Builtins0.v
@@ -18,6 +18,7 @@
Require Import String Coqlib.
Require Import AST Integers Floats Values Memdata.
+Local Open Scope asttyp_scope.
(** This module provides definitions and mechanisms to associate semantics
with names of built-in functions.
@@ -27,7 +28,7 @@ Require Import AST Integers Floats Values Memdata.
appropriate for the target.
*)
-Definition val_opt_has_rettype (ov: option val) (t: rettype) : Prop :=
+Definition val_opt_has_rettype (ov: option val) (t: xtype) : Prop :=
match ov with Some v => Val.has_rettype v t | None => True end.
Definition val_opt_inject (j: meminj) (ov ov': option val) : Prop :=
@@ -43,7 +44,7 @@ Definition val_opt_inject (j: meminj) (ov ov': option val) : Prop :=
and be compatible with value injections.
*)
-Record builtin_sem (tret: rettype) : Type := mkbuiltin {
+Record builtin_sem (tret: xtype) : Type := mkbuiltin {
bs_sem :> list val -> option val;
bs_well_typed: forall vl,
val_opt_has_rettype (bs_sem vl) tret;
@@ -61,7 +62,7 @@ Record builtin_sem (tret: rettype) : Type := mkbuiltin {
Local Unset Program Cases.
Program Definition mkbuiltin_v1t
- (tret: rettype) (f: val -> val)
+ (tret: xtype) (f: val -> val)
(WT: forall v1, Val.has_rettype (f v1) tret)
(INJ: forall j v1 v1', Val.inject j v1 v1' -> Val.inject j (f v1) (f v1')) :=
mkbuiltin tret (fun vl => match vl with v1 :: nil => Some (f v1) | _ => None end) _ _.
@@ -73,7 +74,7 @@ Next Obligation.
Qed.
Program Definition mkbuiltin_v2t
- (tret: rettype) (f: val -> val -> val)
+ (tret: xtype) (f: val -> val -> val)
(WT: forall v1 v2, Val.has_rettype (f v1 v2) tret)
(INJ: forall j v1 v1' v2 v2',
Val.inject j v1 v1' -> Val.inject j v2 v2' ->
@@ -87,7 +88,7 @@ Next Obligation.
Qed.
Program Definition mkbuiltin_v3t
- (tret: rettype) (f: val -> val -> val -> val)
+ (tret: xtype) (f: val -> val -> val -> val)
(WT: forall v1 v2 v3, Val.has_rettype (f v1 v2 v3) tret)
(INJ: forall j v1 v1' v2 v2' v3 v3',
Val.inject j v1 v1' -> Val.inject j v2 v2' -> Val.inject j v3 v3' ->
@@ -101,7 +102,7 @@ Next Obligation.
Qed.
Program Definition mkbuiltin_v1p
- (tret: rettype) (f: val -> option val)
+ (tret: xtype) (f: val -> option val)
(WT: forall v1, val_opt_has_rettype (f v1) tret)
(INJ: forall j v1 v1',
Val.inject j v1 v1' -> val_opt_inject j (f v1) (f v1')) :=
@@ -114,7 +115,7 @@ Next Obligation.
Qed.
Program Definition mkbuiltin_v2p
- (tret: rettype) (f: val -> val -> option val)
+ (tret: xtype) (f: val -> val -> option val)
(WT: forall v1 v2, val_opt_has_rettype (f v1 v2) tret)
(INJ: forall j v1 v1' v2 v2',
Val.inject j v1 v1' -> Val.inject j v2 v2' ->
@@ -131,7 +132,7 @@ Qed.
but no pointer values, we can automate the proofs of well-typedness and
of compatibility with injections. *)
-(** First we define a mapping from syntactic Cminor types ([Tint], [Tfloat], etc) to semantic Coq types. *)
+(** First we define a mapping from syntactic types ([Tint], [Tfloat], etc) to semantic Coq types. *)
Definition valty (t: typ) : Type :=
match t with
@@ -142,30 +143,32 @@ Definition valty (t: typ) : Type :=
| Tany32 | Tany64 => Empty_set (**r no clear semantic meaning *)
end.
-Definition valretty (t: rettype) : Type :=
+Definition valxty (t: xtype) : Type :=
match t with
- | Tret t => valty t
- | Tint8signed => { n: int | n = Int.sign_ext 8 n }
- | Tint8unsigned => { n: int | n = Int.zero_ext 8 n }
- | Tint16signed => { n: int | n = Int.sign_ext 16 n }
- | Tint16unsigned => { n: int | n = Int.zero_ext 16 n }
- | Tvoid => unit
+ | Xbool => { n: int | n = Int.zero \/ n = Int.one }
+ | Xint8signed => { n: int | n = Int.sign_ext 8 n }
+ | Xint8unsigned => { n: int | n = Int.zero_ext 8 n }
+ | Xint16signed => { n: int | n = Int.sign_ext 16 n }
+ | Xint16unsigned => { n: int | n = Int.zero_ext 16 n }
+ | Xint => int
+ | Xlong => int64
+ | Xfloat => float
+ | Xsingle => float32
+ | Xptr => Empty_set (**r not a number *)
+ | Xany32 | Xany64 => Empty_set (**r not a number *)
+ | Xvoid => unit
end.
-(** We can inject from the numerical type [valretty t] to the value type [val]. *)
+(** We can inject from the numerical type [valxty t] to the value type [val]. *)
-Definition inj_num (t: rettype) : valretty t -> val :=
+Definition inj_num (t: xtype) : valxty t -> val :=
match t with
- | Tret Tint => Vint
- | Tret Tlong => Vlong
- | Tret Tfloat => Vfloat
- | Tret Tsingle => Vsingle
- | Tret (Tany32 | Tany64) => fun _ => Vundef
- | Tint8signed => fun n => Vint (proj1_sig n)
- | Tint8unsigned => fun n => Vint (proj1_sig n)
- | Tint16signed => fun n => Vint (proj1_sig n)
- | Tint16unsigned => fun n => Vint (proj1_sig n)
- | Tvoid => fun _ => Vundef
+ | Xbool | Xint8signed | Xint8unsigned | Xint16signed | Xint16unsigned => fun n => Vint (proj1_sig n)
+ | Xint => Vint
+ | Xlong => Vlong
+ | Xfloat => Vfloat
+ | Xsingle => Vsingle
+ | _ => fun _ => Vundef
end.
(** Conversely, we can project a value to the numerical type [valty t]. *)
@@ -181,13 +184,12 @@ Definition proj_num {A: Type} (t: typ) (k0: A) (v: val): (valty t -> A) -> A :=
Lemma inj_num_wt: forall t x, Val.has_rettype (inj_num t x) t.
Proof.
- destruct t; intros; simpl; auto; try (apply proj2_sig).
- destruct t; exact I.
+ destruct t; intros; simpl; auto; apply proj2_sig.
Qed.
Lemma inj_num_inject: forall j t x, Val.inject j (inj_num t x) (inj_num t x).
Proof.
- destruct t; intros; try constructor. destruct t; constructor.
+ destruct t; intros; constructor.
Qed.
Lemma inj_num_opt_wt: forall t x, val_opt_has_rettype (option_map (inj_num t) x) t.
@@ -250,8 +252,8 @@ Qed.
*)
Program Definition mkbuiltin_n1t
- (targ1: typ) (tres: rettype)
- (f: valty targ1 -> valretty tres) :=
+ (targ1: typ) (tres: xtype)
+ (f: valty targ1 -> valxty tres) :=
mkbuiltin_v1t tres
(fun v1 => proj_num targ1 Vundef v1 (fun x => inj_num tres (f x)))
_ _.
@@ -263,8 +265,8 @@ Next Obligation.
Qed.
Program Definition mkbuiltin_n2t
- (targ1 targ2: typ) (tres: rettype)
- (f: valty targ1 -> valty targ2 -> valretty tres) :=
+ (targ1 targ2: typ) (tres: xtype)
+ (f: valty targ1 -> valty targ2 -> valxty tres) :=
mkbuiltin_v2t tres
(fun v1 v2 =>
proj_num targ1 Vundef v1 (fun x1 =>
@@ -278,8 +280,8 @@ Next Obligation.
Qed.
Program Definition mkbuiltin_n3t
- (targ1 targ2 targ3: typ) (tres: rettype)
- (f: valty targ1 -> valty targ2 -> valty targ3 -> valretty tres) :=
+ (targ1 targ2 targ3: typ) (tres: xtype)
+ (f: valty targ1 -> valty targ2 -> valty targ3 -> valxty tres) :=
mkbuiltin_v3t tres
(fun v1 v2 v3 =>
proj_num targ1 Vundef v1 (fun x1 =>
@@ -294,8 +296,8 @@ Next Obligation.
Qed.
Program Definition mkbuiltin_n1p
- (targ1: typ) (tres: rettype)
- (f: valty targ1 -> option (valretty tres)) :=
+ (targ1: typ) (tres: xtype)
+ (f: valty targ1 -> option (valxty tres)) :=
mkbuiltin_v1p tres
(fun v1 => proj_num targ1 None v1 (fun x => option_map (inj_num tres) (f x)))
_ _.
@@ -307,8 +309,8 @@ Next Obligation.
Qed.
Program Definition mkbuiltin_n2p
- (targ1 targ2: typ) (tres: rettype)
- (f: valty targ1 -> valty targ2 -> option (valretty tres)) :=
+ (targ1 targ2: typ) (tres: xtype)
+ (f: valty targ1 -> valty targ2 -> option (valxty tres)) :=
mkbuiltin_v2p tres
(fun v1 v2 =>
proj_num targ1 None v1 (fun x1 =>
@@ -421,81 +423,81 @@ Definition standard_builtin_table : list (string * standard_builtin) :=
Definition standard_builtin_sig (b: standard_builtin) : signature :=
match b with
| BI_select t =>
- mksignature (Tint :: t :: t :: nil) t cc_default
+ let t := inj_type t in [Xint; t; t ---> t]
| BI_fabs | BI_fsqrt =>
- mksignature (Tfloat :: nil) Tfloat cc_default
+ [Xfloat ---> Xfloat]
| BI_fabsf =>
- mksignature (Tsingle :: nil) Tsingle cc_default
+ [Xsingle ---> Xsingle]
| BI_negl =>
- mksignature (Tlong :: nil) Tlong cc_default
+ [Xlong ---> Xlong]
| BI_addl | BI_subl | BI_i64_umulh| BI_i64_smulh
| BI_i64_sdiv | BI_i64_udiv | BI_i64_smod | BI_i64_umod =>
- mksignature (Tlong :: Tlong :: nil) Tlong cc_default
+ [Xlong; Xlong ---> Xlong]
| BI_mull =>
- mksignature (Tint :: Tint :: nil) Tlong cc_default
+ [Xint; Xint ---> Xlong]
| BI_i32_bswap =>
- mksignature (Tint :: nil) Tint cc_default
+ [Xint ---> Xint]
| BI_i64_bswap =>
- mksignature (Tlong :: nil) Tlong cc_default
+ [Xlong ---> Xlong]
| BI_i16_bswap =>
- mksignature (Tint :: nil) Tint cc_default
+ [Xint ---> Xint]
| BI_unreachable =>
- mksignature nil Tvoid cc_default
+ mksignature nil Xvoid cc_default
| BI_i64_shl | BI_i64_shr | BI_i64_sar =>
- mksignature (Tlong :: Tint :: nil) Tlong cc_default
+ [Xlong; Xint ---> Xlong]
| BI_i64_dtos | BI_i64_dtou =>
- mksignature (Tfloat :: nil) Tlong cc_default
+ [Xfloat ---> Xlong]
| BI_i64_stod | BI_i64_utod =>
- mksignature (Tlong :: nil) Tfloat cc_default
+ [Xlong ---> Xfloat]
| BI_i64_stof | BI_i64_utof =>
- mksignature (Tlong :: nil) Tsingle cc_default
+ [Xlong ---> Xsingle]
end.
Program Definition standard_builtin_sem (b: standard_builtin) : builtin_sem (sig_res (standard_builtin_sig b)) :=
match b with
| BI_select t =>
- mkbuiltin t
+ mkbuiltin (inj_type t)
(fun vargs => match vargs with
| Vint n :: v1 :: v2 :: nil => Some (Val.normalize (if Int.eq n Int.zero then v2 else v1) t)
| _ => None
end) _ _
- | BI_fabs => mkbuiltin_n1t Tfloat Tfloat Float.abs
- | BI_fabsf => mkbuiltin_n1t Tsingle Tsingle Float32.abs
- | BI_fsqrt => mkbuiltin_n1t Tfloat Tfloat Float.sqrt
- | BI_negl => mkbuiltin_n1t Tlong Tlong Int64.neg
- | BI_addl => mkbuiltin_v2t Tlong Val.addl _ _
- | BI_subl => mkbuiltin_v2t Tlong Val.subl _ _
- | BI_mull => mkbuiltin_v2t Tlong Val.mull' _ _
+ | BI_fabs => mkbuiltin_n1t Tfloat Xfloat Float.abs
+ | BI_fabsf => mkbuiltin_n1t Tsingle Xsingle Float32.abs
+ | BI_fsqrt => mkbuiltin_n1t Tfloat Xfloat Float.sqrt
+ | BI_negl => mkbuiltin_n1t Tlong Xlong Int64.neg
+ | BI_addl => mkbuiltin_v2t Xlong Val.addl _ _
+ | BI_subl => mkbuiltin_v2t Xlong Val.subl _ _
+ | BI_mull => mkbuiltin_v2t Xlong Val.mull' _ _
| BI_i16_bswap =>
- mkbuiltin_n1t Tint Tint
+ mkbuiltin_n1t Tint Xint
(fun n => Int.repr (decode_int (List.rev (encode_int 2%nat (Int.unsigned n)))))
| BI_i32_bswap =>
- mkbuiltin_n1t Tint Tint
+ mkbuiltin_n1t Tint Xint
(fun n => Int.repr (decode_int (List.rev (encode_int 4%nat (Int.unsigned n)))))
| BI_i64_bswap =>
- mkbuiltin_n1t Tlong Tlong
+ mkbuiltin_n1t Tlong Xlong
(fun n => Int64.repr (decode_int (List.rev (encode_int 8%nat (Int64.unsigned n)))))
- | BI_unreachable => mkbuiltin Tvoid (fun vargs => None) _ _
- | BI_i64_umulh => mkbuiltin_n2t Tlong Tlong Tlong Int64.mulhu
- | BI_i64_smulh => mkbuiltin_n2t Tlong Tlong Tlong Int64.mulhs
- | BI_i64_sdiv => mkbuiltin_v2p Tlong Val.divls _ _
- | BI_i64_udiv => mkbuiltin_v2p Tlong Val.divlu _ _
- | BI_i64_smod => mkbuiltin_v2p Tlong Val.modls _ _
- | BI_i64_umod => mkbuiltin_v2p Tlong Val.modlu _ _
- | BI_i64_shl => mkbuiltin_v2t Tlong Val.shll _ _
- | BI_i64_shr => mkbuiltin_v2t Tlong Val.shrlu _ _
- | BI_i64_sar => mkbuiltin_v2t Tlong Val.shrl _ _
- | BI_i64_dtos => mkbuiltin_n1p Tfloat Tlong Float.to_long
- | BI_i64_dtou => mkbuiltin_n1p Tfloat Tlong Float.to_longu
- | BI_i64_stod => mkbuiltin_n1t Tlong Tfloat Float.of_long
- | BI_i64_utod => mkbuiltin_n1t Tlong Tfloat Float.of_longu
- | BI_i64_stof => mkbuiltin_n1t Tlong Tsingle Float32.of_long
- | BI_i64_utof => mkbuiltin_n1t Tlong Tsingle Float32.of_longu
+ | BI_unreachable => mkbuiltin Xvoid (fun vargs => None) _ _
+ | BI_i64_umulh => mkbuiltin_n2t Tlong Tlong Xlong Int64.mulhu
+ | BI_i64_smulh => mkbuiltin_n2t Tlong Tlong Xlong Int64.mulhs
+ | BI_i64_sdiv => mkbuiltin_v2p Xlong Val.divls _ _
+ | BI_i64_udiv => mkbuiltin_v2p Xlong Val.divlu _ _
+ | BI_i64_smod => mkbuiltin_v2p Xlong Val.modls _ _
+ | BI_i64_umod => mkbuiltin_v2p Xlong Val.modlu _ _
+ | BI_i64_shl => mkbuiltin_v2t Xlong Val.shll _ _
+ | BI_i64_shr => mkbuiltin_v2t Xlong Val.shrlu _ _
+ | BI_i64_sar => mkbuiltin_v2t Xlong Val.shrl _ _
+ | BI_i64_dtos => mkbuiltin_n1p Tfloat Xlong Float.to_long
+ | BI_i64_dtou => mkbuiltin_n1p Tfloat Xlong Float.to_longu
+ | BI_i64_stod => mkbuiltin_n1t Tlong Xfloat Float.of_long
+ | BI_i64_utod => mkbuiltin_n1t Tlong Xfloat Float.of_longu
+ | BI_i64_stof => mkbuiltin_n1t Tlong Xsingle Float32.of_long
+ | BI_i64_utof => mkbuiltin_n1t Tlong Xsingle Float32.of_longu
end.
Next Obligation.
red. destruct vl; auto. destruct v; auto.
destruct vl; auto. destruct vl; auto. destruct vl; auto.
- apply Val.normalize_type.
+ apply Val.has_inj_type. apply Val.normalize_type.
Qed.
Next Obligation.
red. inv H; auto. inv H0; auto. inv H1; auto. inv H0; auto. inv H2; auto.
diff --git a/compcert/common/Errors.v b/compcert/common/Errors.v
index d9158165ac..f050328627 100644
--- a/compcert/common/Errors.v
+++ b/compcert/common/Errors.v
@@ -109,24 +109,29 @@ Notation "'assertion' A ; B" := (if A then B else assertion_failed)
Local Open Scope error_monad_scope.
-Fixpoint mmap (A B: Type) (f: A -> res B) (l: list A) {struct l} : res (list B) :=
- match l with
- | nil => OK nil
- | hd :: tl => do hd' <- f hd; do tl' <- mmap f tl; OK (hd' :: tl')
- end.
-
-Remark mmap_inversion:
- forall (A B: Type) (f: A -> res B) (l: list A) (l': list B),
- mmap f l = OK l' ->
- list_forall2 (fun x y => f x = OK y) l l'.
-Proof.
- induction l; simpl; intros.
- inversion_clear H. constructor.
- destruct (bind_inversion _ _ H) as [hd' [P Q]].
- destruct (bind_inversion _ _ Q) as [tl' [R S]].
- inversion_clear S.
- constructor. auto. auto.
-Qed.
+Section mmap.
+ Context (A B: Type).
+ Variable (f: A -> res B).
+
+ Fixpoint mmap (l: list A) {struct l} : res (list B) :=
+ match l with
+ | nil => OK nil
+ | hd :: tl => do hd' <- f hd; do tl' <- mmap tl; OK (hd' :: tl')
+ end.
+
+ Remark mmap_inversion:
+ forall (l: list A) (l': list B),
+ mmap l = OK l' ->
+ list_forall2 (fun x y => f x = OK y) l l'.
+ Proof.
+ induction l; simpl; intros.
+ inversion_clear H. constructor.
+ destruct (bind_inversion _ _ H) as [hd' [P Q]].
+ destruct (bind_inversion _ _ Q) as [tl' [R S]].
+ inversion_clear S.
+ constructor. auto. auto.
+ Qed.
+End mmap.
(** * Reasoning over monadic computations *)
diff --git a/compcert/common/Events.v b/compcert/common/Events.v
index 1b70ecd6aa..994781fa41 100644
--- a/compcert/common/Events.v
+++ b/compcert/common/Events.v
@@ -26,6 +26,7 @@ Require Import Values.
Require Import Memory.
Require Import Globalenvs.
Require Import Builtins.
+Local Open Scope asttyp_scope.
(** Backwards compatibility for Hint Rewrite locality attributes. *)
Set Warnings "-unsupported-attributes".
@@ -100,7 +101,7 @@ Lemma E0_left: forall t, E0 ** t = t.
Proof. auto. Qed.
Lemma E0_right: forall t, t ** E0 = t.
-Proof. intros. unfold E0, Eapp. rewrite <- app_nil_end. auto. Qed.
+Proof. intros. unfold E0, Eapp. rewrite app_nil_r. auto. Qed.
Lemma Eapp_assoc: forall t1 t2 t3, (t1 ** t2) ** t3 = t1 ** (t2 ** t3).
Proof. intros. unfold Eapp, trace. apply app_ass. Qed.
@@ -779,12 +780,12 @@ Qed.
Lemma volatile_load_ok:
forall chunk,
extcall_properties (volatile_load_sem chunk)
- (mksignature (Tptr :: nil) (rettype_of_chunk chunk) cc_default).
+ [Xptr ---> xtype_of_chunk chunk].
Proof.
intros; constructor; intros.
(* well typed *)
-- inv H. inv H0. apply Val.load_result_rettype.
- eapply Mem.load_rettype; eauto.
+- inv H. inv H0. apply Val.load_result_xtype.
+ eapply Mem.load_xtype; eauto.
(* symbols *)
- inv H0. constructor. eapply volatile_load_preserved; eauto.
(* valid blocks *)
@@ -796,11 +797,11 @@ Proof.
(* mem extends *)
- inv H. inv H1. inv H6. inv H4.
exploit volatile_load_extends; eauto. intros [v' [A B]].
- exists v'; exists m1'; intuition. constructor; auto.
+ exists v'; exists m1'; intuition auto with mem. constructor; auto.
(* mem injects *)
- inv H0. inv H2. inv H7. inversion H5; subst.
exploit volatile_load_inject; eauto. intros [v' [A B]].
- exists f; exists v'; exists m1'; intuition. constructor; auto.
+ exists f; exists v'; exists m1'; intuition auto with mem. constructor; auto.
red; intros. congruence.
(* trace length *)
- inv H; inv H0; simpl; lia.
@@ -882,7 +883,7 @@ Proof.
eapply eventval_match_lessdef; eauto. apply Val.load_result_lessdef; auto.
auto with mem.
- exploit Mem.store_within_extends; eauto. intros [m2' [A B]].
- exists m2'; intuition.
+ exists m2'; intuition auto with mem.
+ econstructor; eauto.
+ eapply Mem.store_unchanged_on; eauto.
unfold loc_out_of_bounds; intros.
@@ -943,7 +944,7 @@ Qed.
Lemma volatile_store_ok:
forall chunk,
extcall_properties (volatile_store_sem chunk)
- (mksignature (Tptr :: type_of_chunk chunk :: nil) Tvoid cc_default).
+ [Xptr; xtype_of_chunk chunk ---> Xvoid].
Proof.
intros; constructor; intros.
(* well typed *)
@@ -959,11 +960,11 @@ Proof.
(* mem extends*)
- inv H. inv H1. inv H6. inv H7. inv H4.
exploit volatile_store_extends; eauto. intros [m2' [A [B C]]].
- exists Vundef; exists m2'; intuition. constructor; auto.
+ exists Vundef; exists m2'; intuition auto with mem. constructor; auto.
(* mem inject *)
- inv H0. inv H2. inv H7. inv H8. inversion H5; subst.
exploit volatile_store_inject; eauto. intros [m2' [A [B [C D]]]].
- exists f; exists Vundef; exists m2'; intuition. constructor; auto. red; intros; congruence.
+ exists f; exists Vundef; exists m2'; intuition auto with mem. constructor; auto. red; intros; congruence.
(* trace length *)
- inv H; inv H0; simpl; lia.
(* receptive *)
@@ -988,7 +989,7 @@ Inductive extcall_malloc_sem (ge: Senv.t):
Lemma extcall_malloc_ok:
extcall_properties extcall_malloc_sem
- (mksignature (Tptr :: nil) Tptr cc_default).
+ [Xsize_t ---> Xptr].
Proof.
assert (UNCHANGED:
forall (P: block -> Z -> Prop) m lo hi v m' b m'',
@@ -1025,7 +1026,7 @@ Proof.
intros [m3' [A B]].
exploit Mem.store_within_extends. eexact B. eauto. eauto.
intros [m2' [C D]].
- exists (Vptr b Ptrofs.zero); exists m2'; intuition.
+ exists (Vptr b Ptrofs.zero); exists m2'; intuition auto with mem.
econstructor; eauto.
eapply UNCHANGED; eauto.
(* mem injects *)
@@ -1068,7 +1069,6 @@ Inductive extcall_free_sem (ge: Senv.t):
list val -> mem -> trace -> val -> mem -> Prop :=
| extcall_free_sem_ptr: forall b lo sz m m',
Mem.load Mptr m b (Ptrofs.unsigned lo - size_chunk Mptr) = Some (Vptrofs sz) ->
- Ptrofs.unsigned sz > 0 ->
Mem.free m b (Ptrofs.unsigned lo - size_chunk Mptr) (Ptrofs.unsigned lo + Ptrofs.unsigned sz) = Some m' ->
extcall_free_sem ge (Vptr b lo :: nil) m E0 Vundef m'
| extcall_free_sem_null: forall m,
@@ -1076,7 +1076,7 @@ Inductive extcall_free_sem (ge: Senv.t):
Lemma extcall_free_ok:
extcall_properties extcall_free_sem
- (mksignature (Tptr :: nil) Tvoid cc_default).
+ [Xptr ---> Xvoid].
Proof.
constructor; intros.
(* well typed *)
@@ -1090,13 +1090,13 @@ Proof.
(* readonly *)
- eapply unchanged_on_readonly; eauto. inv H.
+ eapply Mem.free_unchanged_on; eauto.
- intros. red; intros. elim H6.
+ intros. red; intros. elim H5.
apply Mem.perm_cur_max. apply Mem.perm_implies with Freeable; auto with mem.
eapply Mem.free_range_perm; eauto.
+ apply Mem.unchanged_on_refl.
(* mem extends *)
- inv H.
-+ inv H1. inv H8. inv H6.
++ inv H1. inv H7. inv H5.
exploit Mem.load_extends; eauto. intros [v' [A B]].
assert (v' = Vptrofs sz).
{ unfold Vptrofs in *; destruct Archi.ptr64; inv B; auto. }
@@ -1108,7 +1108,7 @@ Proof.
unfold loc_out_of_bounds; intros.
assert (Mem.perm m1 b i Max Nonempty).
{ apply Mem.perm_cur_max. apply Mem.perm_implies with Freeable; auto with mem.
- eapply Mem.free_range_perm. eexact H4. eauto. }
+ eapply Mem.free_range_perm. eexact H3. eauto. }
tauto.
+ inv H1. inv H5. replace v2 with Vnullptr.
exists Vundef; exists m1'; intuition auto.
@@ -1117,18 +1117,17 @@ Proof.
unfold Vnullptr in *; destruct Archi.ptr64; inv H3; auto.
(* mem inject *)
- inv H0.
-+ inv H2. inv H7. inv H9.
++ inv H2. inv H6. inv H8.
exploit Mem.load_inject; eauto. intros [v' [A B]].
assert (v' = Vptrofs sz).
{ unfold Vptrofs in *; destruct Archi.ptr64; inv B; auto. }
subst v'.
assert (P: Mem.range_perm m1 b (Ptrofs.unsigned lo - size_chunk Mptr) (Ptrofs.unsigned lo + Ptrofs.unsigned sz) Cur Freeable).
eapply Mem.free_range_perm; eauto.
- exploit Mem.address_inject; eauto.
- apply Mem.perm_implies with Freeable; auto with mem.
- apply P. instantiate (1 := lo).
- generalize (size_chunk_pos Mptr); lia.
- intro EQ.
+ assert (EQ: Ptrofs.unsigned (Ptrofs.add lo (Ptrofs.repr delta)) = Ptrofs.unsigned lo + delta).
+ { eapply Mem.address_inject_gen with (p := Freeable); eauto.
+ right. apply P.
+ generalize (size_chunk_pos Mptr), (Ptrofs.unsigned_range sz); lia. }
exploit Mem.free_parallel_inject; eauto. intros (m2' & C & D).
exists f, Vundef, m2'; split.
apply extcall_free_sem_ptr with (sz := sz) (m' := m2').
@@ -1185,7 +1184,7 @@ Inductive extcall_memcpy_sem (sz al: Z) (ge: Senv.t):
Lemma extcall_memcpy_ok:
forall sz al,
extcall_properties (extcall_memcpy_sem sz al)
- (mksignature (Tptr :: Tptr :: nil) Tvoid cc_default).
+ [Xptr; Xptr ---> Xvoid].
Proof.
intros. constructor.
- (* return type *)
@@ -1297,7 +1296,7 @@ Inductive extcall_annot_sem (text: string) (targs: list typ) (ge: Senv.t):
Lemma extcall_annot_ok:
forall text targs,
extcall_properties (extcall_annot_sem text targs)
- (mksignature targs Tvoid cc_default).
+ (mksignature (List.map inj_type targs) Xvoid cc_default).
Proof.
intros; constructor; intros.
(* well typed *)
@@ -1313,12 +1312,12 @@ Proof.
- inv H; auto.
(* mem extends *)
- inv H.
- exists Vundef; exists m1'; intuition.
+ exists Vundef; exists m1'; intuition auto with mem.
econstructor; eauto.
eapply eventval_list_match_lessdef; eauto.
(* mem injects *)
- inv H0.
- exists f; exists Vundef; exists m1'; intuition.
+ exists f; exists Vundef; exists m1'; intuition auto with mem.
econstructor; eauto.
eapply eventval_list_match_inject; eauto.
red; intros; congruence.
@@ -1342,11 +1341,11 @@ Inductive extcall_annot_val_sem (text: string) (targ: typ) (ge: Senv.t):
Lemma extcall_annot_val_ok:
forall text targ,
extcall_properties (extcall_annot_val_sem text targ)
- (mksignature (targ :: nil) targ cc_default).
+ [inj_type targ ---> inj_type targ].
Proof.
intros; constructor; intros.
(* well typed *)
-- inv H. eapply eventval_match_type; eauto.
+- inv H. apply Val.has_inj_type. eapply eventval_match_type; eauto.
(* symbols *)
- destruct H as (A & B & C). inv H0. econstructor; eauto.
eapply eventval_match_preserved; eauto.
@@ -1358,12 +1357,12 @@ Proof.
- inv H; auto.
(* mem extends *)
- inv H. inv H1. inv H6.
- exists v2; exists m1'; intuition.
+ exists v2; exists m1'; intuition auto with mem.
econstructor; eauto.
eapply eventval_match_lessdef; eauto.
(* mem inject *)
- inv H0. inv H2. inv H7.
- exists f; exists v'; exists m1'; intuition.
+ exists f; exists v'; exists m1'; intuition auto with mem.
econstructor; eauto.
eapply eventval_match_inject; eauto.
red; intros; congruence.
@@ -1386,7 +1385,7 @@ Inductive extcall_debug_sem (ge: Senv.t):
Lemma extcall_debug_ok:
forall targs,
extcall_properties extcall_debug_sem
- (mksignature targs Tvoid cc_default).
+ (mksignature (List.map inj_type targs) Xvoid cc_default).
Proof.
intros; constructor; intros.
(* well typed *)
@@ -1401,11 +1400,11 @@ Proof.
- inv H; auto.
(* mem extends *)
- inv H.
- exists Vundef; exists m1'; intuition.
+ exists Vundef; exists m1'; intuition auto with mem.
econstructor; eauto.
(* mem injects *)
- inv H0.
- exists f; exists Vundef; exists m1'; intuition.
+ exists f; exists Vundef; exists m1'; intuition auto with mem.
econstructor; eauto.
red; intros; congruence.
(* trace length *)
@@ -1574,7 +1573,7 @@ Lemma external_call_well_typed:
external_call ef ge vargs m1 t vres m2 ->
Val.has_type vres (proj_sig_res (ef_sig ef)).
Proof.
- intros. apply Val.has_proj_rettype. eapply external_call_well_typed_gen; eauto.
+ intros. apply Val.has_proj_xtype. eapply external_call_well_typed_gen; eauto.
Qed.
(** Corollary of [external_call_valid_block]. *)
diff --git a/compcert/common/Globalenvs.v b/compcert/common/Globalenvs.v
index 1c5bf4ffae..92ee8498b2 100644
--- a/compcert/common/Globalenvs.v
+++ b/compcert/common/Globalenvs.v
@@ -988,7 +988,7 @@ Definition read_as_zero (m: mem) (b: block) (ofs len: Z) : Prop :=
(align_chunk chunk | p) ->
Mem.load chunk m b p =
Some (match chunk with
- | Mint8unsigned | Mint8signed | Mint16unsigned | Mint16signed | Mint32 => Vint Int.zero
+ | Mbool | Mint8unsigned | Mint8signed | Mint16unsigned | Mint16signed | Mint32 => Vint Int.zero
| Mint64 => Vlong Int64.zero
| Mfloat32 => Vsingle Float32.zero
| Mfloat64 => Vfloat Float.zero
diff --git a/compcert/common/Memdata.v b/compcert/common/Memdata.v
index 7622cab33f..cf43589c7a 100644
--- a/compcert/common/Memdata.v
+++ b/compcert/common/Memdata.v
@@ -33,6 +33,7 @@ Require Import Values.
Definition size_chunk (chunk: memory_chunk) : Z :=
match chunk with
+ | Mbool => 1
| Mint8signed => 1
| Mint8unsigned => 1
| Mint16signed => 2
@@ -87,6 +88,7 @@ Qed.
Definition align_chunk (chunk: memory_chunk) : Z :=
match chunk with
+ | Mbool => 1
| Mint8signed => 1
| Mint8unsigned => 1
| Mint16signed => 2
@@ -369,7 +371,7 @@ Definition proj_value (q: quantity) (vl: list memval) : val :=
Definition encode_val (chunk: memory_chunk) (v: val) : list memval :=
match v, chunk with
- | Vint n, (Mint8signed | Mint8unsigned) => inj_bytes (encode_int 1%nat (Int.unsigned n))
+ | Vint n, (Mbool | Mint8signed | Mint8unsigned) => inj_bytes (encode_int 1%nat (Int.unsigned n))
| Vint n, (Mint16signed | Mint16unsigned) => inj_bytes (encode_int 2%nat (Int.unsigned n))
| Vint n, Mint32 => inj_bytes (encode_int 4%nat (Int.unsigned n))
| Vptr b ofs, Mint32 => if Archi.ptr64 then List.repeat Undef 4%nat else inj_value Q32 v
@@ -386,6 +388,7 @@ Definition decode_val (chunk: memory_chunk) (vl: list memval) : val :=
match proj_bytes vl with
| Some bl =>
match chunk with
+ | Mbool => Val.norm_bool (Vint (Int.zero_ext 8 (Int.repr (decode_int bl))))
| Mint8signed => Vint(Int.sign_ext 8 (Int.repr (decode_int bl)))
| Mint8unsigned => Vint(Int.zero_ext 8 (Int.repr (decode_int bl)))
| Mint16signed => Vint(Int.sign_ext 16 (Int.repr (decode_int bl)))
@@ -458,10 +461,9 @@ Qed.
Definition decode_encode_val (v1: val) (chunk1 chunk2: memory_chunk) (v2: val) : Prop :=
match v1, chunk1, chunk2 with
| Vundef, _, _ => v2 = Vundef
- | Vint n, Mint8signed, Mint8signed => v2 = Vint(Int.sign_ext 8 n)
- | Vint n, Mint8unsigned, Mint8signed => v2 = Vint(Int.sign_ext 8 n)
- | Vint n, Mint8signed, Mint8unsigned => v2 = Vint(Int.zero_ext 8 n)
- | Vint n, Mint8unsigned, Mint8unsigned => v2 = Vint(Int.zero_ext 8 n)
+ | Vint n, (Mbool | Mint8signed | Mint8unsigned), Mint8signed => v2 = Vint(Int.sign_ext 8 n)
+ | Vint n, (Mbool | Mint8signed | Mint8unsigned), Mint8unsigned => v2 = Vint(Int.zero_ext 8 n)
+ | Vint n, (Mbool | Mint8signed | Mint8unsigned), Mbool => v2 = Val.norm_bool (Vint (Int.zero_ext 8 n))
| Vint n, Mint16signed, Mint16signed => v2 = Vint(Int.sign_ext 16 n)
| Vint n, Mint16unsigned, Mint16signed => v2 = Vint(Int.sign_ext 16 n)
| Vint n, Mint16signed, Mint16unsigned => v2 = Vint(Int.zero_ext 16 n)
@@ -480,18 +482,18 @@ Definition decode_encode_val (v1: val) (chunk1 chunk2: memory_chunk) (v2: val) :
| Vlong n, Mint64, Mint64 => v2 = Vlong n
| Vlong n, Mint64, Mfloat64 => v2 = Vfloat(Float.of_bits n)
| Vlong n, Many64, Many64 => v2 = Vlong n
- | Vlong n, (Mint8signed|Mint8unsigned|Mint16signed|Mint16unsigned|Mint32|Mfloat32|Mfloat64|Many32), _ => v2 = Vundef
+ | Vlong n, (Mbool|Mint8signed|Mint8unsigned|Mint16signed|Mint16unsigned|Mint32|Mfloat32|Mfloat64|Many32), _ => v2 = Vundef
| Vlong n, _, _ => True (**r nothing meaningful to say about v2 *)
| Vfloat f, Mfloat64, Mfloat64 => v2 = Vfloat f
| Vfloat f, Mfloat64, Mint64 => v2 = Vlong(Float.to_bits f)
| Vfloat f, Many64, Many64 => v2 = Vfloat f
- | Vfloat f, (Mint8signed|Mint8unsigned|Mint16signed|Mint16unsigned|Mint32|Mfloat32|Mint64|Many32), _ => v2 = Vundef
+ | Vfloat f, (Mbool|Mint8signed|Mint8unsigned|Mint16signed|Mint16unsigned|Mint32|Mfloat32|Mint64|Many32), _ => v2 = Vundef
| Vfloat f, _, _ => True (* nothing interesting to say about v2 *)
| Vsingle f, Mfloat32, Mfloat32 => v2 = Vsingle f
| Vsingle f, Mfloat32, Mint32 => v2 = Vint(Float32.to_bits f)
| Vsingle f, Many32, Many32 => v2 = Vsingle f
| Vsingle f, Many64, Many64 => v2 = Vsingle f
- | Vsingle f, (Mint8signed|Mint8unsigned|Mint16signed|Mint16unsigned|Mint32|Mint64|Mfloat64|Many64), _ => v2 = Vundef
+ | Vsingle f, (Mbool|Mint8signed|Mint8unsigned|Mint16signed|Mint16unsigned|Mint32|Mint64|Mfloat64|Many64), _ => v2 = Vundef
| Vsingle f, _, _ => True (* nothing interesting to say about v2 *)
end.
@@ -518,9 +520,9 @@ Ltac solve_decode_encode_val_general :=
| |- context [ Int.repr(decode_int (encode_int 2 (Int.unsigned _))) ] => rewrite decode_encode_int_2
| |- context [ Int.repr(decode_int (encode_int 4 (Int.unsigned _))) ] => rewrite decode_encode_int_4
| |- context [ Int64.repr(decode_int (encode_int 8 (Int64.unsigned _))) ] => rewrite decode_encode_int_8
- | |- Vint (Int.sign_ext _ (Int.sign_ext _ _)) = Vint _ => f_equal; apply Int.sign_ext_idem; lia
- | |- Vint (Int.zero_ext _ (Int.zero_ext _ _)) = Vint _ => f_equal; apply Int.zero_ext_idem; lia
- | |- Vint (Int.sign_ext _ (Int.zero_ext _ _)) = Vint _ => f_equal; apply Int.sign_ext_zero_ext; lia
+ | |- context [ Int.sign_ext _ (Int.sign_ext _ _) ] => rewrite Int.sign_ext_idem by lia
+ | |- context [ Int.zero_ext _ (Int.zero_ext _ _) ] => rewrite Int.zero_ext_idem by lia
+ | |- context [ Int.sign_ext _ (Int.zero_ext _ _) ] => rewrite Int.sign_ext_zero_ext by lia
end.
Lemma decode_encode_val_general:
@@ -544,28 +546,29 @@ Lemma decode_encode_val_similar:
v2 = Val.load_result chunk2 v1.
Proof.
intros until v2; intros TY SZ DE.
- destruct chunk1; destruct chunk2; simpl in TY; try discriminate; simpl in SZ; try extlia;
+ unfold decode_encode_val in DE; destruct chunk1; destruct chunk2;
+ simpl in TY; try discriminate; simpl in SZ; try extlia;
destruct v1; auto.
Qed.
-Lemma decode_val_rettype:
+Lemma decode_val_xtype:
forall chunk cl,
- Val.has_rettype (decode_val chunk cl) (rettype_of_chunk chunk).
+ Val.has_rettype (decode_val chunk cl) (xtype_of_chunk chunk).
Proof.
intros. unfold decode_val.
destruct (proj_bytes cl).
- destruct chunk; simpl; rewrite ? Int.sign_ext_idem, ? Int.zero_ext_idem by lia; auto.
+ destruct (Val.norm_bool_cases (Vint (Int.zero_ext 8 (Int.repr (decode_int l))))) as [A | [A | A]]; rewrite A; simpl; auto.
- Local Opaque Val.load_result.
- destruct chunk; simpl;
- (exact I || apply Val.load_result_type || destruct Archi.ptr64; (exact I || apply Val.load_result_type)).
+ destruct chunk, Archi.ptr64; (apply Val.load_result_xtype || exact I).
Qed.
Lemma decode_val_type:
forall chunk cl,
Val.has_type (decode_val chunk cl) (type_of_chunk chunk).
Proof.
- intros. rewrite <- proj_rettype_of_chunk.
- apply Val.has_proj_rettype. apply decode_val_rettype.
+ intros. rewrite <- proj_xtype_of_chunk.
+ apply Val.has_proj_xtype. apply decode_val_xtype.
Qed.
Lemma encode_val_int8_signed_unsigned:
@@ -609,6 +612,7 @@ Lemma decode_val_cast:
forall chunk l,
let v := decode_val chunk l in
match chunk with
+ | Mbool => v = Val.norm_bool v
| Mint8signed => v = Val.sign_ext 8 v
| Mint8unsigned => v = Val.zero_ext 8 v
| Mint16signed => v = Val.sign_ext 16 v
@@ -616,9 +620,10 @@ Lemma decode_val_cast:
| _ => True
end.
Proof.
- intros.
- assert (A: Val.has_rettype v (rettype_of_chunk chunk)) by apply decode_val_rettype.
- destruct chunk; auto; simpl in A; destruct v; try contradiction; simpl; congruence.
+ intros. unfold v, decode_val.
+ destruct (proj_bytes l).
+- destruct chunk; simpl; rewrite ? Int.sign_ext_idem, ? Int.zero_ext_idem, ? Val.norm_bool_idem by lia; auto.
+- destruct chunk; auto.
Qed.
(** Pointers cannot be forged. *)
@@ -695,7 +700,7 @@ Inductive shape_decoding (chunk: memory_chunk): list memval -> val -> Prop :=
(forall mv, In mv mvl -> exists j, mv = Fragment v q j /\ S j <> size_quantity_nat q) ->
shape_decoding chunk (Fragment v q i :: mvl) (Val.load_result chunk v)
| shape_decoding_b: forall b mvl v,
- match v with Vint _ => True | Vlong _ => True | Vfloat _ => True | Vsingle _ => True | _ => False end ->
+ match v with Vptr _ _ => False | _ => True end ->
(forall mv, In mv mvl -> exists b', mv = Byte b') ->
shape_decoding chunk (Byte b :: mvl) v
| shape_decoding_u: forall mvl,
@@ -747,6 +752,7 @@ Proof.
destruct (proj_bytes (mv1 :: mvl)) as [bl|] eqn:PB.
exploit (A mv1); eauto with coqlib. intros [b1 EQ1]; subst mv1.
destruct chunk; (apply shape_decoding_u || apply shape_decoding_b); eauto with coqlib.
+ unfold Val.norm_bool; destruct Val.is_bool; auto.
destruct chunk, Archi.ptr64; (apply shape_decoding_u || apply C); auto.
Qed.
@@ -857,7 +863,8 @@ Proof.
intros. unfold decode_val.
destruct (proj_bytes vl1) as [bl1|] eqn:PB1.
exploit proj_bytes_inject; eauto. intros PB2. rewrite PB2.
- destruct chunk; constructor.
+ destruct chunk; auto.
+ unfold Val.norm_bool; destruct Val.is_bool; auto.
assert (A: forall q fn,
Val.inject f (Val.load_result chunk (proj_value q vl1))
(match proj_bytes vl2 with
diff --git a/compcert/common/Memory.v b/compcert/common/Memory.v
index 2c9151edf1..786bc8597c 100644
--- a/compcert/common/Memory.v
+++ b/compcert/common/Memory.v
@@ -674,19 +674,20 @@ Proof.
apply decode_val_type.
Qed.
-Theorem load_rettype:
+Theorem load_xtype:
forall m chunk b ofs v,
load chunk m b ofs = Some v ->
- Val.has_rettype v (rettype_of_chunk chunk).
+ Val.has_rettype v (xtype_of_chunk chunk).
Proof.
intros. exploit load_result; eauto; intros. rewrite H0.
- apply decode_val_rettype.
+ apply decode_val_xtype.
Qed.
Theorem load_cast:
forall m chunk b ofs v,
load chunk m b ofs = Some v ->
match chunk with
+ | Mbool => v = Val.norm_bool v
| Mint8signed => v = Val.sign_ext 8 v
| Mint8unsigned => v = Val.zero_ext 8 v
| Mint16signed => v = Val.sign_ext 16 v
@@ -699,6 +700,19 @@ Proof.
intros. subst v. apply decode_val_cast.
Qed.
+Theorem load_bool_int8_unsigned:
+ forall m b ofs,
+ load Mbool m b ofs = option_map Val.norm_bool (load Mint8unsigned m b ofs).
+Proof.
+ intros. unfold load.
+ change (size_chunk_nat Mbool) with (size_chunk_nat Mint8unsigned).
+ set (cl := getN (size_chunk_nat Mint8unsigned) ofs m.(mem_contents)#b).
+ destruct (valid_access_dec m Mbool b ofs Readable).
+ rewrite pred_dec_true; auto. unfold decode_val.
+ destruct (proj_bytes cl); auto.
+ rewrite pred_dec_false; auto.
+Qed.
+
Theorem load_int8_signed_unsigned:
forall m b ofs,
load Mint8signed m b ofs = option_map (Val.sign_ext 8) (load Mint8unsigned m b ofs).
@@ -1334,6 +1348,11 @@ Proof.
elim n. apply valid_access_compat with chunk2; auto. lia.
Qed.
+Theorem store_bool_unsigned_8:
+ forall m b ofs v,
+ store Mbool m b ofs v = store Mint8unsigned m b ofs v.
+Proof. intros. apply store_similar_chunks; auto. Qed.
+
Theorem store_signed_unsigned_8:
forall m b ofs v,
store Mint8signed m b ofs v = store Mint8unsigned m b ofs v.
@@ -1940,7 +1959,7 @@ Proof.
rewrite PMap.gsspec. destruct (peq b bf). subst b.
destruct (zle lo ofs); simpl.
destruct (zlt ofs hi); simpl.
- exfalso; intuition.
+ exfalso; intuition auto with zarith.
auto. auto.
auto.
Qed.
@@ -1983,7 +2002,7 @@ Theorem valid_access_free_1:
Proof.
intros. inv H. constructor; auto with mem.
red; intros. eapply perm_free_1; eauto.
- destruct (zlt lo hi). intuition. right. lia.
+ destruct (zlt lo hi). intuition auto with zarith. right. lia.
Qed.
Theorem valid_access_free_2:
@@ -2178,7 +2197,7 @@ Proof.
destruct (zlt ofs0 lo). eapply perm_drop_3; eauto.
destruct (zle hi ofs0). eapply perm_drop_3; eauto.
apply perm_implies with p. eapply perm_drop_1; eauto. lia.
- generalize (size_chunk_pos chunk); intros. intuition.
+ generalize (size_chunk_pos chunk); intros. intuition auto with zarith exfalso.
eapply perm_drop_3; eauto.
Qed.
@@ -2219,7 +2238,7 @@ Proof.
destruct (eq_block b' b). subst b'.
destruct (zlt ofs0 lo). eapply perm_drop_3; eauto.
destruct (zle hi ofs0). eapply perm_drop_3; eauto.
- apply perm_implies with p. eapply perm_drop_1; eauto. lia. intuition.
+ apply perm_implies with p. eapply perm_drop_1; eauto. lia. intuition auto with zarith exfalso.
eapply perm_drop_3; eauto.
rewrite pred_dec_false; eauto.
red; intros; elim n0; red; intros.
@@ -2793,7 +2812,7 @@ Proof.
eapply range_perm_drop_1; eauto. lia. auto with mem.
eapply perm_drop_4; eauto. eapply perm_max. apply perm_implies with p0. eauto.
eauto with mem.
- intuition.
+ intuition auto with zarith.
(* align *)
intros. eapply mi_align0 with (ofs := ofs) (p := p0); eauto.
red; intros; eapply perm_drop_4; eauto.
@@ -3262,15 +3281,42 @@ Qed.
(** The following lemmas establish the absence of machine integer overflow
during address computations. *)
+Lemma address_inject_gen:
+ forall f m1 m2 b1 ofs1 b2 delta p,
+ inject f m1 m2 ->
+ perm m1 b1 (Ptrofs.unsigned ofs1) Cur p \/ perm m1 b1 (Ptrofs.unsigned ofs1 - 1) Cur p ->
+ f b1 = Some (b2, delta) ->
+ Ptrofs.unsigned (Ptrofs.add ofs1 (Ptrofs.repr delta)) = Ptrofs.unsigned ofs1 + delta.
+Proof.
+ intros.
+ assert (perm m1 b1 (Ptrofs.unsigned ofs1) Max Nonempty
+ \/ perm m1 b1 (Ptrofs.unsigned ofs1 - 1) Max Nonempty)
+ by (destruct H0; eauto with mem).
+ exploit mi_representable; eauto. intros [A B].
+ assert (0 <= delta <= Ptrofs.max_unsigned).
+ generalize (Ptrofs.unsigned_range ofs1). lia.
+ unfold Ptrofs.add. repeat rewrite Ptrofs.unsigned_repr; lia.
+Qed.
+
Lemma address_inject:
forall f m1 m2 b1 ofs1 b2 delta p,
inject f m1 m2 ->
perm m1 b1 (Ptrofs.unsigned ofs1) Cur p ->
f b1 = Some (b2, delta) ->
Ptrofs.unsigned (Ptrofs.add ofs1 (Ptrofs.repr delta)) = Ptrofs.unsigned ofs1 + delta.
+Proof.
+ intros; eapply address_inject_gen; eauto.
+Qed.
+
+Lemma address_inject_1:
+ forall f m1 m2 b1 ofs1 b2 delta p,
+ inject f m1 m2 ->
+ perm m1 b1 (Ptrofs.unsigned ofs1 - 1) Cur p ->
+ f b1 = Some (b2, delta) ->
+ Ptrofs.unsigned (Ptrofs.add ofs1 (Ptrofs.repr delta)) = Ptrofs.unsigned ofs1 + delta.
Proof.
intros.
- assert (perm m1 b1 (Ptrofs.unsigned ofs1) Max Nonempty) by eauto with mem.
+ assert (perm m1 b1 (Ptrofs.unsigned ofs1 - 1) Max Nonempty) by eauto with mem.
exploit mi_representable; eauto. intros [A B].
assert (0 <= delta <= Ptrofs.max_unsigned).
generalize (Ptrofs.unsigned_range ofs1). lia.
@@ -3405,7 +3451,7 @@ Proof.
exploit mi_no_overlap; eauto.
instantiate (1 := x - delta1). apply H2. lia.
instantiate (1 := x - delta2). apply H3. lia.
- intuition.
+ intuition auto with zarith.
Qed.
Theorem aligned_area_inject:
diff --git a/compcert/common/Memtype.v b/compcert/common/Memtype.v
index b8ad1a6b86..7bf19347ab 100644
--- a/compcert/common/Memtype.v
+++ b/compcert/common/Memtype.v
@@ -301,10 +301,10 @@ Axiom load_type:
load chunk m b ofs = Some v ->
Val.has_type v (type_of_chunk chunk).
-Axiom load_rettype:
+Axiom load_xtype:
forall m chunk b ofs v,
load chunk m b ofs = Some v ->
- Val.has_rettype v (rettype_of_chunk chunk).
+ Val.has_rettype v (xtype_of_chunk chunk).
(** For a small integer or float type, the value returned by [load]
is invariant under the corresponding cast. *)
@@ -312,6 +312,7 @@ Axiom load_cast:
forall m chunk b ofs v,
load chunk m b ofs = Some v ->
match chunk with
+ | Mbool => v = Val.norm_bool v
| Mint8signed => v = Val.sign_ext 8 v
| Mint8unsigned => v = Val.zero_ext 8 v
| Mint16signed => v = Val.sign_ext 16 v
@@ -319,6 +320,10 @@ Axiom load_cast:
| _ => True
end.
+Axiom load_bool_int8_unsigned:
+ forall m b ofs,
+ load Mbool m b ofs = option_map Val.norm_bool (load Mint8unsigned m b ofs).
+
Axiom load_int8_signed_unsigned:
forall m b ofs,
load Mint8signed m b ofs = option_map (Val.sign_ext 8) (load Mint8unsigned m b ofs).
@@ -490,6 +495,9 @@ Axiom loadbytes_store_other:
(** [store] is insensitive to the signedness or the high bits of
small integer quantities. *)
+Axiom store_bool_unsigned_8:
+ forall m b ofs v,
+ store Mbool m b ofs v = store Mint8unsigned m b ofs v.
Axiom store_signed_unsigned_8:
forall m b ofs v,
store Mint8signed m b ofs v = store Mint8unsigned m b ofs v.
diff --git a/compcert/common/Smallstep.v b/compcert/common/Smallstep.v
index 3cbd893423..c7efcc903a 100644
--- a/compcert/common/Smallstep.v
+++ b/compcert/common/Smallstep.v
@@ -961,7 +961,7 @@ Proof.
(* base case *)
exploit fsim_simulation'; eauto. intros [A | [i' A]].
left; auto.
- right; exists i'; intuition.
+ right; exists i'; intuition auto with sets.
(* inductive case *)
exploit fsim_simulation'; eauto. intros [[i' [s2' [A B]]] | [i' [A [B C]]]].
exploit simulation_star. apply plus_star; eauto. eauto.
@@ -1440,7 +1440,7 @@ Proof.
- (* base case *)
exploit bsim_simulation'; eauto. intros [[i' [s1' [A B]]] | [i' [A [B C]]]].
+ left; exists i'; exists s1'; auto.
-+ right; exists i'; intuition.
++ right; exists i'; intuition auto with sets.
- (* inductive case *)
exploit Eapp_E0_inv; eauto. intros [EQ1 EQ2]; subst.
exploit bsim_simulation'; eauto. intros [[i' [s1' [A B]]] | [i' [A [B C]]]].
diff --git a/compcert/common/Values.v b/compcert/common/Values.v
index 891c9a88a8..954405ee68 100644
--- a/compcert/common/Values.v
+++ b/compcert/common/Values.v
@@ -150,21 +150,76 @@ Proof.
auto.
Defined.
-Definition has_rettype (v: val) (r: rettype) : Prop :=
+(** Strict matching between values and extended types:
+ the value cannot be [Vundef], unless the type is [Tvoid].
+ This matching is used to characterize arguments to function calls. *)
+
+Definition has_argtype (v: val) (x: xtype) : Prop :=
+ match x, v with
+ | Xbool, Vint n => n = Int.zero \/ n = Int.one
+ | Xint8signed, Vint n => n = Int.sign_ext 8 n
+ | Xint8unsigned, Vint n => n = Int.zero_ext 8 n
+ | Xint16signed, Vint n => n = Int.sign_ext 16 n
+ | Xint16unsigned, Vint n => n = Int.zero_ext 16 n
+ | Xint, Vint _ => True
+ | Xint, Vptr _ _ => Archi.ptr64 = false
+ | Xlong, Vlong _ => True
+ | Xlong, Vptr _ _ => Archi.ptr64 = true
+ | Xfloat, Vfloat _ => True
+ | Xsingle, Vsingle _ => True
+ | Xptr, Vptr _ _ => True
+ | Xptr, Vint _ => Archi.ptr64 = false
+ | Xptr, Vlong _ => Archi.ptr64 = true
+ | Xany32, (Vint _ | Vsingle _) => True
+ | Xany32, Vptr _ _ => Archi.ptr64 = false
+ | Xany64, (Vint _ | Vlong _ | Vptr _ _ | Vsingle _ | Vfloat _) => True
+ | Xvoid, _ => True
+ | _, _ => False
+ end.
+
+Definition has_argtype_list : list val -> list xtype -> Prop := list_forall2 has_argtype.
+
+(** Lax matching between values and extended types:
+ [Vundef] belongs to every type.
+ This matching is used to characterize return values from external calls
+ and built-in functions. *)
+
+Definition has_rettype (v: val) (r: xtype) : Prop :=
match r, v with
- | Tret t, _ => has_type v t
- | Tint8signed, Vint n => n = Int.sign_ext 8 n
- | Tint8unsigned, Vint n => n = Int.zero_ext 8 n
- | Tint16signed, Vint n => n = Int.sign_ext 16 n
- | Tint16unsigned, Vint n => n = Int.zero_ext 16 n
+ | Xbool, Vint n => n = Int.zero \/ n = Int.one
+ | Xint8signed, Vint n => n = Int.sign_ext 8 n
+ | Xint8unsigned, Vint n => n = Int.zero_ext 8 n
+ | Xint16signed, Vint n => n = Int.sign_ext 16 n
+ | Xint16unsigned, Vint n => n = Int.zero_ext 16 n
+ | Xint, Vint _ => True
+ | Xint, Vptr _ _ => Archi.ptr64 = false
+ | Xlong, Vlong _ => True
+ | Xlong, Vptr _ _ => Archi.ptr64 = true
+ | Xfloat, Vfloat _ => True
+ | Xsingle, Vsingle _ => True
+ | Xptr, Vptr _ _ => True
+ | Xptr, Vint _ => Archi.ptr64 = false
+ | Xptr, Vlong _ => Archi.ptr64 = true
+ | Xany32, (Vint _ | Vsingle _) => True
+ | Xany32, Vptr _ _ => Archi.ptr64 = false
+ | Xany64, _ => True
| _, Vundef => True
| _, _ => False
end.
-Lemma has_proj_rettype: forall v r,
- has_rettype v r -> has_type v (proj_rettype r).
+Lemma has_proj_xtype: forall v t,
+ has_rettype v t -> has_type v (proj_xtype t).
Proof.
- destruct r; simpl; intros; auto; destruct v; try contradiction; exact I.
+ intros. destruct t, v; simpl in *; auto; try contradiction.
+- unfold Tptr; rewrite H; auto.
+- unfold Tptr; rewrite H; auto.
+- unfold Tptr; destruct Archi.ptr64; auto.
+Qed.
+
+Lemma has_inj_type: forall v t,
+ has_type v t -> has_rettype v (inj_type t).
+Proof.
+ intros. destruct v, t; simpl in *; auto.
Qed.
(** Truth values. Non-zero integers are treated as [True].
@@ -272,6 +327,10 @@ Definition notint (v: val) : val :=
Definition of_bool (b: bool): val := if b then Vtrue else Vfalse.
+Definition is_bool (v: val) : bool := eq v Vtrue || eq v Vfalse.
+
+Definition norm_bool (v: val) : val := if is_bool v then v else Vundef.
+
Definition boolval (v: val) : val :=
match v with
| Vint n => of_bool (negb (Int.eq n Int.zero))
@@ -1005,6 +1064,7 @@ Definition select (cmp: option bool) (v1 v2: val) (ty: typ) :=
Definition load_result (chunk: memory_chunk) (v: val) :=
match chunk, v with
+ | Mbool, Vint n => norm_bool (Vint (Int.zero_ext 8 n))
| Mint8signed, Vint n => Vint (Int.sign_ext 8 n)
| Mint8unsigned, Vint n => Vint (Int.zero_ext 8 n)
| Mint16signed, Vint n => Vint (Int.sign_ext 16 n)
@@ -1021,10 +1081,18 @@ Definition load_result (chunk: memory_chunk) (v: val) :=
| _, _ => Vundef
end.
-Lemma load_result_rettype:
- forall chunk v, has_rettype (load_result chunk v) (rettype_of_chunk chunk).
+Lemma norm_bool_cases:
+ forall v, norm_bool v = Vundef \/ norm_bool v = Vfalse \/ norm_bool v = Vtrue.
+Proof.
+ intros. unfold norm_bool, is_bool.
+ destruct (eq v Vtrue); auto. destruct (eq v Vfalse); auto.
+Qed.
+
+Lemma load_result_xtype:
+ forall chunk v, has_rettype (load_result chunk v) (xtype_of_chunk chunk).
Proof.
intros. unfold has_rettype; destruct chunk; destruct v; simpl; auto.
+- destruct (norm_bool_cases (Vint (Int.zero_ext 8 i))) as [A | [A | A]]; rewrite A; simpl; auto.
- rewrite Int.sign_ext_idem by lia; auto.
- rewrite Int.zero_ext_idem by lia; auto.
- rewrite Int.sign_ext_idem by lia; auto.
@@ -1037,8 +1105,8 @@ Qed.
Lemma load_result_type:
forall chunk v, has_type (load_result chunk v) (type_of_chunk chunk).
Proof.
- intros. rewrite <- proj_rettype_of_chunk. apply has_proj_rettype.
- apply load_result_rettype.
+ intros. rewrite <-proj_xtype_of_chunk. apply has_proj_xtype.
+ apply load_result_xtype.
Qed.
Lemma load_result_same:
@@ -1078,6 +1146,18 @@ Proof.
inv H.
Qed.
+Theorem of_bool_is_bool:
+ forall b, is_bool (of_bool b) = true.
+Proof.
+ destruct b; reflexivity.
+Qed.
+
+Theorem norm_bool_idem:
+ forall v, norm_bool (norm_bool v) = norm_bool v.
+Proof.
+ intros; unfold norm_bool. destruct (is_bool v) eqn:E; auto. rewrite E; auto.
+Qed.
+
Theorem notbool_negb_1:
forall b, of_bool (negb b) = notbool (of_bool b).
Proof.
@@ -2027,6 +2107,18 @@ Proof.
intros. inv H. auto. destruct chunk; simpl; auto.
Qed.
+Lemma norm_bool_is_lessdef:
+ forall v, lessdef (norm_bool v) v.
+Proof.
+ intros; unfold norm_bool. destruct is_bool; auto.
+Qed.
+
+Lemma norm_bool_lessdef:
+ forall v1 v2, lessdef v1 v2 -> lessdef (norm_bool v1) (norm_bool v2).
+Proof.
+ intros; inv H; auto.
+Qed.
+
Lemma zero_ext_lessdef:
forall n v1 v2, lessdef v1 v2 -> lessdef (zero_ext n v1) (zero_ext n v2).
Proof.
@@ -2192,6 +2284,20 @@ Proof.
apply normalize_lessdef. destruct b; auto.
Qed.
+Lemma has_argtype_lessdef: forall v r v',
+ has_argtype v r -> lessdef v v' -> has_argtype v' r.
+Proof.
+ intros. inv H0; auto. destruct r; elim H || exact I.
+Qed.
+
+Lemma has_argtype_list_lessdef: forall vl rl vl',
+ has_argtype_list vl rl -> lessdef_list vl vl' -> has_argtype_list vl' rl.
+Proof.
+ unfold has_argtype_list; intros. revert vl vl' H0 rl H. induction 1; intros.
+- inv H. constructor.
+- inv H1. constructor; eauto using has_argtype_lessdef.
+Qed.
+
(** * Values and memory injections *)
(** A memory injection [f] is a function from addresses to either [None]
@@ -2254,7 +2360,9 @@ Lemma load_result_inject:
inject f v1 v2 ->
inject f (Val.load_result chunk v1) (Val.load_result chunk v2).
Proof.
- intros. inv H; destruct chunk; simpl; try constructor; destruct Archi.ptr64; econstructor; eauto.
+ intros. unfold Val.load_result.
+ inv H; destruct chunk; try constructor; try (destruct Archi.ptr64; econstructor; now eauto).
+ unfold norm_bool. destruct is_bool; auto.
Qed.
Remark add_inject:
@@ -2506,6 +2614,20 @@ Proof.
apply normalize_inject. destruct b; auto.
Qed.
+Lemma has_argtype_inject: forall v r v',
+ has_argtype v r -> inject f v v' -> has_argtype v' r.
+Proof.
+ intros. inv H0; destruct r; try contradiction; auto.
+Qed.
+
+Lemma has_argtype_list_inject: forall vl rl vl',
+ has_argtype_list vl rl -> inject_list f vl vl' -> has_argtype_list vl' rl.
+Proof.
+ unfold has_argtype_list; intros. revert vl vl' H0 rl H. induction 1; intros.
+- inv H. constructor.
+- inv H1. constructor; eauto using has_argtype_inject.
+Qed.
+
End VAL_INJ_OPS.
End Val.
diff --git a/compcert/flocq/Calc/Bracket.v b/compcert/flocq/Calc/Bracket.v
index 9ab551653f..fe5a895d0b 100644
--- a/compcert/flocq/Calc/Bracket.v
+++ b/compcert/flocq/Calc/Bracket.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2010-2018 Sylvie Boldo
#
#
@@ -651,7 +651,7 @@ now apply Zpower_gt_1.
now apply Z_mod_lt.
rewrite <- 2!Rmult_plus_distr_r, <- 2!plus_IZR.
rewrite Zmult_comm, Zplus_assoc.
-now rewrite <- Z_div_mod_eq.
+(try now rewrite <- Z_div_mod_eq_full); now rewrite <- Z_div_mod_eq. (* remove the try and the second part when requiring Coq >= 8.14 *)
Qed.
Theorem inbetween_float_new_location_single :
diff --git a/compcert/flocq/Calc/Div.v b/compcert/flocq/Calc/Div.v
index 88d99a1f40..718ccae1ea 100644
--- a/compcert/flocq/Calc/Div.v
+++ b/compcert/flocq/Calc/Div.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2010-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Calc/Operations.v b/compcert/flocq/Calc/Operations.v
index bcc93f6a39..f5fe5672d0 100644
--- a/compcert/flocq/Calc/Operations.v
+++ b/compcert/flocq/Calc/Operations.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2009-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Calc/Plus.v b/compcert/flocq/Calc/Plus.v
index bd338af8d7..0d70524f51 100644
--- a/compcert/flocq/Calc/Plus.v
+++ b/compcert/flocq/Calc/Plus.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2010-2021 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Calc/Round.v b/compcert/flocq/Calc/Round.v
index b4693ed756..ec645652de 100644
--- a/compcert/flocq/Calc/Round.v
+++ b/compcert/flocq/Calc/Round.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2010-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Calc/Sqrt.v b/compcert/flocq/Calc/Sqrt.v
index 3c885bbaf9..0e2b82238f 100644
--- a/compcert/flocq/Calc/Sqrt.v
+++ b/compcert/flocq/Calc/Sqrt.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2010-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Core/Core.v b/compcert/flocq/Core/Core.v
index 6ec5728eab..3b933ab1ab 100644
--- a/compcert/flocq/Core/Core.v
+++ b/compcert/flocq/Core/Core.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2010-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Core/Defs.v b/compcert/flocq/Core/Defs.v
index 4a199e017e..177e151733 100644
--- a/compcert/flocq/Core/Defs.v
+++ b/compcert/flocq/Core/Defs.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2009-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Core/Digits.v b/compcert/flocq/Core/Digits.v
index 7fe51ccaf4..f412aa199f 100644
--- a/compcert/flocq/Core/Digits.v
+++ b/compcert/flocq/Core/Digits.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2011-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Core/FIX.v b/compcert/flocq/Core/FIX.v
index 1f4a56768c..e42d3ece19 100644
--- a/compcert/flocq/Core/FIX.v
+++ b/compcert/flocq/Core/FIX.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2009-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Core/FLT.v b/compcert/flocq/Core/FLT.v
index ee0b5d90a4..7d0c2268ef 100644
--- a/compcert/flocq/Core/FLT.v
+++ b/compcert/flocq/Core/FLT.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2009-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Core/FLX.v b/compcert/flocq/Core/FLX.v
index c1abf63905..cb23982bb2 100644
--- a/compcert/flocq/Core/FLX.v
+++ b/compcert/flocq/Core/FLX.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2009-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Core/FTZ.v b/compcert/flocq/Core/FTZ.v
index e2c7ebad80..4c9b95a8ac 100644
--- a/compcert/flocq/Core/FTZ.v
+++ b/compcert/flocq/Core/FTZ.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2009-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Core/Float_prop.v b/compcert/flocq/Core/Float_prop.v
index 36a2a315a1..26e1b8f735 100644
--- a/compcert/flocq/Core/Float_prop.v
+++ b/compcert/flocq/Core/Float_prop.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2009-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Core/Generic_fmt.v b/compcert/flocq/Core/Generic_fmt.v
index a74c81b9dd..cb2b13e579 100644
--- a/compcert/flocq/Core/Generic_fmt.v
+++ b/compcert/flocq/Core/Generic_fmt.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2009-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Core/Raux.v b/compcert/flocq/Core/Raux.v
index 432d3214fa..bfe596827f 100644
--- a/compcert/flocq/Core/Raux.v
+++ b/compcert/flocq/Core/Raux.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2009-2018 Sylvie Boldo
#
#
@@ -2276,7 +2276,7 @@ assert (Hi: forall n, (0 < INR n + 1)%R).
intros N.
rewrite <- S_INR.
apply lt_0_INR.
- apply lt_0_Sn.
+ apply Nat.lt_0_succ.
intros P HP.
set (E y := exists n, (P n /\ y = / (INR n + 1))%R \/ (~ P n /\ y = 0)%R).
assert (HE: forall n, P n -> E (/ (INR n + 1))%R).
diff --git a/compcert/flocq/Core/Round_NE.v b/compcert/flocq/Core/Round_NE.v
index 6a6fb0fb52..e55d60ebbf 100644
--- a/compcert/flocq/Core/Round_NE.v
+++ b/compcert/flocq/Core/Round_NE.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2009-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Core/Round_pred.v b/compcert/flocq/Core/Round_pred.v
index c811aec80d..1faf8322d5 100644
--- a/compcert/flocq/Core/Round_pred.v
+++ b/compcert/flocq/Core/Round_pred.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2009-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Core/Ulp.v b/compcert/flocq/Core/Ulp.v
index 2459e35b17..c50762a026 100644
--- a/compcert/flocq/Core/Ulp.v
+++ b/compcert/flocq/Core/Ulp.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2009-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Core/Zaux.v b/compcert/flocq/Core/Zaux.v
index 57e351dd4c..59e89800d7 100644
--- a/compcert/flocq/Core/Zaux.v
+++ b/compcert/flocq/Core/Zaux.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2011-2018 Sylvie Boldo
#
#
@@ -988,7 +988,7 @@ Lemma iter_nat_plus :
iter_nat (p + q) x = iter_nat p (iter_nat q x).
Proof.
induction q.
-now rewrite plus_0_r.
+now rewrite Nat.add_0_r.
intros x.
rewrite <- plus_n_Sm.
apply IHq.
@@ -1012,13 +1012,13 @@ Proof.
induction p ; intros x.
rewrite Pos2Nat.inj_xI.
simpl.
-rewrite plus_0_r.
+rewrite Nat.add_0_r.
rewrite iter_nat_plus.
rewrite (IHp (f x)).
apply IHp.
rewrite Pos2Nat.inj_xO.
simpl.
-rewrite plus_0_r.
+rewrite Nat.add_0_r.
rewrite iter_nat_plus.
rewrite (IHp x).
apply IHp.
diff --git a/compcert/flocq/IEEE754/Binary.v b/compcert/flocq/IEEE754/Binary.v
index 5f9f035256..cf5691ec86 100644
--- a/compcert/flocq/IEEE754/Binary.v
+++ b/compcert/flocq/IEEE754/Binary.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2010-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/IEEE754/BinarySingleNaN.v b/compcert/flocq/IEEE754/BinarySingleNaN.v
index f0259966fe..32af023078 100644
--- a/compcert/flocq/IEEE754/BinarySingleNaN.v
+++ b/compcert/flocq/IEEE754/BinarySingleNaN.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2010-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/IEEE754/Bits.v b/compcert/flocq/IEEE754/Bits.v
index 0a8e612710..1c34bec50c 100644
--- a/compcert/flocq/IEEE754/Bits.v
+++ b/compcert/flocq/IEEE754/Bits.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2011-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Prop/Div_sqrt_error.v b/compcert/flocq/Prop/Div_sqrt_error.v
index 49c46b7e7b..1c5a5deaeb 100644
--- a/compcert/flocq/Prop/Div_sqrt_error.v
+++ b/compcert/flocq/Prop/Div_sqrt_error.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2010-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Prop/Double_rounding.v b/compcert/flocq/Prop/Double_rounding.v
index 53535b9e3b..648bbbf146 100644
--- a/compcert/flocq/Prop/Double_rounding.v
+++ b/compcert/flocq/Prop/Double_rounding.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2014-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Prop/Mult_error.v b/compcert/flocq/Prop/Mult_error.v
index ce909350d3..741b40ab0a 100644
--- a/compcert/flocq/Prop/Mult_error.v
+++ b/compcert/flocq/Prop/Mult_error.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2010-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Prop/Plus_error.v b/compcert/flocq/Prop/Plus_error.v
index bf0b28cda7..30e7c988ec 100644
--- a/compcert/flocq/Prop/Plus_error.v
+++ b/compcert/flocq/Prop/Plus_error.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2010-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Prop/Relative.v b/compcert/flocq/Prop/Relative.v
index a87e56663c..1925e7bf45 100644
--- a/compcert/flocq/Prop/Relative.v
+++ b/compcert/flocq/Prop/Relative.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2010-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Prop/Round_odd.v b/compcert/flocq/Prop/Round_odd.v
index a7d98eb49c..2df8cf57e9 100644
--- a/compcert/flocq/Prop/Round_odd.v
+++ b/compcert/flocq/Prop/Round_odd.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2013-2018 Sylvie Boldo
#
#
diff --git a/compcert/flocq/Prop/Sterbenz.v b/compcert/flocq/Prop/Sterbenz.v
index 8f516d0e91..93a2a3380c 100644
--- a/compcert/flocq/Prop/Sterbenz.v
+++ b/compcert/flocq/Prop/Sterbenz.v
@@ -1,6 +1,6 @@
(**
This file is part of the Flocq formalization of floating-point
-arithmetic in Coq: http://flocq.gforge.inria.fr/
+arithmetic in Coq: https://flocq.gitlabpages.inria.fr/
Copyright (C) 2010-2018 Sylvie Boldo
#
#
diff --git a/compcert/lib/Coqlib.v b/compcert/lib/Coqlib.v
index 9b8f2abbc9..796364ac74 100644
--- a/compcert/lib/Coqlib.v
+++ b/compcert/lib/Coqlib.v
@@ -833,6 +833,12 @@ Qed.
(** Properties of [List.app] (concatenation) *)
+Lemma app_ass:
+ forall (A: Type) (l1 l2 l3: list A), (l1 ++ l2) ++ l3 = l1 ++ (l2 ++ l3).
+Proof.
+ intros; symmetry; apply app_assoc.
+Qed.
+
Lemma list_append_injective_l:
forall (A: Type) (l1 l2 l1' l2': list A),
l1 ++ l2 = l1' ++ l2' -> List.length l1 = List.length l1' -> l1 = l1' /\ l2 = l2'.
@@ -1052,7 +1058,7 @@ Proof.
elim H4. apply in_or_app. tauto.
auto.
induction a; simpl; intros.
- rewrite <- app_nil_end. auto.
+ rewrite app_nil_r. auto.
inversion H0. apply H. auto.
red; intro; elim H3. apply in_or_app. tauto.
red; intro; elim H3. apply in_or_app. tauto.
diff --git a/compcert/lib/Floats.v b/compcert/lib/Floats.v
index 33e485248b..ff2584871b 100644
--- a/compcert/lib/Floats.v
+++ b/compcert/lib/Floats.v
@@ -472,7 +472,7 @@ Theorem of_intu_of_int_1:
Proof.
unfold of_intu, of_int, Int.signed, Int.ltu; intro.
change (Int.unsigned ox8000_0000) with Int.half_modulus.
- destruct (zlt (Int.unsigned x) Int.half_modulus); now intuition.
+ destruct (zlt (Int.unsigned x) Int.half_modulus); now intuition auto.
Qed.
Theorem of_intu_of_int_2:
@@ -860,7 +860,7 @@ Theorem of_longu_of_long_1:
Proof.
unfold of_longu, of_long, Int64.signed, Int64.ltu; intro.
change (Int64.unsigned (Int64.repr Int64.half_modulus)) with Int64.half_modulus.
- destruct (zlt (Int64.unsigned x) Int64.half_modulus); now intuition.
+ destruct (zlt (Int64.unsigned x) Int64.half_modulus); now intuition auto.
Qed.
Theorem of_longu_of_long_2:
diff --git a/compcert/lib/IEEE754_extra.v b/compcert/lib/IEEE754_extra.v
index 8db4d11461..f7c2487b93 100644
--- a/compcert/lib/IEEE754_extra.v
+++ b/compcert/lib/IEEE754_extra.v
@@ -1036,7 +1036,7 @@ Proof with (try discriminate).
rewrite <- ! bpow_plus.
replace (prec - 1 + e') with (- (prec - 1 + e)) by (unfold e'; lia).
rewrite bpow_opp. unfold cond_Ropp; destruct s; auto.
- rewrite Ropp_inv_permute. auto. apply Rgt_not_eq. apply bpow_gt_0.
+ field. apply Rgt_not_eq. apply bpow_gt_0.
split. simpl. apply F2R_neq_0. destruct s; simpl in H; discriminate.
auto.
Qed.
diff --git a/compcert/lib/Integers.v b/compcert/lib/Integers.v
index b69e98425a..a29d35be2d 100644
--- a/compcert/lib/Integers.v
+++ b/compcert/lib/Integers.v
@@ -121,7 +121,7 @@ Proof (Z_mod_two_p_range wordsize).
Lemma Z_mod_modulus_range':
forall x, -1 < Z_mod_modulus x < modulus.
Proof.
- intros. generalize (Z_mod_modulus_range x); intuition.
+ intros. generalize (Z_mod_modulus_range x); intuition auto with zarith.
Qed.
Lemma Z_mod_modulus_eq:
@@ -3335,7 +3335,7 @@ Proof.
rewrite andb_false_iff.
generalize (bits_size_2 a i).
generalize (bits_size_2 b i).
- zify; intuition.
+ zify; intuition auto with zarith.
Qed.
Corollary and_interval:
diff --git a/compcert/lib/Intv.v b/compcert/lib/Intv.v
index 3a49181987..d5d024aa69 100644
--- a/compcert/lib/Intv.v
+++ b/compcert/lib/Intv.v
@@ -195,7 +195,7 @@ Proof.
simpl; split; intros.
destruct H. clear IHl. lia. rewrite IHl in H. clear IHl. lia.
destruct (zeq (hi - 1) x); auto. right. rewrite IHl. clear IHl. lia.
- simpl; intuition.
+ simpl; intuition auto with zarith.
Qed.
End ELEMENTS.
diff --git a/compcert/lib/IntvSets.v b/compcert/lib/IntvSets.v
index c3fda5f71d..39af622d26 100644
--- a/compcert/lib/IntvSets.v
+++ b/compcert/lib/IntvSets.v
@@ -61,7 +61,7 @@ Proof.
* tauto.
* split; intros. congruence.
exfalso. destruct H0. lia. exploit BELOW; eauto. lia.
-+ rewrite IHok. intuition.
++ rewrite IHok. intuition auto.
Qed.
Fixpoint contains (L H: Z) (s: t) : bool :=
@@ -75,11 +75,11 @@ Lemma contains_In:
(contains l0 h0 s = true <-> (forall x, l0 <= x < h0 -> In x s)).
Proof.
induction 2; simpl.
-- intuition. elim (H0 l0); lia.
+- intuition auto with zarith bool. elim (H0 l0); lia.
- destruct (zle h0 h); simpl.
destruct (zle l l0); simpl.
- intuition.
- rewrite IHok. intuition. destruct (H3 x); auto. exfalso.
+ intuition auto with zarith.
+ rewrite IHok. intuition auto with zarith. destruct (H3 x); auto. exfalso.
destruct (H3 l0). lia. lia. exploit BELOW; eauto. lia.
rewrite IHok. intuition. destruct (H3 x); auto. exfalso.
destruct (H3 h). lia. lia. exploit BELOW; eauto. lia.
@@ -144,7 +144,7 @@ Proof.
destruct (zlt h l0).
simpl. rewrite IHok. intuition lia.
destruct (zlt h0 l).
- simpl. intuition. exploit BELOW; eauto. lia.
+ simpl. intuition auto with zarith. exploit BELOW; eauto. lia.
destruct (zlt l l0).
destruct (zlt h0 h); simpl. clear IHok. split.
intros [A | [A | A]].
@@ -156,7 +156,7 @@ Proof.
auto.
intuition lia.
destruct (zlt h0 h); simpl.
- intuition. exploit BELOW; eauto. lia.
+ intuition auto with zarith. exploit BELOW; eauto. lia.
rewrite IHok. intuition. extlia.
Qed.
@@ -205,18 +205,18 @@ Proof.
tauto.
assert (ok (Cons l0 h0 s0)) by (constructor; auto).
destruct (zle h l0).
- rewrite IHok; auto. simpl. intuition. extlia.
+ rewrite IHok; auto. simpl. intuition auto with zarith. extlia.
exploit BELOW0; eauto. intros. extlia.
destruct (zle h0 l).
- simpl in IHok0; rewrite IHok0. intuition. extlia.
+ simpl in IHok0; rewrite IHok0. intuition auto with zarith. extlia.
exploit BELOW; eauto. intros; extlia.
destruct (zle l l0).
destruct (zle h0 h).
- simpl. simpl in IHok0; rewrite IHok0. intuition.
- simpl. rewrite IHok; auto. simpl. intuition. exploit BELOW0; eauto. intros; extlia.
+ simpl. simpl in IHok0; rewrite IHok0. intuition auto with zarith.
+ simpl. rewrite IHok; auto. simpl. intuition auto with zarith. exploit BELOW0; eauto. intros; extlia.
destruct (zle h h0).
- simpl. rewrite IHok; auto. simpl. intuition.
- simpl. simpl in IHok0; rewrite IHok0. intuition.
+ simpl. rewrite IHok; auto. simpl. intuition auto with zarith.
+ simpl. simpl in IHok0; rewrite IHok0. intuition auto with zarith.
exploit BELOW; eauto. intros; extlia.
Qed.
@@ -325,9 +325,7 @@ Qed.
Theorem In_interval: forall x l h, In x (interval l h) <-> l <= x < h.
Proof.
- intros. unfold In, interval; destruct (zlt l h); simpl.
- intuition.
- intuition.
+ intros. unfold In, interval; destruct (zlt l h); simpl; intuition auto with zarith.
Qed.
Program Definition add (l h: Z) (s: t) : t :=
@@ -355,7 +353,7 @@ Proof.
unfold remove, In; intros.
destruct (zlt l h).
simpl. apply R.In_remove. apply proj2_sig.
- intuition.
+ intuition auto with zarith.
Qed.
Program Definition inter (s1 s2: t) : t := R.inter s1 s2.
diff --git a/compcert/lib/Maps.v b/compcert/lib/Maps.v
index 0d83aa98a1..066d80521a 100644
--- a/compcert/lib/Maps.v
+++ b/compcert/lib/Maps.v
@@ -1589,7 +1589,7 @@ Proof.
intros m EQV. apply H_base.
intros. destruct (T.get k m) as [v|] eqn:G; auto.
apply EQV in G. contradiction.
-Qed.
+Defined.
Let H_rec':
forall k v l a,
@@ -1608,7 +1608,7 @@ Proof.
+ apply EQV. simpl; auto.
+ congruence.
+ apply EQV in H. simpl in H. intuition congruence.
-Qed.
+Defined.
Lemma fold_ind_aux:
forall l,
diff --git a/compcert/lib/Parmov.v b/compcert/lib/Parmov.v
index d7cab86ac8..269d3a594e 100644
--- a/compcert/lib/Parmov.v
+++ b/compcert/lib/Parmov.v
@@ -778,7 +778,7 @@ Proof.
repeat rewrite <- app_ass.
assert (~In d (dests (mu ++ sigma))). autorewrite with pmov. tauto.
repeat rewrite exec_par_lift; auto. simpl.
- repeat rewrite <- app_nil_end.
+ repeat rewrite app_nil_r.
assert (move_no_temp (mu ++ sigma)).
red in C. rewrite rev_unit in C. destruct C.
apply move_no_temp_append; auto. apply move_no_temp_rev; auto.
@@ -828,7 +828,7 @@ Lemma state_wf_start:
is_mill mu ->
state_wf (State mu nil nil).
Proof.
- intros. constructor. rewrite <- app_nil_end. auto.
+ intros. constructor. rewrite app_nil_r. auto.
auto.
red. simpl. auto.
constructor.
@@ -850,7 +850,7 @@ Proof.
intros.
generalize (transitions_preserve_semantics _ _ e H1
(state_wf_start _ H H0)).
- unfold statemove. simpl. rewrite <- app_nil_end.
+ unfold statemove. simpl. rewrite app_nil_r.
rewrite exec_seq_exec_seq_rev. auto.
Qed.
diff --git a/compcert/lib/Zbits.v b/compcert/lib/Zbits.v
index f6dc0c9d4f..a69a1f8651 100644
--- a/compcert/lib/Zbits.v
+++ b/compcert/lib/Zbits.v
@@ -170,12 +170,12 @@ Lemma Z_mod_two_p_range:
Proof.
intros; unfold Z_mod_two_p. generalize (two_power_nat_pos n); intros.
destruct x.
- - intuition.
+ - lia.
- apply P_mod_two_p_range.
- set (r := P_mod_two_p p n).
assert (0 <= r < two_power_nat n) by apply P_mod_two_p_range.
destruct (zeq r 0).
- + intuition.
+ + intuition auto with crelations zarith bool.
+ Psatz.lia.
Qed.
@@ -192,10 +192,8 @@ Proof.
set (r := P_mod_two_p p n) in *.
rewrite <- B in C.
change (Z.neg p) with (- (Z.pos p)). destruct (zeq r 0).
- + symmetry. apply Zmod_unique with (-q). rewrite C; rewrite e. Psatz.lia.
- intuition.
- + symmetry. apply Zmod_unique with (-q - 1). rewrite C. Psatz.lia.
- intuition.
+ + symmetry. apply Zmod_unique with (-q). rewrite C; rewrite e. lia. lia.
+ + symmetry. apply Zmod_unique with (-q - 1). rewrite C. lia. lia.
Qed.
(** ** Bit-level operations and properties *)
diff --git a/compcert/x86/Builtins1.v b/compcert/x86/Builtins1.v
index 7c77a488a0..f3ae694bc2 100644
--- a/compcert/x86/Builtins1.v
+++ b/compcert/x86/Builtins1.v
@@ -19,6 +19,7 @@
Require Import String Coqlib.
Require Import AST Integers Floats Values.
Require Import Builtins0.
+Local Open Scope asttyp_scope.
Inductive platform_builtin : Type :=
| BI_fmin
@@ -33,20 +34,19 @@ Definition platform_builtin_table : list (string * platform_builtin) :=
Definition platform_builtin_sig (b: platform_builtin) : signature :=
match b with
- | BI_fmin | BI_fmax =>
- mksignature (Tfloat :: Tfloat :: nil) Tfloat cc_default
+ | BI_fmin | BI_fmax => [Xfloat; Xfloat ---> Xfloat]
end.
Definition platform_builtin_sem (b: platform_builtin) : builtin_sem (sig_res (platform_builtin_sig b)) :=
match b with
| BI_fmin =>
- mkbuiltin_n2t Tfloat Tfloat Tfloat
+ mkbuiltin_n2t Tfloat Tfloat Xfloat
(fun f1 f2 => match Float.compare f1 f2 with
| Some Lt => f1
| Some Eq | Some Gt | None => f2
end)
| BI_fmax =>
- mkbuiltin_n2t Tfloat Tfloat Tfloat
+ mkbuiltin_n2t Tfloat Tfloat Xfloat
(fun f1 f2 => match Float.compare f1 f2 with
| Some Gt => f1
| Some Eq | Some Lt | None => f2
diff --git a/concurrency/semax_conc.v b/concurrency/semax_conc.v
index 587dfa368b..1e94fd9697 100644
--- a/concurrency/semax_conc.v
+++ b/concurrency/semax_conc.v
@@ -26,7 +26,7 @@ Import FashNotation.
Import String.
Open Scope funspec_scope.
-Definition spawned_funtype := Tfunction (Tcons (tptr tvoid) Tnil) tint cc_default.
+Definition spawned_funtype := Tfunction (cons (tptr tvoid) nil) tint cc_default.
Lemma nonexpansive_entail (F: pred rmap -> pred rmap) : nonexpansive F -> forall P Q, (P <=> Q |-- F P <=> F Q)%logic.
Proof.
diff --git a/concurrency/threads.c b/concurrency/threads.c
index ac945a824d..fd838da5b2 100644
--- a/concurrency/threads.c
+++ b/concurrency/threads.c
@@ -2,7 +2,12 @@
using the Verified Software Toolchain */
#include
+// MacOS is never going to implement C11 threads
+#ifdef __STDC_NO_THREADS__
+#include
+#else
#include
+#endif
#include "../atomics/SC_atomics.h"
#include "threads.h"
@@ -32,14 +37,24 @@ void release(lock_t lock) {
void spawn(int (*f)(void*), void* args) {
+#ifdef __STDC_NO_THREADS__
+ pthread_t t;
+ if (pthread_create(&t, NULL, f, args) != 0) {
+ exit(1);
+ }
+#else
thrd_t t;
if(thrd_create(&t, f, args) != thrd_success)
exit(1);
- return;
+#endif
}
void exit_thread(int r) {
+#ifdef __STDC_NO_THREADS__
+ pthread_exit(NULL);
+#else
thrd_exit(r);
+#endif
}
/*void makecond(cond_t *cond) {
diff --git a/concurrency/threads.v b/concurrency/threads.v
index 5f738ac8f2..1761c83967 100644
--- a/concurrency/threads.v
+++ b/concurrency/threads.v
@@ -6,25 +6,29 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.10".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "concurrency/threads.c".
Definition normalized := true.
End Info.
+Definition ___arg : ident := $"__arg".
Definition ___builtin_annot : ident := $"__builtin_annot".
Definition ___builtin_annot_intval : ident := $"__builtin_annot_intval".
Definition ___builtin_bswap : ident := $"__builtin_bswap".
Definition ___builtin_bswap16 : ident := $"__builtin_bswap16".
Definition ___builtin_bswap32 : ident := $"__builtin_bswap32".
Definition ___builtin_bswap64 : ident := $"__builtin_bswap64".
+Definition ___builtin_cls : ident := $"__builtin_cls".
+Definition ___builtin_clsl : ident := $"__builtin_clsl".
+Definition ___builtin_clsll : ident := $"__builtin_clsll".
Definition ___builtin_clz : ident := $"__builtin_clz".
Definition ___builtin_clzl : ident := $"__builtin_clzl".
Definition ___builtin_clzll : ident := $"__builtin_clzll".
@@ -44,8 +48,6 @@ Definition ___builtin_fnmsub : ident := $"__builtin_fnmsub".
Definition ___builtin_fsqrt : ident := $"__builtin_fsqrt".
Definition ___builtin_membar : ident := $"__builtin_membar".
Definition ___builtin_memcpy_aligned : ident := $"__builtin_memcpy_aligned".
-Definition ___builtin_read16_reversed : ident := $"__builtin_read16_reversed".
-Definition ___builtin_read32_reversed : ident := $"__builtin_read32_reversed".
Definition ___builtin_sel : ident := $"__builtin_sel".
Definition ___builtin_sqrt : ident := $"__builtin_sqrt".
Definition ___builtin_unreachable : ident := $"__builtin_unreachable".
@@ -53,8 +55,7 @@ Definition ___builtin_va_arg : ident := $"__builtin_va_arg".
Definition ___builtin_va_copy : ident := $"__builtin_va_copy".
Definition ___builtin_va_end : ident := $"__builtin_va_end".
Definition ___builtin_va_start : ident := $"__builtin_va_start".
-Definition ___builtin_write16_reversed : ident := $"__builtin_write16_reversed".
-Definition ___builtin_write32_reversed : ident := $"__builtin_write32_reversed".
+Definition ___cleanup_stack : ident := $"__cleanup_stack".
Definition ___compcert_i64_dtos : ident := $"__compcert_i64_dtos".
Definition ___compcert_i64_dtou : ident := $"__compcert_i64_dtou".
Definition ___compcert_i64_sar : ident := $"__compcert_i64_sar".
@@ -74,8 +75,13 @@ Definition ___compcert_va_composite : ident := $"__compcert_va_composite".
Definition ___compcert_va_float64 : ident := $"__compcert_va_float64".
Definition ___compcert_va_int32 : ident := $"__compcert_va_int32".
Definition ___compcert_va_int64 : ident := $"__compcert_va_int64".
-Definition ___dummy : ident := $"__dummy".
-Definition ___pthread_t : ident := $"__pthread_t".
+Definition ___darwin_pthread_handler_rec : ident := $"__darwin_pthread_handler_rec".
+Definition ___next : ident := $"__next".
+Definition ___opaque : ident := $"__opaque".
+Definition ___routine : ident := $"__routine".
+Definition ___sig : ident := $"__sig".
+Definition __opaque_pthread_attr_t : ident := $"_opaque_pthread_attr_t".
+Definition __opaque_pthread_t : ident := $"_opaque_pthread_t".
Definition _acquire : ident := $"acquire".
Definition _args : ident := $"args".
Definition _atom_CAS : ident := $"atom_CAS".
@@ -92,12 +98,12 @@ Definition _lock : ident := $"lock".
Definition _main : ident := $"main".
Definition _make_atomic : ident := $"make_atomic".
Definition _makelock : ident := $"makelock".
+Definition _pthread_create : ident := $"pthread_create".
+Definition _pthread_exit : ident := $"pthread_exit".
Definition _r : ident := $"r".
Definition _release : ident := $"release".
Definition _spawn : ident := $"spawn".
Definition _t : ident := $"t".
-Definition _thrd_create : ident := $"thrd_create".
-Definition _thrd_exit : ident := $"thrd_exit".
Definition _t'1 : ident := 128%positive.
Definition f_makelock := {|
@@ -109,7 +115,7 @@ Definition f_makelock := {|
fn_body :=
(Ssequence
(Scall (Some _t'1)
- (Evar _make_atomic (Tfunction (Tcons tint Tnil)
+ (Evar _make_atomic (Tfunction (tint :: nil)
(tptr (Tstruct _atom_int noattr)) cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
(Sreturn (Some (Etempvar _t'1 (tptr (Tstruct _atom_int noattr))))))
@@ -123,9 +129,8 @@ Definition f_freelock := {|
fn_temps := nil;
fn_body :=
(Scall None
- (Evar _free_atomic (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid
- cc_default))
+ (Evar _free_atomic (Tfunction ((tptr (Tstruct _atom_int noattr)) :: nil)
+ tvoid cc_default))
((Etempvar _lock (tptr (Tstruct _atom_int noattr))) :: nil))
|}.
@@ -144,9 +149,8 @@ Definition f_acquire := {|
(Ssequence
(Scall (Some _t'1)
(Evar _atom_CAS (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr))
- (Tcons (tptr tint) (Tcons tint Tnil))) tint
- cc_default))
+ ((tptr (Tstruct _atom_int noattr)) ::
+ (tptr tint) :: tint :: nil) tint cc_default))
((Etempvar _lock (tptr (Tstruct _atom_int noattr))) ::
(Eaddrof (Evar _expected tint) (tptr tint)) ::
(Econst_int (Int.repr 1) tint) :: nil))
@@ -166,8 +170,8 @@ Definition f_release := {|
fn_body :=
(Scall None
(Evar _atom_store (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr))
- (Tcons tint Tnil)) tvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: tint :: nil)
+ tvoid cc_default))
((Etempvar _lock (tptr (Tstruct _atom_int noattr))) ::
(Econst_int (Int.repr 0) tint) :: nil))
|}.
@@ -176,31 +180,29 @@ Definition f_spawn := {|
fn_return := tvoid;
fn_callconv := cc_default;
fn_params := ((_f,
- (tptr (Tfunction (Tcons (tptr tvoid) Tnil) tint cc_default))) ::
+ (tptr (Tfunction ((tptr tvoid) :: nil) tint cc_default))) ::
(_args, (tptr tvoid)) :: nil);
- fn_vars := ((_t, (tptr (Tstruct ___pthread_t noattr))) :: nil);
+ fn_vars := ((_t, (tptr (Tstruct __opaque_pthread_t noattr))) :: nil);
fn_temps := ((_t'1, tint) :: nil);
fn_body :=
(Ssequence
- (Ssequence
- (Scall (Some _t'1)
- (Evar _thrd_create (Tfunction
- (Tcons (tptr (tptr (Tstruct ___pthread_t noattr)))
- (Tcons
- (tptr (Tfunction (Tcons (tptr tvoid) Tnil)
- tint cc_default))
- (Tcons (tptr tvoid) Tnil))) tint cc_default))
- ((Eaddrof (Evar _t (tptr (Tstruct ___pthread_t noattr)))
- (tptr (tptr (Tstruct ___pthread_t noattr)))) ::
- (Etempvar _f (tptr (Tfunction (Tcons (tptr tvoid) Tnil) tint
- cc_default))) :: (Etempvar _args (tptr tvoid)) ::
- nil))
- (Sifthenelse (Ebinop One (Etempvar _t'1 tint)
- (Econst_int (Int.repr 4) tint) tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
- ((Econst_int (Int.repr 1) tint) :: nil))
- Sskip))
- (Sreturn None))
+ (Scall (Some _t'1)
+ (Evar _pthread_create (Tfunction
+ ((tptr (tptr (Tstruct __opaque_pthread_t noattr))) ::
+ (tptr (Tstruct __opaque_pthread_attr_t noattr)) ::
+ (tptr (Tfunction ((tptr tvoid) :: nil)
+ (tptr tvoid) cc_default)) ::
+ (tptr tvoid) :: nil) tint cc_default))
+ ((Eaddrof (Evar _t (tptr (Tstruct __opaque_pthread_t noattr)))
+ (tptr (tptr (Tstruct __opaque_pthread_t noattr)))) ::
+ (Ecast (Econst_int (Int.repr 0) tint) (tptr tvoid)) ::
+ (Etempvar _f (tptr (Tfunction ((tptr tvoid) :: nil) tint cc_default))) ::
+ (Etempvar _args (tptr tvoid)) :: nil))
+ (Sifthenelse (Ebinop One (Etempvar _t'1 tint)
+ (Econst_int (Int.repr 0) tint) tint)
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
+ ((Econst_int (Int.repr 1) tint) :: nil))
+ Sskip))
|}.
Definition f_exit_thread := {|
@@ -210,311 +212,310 @@ Definition f_exit_thread := {|
fn_vars := nil;
fn_temps := nil;
fn_body :=
-(Scall None (Evar _thrd_exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
- ((Etempvar _r tint) :: nil))
+(Scall None
+ (Evar _pthread_exit (Tfunction ((tptr tvoid) :: nil) tvoid cc_default))
+ ((Ecast (Econst_int (Int.repr 0) tint) (tptr tvoid)) :: nil))
|}.
Definition composites : list composite_definition :=
-(Composite ___pthread_t Struct (Member_plain ___dummy tschar :: nil) noattr ::
- nil).
+(Composite ___darwin_pthread_handler_rec Struct
+ (Member_plain ___routine
+ (tptr (Tfunction ((tptr tvoid) :: nil) tvoid cc_default)) ::
+ Member_plain ___arg (tptr tvoid) ::
+ Member_plain ___next
+ (tptr (Tstruct ___darwin_pthread_handler_rec noattr)) :: nil)
+ noattr ::
+ Composite __opaque_pthread_attr_t Struct
+ (Member_plain ___sig tlong :: Member_plain ___opaque (tarray tschar 56) ::
+ nil)
+ noattr ::
+ Composite __opaque_pthread_t Struct
+ (Member_plain ___sig tlong ::
+ Member_plain ___cleanup_stack
+ (tptr (Tstruct ___darwin_pthread_handler_rec noattr)) ::
+ Member_plain ___opaque (tarray tschar 8176) :: nil)
+ noattr :: nil).
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_exit,
Gfun(External (EF_external "exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
- (_thrd_create,
- Gfun(External (EF_external "thrd_create"
- (mksignature (AST.Tlong :: AST.Tlong :: AST.Tlong :: nil)
- AST.Tint cc_default))
- (Tcons (tptr (tptr (Tstruct ___pthread_t noattr)))
- (Tcons (tptr (Tfunction (Tcons (tptr tvoid) Tnil) tint cc_default))
- (Tcons (tptr tvoid) Tnil))) tint cc_default)) ::
- (_thrd_exit,
- Gfun(External (EF_external "thrd_exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
+ (_pthread_create,
+ Gfun(External (EF_external "pthread_create"
+ (mksignature
+ (AST.Xptr :: AST.Xptr :: AST.Xptr :: AST.Xptr :: nil)
+ AST.Xint cc_default))
+ ((tptr (tptr (Tstruct __opaque_pthread_t noattr))) ::
+ (tptr (Tstruct __opaque_pthread_attr_t noattr)) ::
+ (tptr (Tfunction ((tptr tvoid) :: nil) (tptr tvoid) cc_default)) ::
+ (tptr tvoid) :: nil) tint cc_default)) ::
+ (_pthread_exit,
+ Gfun(External (EF_external "pthread_exit"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(_make_atomic,
Gfun(External (EF_external "make_atomic"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons tint Tnil) (tptr (Tstruct _atom_int noattr)) cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xptr cc_default))
+ (tint :: nil) (tptr (Tstruct _atom_int noattr)) cc_default)) ::
(_atom_store,
Gfun(External (EF_external "atom_store"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
cc_default))
- (Tcons (tptr (Tstruct _atom_int noattr)) (Tcons tint Tnil)) tvoid
- cc_default)) ::
+ ((tptr (Tstruct _atom_int noattr)) :: tint :: nil) tvoid cc_default)) ::
(_atom_CAS,
Gfun(External (EF_external "atom_CAS"
- (mksignature (AST.Tlong :: AST.Tlong :: AST.Tint :: nil)
- AST.Tint cc_default))
- (Tcons (tptr (Tstruct _atom_int noattr))
- (Tcons (tptr tint) (Tcons tint Tnil))) tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: AST.Xint :: nil)
+ AST.Xint cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: (tptr tint) :: tint :: nil) tint
+ cc_default)) ::
(_free_atomic,
Gfun(External (EF_external "free_atomic"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil) tvoid cc_default)) ::
(_makelock, Gfun(Internal f_makelock)) ::
(_freelock, Gfun(Internal f_freelock)) ::
(_acquire, Gfun(Internal f_acquire)) ::
@@ -523,25 +524,24 @@ Definition global_definitions : list (ident * globdef fundef type) :=
Definition public_idents : list ident :=
(_exit_thread :: _spawn :: _release :: _acquire :: _freelock :: _makelock ::
- _free_atomic :: _atom_CAS :: _atom_store :: _make_atomic :: _thrd_exit ::
- _thrd_create :: _exit :: ___builtin_debug :: ___builtin_write32_reversed ::
- ___builtin_write16_reversed :: ___builtin_read32_reversed ::
- ___builtin_read16_reversed :: ___builtin_fnmsub :: ___builtin_fnmadd ::
- ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_fmin ::
- ___builtin_fmax :: ___builtin_expect :: ___builtin_unreachable ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_sel :: ___builtin_memcpy_aligned ::
- ___builtin_sqrt :: ___builtin_fsqrt :: ___builtin_fabsf ::
- ___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ _free_atomic :: _atom_CAS :: _atom_store :: _make_atomic :: _pthread_exit ::
+ _pthread_create :: _exit :: ___builtin_debug :: ___builtin_fmin ::
+ ___builtin_fmax :: ___builtin_fnmsub :: ___builtin_fnmadd ::
+ ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_clsll ::
+ ___builtin_clsl :: ___builtin_cls :: ___builtin_expect ::
+ ___builtin_unreachable :: ___builtin_va_end :: ___builtin_va_copy ::
+ ___builtin_va_arg :: ___builtin_va_start :: ___builtin_membar ::
+ ___builtin_annot_intval :: ___builtin_annot :: ___builtin_sel ::
+ ___builtin_memcpy_aligned :: ___builtin_sqrt :: ___builtin_fsqrt ::
+ ___builtin_fabsf :: ___builtin_fabs :: ___builtin_ctzll ::
+ ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll :: ___builtin_clzl ::
+ ___builtin_clz :: ___builtin_bswap16 :: ___builtin_bswap32 ::
+ ___builtin_bswap :: ___builtin_bswap64 :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/fcf b/fcf
index 291f50057c..f1bd5f3903 160000
--- a/fcf
+++ b/fcf
@@ -1 +1 @@
-Subproject commit 291f50057cfbb7c96e58ff11ca9b9f4778467ec1
+Subproject commit f1bd5f3903771d78c85ba48f30c6e155aed2b48f
diff --git a/floyd/Component.v b/floyd/Component.v
index cd23d974c9..62e3426d38 100644
--- a/floyd/Component.v
+++ b/floyd/Component.v
@@ -181,11 +181,11 @@ Definition semaxfunc_InternalInfo C V G (ge : Genv.t Clight.fundef type) id f ph
genv_find_func ge id (Internal f).
Definition semaxfunc_ExternalInfo Espec (ge : Genv.t Clight.fundef type) (id : ident)
- (ef : external_function) (argsig : typelist) (retsig : type) (cc : calling_convention) phi :=
+ (ef : external_function) (argsig : list type) (retsig : type) (cc : calling_convention) phi :=
match phi with mk_funspec (argsig', retsig') cc' A P Q NEP NEQ =>
retsig = retsig' /\ cc=cc' /\
- argsig' = typelist2list argsig /\
- ef_sig ef = mksignature (typlist_of_typelist argsig) (rettype_of_type retsig) cc /\
+ argsig' = argsig /\
+ ef_sig ef = mksignature (map argtype_of_type argsig) (rettype_of_type retsig) cc /\
(ef_inline ef = false \/ withtype_empty A) /\
(forall (gx : genviron) (ts : list Type) x (ret : option val),
Q ts x (make_ext_rval gx (rettype_of_type retsig) ret) && !! Builtins0.val_opt_has_rettype ret (rettype_of_type retsig) |-- !! tc_option_val retsig ret) /\
@@ -253,8 +253,10 @@ Proof.
repeat split; trivial. apply Hb6.
Qed.
+(*
Lemma TTL7: forall l l' (L:typelist_of_type_list l = typelist_of_type_list l'), l=l'.
Proof. induction l; destruct l'; simpl; intros; trivial; inv L. f_equal. auto. Qed.
+*)
Lemma InternalInfo_cc {cs V G ge i f phi} (SF: @semaxfunc_InternalInfo cs V G ge i f phi):
fn_callconv f = callingconvention_of_funspec phi.
@@ -280,8 +282,10 @@ Proof.
apply (semax_body_binaryintersection _ (i,phi1) (i, phi2)); trivial.
Qed.
-Lemma length_of_typelist2: forall l, length (typelist2list l) = length (typlist_of_typelist l).
+(*
+Lemma length_of_typelist2: forall l, length l = length (typlist_of_typelist l).
Proof. induction l; simpl; trivial. rewrite IHl; trivial. Qed.
+*)
Lemma externalInfo_binary_intersection {Espec ge i ef argsig retsig cc phi1 phi2 phi}
(F1_external : semaxfunc_ExternalInfo Espec ge i ef argsig retsig cc phi1)
@@ -318,7 +322,7 @@ Proof.
+ split; trivial.
eapply semax_external_binaryintersection. apply EXT1. apply EXT2.
apply BI.
- rewrite Sig2; simpl. rewrite length_of_typelist2. trivial.
+ rewrite Sig2; simpl. rewrite map_length. trivial.
Qed.
Lemma find_funspec_sub: forall specs' specs
@@ -1393,7 +1397,7 @@ Proof. intros. specialize (FM i).
destruct SF2 as [? [? [? _]]]. subst.
unfold merge_globdef in H2.
destruct (fundef_eq
- (External e t0 t4 c3) (External e0 t2 t5 c4)) eqn:?H; inv H2.
+ (External e l0 t2 c3) (External e0 l1 t3 c4)) eqn:?H; inv H2.
apply fundef_eq_prop in H3. inv H3. auto.
Qed.
@@ -1676,7 +1680,7 @@ Proof.
destruct H0 as [g [? _]].
simpl in H0.
destruct (eqb_external_function x x3 &&
- eqb_typelist x0 x4 && eqb_type x1 x5)%bool; [ | discriminate].
+ eqb_list eqb_type x0 x4 && eqb_type x1 x5)%bool; [ | discriminate].
destruct (eqb_calling_convention x2 x6)%bool eqn:?H; [ | discriminate].
apply eqb_calling_convention_prop; auto.
-
@@ -2215,7 +2219,7 @@ Qed.
Local Lemma Condition1:
forall i, In i (map fst JoinedImports) ->
- exists (f : external_function) (ts : typelist) (t : type) (cc : calling_convention),
+ exists (f : external_function) (ts : list type) (t : type) (cc : calling_convention),
PTree.get i (QP.prog_defs p) = Some (Gfun (External f ts t cc)).
Proof.
unfold JoinedImports; clear - c1 c2 Linked. intros. rewrite map_app in H. apply in_app_or in H; destruct H.
@@ -2979,13 +2983,14 @@ Proof.
inv Hx.
destruct f; destruct f0; simpl in HH.
* destruct (function_eq f f0); inv HH.
- * destruct ((eqb_list eqb_typ (map typ_of_type (map snd (fn_params f))) (typlist_of_typelist t) &&
- eqb_rettype (rettype_of_type (fn_return f)) (rettype_of_type t0) &&
- eqb_calling_convention (fn_callconv f) c)%bool); inv HH.
- * destruct ((eqb_list eqb_typ (typlist_of_typelist t) (map typ_of_type (map snd (fn_params f))) &&
- eqb_rettype (rettype_of_type t0) (rettype_of_type (fn_return f)) &&
+ * destruct ((eqb_list eqb_xtype
+ (map argtype_of_type (map snd (fn_params f))) (map argtype_of_type l) &&
+ eqb_xtype (rettype_of_type (fn_return f)) (rettype_of_type t) &&
+ eqb_calling_convention (fn_callconv f) c)%bool); inv HH.
+ * destruct ((eqb_list eqb_xtype (map argtype_of_type l) (map argtype_of_type (map snd (fn_params f))) &&
+ eqb_xtype (rettype_of_type t) (rettype_of_type (fn_return f)) &&
eqb_calling_convention c (fn_callconv f))%bool); inv HH.
- * destruct ((eqb_external_function e e0 && eqb_typelist t t1 && eqb_type t0 t2 && eqb_calling_convention c c0)%bool); inv HH.
+ * destruct ((eqb_external_function e e0 && eqb_list eqb_type l l0 && eqb_type t t0 && eqb_calling_convention c c0)%bool); inv HH.
- destruct (find_id i (QPvarspecs p2)).
+ destruct (Hp2 t) as [X _]; clear Hp2.
destruct (X (eq_refl _)) as [x [Hx XX]]; clear X; discriminate.
diff --git a/floyd/QPcomposite.v b/floyd/QPcomposite.v
index 584eb470ef..a5e77302d5 100644
--- a/floyd/QPcomposite.v
+++ b/floyd/QPcomposite.v
@@ -17,7 +17,7 @@ Record composite : Type := {
Definition composite_env : Type := PTree.t composite.
-Inductive builtin := mk_builtin: external_function -> typelist -> type -> calling_convention -> builtin.
+Inductive builtin := mk_builtin: external_function -> list type -> type -> calling_convention -> builtin.
Record program (F: Type) : Type := {
prog_builtins: list (ident * builtin);
diff --git a/floyd/SeparationLogicAsLogic.v b/floyd/SeparationLogicAsLogic.v
index b529f82da1..bfa1216e31 100644
--- a/floyd/SeparationLogicAsLogic.v
+++ b/floyd/SeparationLogicAsLogic.v
@@ -184,7 +184,7 @@ Inductive semax {CS: compspecs} {Espec: OracleKind} (Delta: tycontext): (environ
(EX argsig: _, EX retsig: _, EX cc: _,
EX A: _, EX P: _, EX Q: _, EX NEP: _, EX NEQ: _, EX ts: _, EX x: _,
!! (Cop.classify_fun (typeof a) =
- Cop.fun_case_f (typelist_of_type_list argsig) retsig cc /\
+ Cop.fun_case_f argsig retsig cc /\
(retsig = Tvoid -> ret = None) /\
tc_fn_return Delta ret retsig) &&
(((tc_expr Delta a) && (tc_exprlist Delta argsig bl))) &&
@@ -305,10 +305,8 @@ Inductive semax_func: forall {Espec: OracleKind} (V: varspecs) (G: funspecs) {C:
| semax_func_cons_ext:
forall {Espec: OracleKind},
forall (V: varspecs) (G: funspecs) {C: compspecs} ge fs id ef argsig retsig A P Q NEP NEQ
- argsig'
(G': funspecs) cc b,
- argsig' = typelist2list argsig ->
- ef_sig ef = mksignature (typlist_of_typelist argsig) (rettype_of_type retsig) cc ->
+ ef_sig ef = mksignature (map argtype_of_type argsig) (rettype_of_type retsig) cc ->
id_in_list id (map (@fst _ _) fs) = false ->
(ef_inline ef = false \/ withtype_empty A) ->
(forall gx ts x (ret : option val),
@@ -319,7 +317,7 @@ Inductive semax_func: forall {Espec: OracleKind} (V: varspecs) (G: funspecs) {C:
@semax_external Espec ef A P Q ->
semax_func V G ge fs G' ->
semax_func V G ge ((id, External ef argsig retsig cc)::fs)
- ((id, mk_funspec (argsig', retsig) cc A P Q NEP NEQ) :: G')
+ ((id, mk_funspec (argsig, retsig) cc A P Q NEP NEQ) :: G')
| semax_func_mono: forall {Espec CS CS'} (CSUB: cspecs_sub CS CS') ge ge'
(Gfs: forall i, sub_option (Genv.find_symbol ge i) (Genv.find_symbol ge' i))
(Gffp: forall b, sub_option (Genv.find_funct_ptr ge b) (Genv.find_funct_ptr ge' b))
@@ -617,7 +615,7 @@ Lemma semax_call_inv: forall {CS: compspecs} {Espec: OracleKind} Delta ret a bl
(EX argsig: _, EX retsig: _, EX cc: _,
EX A: _, EX P: _, EX Q: _, EX NEP: _, EX NEQ: _, EX ts: _, EX x: _,
!! (Cop.classify_fun (typeof a) =
- Cop.fun_case_f (typelist_of_type_list argsig) retsig cc /\
+ Cop.fun_case_f argsig retsig cc /\
(retsig = Tvoid -> ret = None) /\
tc_fn_return Delta ret retsig) &&
((*|>*)((tc_expr Delta a) && (tc_exprlist Delta argsig bl))) &&
@@ -1822,7 +1820,7 @@ Definition CALLpre CS Delta ret a bl R :=
| rmaps.PiType I0 f => @functors.MixVariantFunctorGenerator.fpi I0 (fun i : I0 => dtfr (f i))
| rmaps.ListType T0 => functors.MixVariantFunctorGenerator.flist (dtfr T0)
end) A) mpred,
- !! (Cop.classify_fun (typeof a) = Cop.fun_case_f (typelist_of_type_list argsig) retsig cc /\
+ !! (Cop.classify_fun (typeof a) = Cop.fun_case_f argsig retsig cc /\
(retsig = Tvoid -> ret = @None ident) /\ tc_fn_return Delta ret retsig) &&
(@tc_expr CS Delta a && @tc_exprlist CS Delta argsig bl) &&
(` (func_ptr (mk_funspec (argsig, retsig) cc A P Q NEP NEQ))) (@eval_expr CS a) &&
@@ -2504,14 +2502,14 @@ Proof.
repeat apply andp_derives; auto; apply prop_derives; intros; destruct Q'; simpl in *; rewrite sepcon_emp; apply andp_left2; auto.
Qed.
-Lemma typecheck_environ_globals_only t rho: typecheck_environ (rettype_tycontext t) (globals_only rho).
+Lemma typecheck_environ_globals_only t rho: typecheck_environ (xtype_tycontext t) (globals_only rho).
Proof.
split3; red; simpl; intros. rewrite PTree.gempty in H. congruence.
split; intros. rewrite PTree.gempty in H. congruence. destruct H; inv H.
rewrite PTree.gempty in H. congruence.
Qed.
-Lemma typecheck_environ_env_setglobals_only t rho x v: typecheck_environ (rettype_tycontext t) (env_set (globals_only rho) x v).
+Lemma typecheck_environ_env_setglobals_only t rho x v: typecheck_environ (xtype_tycontext t) (env_set (globals_only rho) x v).
Proof.
split3; red; simpl; intros. rewrite PTree.gempty in H. congruence.
split; intros. rewrite PTree.gempty in H. congruence. destruct H; inv H.
@@ -2543,7 +2541,7 @@ eapply @semax_adapt
(@andp mpred Nveric
(@prop mpred Nveric
(seplog.tc_environ
- (rettype_tycontext (@snd (list (prod ident type)) type (fn_funsig f))) tau))
+ (xtype_tycontext (@snd (list (prod ident type)) type (fn_funsig f))) tau))
(@sepcon mpred Nveric Sveric FR (Q ts1 x1 tau))) ((Q' ts x tau))) &&
(stackframe_of f * (fun tau => FR * P ts1 x1 (ge_of tau, vals)) &&
(fun tau => !! (map (Map.get (te_of tau)) (map fst (fn_params f)) = map Some vals)))).
diff --git a/floyd/SeparationLogicFacts.v b/floyd/SeparationLogicFacts.v
index e261b012fd..1df7103aef 100644
--- a/floyd/SeparationLogicFacts.v
+++ b/floyd/SeparationLogicFacts.v
@@ -1308,7 +1308,7 @@ Import CSHL_Def.
Axiom semax_call_forward: forall {CS: compspecs} {Espec: OracleKind} (Delta: tycontext),
forall A P Q NEP NEQ ts x (F: environ -> mpred) ret argsig retsig cc a bl,
Cop.classify_fun (typeof a) =
- Cop.fun_case_f (typelist_of_type_list argsig) retsig cc ->
+ Cop.fun_case_f argsig retsig cc ->
(retsig = Ctypes.Tvoid -> ret = None) ->
tc_fn_return Delta ret retsig ->
@semax CS Espec Delta
@@ -1333,7 +1333,7 @@ Axiom semax_call_backward: forall {CS: compspecs} {Espec: OracleKind} (Delta: ty
(EX argsig: _, EX retsig: _, EX cc: _,
EX A: _, EX P: _, EX Q: _, EX NEP: _, EX NEQ: _, EX ts: _, EX x: _,
!! (Cop.classify_fun (typeof a) =
- Cop.fun_case_f (typelist_of_type_list argsig) retsig cc /\
+ Cop.fun_case_f argsig retsig cc /\
(retsig = Ctypes.Tvoid -> ret = None) /\
tc_fn_return Delta ret retsig) &&
((*|>*)((tc_expr Delta a) && (tc_exprlist Delta argsig bl))) &&
@@ -1367,7 +1367,7 @@ Theorem semax_call_backward: forall {CS: compspecs} {Espec: OracleKind} (Delta:
(EX argsig: _, EX retsig: _, EX cc: _,
EX A: _, EX P: _, EX Q: _, EX NEP: _, EX NEQ: _, EX ts: _, EX x: _,
!! (Cop.classify_fun (typeof a) =
- Cop.fun_case_f (typelist_of_type_list argsig) retsig cc /\
+ Cop.fun_case_f argsig retsig cc /\
(retsig = Ctypes.Tvoid -> ret = None) /\
tc_fn_return Delta ret retsig) &&
((*|>*)((tc_expr Delta a) && (tc_exprlist Delta argsig bl))) &&
@@ -1468,7 +1468,7 @@ Qed.
Theorem semax_call_forward: forall {CS: compspecs} {Espec: OracleKind} (Delta: tycontext),
forall A P Q NEP NEQ ts x (F: environ -> mpred) ret argsig retsig cc a bl,
Cop.classify_fun (typeof a) =
- Cop.fun_case_f (typelist_of_type_list argsig) retsig cc ->
+ Cop.fun_case_f argsig retsig cc ->
(retsig = Ctypes.Tvoid -> ret = None) ->
tc_fn_return Delta ret retsig ->
@semax CS Espec Delta
diff --git a/floyd/VSU.v b/floyd/VSU.v
index 359dff6545..f28d77b752 100644
--- a/floyd/VSU.v
+++ b/floyd/VSU.v
@@ -2711,7 +2711,7 @@ Definition unspecified_info (ge: Genv.t (fundef function) type)
Genv.find_symbol ge id = Some b /\
Genv.find_funct_ptr ge b = Some g /\
ef_sig ef = {|
- sig_args := typlist_of_typelist argsig;
+ sig_args := map argtype_of_type argsig;
sig_res := rettype_of_type retsig;
sig_cc := cc_of_fundef (External ef argsig retsig cc) |}
end.
@@ -2742,7 +2742,7 @@ intros.
rewrite H.
rewrite id_in_list_false_i; auto.
*
- destruct f, t1.
+ destruct f, t0.
hnf in H7; decompose [and] H7; clear H7.
subst t0 c0 l.
destruct H10 as [b [? ?]].
@@ -2768,7 +2768,7 @@ Definition builtin_unspecified_OK (ge : Genv.t (fundef function) type)
| External ef argsig retsig cc =>
eqb_signature (ef_sig ef)
{|
- sig_args := typlist_of_typelist argsig;
+ sig_args := map argtype_of_type argsig;
sig_res := rettype_of_type retsig;
sig_cc := cc |}
end
@@ -2788,7 +2788,7 @@ Definition funct_unspecified_OK (ge : Genv.t (fundef function) type)
andb (fundef_eq g g')
(eqb_signature (ef_sig ef)
{|
- sig_args := typlist_of_typelist argsig;
+ sig_args := map argtype_of_type argsig;
sig_res := rettype_of_type retsig;
sig_cc := cc |})
end
diff --git a/floyd/VSU_addmain.v b/floyd/VSU_addmain.v
index ce9bce6474..e2294fdc31 100644
--- a/floyd/VSU_addmain.v
+++ b/floyd/VSU_addmain.v
@@ -128,7 +128,7 @@ Proof.
assert (X1: forall i, In i (map fst Imp) ->
exists
- (f : external_function) (ts : typelist) (t : type) (cc : calling_convention),
+ (f : external_function) (ts : list type) (t : type) (cc : calling_convention),
PTree.get i (QP.prog_defs p) = Some (Gfun (External f ts t cc))) by apply C.
assert (X3: list_norepet (map fst V ++ map fst (GG ++ Imp))). {
@@ -220,7 +220,7 @@ Inductive semaxfunc {Espec} {cs : compspecs} (V : varspecs) (G : funspecs) (ge :
@semaxfunc Espec cs V G ge ((id, Internal f) :: fs) ((id, phi) :: G')
| semaxfunc_cons_ext: forall (fs : list (ident * Clight.fundef)) (id : ident)
- (ef : external_function) (argsig : typelist) (retsig : type) (G' : funspecs) (cc : calling_convention)
+ (ef : external_function) (argsig : list type) (retsig : type) (G' : funspecs) (cc : calling_convention)
phi,
semaxfunc_ExternalInfo Espec ge id ef argsig retsig cc phi ->
id_in_list id (map fst fs) = false ->
@@ -273,13 +273,13 @@ Qed.
Lemma semaxfunc_cons_ext_vacuous:
forall {Espec: OracleKind} (V : varspecs) (G : funspecs) (cs : compspecs) ge
(fs : list (ident * Clight.fundef)) (id : ident) (ef : external_function)
- (argsig : typelist) (retsig : type)
+ (argsig : list type) (retsig : type)
(G' : funspecs) cc b,
(id_in_list id (map fst fs)) = false ->
ef_sig ef =
{|
sig_args := typlist_of_typelist argsig;
- sig_res := rettype_of_type retsig;
+ sig_res := xtype_of_type retsig;
sig_cc := cc_of_fundef (External ef argsig retsig cc) |} ->
Genv.find_symbol ge id = Some b ->
Genv.find_funct_ptr ge b = Some (External ef argsig retsig cc) ->
@@ -1299,7 +1299,7 @@ Variable MainE_vacuous: forall i phi, find_id i MainE = Some phi -> find_id i co
phi = vacuous_funspec (External ef argsig retsig cc) /\
find_id i (QPprog_funct p) = Some (External ef argsig retsig cc) /\
ef_sig ef = {| sig_args := typlist_of_typelist argsig;
- sig_res := rettype_of_type retsig;
+ sig_res := xtype_of_type retsig;
sig_cc := cc_of_fundef (External ef argsig retsig cc) |}.
Lemma add_main:
diff --git a/floyd/call_lemmas.v b/floyd/call_lemmas.v
index de5dc38470..d7f13e3a33 100644
--- a/floyd/call_lemmas.v
+++ b/floyd/call_lemmas.v
@@ -35,7 +35,7 @@ Definition removeopt_localdef (ret: option ident) (l: list localdef) : list loca
end.
Lemma semax_call': forall Espec {cs: compspecs} Delta fs A Pre Post NEPre NEPost ts x ret argsig retsig cc a bl P Q R,
- Cop.classify_fun (typeof a) = Cop.fun_case_f (typelist_of_type_list argsig) retsig cc ->
+ Cop.classify_fun (typeof a) = Cop.fun_case_f argsig retsig cc ->
match retsig, ret with
| Tvoid, None => True
| Tvoid, Some _ => False
@@ -98,7 +98,7 @@ Qed.
Lemma semax_call1: forall Espec {cs: compspecs} Delta fs A Pre Post NEPre NEPost ts x id argsig retsig cc a bl P Q R
(Hsub: funspec_sub fs (mk_funspec (argsig,retsig) cc A Pre Post NEPre NEPost)),
- Cop.classify_fun (typeof a) = Cop.fun_case_f (typelist_of_type_list argsig) retsig cc ->
+ Cop.classify_fun (typeof a) = Cop.fun_case_f argsig retsig cc ->
match retsig with
| Tvoid => False
| _ => True
@@ -124,7 +124,7 @@ Definition ifvoid {T} t (A B: T) :=
Lemma semax_call0: forall Espec {cs: compspecs} Delta fs A Pre Post NEPre NEPost ts x
argsig retty cc a bl P Q R
(Hsub: funspec_sub fs (mk_funspec (argsig,retty) cc A Pre Post NEPre NEPost)),
- Cop.classify_fun (typeof a) = Cop.fun_case_f (typelist_of_type_list argsig) retty cc->
+ Cop.classify_fun (typeof a) = Cop.fun_case_f argsig retty cc->
@semax cs Espec Delta
((*|>*)(tc_expr Delta a && tc_exprlist Delta argsig bl)
&& (|>(fun rho => Pre ts x (ge_of rho, eval_exprlist argsig bl rho))
@@ -195,6 +195,7 @@ eapply semax_pre_post; try apply H1;
apply andp_left2; auto.
Qed.
+(*
Lemma eqb_typelist_refl: forall tl, eqb_typelist tl tl = true.
Proof.
induction tl; simpl; auto.
@@ -202,6 +203,14 @@ apply andb_true_iff.
split; auto.
apply eqb_type_refl.
Qed.
+*)
+
+Lemma eqb_typelist_refl: forall c, eqb_list eqb_type c c = true.
+Proof.
+intros.
+apply eqb_list_spec; auto.
+exact eqb_type_spec.
+Qed.
(* TODO: Change argument order. ==> A Pre Post NEPre NEPost ts x *)
Lemma semax_call_id0:
@@ -213,15 +222,15 @@ Lemma semax_call_id0:
@semax cs Espec Delta ((*|>*) (tc_exprlist Delta argsig bl
&& |> ((fun rho => Pre ts x (ge_of rho, eval_exprlist argsig bl rho))
* PROPx P (LOCALx Q (SEPx R)))))
- (Scall None (Evar id (Tfunction (typelist_of_type_list argsig) retty cc)) bl)
+ (Scall None (Evar id (Tfunction argsig retty cc)) bl)
(normal_ret_assert
((ifvoid retty (`(Post ts x: environ -> mpred) (make_args nil nil))
(EX v:val, `(Post ts x: environ -> mpred) (make_args (ret_temp::nil) (v::nil))))
* PROPx P (LOCALx Q (SEPx R)))).
Proof.
intros.
-assert (Cop.classify_fun (typeof (Evar id (Tfunction (typelist_of_type_list argsig) retty cc)))=
- Cop.fun_case_f (typelist_of_type_list argsig) retty cc).
+assert (Cop.classify_fun (typeof (Evar id (Tfunction argsig retty cc)))=
+ Cop.fun_case_f argsig retty cc).
simpl. subst. reflexivity.
apply (semax_fun_id' id fs (tc_exprlist Delta argsig bl) Espec Delta); auto.
subst.
@@ -267,7 +276,7 @@ Lemma semax_call_id1:
|>((fun rho => Pre ts x (ge_of rho, eval_exprlist argsig bl rho))
* PROPx P (LOCALx Q (SEPx R)))))
(Scall (Some ret)
- (Evar id (Tfunction (typelist_of_type_list argsig) retty cc))
+ (Evar id (Tfunction argsig retty cc))
bl)
(normal_ret_assert
((`(Post ts x: environ -> mpred) (get_result1 ret)
@@ -275,8 +284,8 @@ Lemma semax_call_id1:
Proof.
intros. rename H0 into Ht. rename H1 into H0.
rename H2 into Hret.
-assert (Cop.classify_fun (typeof (Evar id (Tfunction (typelist_of_type_list argsig) retty cc)))=
- Cop.fun_case_f (typelist_of_type_list argsig) retty cc).
+assert (Cop.classify_fun (typeof (Evar id (Tfunction argsig retty cc)))=
+ Cop.fun_case_f argsig retty cc).
subst; reflexivity.
apply (semax_fun_id' id fs); auto.
subst.
@@ -290,9 +299,8 @@ apply andp_right.
rewrite (type_of_funspec_sub _ _ Hsub).
rewrite denote_tc_assert_bool.
simpl.
- rewrite eqb_typelist_refl.
- rewrite eqb_type_refl.
- simpl. apply prop_right; apply eqb_calling_convention_refl.
+ rewrite eqb_typelist_refl, eqb_type_refl, eqb_calling_convention_refl.
+ apply prop_right; trivial.
* apply andp_left2; trivial. }
apply andp_left2.
apply andp_left2.
@@ -511,7 +519,7 @@ Definition OLDcall_setup1
can_assume_funcptr cs Delta P Q R' a fs /\
(PROPx P (LOCALx Q (SEPx R')) |-- |> PROPx P (LOCALx Q (SEPx R))) /\
- Cop.classify_fun (typeof a) = Cop.fun_case_f (typelist_of_type_list argsig) retty cc /\
+ Cop.classify_fun (typeof a) = Cop.fun_case_f argsig retty cc /\
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R))
|-- (tc_expr Delta a) /\
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R))
@@ -530,7 +538,7 @@ Definition call_setup1
can_assume_funcptr cs Delta P Q R a fs /\
- Cop.classify_fun (typeof a) = Cop.fun_case_f (typelist_of_type_list argsig) retty cc /\
+ Cop.classify_fun (typeof a) = Cop.fun_case_f argsig retty cc /\
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R))
|-- (tc_expr Delta a) /\
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R))
@@ -553,7 +561,7 @@ Lemma OLDcall_setup1_i:
(fold_right_sepcon R' |-- |> fold_right_sepcon R) ->
- Cop.classify_fun (typeof a) = Cop.fun_case_f (typelist_of_type_list argsig) retty cc ->
+ Cop.classify_fun (typeof a) = Cop.fun_case_f argsig retty cc ->
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R))
|-- (tc_expr Delta a) ->
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R))
@@ -595,7 +603,7 @@ Lemma call_setup1_i:
funspec_sub fs (mk_funspec (argsig,retty) cc A Pre Post NEPre NEPost) ->
- Cop.classify_fun (typeof a) = Cop.fun_case_f (typelist_of_type_list argsig) retty cc ->
+ Cop.classify_fun (typeof a) = Cop.fun_case_f argsig retty cc ->
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R))
|-- (tc_expr Delta a) ->
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R))
@@ -635,7 +643,7 @@ Lemma OLDcall_setup1_i2:
(PROPx P (LOCALx Q (SEPx R')) |-- |> PROPx P (LOCALx Q (SEPx R))) ->
- Cop.classify_fun ty = Cop.fun_case_f (typelist_of_type_list argsig) retty cc ->
+ Cop.classify_fun ty = Cop.fun_case_f argsig retty cc ->
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R))
|-- (tc_expr Delta (Evar id ty)) ->
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R))
@@ -659,7 +667,7 @@ Lemma call_setup1_i2:
funspec_sub fs (mk_funspec (argsig,retty) cc A Pre Post NEPre NEPost) ->
- Cop.classify_fun ty = Cop.fun_case_f (typelist_of_type_list argsig) retty cc ->
+ Cop.classify_fun ty = Cop.fun_case_f argsig retty cc ->
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R))
|-- (tc_expr Delta (Evar id ty)) ->
ENTAIL Delta, PROPx P (LOCALx Q (SEPx R))
diff --git a/floyd/client_lemmas.v b/floyd/client_lemmas.v
index ee5ae1060b..190bc5679b 100644
--- a/floyd/client_lemmas.v
+++ b/floyd/client_lemmas.v
@@ -596,9 +596,6 @@ Lemma sem_cast_pointer2:
Proof.
intros.
subst.
-hnf in H1.
-simpl in H1. rewrite andb_false_r in H1.
-unfold sem_cast, classify_cast; simpl.
reflexivity.
Qed.
@@ -1808,10 +1805,10 @@ Proof.
auto.
Qed.
-Fixpoint iota_formals (i: ident) (tl: typelist) :=
+Fixpoint iota_formals (i: ident) (tl: list type) :=
match tl with
- | Tcons t tl' => (i,t) :: iota_formals (i+1)%positive tl'
- | Tnil => nil
+ | t::tl' => (i,t) :: iota_formals (i+1)%positive tl'
+ | nil => nil
end.
Ltac make_sequential :=
diff --git a/floyd/compare_lemmas.v b/floyd/compare_lemmas.v
index 4071db27af..b2c47177c5 100644
--- a/floyd/compare_lemmas.v
+++ b/floyd/compare_lemmas.v
@@ -264,7 +264,6 @@ intros.
subst; inv H.
Qed.
-
Lemma typed_false_Oeq_nullval:
forall {cs: compspecs} v t t',
local (`(typed_false tint) (`(eval_binop Cop.Oeq (tptr t) (tptr t')) v `(nullval))) |--
diff --git a/floyd/forward.v b/floyd/forward.v
index b247298cec..b065e5aafc 100644
--- a/floyd/forward.v
+++ b/floyd/forward.v
@@ -38,7 +38,7 @@ Import LiftNotation.
Import compcert.lib.Maps.
Global Opaque denote_tc_test_eq.
-Global Transparent intsize_eq signedness_eq attr_eq type_eq typelist_eq.
+Global Transparent intsize_eq signedness_eq attr_eq floatsize_eq type_eq typelist_eq calling_convention_eq.
Global Transparent composite_def_eq.
Arguments Z.div _ _ / .
@@ -493,7 +493,7 @@ Ltac semax_func_cons L :=
| try solve [apply L]; apply_semax_body L
| ]
| eapply semax_func_cons_ext;
- [reflexivity | reflexivity | reflexivity
+ [reflexivity | reflexivity
| left; reflexivity
| semax_func_cons_ext_tc | LookupID | LookupB | apply L |
]
@@ -527,7 +527,7 @@ intros.
destruct H0.
apply prop_right.
unfold make_ext_rval in H0.
-destruct (rettype_eq t AST.Tvoid).
+destruct (xtype_eq t Xvoid).
subst t.
unfold eval_id in H0; simpl in H0. contradiction.
destruct t; try contradiction;
@@ -538,7 +538,7 @@ Qed.
Ltac semax_func_cons_ext :=
repeat (eapply semax_func_cons_ext_vacuous; [reflexivity | reflexivity | LookupID | LookupB | ]);
eapply semax_func_cons_ext;
- [ reflexivity | reflexivity | reflexivity
+ [ reflexivity | reflexivity
| left; reflexivity
| semax_func_cons_ext_tc;
try solve [apply typecheck_return_value; auto]
@@ -809,7 +809,7 @@ Ltac give_EX_warning :=
end.
Ltac check_parameter_types :=
- match goal with |- _ = fun_case_f (typelist_of_type_list ?argsig) ?retty ?cc =>
+ match goal with |- _ = fun_case_f ?argsig ?retty ?cc =>
check_callconv cc;
let al := eval compute in argsig in
check_struct_params al
@@ -4162,11 +4162,11 @@ end.
Ltac type_lists_compatible al bl :=
match al with
- | Ctypes.Tcons ?a ?al' => match bl with Ctypes.Tcons ?b ?bl' =>
+ | cons ?a ?al' => match bl with cons ?b ?bl' =>
first [unify a b | unify (classify_cast a b) cast_case_pointer];
type_lists_compatible al' bl'
end
- | Ctypes.Tnil => match bl with Ctypes.Tnil => idtac end
+ | nil => match bl with nil => idtac end
end.
Ltac function_types_compatible t1 t2 :=
diff --git a/floyd/forward_lemmas.v b/floyd/forward_lemmas.v
index fbcb56bcb0..ca9ff6d7c7 100644
--- a/floyd/forward_lemmas.v
+++ b/floyd/forward_lemmas.v
@@ -19,7 +19,7 @@ eapply semax_pre; [ | apply sequential; apply semax_skip].
destruct R; apply ENTAIL_refl.
Qed.
-Lemma typelist2list_arglist: forall l i, map snd (arglist i l) = typelist2list l.
+Lemma typelist2list_arglist: forall l i, map snd (arglist i l) = l.
Proof. induction l. simpl; intros; trivial.
intros. simpl. f_equal. apply IHl.
Qed.
@@ -27,12 +27,12 @@ Qed.
Lemma semax_func_cons_ext_vacuous:
forall {Espec: OracleKind} (V : varspecs) (G : funspecs) (C : compspecs) ge
(fs : list (ident * Clight.fundef)) (id : ident) (ef : external_function)
- (argsig : typelist) (retsig : type)
+ (argsig : list type) (retsig : type)
(G' : funspecs) cc b,
(id_in_list id (map fst fs)) = false ->
ef_sig ef =
{|
- sig_args := typlist_of_typelist argsig;
+ sig_args := map argtype_of_type argsig;
sig_res := rettype_of_type retsig;
sig_cc := cc_of_fundef (External ef argsig retsig cc) |} ->
Genv.find_symbol ge id = Some b ->
@@ -44,8 +44,11 @@ Proof.
intros.
specialize (@semax_func_cons_ext Espec V G C ge fs id ef argsig retsig
(rmaps.ConstType Impossible) (fun _ _ => FF) (fun _ _ => FF) ). simpl.
-intros HH; eapply HH; clear HH; try assumption; trivial.
-* rewrite <-(typelist2list_arglist _ 1). reflexivity.
+intros HH.
+unfold vacuous_funspec. simpl.
+unfold compcert_rmaps.typesig_of_funsig. simpl.
+rewrite typelist2list_arglist.
+ eapply HH; clear HH; try assumption; trivial.
* right. clear. hnf. intros. simpl in X; inv X.
* intros. simpl. apply andp_left1, FF_left.
* eassumption.
@@ -100,7 +103,7 @@ Proof.
apply id_in_list_false in ID. destruct Sfunc as [Hyp1 [Hyp2 Hyp3]].
split3.
{ constructor. 2: apply Hyp1. simpl. destruct ifunc; simpl.
- unfold type_of_function. simpl. rewrite TTL1; trivial. }
+ unfold type_of_function. simpl. trivial. }
{ clear Hyp3. red; intros j fd J. destruct J; [ inv H | auto].
exists b; split; trivial. }
intros. specialize (Hyp3 _ Gfs Gffp n).
diff --git a/floyd/library.v b/floyd/library.v
index 5917a96880..c7c77571d3 100644
--- a/floyd/library.v
+++ b/floyd/library.v
@@ -62,7 +62,7 @@ Parameter body_exit:
forall {Espec: OracleKind},
body_lemma_of_funspec
(EF_external "exit"
- {| sig_args := AST.Tint :: nil; sig_res := AST.Tvoid; sig_cc := cc_default |})
+ {| sig_args := Xint :: nil; sig_res := Xvoid; sig_cc := cc_default |})
exit_spec'.
Parameter mem_mgr: globals -> mpred.
diff --git a/floyd/printf.v b/floyd/printf.v
index 7ab32829f8..138fc7c42c 100644
--- a/floyd/printf.v
+++ b/floyd/printf.v
@@ -413,7 +413,7 @@ end.
Fixpoint make_printf_specs' {FS : FileStruct} (defs: list (ident * globdef (fundef function) type)) : list (ident*funspec) :=
match defs with
| (i, Gfun (External (EF_external "fprintf" _)
- (Tcons (Tpointer (Tstruct id _) _) _) _ _)) :: defs' =>
+ (cons (Tpointer (Tstruct id _) _) _) _ _)) :: defs' =>
(i, fprintf_placeholder_spec id) :: make_printf_specs' defs'
| (i, Gfun (External (EF_external "printf" _) _ _ _)) :: defs' =>
(i, printf_placeholder_spec) :: make_printf_specs' defs'
diff --git a/floyd/quickprogram.v b/floyd/quickprogram.v
index 166314f6cc..c0ce1c149f 100644
--- a/floyd/quickprogram.v
+++ b/floyd/quickprogram.v
@@ -52,19 +52,17 @@ Import ListNotations.
Definition signature_of_fundef (fd: Ctypes.fundef Clight.function):signature :=
match fd with
- Internal f => {| sig_args := map typ_of_type (map snd (Clight.fn_params f));
+ Internal f => {| sig_args := map argtype_of_type (map snd (Clight.fn_params f));
sig_res := rettype_of_type (Clight.fn_return f);
sig_cc := Clight.fn_callconv f |}
| External ef tys rt cc => signature_of_type tys rt cc
end.
-Lemma eqb_typelist_prop: forall t1 t2, eqb_typelist t1 t2 = true -> t1=t2.
+Lemma eqb_typelist_prop: forall t1 t2, eqb_list eqb_type t1 t2 = true -> t1=t2.
Proof.
-clear.
-induction t1; destruct t2; simpl; intros; auto; try discriminate.
-destruct (eqb_type t t0) eqn:?H; try discriminate.
-apply eqb_type_true in H0.
-f_equal; auto.
+intros.
+apply eqb_list_spec in H; auto.
+exact eqb_type_spec.
Qed.
Definition eqb_typ (t1 t2 : typ) : bool :=
@@ -88,40 +86,45 @@ Proof.
destruct s1, s2; simpl; intros; inv H; auto.
Qed.
-Lemma eqb_typelist_refl: forall c, eqb_typelist c c = true.
+Lemma eqb_typelist_refl: forall c, eqb_list eqb_type c c = true.
Proof.
-induction c; simpl; auto.
-rewrite eqb_type_refl, IHc; auto.
+intros.
+apply eqb_list_spec; auto.
+exact eqb_type_spec.
Qed.
-Definition eqb_rettype (t1 t2 : rettype) : bool :=
+Definition eqb_xtype (t1 t2 : xtype) : bool :=
match t1, t2 with
- | AST.Tret a1, AST.Tret a2 => eqb_typ a1 a2
- | AST.Tint8signed, AST.Tint8signed => true
- | AST.Tint8unsigned, AST.Tint8unsigned => true
- | AST.Tint16signed, AST.Tint16signed => true
- | AST.Tint16unsigned, AST.Tint16unsigned => true
- | AST.Tvoid, AST.Tvoid => true
+ | Xbool, Xbool => true
+ | Xint8signed, Xint8signed => true
+ | Xint8unsigned, Xint8unsigned => true
+ | Xint16signed, Xint16signed => true
+ | Xint16unsigned, Xint16unsigned => true
+ | Xint, Xint => true
+ | Xfloat, Xfloat => true
+ | Xlong, Xlong => true
+ | Xsingle, Xsingle => true
+ | Xptr, Xptr => true
+ | Xany32, Xany32 => true
+ | Xany64, Xany64 => true
+ | Xvoid, Xvoid => true
| _, _ => false
end.
-Lemma eqb_rettype_refl: forall c, eqb_rettype c c = true.
+Lemma eqb_xtype_refl: forall c, eqb_xtype c c = true.
Proof.
destruct c; simpl; try reflexivity.
-apply eqb_typ_refl.
Qed.
-Lemma eqb_rettype_prop: forall s1 s2, eqb_rettype s1 s2 = true -> s1=s2.
+Lemma eqb_xtype_prop: forall s1 s2, eqb_xtype s1 s2 = true -> s1=s2.
Proof.
destruct s1, s2; simpl; intros; inv H; auto.
-f_equal.
-apply eqb_typ_prop in H1; auto.
Qed.
Definition eqb_signature (s1 s2: signature) : bool :=
match s1, s2 with
| mksignature args1 res1 cc1, mksignature args2 res2 cc2 =>
- eqb_list eqb_typ args1 args2 && eqb_rettype res1 res2 && eqb_calling_convention cc1 cc2
+ eqb_list eqb_xtype args1 args2 && eqb_xtype res1 res2 && eqb_calling_convention cc1 cc2
end.
Lemma eqb_list_refl: forall {A} (f: A -> A -> bool),
@@ -145,10 +148,10 @@ Lemma eqb_signature_refl: forall c, eqb_signature c c = true.
Proof.
destruct c; simpl; try reflexivity.
rewrite eqb_list_refl.
-rewrite eqb_rettype_refl.
+rewrite eqb_xtype_refl.
rewrite eqb_calling_convention_refl.
auto.
-apply eqb_typ_refl.
+apply eqb_xtype_refl.
Qed.
Lemma eqb_signature_prop: forall s1 s2, eqb_signature s1 s2 = true -> s1=s2.
@@ -158,13 +161,12 @@ destruct s1, s2; simpl in *.
rewrite !andb_true_iff in H; destruct H as [[? ?] ?].
assert (sig_res = sig_res0). {
destruct sig_res, sig_res0; inv H0; auto.
- destruct t,t0; inv H3; auto.
}
assert (sig_args = sig_args0). {
clear - H.
revert sig_args0 H; induction sig_args; destruct sig_args0; simpl; intros; inv H; auto.
rewrite andb_true_iff in H1; destruct H1; f_equal; auto.
- destruct a,t; inv H; auto.
+ destruct a,x; inv H; auto.
}
apply eqb_calling_convention_prop in H1.
subst; auto.
@@ -172,6 +174,7 @@ Qed.
Definition eqb_memory_chunk (c1 c2: memory_chunk) : bool :=
match c1, c2 with
+ | Mbool, Mbool => true
| Mint8signed, Mint8signed => true
| Mint8unsigned, Mint8unsigned => true
| Mint16signed, Mint16signed => true
@@ -339,7 +342,7 @@ match s1, s2 with
| Sbuiltin i1 f1 t1 b1, Sbuiltin i2 f2 t2 b2 =>
andb (eqb_option eqb_ident i1 i2)
(andb (eqb_external_function f1 f2)
- (andb (eqb_typelist t1 t2) (eqb_list eqb_expr b1 b2)))
+ (andb (eqb_list eqb_type t1 t2) (eqb_list eqb_expr b1 b2)))
| Ssequence a1 b1, Ssequence a2 b2 =>
andb (eqb_statement a1 a2) (eqb_statement b1 b2)
| Sifthenelse e1 a1 b1, Sifthenelse e2 a2 b2 =>
@@ -418,8 +421,8 @@ Proof.
induction s; simpl; auto;
rewrite ?Int.eq_true, ?Int64.eq_true, ?eqb_type_refl, ?eqb_ident_refl,
?eqb_expr_refl, ?andb_true_r; auto;
- rewrite ?eqb_list_refl by apply eqb_expr_refl;
- rewrite ?eqb_external_function_refl, ?eqb_typelist_refl,
+ rewrite ?eqb_list_refl by (try apply eqb_expr_refl; try apply eqb_type_refl);
+ rewrite ?eqb_external_function_refl,
?IHs, ?IHs1, ?IHs2; auto.
destruct o; auto; simpl; rewrite eqb_ident_refl; auto.
destruct o; auto; simpl; rewrite eqb_ident_refl; auto.
@@ -461,7 +464,7 @@ match fd1, fd2 with
| Internal f1, Internal f2 => function_eq f1 f2
| External ef1 params1 res1 cc1, External ef2 params2 res2 cc2 =>
eqb_external_function ef1 ef2 &&
- eqb_typelist params1 params2 &&
+ eqb_list eqb_type params1 params2 &&
eqb_type res1 res2 &&
eqb_calling_convention cc1 cc2
| _, _ => false
@@ -547,7 +550,7 @@ Definition merge_globdef (g1 g2: globdef (fundef Clight.function) type) :=
Definition eqb_QPbuiltin (a b: QP.builtin) : bool :=
match a, b with
| QP.mk_builtin ef1 params1 ty1 cc1, QP.mk_builtin ef2 params2 ty2 cc2 =>
- extspec.extfunct_eqdec ef1 ef2 && eqb_typelist params1 params2 && eqb_type ty1 ty2
+ extspec.extfunct_eqdec ef1 ef2 && eqb_list eqb_type params1 params2 && eqb_type ty1 ty2
&& eqb_calling_convention cc1 cc2
end.
@@ -908,7 +911,7 @@ simpl in *.
destruct f; auto.
destruct e; auto; destruct H3; auto; inv H; auto.
unfold not_builtin in H2.
-fold (@is_builtin function (i, Gfun (External e t t0 c))) in H3.
+fold (@is_builtin function (i, Gfun (External e l0 t c))) in H3.
revert H2; destruct (is_builtin _) eqn:?H; intro H2; inv H2.
apply H5.
clear - H3.
diff --git a/floyd/replace_refill_reptype_lemmas.v b/floyd/replace_refill_reptype_lemmas.v
index 5f4837dbca..9ed55993f2 100644
--- a/floyd/replace_refill_reptype_lemmas.v
+++ b/floyd/replace_refill_reptype_lemmas.v
@@ -188,7 +188,7 @@ Ltac cbv_proj_struct H :=
ident_eq peq Pos.eq_dec BinNums.positive_rec positive_rect
sumbool_rec sumbool_rect bool_dec bool_rec bool_rect option_rec option_rect
eq_rect_r eq_rect eq_rec_r eq_rec eq_sym eq_trans f_equal
- type_eq type_rec type_rect typelist_eq typelist_rec typelist_rect
+ type_eq type_rec type_rect list_rec list_rect
intsize_rec intsize_rect signedness_rec signedness_rect floatsize_rec floatsize_rect
tvoid tschar tuchar tshort tushort tint
tuint tbool tlong tulong tfloat tdouble tptr tarray noattr
diff --git a/floyd/subsume_funspec.v b/floyd/subsume_funspec.v
index eb24a82ca5..f04d7557ab 100644
--- a/floyd/subsume_funspec.v
+++ b/floyd/subsume_funspec.v
@@ -9,7 +9,7 @@ Import compcert.lib.Maps.
Local Open Scope logic.
(*
Definition NDfunspec_sub (f1 f2 : funspec) :=
-let Delta2 := rettype_tycontext (snd (typesig_of_funspec f2)) in
+let Delta2 := xtype_tycontext (snd (typesig_of_funspec f2)) in
match f1 with
| mk_funspec tpsig1 cc1 (rmaps.ConstType A1) P1 Q1 _ _ =>
match f2 with
@@ -20,14 +20,14 @@ match f1 with
|-- (EX x1:_, EX F:_,
(F * (P1 nil x1 rho)) &&
(!! (forall rho',
- ((!! (tc_environ (rettype_tycontext (snd tpsig1)) rho') &&
+ ((!! (tc_environ (xtype_tycontext (snd tpsig1)) rho') &&
(F * (Q1 nil x1 rho')))
|-- (Q2 nil x2 rho')))))
| _ => False end
| _ => False end.*)
Definition NDfunspec_sub (f1 f2 : funspec) :=
-let Delta2 := rettype_tycontext (snd (typesig_of_funspec f2)) in
+let Delta2 := xtype_tycontext (snd (typesig_of_funspec f2)) in
match f1 with
| mk_funspec tpsig1 cc1 (rmaps.ConstType A1) P1 Q1 _ _ =>
match f2 with
@@ -78,7 +78,7 @@ Qed.
(*
Definition funspec_sub' (f1 f2 : funspec):Prop :=
-let Delta := rettype_tycontext (snd (typesig_of_funspec f1)) in
+let Delta := xtype_tycontext (snd (typesig_of_funspec f1)) in
match f1 with
| mk_funspec fsig1 cc1 A1 P1 Q1 _ _ =>
match f2 with
@@ -198,7 +198,7 @@ Lemma semax_call_subsume:
funspec_sub fs1 (mk_funspec (argsig,retsig) cc A P Q NEP NEQ) ->
forall {CS: compspecs} {Espec: OracleKind} Delta ts x (F: environ -> mpred) ret a bl,
Cop.classify_fun (typeof a) =
- Cop.fun_case_f (typelist_of_type_list argsig) retsig cc ->
+ Cop.fun_case_f argsig retsig cc ->
(retsig = Tvoid -> ret = None) ->
tc_fn_return Delta ret retsig ->
@semax CS Espec Delta
@@ -223,7 +223,7 @@ Lemma semax_call_subsume_si:
forall (fs1: funspec) A P Q NEP NEQ argsig retsig cc,
forall {CS: compspecs} {Espec: OracleKind} Delta ts x (F: environ -> mpred) ret a bl,
Cop.classify_fun (typeof a) =
- Cop.fun_case_f (typelist_of_type_list argsig) retsig cc ->
+ Cop.fun_case_f argsig retsig cc ->
(retsig = Tvoid -> ret = None) ->
tc_fn_return Delta ret retsig ->
@semax CS Espec Delta
@@ -249,7 +249,7 @@ Lemma semax_call_NDsubsume :
forall {CS: compspecs} {Espec: OracleKind},
forall Delta x (F: environ -> mpred) ret a bl,
Cop.classify_fun (typeof a) =
- Cop.fun_case_f (typelist_of_type_list argsig) retsig cc ->
+ Cop.fun_case_f argsig retsig cc ->
(retsig = Tvoid -> ret = None) ->
tc_fn_return Delta ret retsig ->
@semax CS Espec Delta
diff --git a/hmacdrbg/hmac_drbg.c b/hmacdrbg/hmac_drbg.c
index 2ee7695fa2..edc8e66734 100644
--- a/hmacdrbg/hmac_drbg.c
+++ b/hmacdrbg/hmac_drbg.c
@@ -40,7 +40,7 @@
#define mbedtls_printf printf
#endif /* MBEDTLS_PLATFORM_C */
-#include
+#include
#include "../sha/hmac.c"
struct mbedtls_md_info_t {
diff --git a/hmacdrbg/hmac_drbg.v b/hmacdrbg/hmac_drbg.v
index 46e3e140fb..81b6884629 100644
--- a/hmacdrbg/hmac_drbg.v
+++ b/hmacdrbg/hmac_drbg.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.10".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -16,202 +16,202 @@ Module Info.
Definition bitsize := 32.
Definition big_endian := false.
Definition source_file := "hmacdrbg/hmac_drbg.c".
- Definition normalized := false.
+ Definition normalized := true.
End Info.
-Definition _HMAC : ident := 117%positive.
-Definition _HMAC2 : ident := 119%positive.
-Definition _HMAC_Final : ident := 113%positive.
-Definition _HMAC_Init : ident := 110%positive.
-Definition _HMAC_Update : ident := 111%positive.
-Definition _HMAC_cleanup : ident := 114%positive.
-Definition _K : ident := 163%positive.
-Definition _K256 : ident := 45%positive.
-Definition _Ki : ident := 62%positive.
-Definition _Nh : ident := 3%positive.
-Definition _Nl : ident := 2%positive.
-Definition _SHA256 : ident := 79%positive.
-Definition _SHA256_Final : ident := 78%positive.
-Definition _SHA256_Init : ident := 65%positive.
-Definition _SHA256_Update : ident := 74%positive.
-Definition _SHA256_addlength : ident := 69%positive.
-Definition _SHA256state_st : ident := 6%positive.
-Definition _T1 : ident := 57%positive.
-Definition _T2 : ident := 58%positive.
-Definition _V : ident := 124%positive.
-Definition _X : ident := 60%positive.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 40%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
-Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
-Definition ___builtin_fmsub : ident := 35%positive.
-Definition ___builtin_fnmadd : ident := 36%positive.
-Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 41%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 39%positive.
-Definition ___builtin_write32_reversed : ident := 42%positive.
-Definition ___compcert_i64_dtos : ident := 84%positive.
-Definition ___compcert_i64_dtou : ident := 85%positive.
-Definition ___compcert_i64_sar : ident := 96%positive.
-Definition ___compcert_i64_sdiv : ident := 90%positive.
-Definition ___compcert_i64_shl : ident := 94%positive.
-Definition ___compcert_i64_shr : ident := 95%positive.
-Definition ___compcert_i64_smod : ident := 92%positive.
-Definition ___compcert_i64_smulh : ident := 97%positive.
-Definition ___compcert_i64_stod : ident := 86%positive.
-Definition ___compcert_i64_stof : ident := 88%positive.
-Definition ___compcert_i64_udiv : ident := 91%positive.
-Definition ___compcert_i64_umod : ident := 93%positive.
-Definition ___compcert_i64_umulh : ident := 98%positive.
-Definition ___compcert_i64_utod : ident := 87%positive.
-Definition ___compcert_i64_utof : ident := 89%positive.
-Definition ___compcert_va_composite : ident := 83%positive.
-Definition ___compcert_va_float64 : ident := 82%positive.
-Definition ___compcert_va_int32 : ident := 80%positive.
-Definition ___compcert_va_int64 : ident := 81%positive.
-Definition _a : ident := 48%positive.
-Definition _add_len : ident := 159%positive.
-Definition _additional : ident := 158%positive.
-Definition _aux : ident := 108%positive.
-Definition _b : ident := 49%positive.
-Definition _buf : ident := 112%positive.
-Definition _c : ident := 50%positive.
-Definition _cNh : ident := 68%positive.
-Definition _cNl : ident := 67%positive.
-Definition _ctx : ident := 46%positive.
-Definition _ctx_key : ident := 109%positive.
-Definition _custom : ident := 171%positive.
-Definition _d : ident := 51%positive.
-Definition _data : ident := 4%positive.
-Definition _data_ : ident := 70%positive.
-Definition _data_len : ident := 166%positive.
-Definition _dummy : ident := 130%positive.
-Definition _e : ident := 52%positive.
-Definition _entropy_len : ident := 126%positive.
-Definition _f : ident := 53%positive.
-Definition _fragment : ident := 73%positive.
-Definition _free : ident := 131%positive.
-Definition _g : ident := 54%positive.
-Definition _get_entropy : ident := 154%positive.
-Definition _h : ident := 1%positive.
+Definition _HMAC : ident := 118%positive.
+Definition _HMAC2 : ident := 120%positive.
+Definition _HMAC_Final : ident := 114%positive.
+Definition _HMAC_Init : ident := 111%positive.
+Definition _HMAC_Update : ident := 112%positive.
+Definition _HMAC_cleanup : ident := 115%positive.
+Definition _K : ident := 164%positive.
+Definition _K256 : ident := 46%positive.
+Definition _Ki : ident := 63%positive.
+Definition _Nh : ident := 4%positive.
+Definition _Nl : ident := 3%positive.
+Definition _SHA256 : ident := 80%positive.
+Definition _SHA256_Final : ident := 79%positive.
+Definition _SHA256_Init : ident := 66%positive.
+Definition _SHA256_Update : ident := 75%positive.
+Definition _SHA256_addlength : ident := 70%positive.
+Definition _SHA256state_st : ident := 1%positive.
+Definition _T1 : ident := 58%positive.
+Definition _T2 : ident := 59%positive.
+Definition _V : ident := 126%positive.
+Definition _X : ident := 61%positive.
+Definition ___builtin_ais_annot : ident := 7%positive.
+Definition ___builtin_annot : ident := 24%positive.
+Definition ___builtin_annot_intval : ident := 25%positive.
+Definition ___builtin_bswap : ident := 9%positive.
+Definition ___builtin_bswap16 : ident := 11%positive.
+Definition ___builtin_bswap32 : ident := 10%positive.
+Definition ___builtin_bswap64 : ident := 8%positive.
+Definition ___builtin_clz : ident := 12%positive.
+Definition ___builtin_clzl : ident := 13%positive.
+Definition ___builtin_clzll : ident := 14%positive.
+Definition ___builtin_ctz : ident := 15%positive.
+Definition ___builtin_ctzl : ident := 16%positive.
+Definition ___builtin_ctzll : ident := 17%positive.
+Definition ___builtin_debug : ident := 41%positive.
+Definition ___builtin_expect : ident := 32%positive.
+Definition ___builtin_fabs : ident := 18%positive.
+Definition ___builtin_fabsf : ident := 19%positive.
+Definition ___builtin_fmadd : ident := 35%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 36%positive.
+Definition ___builtin_fnmadd : ident := 37%positive.
+Definition ___builtin_fnmsub : ident := 38%positive.
+Definition ___builtin_fsqrt : ident := 20%positive.
+Definition ___builtin_membar : ident := 26%positive.
+Definition ___builtin_memcpy_aligned : ident := 22%positive.
+Definition ___builtin_read16_reversed : ident := 39%positive.
+Definition ___builtin_read32_reversed : ident := 42%positive.
+Definition ___builtin_sel : ident := 23%positive.
+Definition ___builtin_sqrt : ident := 21%positive.
+Definition ___builtin_unreachable : ident := 31%positive.
+Definition ___builtin_va_arg : ident := 28%positive.
+Definition ___builtin_va_copy : ident := 29%positive.
+Definition ___builtin_va_end : ident := 30%positive.
+Definition ___builtin_va_start : ident := 27%positive.
+Definition ___builtin_write16_reversed : ident := 40%positive.
+Definition ___builtin_write32_reversed : ident := 43%positive.
+Definition ___compcert_i64_dtos : ident := 85%positive.
+Definition ___compcert_i64_dtou : ident := 86%positive.
+Definition ___compcert_i64_sar : ident := 97%positive.
+Definition ___compcert_i64_sdiv : ident := 91%positive.
+Definition ___compcert_i64_shl : ident := 95%positive.
+Definition ___compcert_i64_shr : ident := 96%positive.
+Definition ___compcert_i64_smod : ident := 93%positive.
+Definition ___compcert_i64_smulh : ident := 98%positive.
+Definition ___compcert_i64_stod : ident := 87%positive.
+Definition ___compcert_i64_stof : ident := 89%positive.
+Definition ___compcert_i64_udiv : ident := 92%positive.
+Definition ___compcert_i64_umod : ident := 94%positive.
+Definition ___compcert_i64_umulh : ident := 99%positive.
+Definition ___compcert_i64_utod : ident := 88%positive.
+Definition ___compcert_i64_utof : ident := 90%positive.
+Definition ___compcert_va_composite : ident := 84%positive.
+Definition ___compcert_va_float64 : ident := 83%positive.
+Definition ___compcert_va_int32 : ident := 81%positive.
+Definition ___compcert_va_int64 : ident := 82%positive.
+Definition _a : ident := 49%positive.
+Definition _add_len : ident := 160%positive.
+Definition _additional : ident := 159%positive.
+Definition _aux : ident := 109%positive.
+Definition _b : ident := 50%positive.
+Definition _buf : ident := 113%positive.
+Definition _c : ident := 51%positive.
+Definition _cNh : ident := 69%positive.
+Definition _cNl : ident := 68%positive.
+Definition _ctx : ident := 47%positive.
+Definition _ctx_key : ident := 110%positive.
+Definition _custom : ident := 172%positive.
+Definition _d : ident := 52%positive.
+Definition _data : ident := 5%positive.
+Definition _data_ : ident := 71%positive.
+Definition _data_len : ident := 167%positive.
+Definition _dummy : ident := 131%positive.
+Definition _e : ident := 53%positive.
+Definition _entropy_len : ident := 128%positive.
+Definition _f : ident := 54%positive.
+Definition _fragment : ident := 74%positive.
+Definition _free : ident := 153%positive.
+Definition _g : ident := 55%positive.
+Definition _get_entropy : ident := 155%positive.
+Definition _h : ident := 2%positive.
Definition _hmac : ident := 142%positive.
-Definition _hmac_ctx : ident := 122%positive.
-Definition _hmac_ctx_st : ident := 103%positive.
-Definition _i : ident := 63%positive.
-Definition _i_ctx : ident := 101%positive.
+Definition _hmac_ctx : ident := 124%positive.
+Definition _hmac_ctx_st : ident := 101%positive.
+Definition _i : ident := 64%positive.
+Definition _i_ctx : ident := 103%positive.
Definition _ilen : ident := 149%positive.
-Definition _in : ident := 47%positive.
-Definition _info : ident := 139%positive.
+Definition _in : ident := 48%positive.
+Definition _info : ident := 138%positive.
Definition _input : ident := 148%positive.
-Definition _interval : ident := 177%positive.
-Definition _j : ident := 105%positive.
-Definition _key : ident := 104%positive.
-Definition _key_len : ident := 116%positive.
+Definition _interval : ident := 178%positive.
+Definition _j : ident := 106%positive.
+Definition _key : ident := 105%positive.
+Definition _key_len : ident := 117%positive.
Definition _keylen : ident := 145%positive.
-Definition _l : ident := 61%positive.
-Definition _left : ident := 181%positive.
-Definition _len : ident := 66%positive.
-Definition _ll : ident := 76%positive.
-Definition _m : ident := 115%positive.
-Definition _m__1 : ident := 118%positive.
-Definition _main : ident := 99%positive.
-Definition _malloc : ident := 132%positive.
-Definition _mbedtls_hmac_drbg_context : ident := 129%positive.
-Definition _mbedtls_hmac_drbg_free : ident := 186%positive.
-Definition _mbedtls_hmac_drbg_init : ident := 157%positive.
-Definition _mbedtls_hmac_drbg_random : ident := 185%positive.
-Definition _mbedtls_hmac_drbg_random_with_add : ident := 184%positive.
-Definition _mbedtls_hmac_drbg_reseed : ident := 170%positive.
-Definition _mbedtls_hmac_drbg_seed : ident := 173%positive.
-Definition _mbedtls_hmac_drbg_seed_buf : ident := 167%positive.
-Definition _mbedtls_hmac_drbg_set_entropy_len : ident := 176%positive.
-Definition _mbedtls_hmac_drbg_set_prediction_resistance : ident := 175%positive.
-Definition _mbedtls_hmac_drbg_set_reseed_interval : ident := 178%positive.
-Definition _mbedtls_hmac_drbg_update : ident := 165%positive.
-Definition _mbedtls_md_context_t : ident := 123%positive.
-Definition _mbedtls_md_free : ident := 153%positive.
-Definition _mbedtls_md_get_size : ident := 138%positive.
+Definition _l : ident := 62%positive.
+Definition _left : ident := 182%positive.
+Definition _len : ident := 67%positive.
+Definition _ll : ident := 77%positive.
+Definition _m : ident := 116%positive.
+Definition _m__1 : ident := 119%positive.
+Definition _main : ident := 100%positive.
+Definition _malloc : ident := 141%positive.
+Definition _mbedtls_hmac_drbg_context : ident := 125%positive.
+Definition _mbedtls_hmac_drbg_free : ident := 187%positive.
+Definition _mbedtls_hmac_drbg_init : ident := 158%positive.
+Definition _mbedtls_hmac_drbg_random : ident := 186%positive.
+Definition _mbedtls_hmac_drbg_random_with_add : ident := 185%positive.
+Definition _mbedtls_hmac_drbg_reseed : ident := 171%positive.
+Definition _mbedtls_hmac_drbg_seed : ident := 174%positive.
+Definition _mbedtls_hmac_drbg_seed_buf : ident := 168%positive.
+Definition _mbedtls_hmac_drbg_set_entropy_len : ident := 177%positive.
+Definition _mbedtls_hmac_drbg_set_prediction_resistance : ident := 176%positive.
+Definition _mbedtls_hmac_drbg_set_reseed_interval : ident := 179%positive.
+Definition _mbedtls_hmac_drbg_update : ident := 166%positive.
+Definition _mbedtls_md_context_t : ident := 121%positive.
+Definition _mbedtls_md_free : ident := 154%positive.
+Definition _mbedtls_md_get_size : ident := 137%positive.
Definition _mbedtls_md_hmac_finish : ident := 152%positive.
Definition _mbedtls_md_hmac_reset : ident := 147%positive.
Definition _mbedtls_md_hmac_starts : ident := 146%positive.
Definition _mbedtls_md_hmac_update : ident := 150%positive.
-Definition _mbedtls_md_info_from_string : ident := 135%positive.
-Definition _mbedtls_md_info_from_type : ident := 137%positive.
-Definition _mbedtls_md_info_t : ident := 121%positive.
+Definition _mbedtls_md_info_from_string : ident := 134%positive.
+Definition _mbedtls_md_info_from_type : ident := 136%positive.
+Definition _mbedtls_md_info_t : ident := 123%positive.
Definition _mbedtls_md_setup : ident := 144%positive.
-Definition _mbedtls_zeroize : ident := 156%positive.
-Definition _md : ident := 75%positive.
-Definition _md_ctx : ident := 100%positive.
-Definition _md_info : ident := 120%positive.
-Definition _md_len : ident := 160%positive.
-Definition _md_name : ident := 134%positive.
-Definition _md_size : ident := 172%positive.
-Definition _md_type : ident := 136%positive.
-Definition _memcpy : ident := 43%positive.
-Definition _memset : ident := 44%positive.
-Definition _mocked_sha256_info : ident := 133%positive.
-Definition _n : ident := 72%positive.
-Definition _num : ident := 5%positive.
-Definition _o_ctx : ident := 102%positive.
-Definition _out : ident := 182%positive.
-Definition _out_len : ident := 180%positive.
+Definition _mbedtls_zeroize : ident := 157%positive.
+Definition _md : ident := 76%positive.
+Definition _md_ctx : ident := 102%positive.
+Definition _md_info : ident := 122%positive.
+Definition _md_len : ident := 161%positive.
+Definition _md_name : ident := 133%positive.
+Definition _md_size : ident := 173%positive.
+Definition _md_type : ident := 135%positive.
+Definition _memcpy : ident := 44%positive.
+Definition _memset : ident := 45%positive.
+Definition _mocked_sha256_info : ident := 132%positive.
+Definition _n : ident := 73%positive.
+Definition _num : ident := 6%positive.
+Definition _o_ctx : ident := 104%positive.
+Definition _out : ident := 183%positive.
+Definition _out_len : ident := 181%positive.
Definition _output : ident := 151%positive.
-Definition _p : ident := 71%positive.
-Definition _p_rng : ident := 179%positive.
-Definition _pad : ident := 107%positive.
-Definition _prediction_resistance : ident := 127%positive.
-Definition _reseed_counter : ident := 125%positive.
-Definition _reseed_interval : ident := 128%positive.
-Definition _reset : ident := 106%positive.
-Definition _resistance : ident := 174%positive.
-Definition _ret : ident := 140%positive.
-Definition _rounds : ident := 161%positive.
-Definition _s0 : ident := 55%positive.
-Definition _s1 : ident := 56%positive.
-Definition _seed : ident := 168%positive.
-Definition _seedlen : ident := 169%positive.
-Definition _sep : ident := 162%positive.
-Definition _sep_value : ident := 164%positive.
-Definition _sha256_block_data_order : ident := 64%positive.
+Definition _p : ident := 72%positive.
+Definition _p_rng : ident := 180%positive.
+Definition _pad : ident := 108%positive.
+Definition _prediction_resistance : ident := 129%positive.
+Definition _reseed_counter : ident := 127%positive.
+Definition _reseed_interval : ident := 130%positive.
+Definition _reset : ident := 107%positive.
+Definition _resistance : ident := 175%positive.
+Definition _ret : ident := 139%positive.
+Definition _rounds : ident := 162%positive.
+Definition _s0 : ident := 56%positive.
+Definition _s1 : ident := 57%positive.
+Definition _seed : ident := 169%positive.
+Definition _seedlen : ident := 170%positive.
+Definition _sep : ident := 163%positive.
+Definition _sep_value : ident := 165%positive.
+Definition _sha256_block_data_order : ident := 65%positive.
Definition _sha_ctx : ident := 143%positive.
-Definition _t : ident := 59%positive.
-Definition _test_md_get_size : ident := 141%positive.
-Definition _use_len : ident := 183%positive.
-Definition _v : ident := 155%positive.
-Definition _xn : ident := 77%positive.
-Definition _t'1 : ident := 187%positive.
-Definition _t'2 : ident := 188%positive.
-Definition _t'3 : ident := 189%positive.
-Definition _t'4 : ident := 190%positive.
-Definition _t'5 : ident := 191%positive.
-Definition _t'6 : ident := 192%positive.
-Definition _t'7 : ident := 193%positive.
+Definition _t : ident := 60%positive.
+Definition _test_md_get_size : ident := 140%positive.
+Definition _use_len : ident := 184%positive.
+Definition _v : ident := 156%positive.
+Definition _xn : ident := 78%positive.
+Definition _t'1 : ident := 188%positive.
+Definition _t'2 : ident := 189%positive.
+Definition _t'3 : ident := 190%positive.
+Definition _t'4 : ident := 191%positive.
+Definition _t'5 : ident := 192%positive.
+Definition _t'6 : ident := 193%positive.
Definition f_HMAC_Init := {|
fn_return := tvoid;
@@ -221,7 +221,7 @@ Definition f_HMAC_Init := {|
fn_vars := ((_pad, (tarray tuchar 64)) :: (_ctx_key, (tarray tuchar 64)) ::
nil);
fn_temps := ((_i, tint) :: (_j, tint) :: (_reset, tint) ::
- (_aux, tuchar) :: nil);
+ (_aux, tuchar) :: (_t'2, tuchar) :: (_t'1, tuchar) :: nil);
fn_body :=
(Ssequence
(Sset _reset (Econst_int (Int.repr 0) tint))
@@ -237,9 +237,8 @@ Definition f_HMAC_Init := {|
(Ssequence
(Scall None
(Evar _SHA256_Init (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ nil) tvoid cc_default))
((Eaddrof
(Efield
(Ederef
@@ -250,10 +249,8 @@ Definition f_HMAC_Init := {|
(Ssequence
(Scall None
(Evar _SHA256_Update (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid)
- (Tcons tuint Tnil))) tvoid
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid
cc_default))
((Eaddrof
(Efield
@@ -267,10 +264,9 @@ Definition f_HMAC_Init := {|
(Ssequence
(Scall None
(Evar _SHA256_Final (Tfunction
- (Tcons (tptr tuchar)
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- Tnil)) tvoid cc_default))
+ ((tptr tuchar) ::
+ (tptr (Tstruct _SHA256state_st noattr)) ::
+ nil) tvoid cc_default))
((Evar _ctx_key (tarray tuchar 64)) ::
(Eaddrof
(Efield
@@ -281,8 +277,7 @@ Definition f_HMAC_Init := {|
(tptr (Tstruct _SHA256state_st noattr))) :: nil))
(Scall None
(Evar _memset (Tfunction
- (Tcons (tptr tvoid)
- (Tcons tint (Tcons tuint Tnil)))
+ ((tptr tvoid) :: tint :: tuint :: nil)
(tptr tvoid) cc_default))
((Ebinop Oadd (Evar _ctx_key (tarray tuchar 64))
(Econst_int (Int.repr 32) tint) (tptr tuchar)) ::
@@ -291,16 +286,14 @@ Definition f_HMAC_Init := {|
(Ssequence
(Scall None
(Evar _memcpy (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint Tnil)))
- (tptr tvoid) cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint ::
+ nil) (tptr tvoid) cc_default))
((Evar _ctx_key (tarray tuchar 64)) ::
(Etempvar _key (tptr tuchar)) :: (Etempvar _len tint) ::
nil))
(Scall None
(Evar _memset (Tfunction
- (Tcons (tptr tvoid)
- (Tcons tint (Tcons tuint Tnil)))
+ ((tptr tvoid) :: tint :: tuint :: nil)
(tptr tvoid) cc_default))
((Ebinop Oadd (Evar _ctx_key (tarray tuchar 64))
(Etempvar _len tint) (tptr tuchar)) ::
@@ -320,11 +313,12 @@ Definition f_HMAC_Init := {|
Sskip
Sbreak)
(Ssequence
- (Sset _aux
- (Ecast
+ (Ssequence
+ (Sset _t'2
(Ederef
(Ebinop Oadd (Evar _ctx_key (tarray tuchar 64))
- (Etempvar _i tint) (tptr tuchar)) tuchar) tuchar))
+ (Etempvar _i tint) (tptr tuchar)) tuchar))
+ (Sset _aux (Ecast (Etempvar _t'2 tuchar) tuchar)))
(Ssequence
(Sset _aux
(Ecast
@@ -341,9 +335,8 @@ Definition f_HMAC_Init := {|
(Ssequence
(Scall None
(Evar _SHA256_Init (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ nil) tvoid cc_default))
((Eaddrof
(Efield
(Ederef
@@ -354,10 +347,8 @@ Definition f_HMAC_Init := {|
(Ssequence
(Scall None
(Evar _SHA256_Update (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid)
- (Tcons tuint Tnil))) tvoid
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid
cc_default))
((Eaddrof
(Efield
@@ -378,12 +369,12 @@ Definition f_HMAC_Init := {|
Sskip
Sbreak)
(Ssequence
- (Sset _aux
- (Ecast
+ (Ssequence
+ (Sset _t'1
(Ederef
(Ebinop Oadd (Evar _ctx_key (tarray tuchar 64))
- (Etempvar _i tint) (tptr tuchar)) tuchar)
- tuchar))
+ (Etempvar _i tint) (tptr tuchar)) tuchar))
+ (Sset _aux (Ecast (Etempvar _t'1 tuchar) tuchar)))
(Sassign
(Ederef
(Ebinop Oadd (Evar _pad (tarray tuchar 64))
@@ -396,9 +387,8 @@ Definition f_HMAC_Init := {|
(Ssequence
(Scall None
(Evar _SHA256_Init (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ nil) tvoid cc_default))
((Eaddrof
(Efield
(Ederef
@@ -408,11 +398,9 @@ Definition f_HMAC_Init := {|
(tptr (Tstruct _SHA256state_st noattr))) :: nil))
(Scall None
(Evar _SHA256_Update (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid)
- (Tcons tuint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil)
+ tvoid cc_default))
((Eaddrof
(Efield
(Ederef
@@ -425,8 +413,7 @@ Definition f_HMAC_Init := {|
Sskip)
(Scall None
(Evar _memcpy (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint Tnil)))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: nil)
(tptr tvoid) cc_default))
((Eaddrof
(Efield
@@ -453,9 +440,8 @@ Definition f_HMAC_Update := {|
fn_body :=
(Scall None
(Evar _SHA256_Update (Tfunction
- (Tcons (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid) (Tcons tuint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid cc_default))
((Eaddrof
(Efield
(Ederef (Etempvar _ctx (tptr (Tstruct _hmac_ctx_st noattr)))
@@ -476,9 +462,9 @@ Definition f_HMAC_Final := {|
(Ssequence
(Scall None
(Evar _SHA256_Final (Tfunction
- (Tcons (tptr tuchar)
- (Tcons (tptr (Tstruct _SHA256state_st noattr))
- Tnil)) tvoid cc_default))
+ ((tptr tuchar) ::
+ (tptr (Tstruct _SHA256state_st noattr)) :: nil)
+ tvoid cc_default))
((Evar _buf (tarray tuchar 32)) ::
(Eaddrof
(Efield
@@ -488,10 +474,8 @@ Definition f_HMAC_Final := {|
(tptr (Tstruct _SHA256state_st noattr))) :: nil))
(Ssequence
(Scall None
- (Evar _memcpy (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint Tnil))) (tptr tvoid)
- cc_default))
+ (Evar _memcpy (Tfunction ((tptr tvoid) :: (tptr tvoid) :: tuint :: nil)
+ (tptr tvoid) cc_default))
((Eaddrof
(Efield
(Ederef (Etempvar _ctx (tptr (Tstruct _hmac_ctx_st noattr)))
@@ -508,9 +492,9 @@ Definition f_HMAC_Final := {|
(Ssequence
(Scall None
(Evar _SHA256_Update (Tfunction
- (Tcons (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid) (Tcons tuint Tnil)))
- tvoid cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid
+ cc_default))
((Eaddrof
(Efield
(Ederef (Etempvar _ctx (tptr (Tstruct _hmac_ctx_st noattr)))
@@ -521,10 +505,9 @@ Definition f_HMAC_Final := {|
nil))
(Scall None
(Evar _SHA256_Final (Tfunction
- (Tcons (tptr tuchar)
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- Tnil)) tvoid cc_default))
+ ((tptr tuchar) ::
+ (tptr (Tstruct _SHA256state_st noattr)) ::
+ nil) tvoid cc_default))
((Etempvar _md (tptr tuchar)) ::
(Eaddrof
(Efield
@@ -542,8 +525,7 @@ Definition f_HMAC_cleanup := {|
fn_temps := nil;
fn_body :=
(Scall None
- (Evar _memset (Tfunction
- (Tcons (tptr tvoid) (Tcons tint (Tcons tuint Tnil)))
+ (Evar _memset (Tfunction ((tptr tvoid) :: tint :: tuint :: nil)
(tptr tvoid) cc_default))
((Etempvar _ctx (tptr (Tstruct _hmac_ctx_st noattr))) ::
(Econst_int (Int.repr 0) tint) ::
@@ -574,34 +556,32 @@ Definition f_HMAC := {|
(Ssequence
(Scall None
(Evar _HMAC_Init (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) (Tcons tint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: tint :: nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Etempvar _key (tptr tuchar)) :: (Etempvar _key_len tint) :: nil))
(Ssequence
(Scall None
(Evar _HMAC_Update (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tvoid) (Tcons tuint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Etempvar _d (tptr tuchar)) :: (Etempvar _n tint) :: nil))
(Ssequence
(Scall None
(Evar _HMAC_Final (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) Tnil)) tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Etempvar _md (tptr tuchar)) :: nil))
(Ssequence
(Scall None
(Evar _HMAC_cleanup (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) :: nil))
(Sreturn (Some (Etempvar _md (tptr tuchar)))))))))
@@ -631,35 +611,33 @@ Definition f_HMAC2 := {|
(Ssequence
(Scall None
(Evar _HMAC_Init (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) (Tcons tint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: tint :: nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Etempvar _key (tptr tuchar)) :: (Etempvar _key_len tint) :: nil))
(Ssequence
(Scall None
(Evar _HMAC_Update (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tvoid) (Tcons tuint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Etempvar _d (tptr tuchar)) :: (Etempvar _n tint) :: nil))
(Ssequence
(Scall None
(Evar _HMAC_Final (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) Tnil)) tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Etempvar _md (tptr tuchar)) :: nil))
(Ssequence
(Scall None
(Evar _HMAC_Init (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) (Tcons tint Tnil)))
- tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: tint :: nil) tvoid
+ cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Ecast (Econst_int (Int.repr 0) tint) (tptr tvoid)) ::
@@ -667,20 +645,17 @@ Definition f_HMAC2 := {|
(Ssequence
(Scall None
(Evar _HMAC_Update (Tfunction
- (Tcons
- (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tvoid) (Tcons tuint Tnil)))
- tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid
+ cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Etempvar _d (tptr tuchar)) :: (Etempvar _n tint) :: nil))
(Ssequence
(Scall None
(Evar _HMAC_Final (Tfunction
- (Tcons
- (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) Tnil)) tvoid
- cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Ebinop Oadd (Etempvar _md (tptr tuchar))
@@ -688,9 +663,8 @@ Definition f_HMAC2 := {|
(Ssequence
(Scall None
(Evar _HMAC_cleanup (Tfunction
- (Tcons
- (tptr (Tstruct _hmac_ctx_st noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) :: nil))
(Sreturn (Some (Etempvar _md (tptr tuchar))))))))))))
@@ -748,9 +722,8 @@ Definition f_test_md_get_size := {|
(Ssequence
(Scall (Some _t'1)
(Evar _mbedtls_md_get_size (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_info_t noattr))
- Tnil) tuchar cc_default))
+ ((tptr (Tstruct _mbedtls_md_info_t noattr)) ::
+ nil) tuchar cc_default))
((Eaddrof (Evar _info (Tstruct _mbedtls_md_info_t noattr))
(tptr (Tstruct _mbedtls_md_info_t noattr))) :: nil))
(Sset _ret (Ecast (Etempvar _t'1 tuchar) tuchar)))
@@ -764,16 +737,16 @@ Definition f_mbedtls_md_setup := {|
(_hmac, tint) :: nil);
fn_vars := nil;
fn_temps := ((_sha_ctx, (tptr (Tstruct _hmac_ctx_st noattr))) ::
- (_t'1, (tptr tvoid)) :: nil);
+ (_t'1, tint) :: nil);
fn_body :=
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction nil tint
+ {|cc_vararg:=None; cc_unproto:=true; cc_structret:=false|}))
((Esizeof (Tstruct _hmac_ctx_st noattr) tuint) :: nil))
(Sset _sha_ctx
- (Ecast (Etempvar _t'1 (tptr tvoid))
- (tptr (Tstruct _hmac_ctx_st noattr)))))
+ (Ecast (Etempvar _t'1 tint) (tptr (Tstruct _hmac_ctx_st noattr)))))
(Ssequence
(Sifthenelse (Ebinop Oeq
(Etempvar _sha_ctx (tptr (Tstruct _hmac_ctx_st noattr)))
@@ -814,9 +787,8 @@ Definition f_mbedtls_md_hmac_starts := {|
(Ssequence
(Scall None
(Evar _HMAC_Init (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) (Tcons tint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: tint :: nil) tvoid cc_default))
((Etempvar _hmac_ctx (tptr (Tstruct _hmac_ctx_st noattr))) ::
(Ecast (Etempvar _key (tptr tuchar)) (tptr tuchar)) ::
(Etempvar _keylen tuint) :: nil))
@@ -838,9 +810,8 @@ Definition f_mbedtls_md_hmac_reset := {|
(Ssequence
(Scall None
(Evar _HMAC_Init (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) (Tcons tint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: tint :: nil) tvoid cc_default))
((Etempvar _hmac_ctx (tptr (Tstruct _hmac_ctx_st noattr))) ::
(Ecast (Econst_int (Int.repr 0) tint) (tptr tvoid)) ::
(Econst_int (Int.repr 32) tint) :: nil))
@@ -863,9 +834,8 @@ Definition f_mbedtls_md_hmac_update := {|
(Ssequence
(Scall None
(Evar _HMAC_Update (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tvoid) (Tcons tuint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid cc_default))
((Etempvar _hmac_ctx (tptr (Tstruct _hmac_ctx_st noattr))) ::
(Ecast (Etempvar _input (tptr tuchar)) (tptr tvoid)) ::
(Etempvar _ilen tuint) :: nil))
@@ -888,8 +858,8 @@ Definition f_mbedtls_md_hmac_finish := {|
(Ssequence
(Scall None
(Evar _HMAC_Final (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) Tnil)) tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: nil) tvoid cc_default))
((Etempvar _hmac_ctx (tptr (Tstruct _hmac_ctx_st noattr))) ::
(Etempvar _output (tptr tuchar)) :: nil))
(Sreturn (Some (Econst_int (Int.repr 0) tint)))))
@@ -908,7 +878,8 @@ Definition f_mbedtls_md_free := {|
(Ederef (Etempvar _ctx (tptr (Tstruct _mbedtls_md_context_t noattr)))
(Tstruct _mbedtls_md_context_t noattr)) _hmac_ctx (tptr tvoid)))
(Scall None
- (Evar _free (Tfunction (Tcons (tptr tvoid) Tnil) tvoid cc_default))
+ (Evar _free (Tfunction nil tint
+ {|cc_vararg:=None; cc_unproto:=true; cc_structret:=false|}))
((Etempvar _hmac_ctx (tptr (Tstruct _hmac_ctx_st noattr))) :: nil)))
|}.
@@ -951,8 +922,7 @@ Definition f_mbedtls_hmac_drbg_init := {|
fn_temps := nil;
fn_body :=
(Scall None
- (Evar _memset (Tfunction
- (Tcons (tptr tvoid) (Tcons tint (Tcons tuint Tnil)))
+ (Evar _memset (Tfunction ((tptr tvoid) :: tint :: tuint :: nil)
(tptr tvoid) cc_default))
((Etempvar _ctx (tptr (Tstruct _mbedtls_hmac_drbg_context noattr))) ::
(Econst_int (Int.repr 0) tint) ::
@@ -982,9 +952,8 @@ Definition f_mbedtls_hmac_drbg_update := {|
(Ssequence
(Scall (Some _t'1)
(Evar _mbedtls_md_get_size (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_info_t noattr))
- Tnil) tuchar cc_default))
+ ((tptr (Tstruct _mbedtls_md_info_t noattr)) ::
+ nil) tuchar cc_default))
((Etempvar _info (tptr (Tstruct _mbedtls_md_info_t noattr))) :: nil))
(Sset _md_len (Etempvar _t'1 tuchar)))
(Ssequence
@@ -1019,9 +988,8 @@ Definition f_mbedtls_hmac_drbg_update := {|
(Ssequence
(Scall None
(Evar _mbedtls_md_hmac_reset (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_context_t noattr))
- Tnil) tint cc_default))
+ ((tptr (Tstruct _mbedtls_md_context_t noattr)) ::
+ nil) tint cc_default))
((Eaddrof
(Efield
(Ederef
@@ -1032,11 +1000,10 @@ Definition f_mbedtls_hmac_drbg_update := {|
(Ssequence
(Scall None
(Evar _mbedtls_md_hmac_update (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_context_t noattr))
- (Tcons (tptr tuchar)
- (Tcons tuint Tnil)))
- tint cc_default))
+ ((tptr (Tstruct _mbedtls_md_context_t noattr)) ::
+ (tptr tuchar) ::
+ tuint :: nil) tint
+ cc_default))
((Eaddrof
(Efield
(Ederef
@@ -1053,11 +1020,10 @@ Definition f_mbedtls_hmac_drbg_update := {|
(Ssequence
(Scall None
(Evar _mbedtls_md_hmac_update (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_context_t noattr))
- (Tcons (tptr tuchar)
- (Tcons tuint Tnil)))
- tint cc_default))
+ ((tptr (Tstruct _mbedtls_md_context_t noattr)) ::
+ (tptr tuchar) ::
+ tuint :: nil) tint
+ cc_default))
((Eaddrof
(Efield
(Ederef
@@ -1072,12 +1038,9 @@ Definition f_mbedtls_hmac_drbg_update := {|
(Econst_int (Int.repr 2) tint) tint)
(Scall None
(Evar _mbedtls_md_hmac_update (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_context_t noattr))
- (Tcons
- (tptr tuchar)
- (Tcons tuint
- Tnil))) tint
+ ((tptr (Tstruct _mbedtls_md_context_t noattr)) ::
+ (tptr tuchar) ::
+ tuint :: nil) tint
cc_default))
((Eaddrof
(Efield
@@ -1093,11 +1056,9 @@ Definition f_mbedtls_hmac_drbg_update := {|
(Ssequence
(Scall None
(Evar _mbedtls_md_hmac_finish (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_context_t noattr))
- (Tcons
- (tptr tuchar)
- Tnil)) tint
+ ((tptr (Tstruct _mbedtls_md_context_t noattr)) ::
+ (tptr tuchar) ::
+ nil) tint
cc_default))
((Eaddrof
(Efield
@@ -1111,12 +1072,9 @@ Definition f_mbedtls_hmac_drbg_update := {|
(Ssequence
(Scall None
(Evar _mbedtls_md_hmac_starts (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_context_t noattr))
- (Tcons
- (tptr tuchar)
- (Tcons tuint
- Tnil)))
+ ((tptr (Tstruct _mbedtls_md_context_t noattr)) ::
+ (tptr tuchar) ::
+ tuint :: nil)
tint cc_default))
((Eaddrof
(Efield
@@ -1131,13 +1089,9 @@ Definition f_mbedtls_hmac_drbg_update := {|
(Ssequence
(Scall None
(Evar _mbedtls_md_hmac_update (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_context_t noattr))
- (Tcons
- (tptr tuchar)
- (Tcons
- tuint
- Tnil)))
+ ((tptr (Tstruct _mbedtls_md_context_t noattr)) ::
+ (tptr tuchar) ::
+ tuint :: nil)
tint
cc_default))
((Eaddrof
@@ -1156,11 +1110,9 @@ Definition f_mbedtls_hmac_drbg_update := {|
(Etempvar _md_len tuint) :: nil))
(Scall None
(Evar _mbedtls_md_hmac_finish (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_context_t noattr))
- (Tcons
- (tptr tuchar)
- Tnil)) tint
+ ((tptr (Tstruct _mbedtls_md_context_t noattr)) ::
+ (tptr tuchar) ::
+ nil) tint
cc_default))
((Eaddrof
(Efield
@@ -1196,11 +1148,9 @@ Definition f_mbedtls_hmac_drbg_seed_buf := {|
(Ssequence
(Scall (Some _t'1)
(Evar _mbedtls_md_setup (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_context_t noattr))
- (Tcons
- (tptr (Tstruct _mbedtls_md_info_t noattr))
- (Tcons tint Tnil))) tint cc_default))
+ ((tptr (Tstruct _mbedtls_md_context_t noattr)) ::
+ (tptr (Tstruct _mbedtls_md_info_t noattr)) ::
+ tint :: nil) tint cc_default))
((Eaddrof
(Efield
(Ederef
@@ -1220,17 +1170,14 @@ Definition f_mbedtls_hmac_drbg_seed_buf := {|
(Ssequence
(Scall (Some _t'3)
(Evar _mbedtls_md_get_size (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_info_t noattr))
- Tnil) tuchar cc_default))
+ ((tptr (Tstruct _mbedtls_md_info_t noattr)) ::
+ nil) tuchar cc_default))
((Etempvar _md_info (tptr (Tstruct _mbedtls_md_info_t noattr))) ::
nil))
(Scall None
(Evar _mbedtls_md_hmac_starts (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_context_t noattr))
- (Tcons (tptr tuchar)
- (Tcons tuint Tnil))) tint
+ ((tptr (Tstruct _mbedtls_md_context_t noattr)) ::
+ (tptr tuchar) :: tuint :: nil) tint
cc_default))
((Eaddrof
(Efield
@@ -1248,16 +1195,13 @@ Definition f_mbedtls_hmac_drbg_seed_buf := {|
(Ssequence
(Scall (Some _t'4)
(Evar _mbedtls_md_get_size (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_info_t noattr))
- Tnil) tuchar cc_default))
+ ((tptr (Tstruct _mbedtls_md_info_t noattr)) ::
+ nil) tuchar cc_default))
((Etempvar _md_info (tptr (Tstruct _mbedtls_md_info_t noattr))) ::
nil))
(Scall None
- (Evar _memset (Tfunction
- (Tcons (tptr tvoid)
- (Tcons tint (Tcons tuint Tnil))) (tptr tvoid)
- cc_default))
+ (Evar _memset (Tfunction ((tptr tvoid) :: tint :: tuint :: nil)
+ (tptr tvoid) cc_default))
((Efield
(Ederef
(Etempvar _ctx (tptr (Tstruct _mbedtls_hmac_drbg_context noattr)))
@@ -1267,11 +1211,9 @@ Definition f_mbedtls_hmac_drbg_seed_buf := {|
(Ssequence
(Scall None
(Evar _mbedtls_hmac_drbg_update (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_hmac_drbg_context noattr))
- (Tcons (tptr tuchar)
- (Tcons tuint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _mbedtls_hmac_drbg_context noattr)) ::
+ (tptr tuchar) :: tuint :: nil)
+ tvoid cc_default))
((Etempvar _ctx (tptr (Tstruct _mbedtls_hmac_drbg_context noattr))) ::
(Etempvar _data (tptr tuchar)) :: (Etempvar _data_len tuint) ::
nil))
@@ -1309,8 +1251,7 @@ Definition f_mbedtls_hmac_drbg_reseed := {|
Sskip))
(Ssequence
(Scall None
- (Evar _memset (Tfunction
- (Tcons (tptr tvoid) (Tcons tint (Tcons tuint Tnil)))
+ (Evar _memset (Tfunction ((tptr tvoid) :: tint :: tuint :: nil)
(tptr tvoid) cc_default))
((Evar _seed (tarray tuchar 384)) ::
(Econst_int (Int.repr 0) tint) ::
@@ -1318,8 +1259,7 @@ Definition f_mbedtls_hmac_drbg_reseed := {|
(Ssequence
(Ssequence
(Scall (Some _t'2)
- (Evar _get_entropy (Tfunction
- (Tcons (tptr tuchar) (Tcons tuint Tnil))
+ (Evar _get_entropy (Tfunction ((tptr tuchar) :: tuint :: nil)
tint cc_default))
((Evar _seed (tarray tuchar 384)) ::
(Etempvar _entropy_len tuint) :: nil))
@@ -1343,9 +1283,8 @@ Definition f_mbedtls_hmac_drbg_reseed := {|
(Ssequence
(Scall None
(Evar _memcpy (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint Tnil)))
- (tptr tvoid) cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint ::
+ nil) (tptr tvoid) cc_default))
((Ebinop Oadd (Evar _seed (tarray tuchar 384))
(Etempvar _seedlen tuint) (tptr tuchar)) ::
(Etempvar _additional (tptr tuchar)) ::
@@ -1357,11 +1296,9 @@ Definition f_mbedtls_hmac_drbg_reseed := {|
(Ssequence
(Scall None
(Evar _mbedtls_hmac_drbg_update (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_hmac_drbg_context noattr))
- (Tcons (tptr tuchar)
- (Tcons tuint Tnil)))
- tvoid cc_default))
+ ((tptr (Tstruct _mbedtls_hmac_drbg_context noattr)) ::
+ (tptr tuchar) :: tuint ::
+ nil) tvoid cc_default))
((Etempvar _ctx (tptr (Tstruct _mbedtls_hmac_drbg_context noattr))) ::
(Evar _seed (tarray tuchar 384)) ::
(Etempvar _seedlen tuint) :: nil))
@@ -1383,9 +1320,8 @@ Definition f_mbedtls_hmac_drbg_seed := {|
(_custom, (tptr tuchar)) :: (_len, tuint) :: nil);
fn_vars := nil;
fn_temps := ((_ret, tint) :: (_entropy_len, tuint) :: (_md_size, tuint) ::
- (_t'7, tint) :: (_t'6, tint) :: (_t'5, tint) ::
- (_t'4, tint) :: (_t'3, tuchar) :: (_t'2, tint) ::
- (_t'1, tint) :: nil);
+ (_t'6, tint) :: (_t'5, tint) :: (_t'4, tint) ::
+ (_t'3, tuchar) :: (_t'2, tint) :: (_t'1, tint) :: nil);
fn_body :=
(Ssequence
(Ssequence
@@ -1393,11 +1329,9 @@ Definition f_mbedtls_hmac_drbg_seed := {|
(Ssequence
(Scall (Some _t'1)
(Evar _mbedtls_md_setup (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_context_t noattr))
- (Tcons
- (tptr (Tstruct _mbedtls_md_info_t noattr))
- (Tcons tint Tnil))) tint cc_default))
+ ((tptr (Tstruct _mbedtls_md_context_t noattr)) ::
+ (tptr (Tstruct _mbedtls_md_info_t noattr)) ::
+ tint :: nil) tint cc_default))
((Eaddrof
(Efield
(Ederef
@@ -1417,19 +1351,16 @@ Definition f_mbedtls_hmac_drbg_seed := {|
(Ssequence
(Scall (Some _t'3)
(Evar _mbedtls_md_get_size (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_info_t noattr))
- Tnil) tuchar cc_default))
+ ((tptr (Tstruct _mbedtls_md_info_t noattr)) ::
+ nil) tuchar cc_default))
((Etempvar _md_info (tptr (Tstruct _mbedtls_md_info_t noattr))) ::
nil))
(Sset _md_size (Etempvar _t'3 tuchar)))
(Ssequence
(Scall None
(Evar _mbedtls_md_hmac_starts (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_context_t noattr))
- (Tcons (tptr tuchar)
- (Tcons tuint Tnil))) tint
+ ((tptr (Tstruct _mbedtls_md_context_t noattr)) ::
+ (tptr tuchar) :: tuint :: nil) tint
cc_default))
((Eaddrof
(Efield
@@ -1445,10 +1376,8 @@ Definition f_mbedtls_hmac_drbg_seed := {|
(tarray tuchar 32)) :: (Etempvar _md_size tuint) :: nil))
(Ssequence
(Scall None
- (Evar _memset (Tfunction
- (Tcons (tptr tvoid)
- (Tcons tint (Tcons tuint Tnil))) (tptr tvoid)
- cc_default))
+ (Evar _memset (Tfunction ((tptr tvoid) :: tint :: tuint :: nil)
+ (tptr tvoid) cc_default))
((Efield
(Ederef
(Etempvar _ctx (tptr (Tstruct _mbedtls_hmac_drbg_context noattr)))
@@ -1470,11 +1399,11 @@ Definition f_mbedtls_hmac_drbg_seed := {|
(Sifthenelse (Ebinop Ole (Etempvar _md_size tuint)
(Econst_int (Int.repr 28) tint) tint)
(Ssequence
- (Sset _t'5 (Ecast (Econst_int (Int.repr 24) tint) tint))
- (Sset _t'4 (Ecast (Etempvar _t'5 tint) tint)))
+ (Sset _t'4 (Ecast (Econst_int (Int.repr 24) tint) tint))
+ (Sset _t'4 (Ecast (Etempvar _t'4 tint) tint)))
(Ssequence
- (Sset _t'5 (Ecast (Econst_int (Int.repr 32) tint) tint))
- (Sset _t'4 (Ecast (Etempvar _t'5 tint) tint)))))
+ (Sset _t'4 (Ecast (Econst_int (Int.repr 32) tint) tint))
+ (Sset _t'4 (Ecast (Etempvar _t'4 tint) tint)))))
(Sset _entropy_len (Etempvar _t'4 tint)))
(Ssequence
(Sassign
@@ -1491,21 +1420,18 @@ Definition f_mbedtls_hmac_drbg_seed := {|
(Ssequence
(Ssequence
(Ssequence
- (Scall (Some _t'6)
+ (Scall (Some _t'5)
(Evar _mbedtls_hmac_drbg_reseed (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_hmac_drbg_context noattr))
- (Tcons
- (tptr tuchar)
- (Tcons tuint
- Tnil))) tint
+ ((tptr (Tstruct _mbedtls_hmac_drbg_context noattr)) ::
+ (tptr tuchar) ::
+ tuint :: nil) tint
cc_default))
((Etempvar _ctx (tptr (Tstruct _mbedtls_hmac_drbg_context noattr))) ::
(Etempvar _custom (tptr tuchar)) ::
(Etempvar _len tuint) :: nil))
- (Sset _t'7 (Ecast (Etempvar _t'6 tint) tint)))
- (Sset _ret (Etempvar _t'7 tint)))
- (Sifthenelse (Ebinop One (Etempvar _t'7 tint)
+ (Sset _t'6 (Ecast (Etempvar _t'5 tint) tint)))
+ (Sset _ret (Etempvar _t'6 tint)))
+ (Sifthenelse (Ebinop One (Etempvar _t'6 tint)
(Econst_int (Int.repr 0) tint) tint)
(Sreturn (Some (Etempvar _ret tint)))
Sskip))
@@ -1625,9 +1551,8 @@ Definition f_mbedtls_hmac_drbg_random_with_add := {|
(Ssequence
(Scall (Some _t'1)
(Evar _mbedtls_md_get_size (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_info_t noattr))
- Tnil) tuchar cc_default))
+ ((tptr (Tstruct _mbedtls_md_info_t noattr)) ::
+ nil) tuchar cc_default))
((Etempvar _info (tptr (Tstruct _mbedtls_md_info_t noattr))) ::
nil))
(Sset _md_len (Etempvar _t'1 tuchar)))
@@ -1660,14 +1585,10 @@ Definition f_mbedtls_hmac_drbg_random_with_add := {|
(Ssequence
(Scall (Some _t'2)
(Evar _mbedtls_hmac_drbg_reseed (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_hmac_drbg_context noattr))
- (Tcons
- (tptr tuchar)
- (Tcons
- tuint
- Tnil)))
- tint
+ ((tptr (Tstruct _mbedtls_hmac_drbg_context noattr)) ::
+ (tptr tuchar) ::
+ tuint ::
+ nil) tint
cc_default))
((Etempvar _ctx (tptr (Tstruct _mbedtls_hmac_drbg_context noattr))) ::
(Etempvar _additional (tptr tuchar)) ::
@@ -1697,14 +1618,10 @@ Definition f_mbedtls_hmac_drbg_random_with_add := {|
(Sifthenelse (Etempvar _t'5 tint)
(Scall None
(Evar _mbedtls_hmac_drbg_update (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_hmac_drbg_context noattr))
- (Tcons
- (tptr tuchar)
- (Tcons
- tuint
- Tnil)))
- tvoid
+ ((tptr (Tstruct _mbedtls_hmac_drbg_context noattr)) ::
+ (tptr tuchar) ::
+ tuint ::
+ nil) tvoid
cc_default))
((Etempvar _ctx (tptr (Tstruct _mbedtls_hmac_drbg_context noattr))) ::
(Etempvar _additional (tptr tuchar)) ::
@@ -1727,9 +1644,8 @@ Definition f_mbedtls_hmac_drbg_random_with_add := {|
(Ssequence
(Scall None
(Evar _mbedtls_md_hmac_reset (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_context_t noattr))
- Tnil) tint
+ ((tptr (Tstruct _mbedtls_md_context_t noattr)) ::
+ nil) tint
cc_default))
((Eaddrof
(Efield
@@ -1743,14 +1659,10 @@ Definition f_mbedtls_hmac_drbg_random_with_add := {|
(Ssequence
(Scall None
(Evar _mbedtls_md_hmac_update (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_context_t noattr))
- (Tcons
- (tptr tuchar)
- (Tcons
- tuint
- Tnil)))
- tint
+ ((tptr (Tstruct _mbedtls_md_context_t noattr)) ::
+ (tptr tuchar) ::
+ tuint ::
+ nil) tint
cc_default))
((Eaddrof
(Efield
@@ -1769,12 +1681,9 @@ Definition f_mbedtls_hmac_drbg_random_with_add := {|
(Ssequence
(Scall None
(Evar _mbedtls_md_hmac_finish (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_context_t noattr))
- (Tcons
- (tptr tuchar)
- Tnil))
- tint
+ ((tptr (Tstruct _mbedtls_md_context_t noattr)) ::
+ (tptr tuchar) ::
+ nil) tint
cc_default))
((Eaddrof
(Efield
@@ -1792,10 +1701,9 @@ Definition f_mbedtls_hmac_drbg_random_with_add := {|
(Ssequence
(Scall None
(Evar _memcpy (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid)
- (Tcons tuint
- Tnil)))
+ ((tptr tvoid) ::
+ (tptr tvoid) ::
+ tuint :: nil)
(tptr tvoid)
cc_default))
((Etempvar _out (tptr tuchar)) ::
@@ -1817,14 +1725,10 @@ Definition f_mbedtls_hmac_drbg_random_with_add := {|
(Ssequence
(Scall None
(Evar _mbedtls_hmac_drbg_update (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_hmac_drbg_context noattr))
- (Tcons
- (tptr tuchar)
- (Tcons
- tuint
- Tnil)))
- tvoid
+ ((tptr (Tstruct _mbedtls_hmac_drbg_context noattr)) ::
+ (tptr tuchar) ::
+ tuint ::
+ nil) tvoid
cc_default))
((Etempvar _ctx (tptr (Tstruct _mbedtls_hmac_drbg_context noattr))) ::
(Etempvar _additional (tptr tuchar)) ::
@@ -1867,12 +1771,10 @@ Definition f_mbedtls_hmac_drbg_random := {|
(Ssequence
(Scall (Some _t'1)
(Evar _mbedtls_hmac_drbg_random_with_add (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tuchar)
- (Tcons tuint
- (Tcons (tptr tuchar)
- (Tcons tuint Tnil)))))
- tint cc_default))
+ ((tptr tvoid) ::
+ (tptr tuchar) :: tuint ::
+ (tptr tuchar) :: tuint ::
+ nil) tint cc_default))
((Etempvar _ctx (tptr (Tstruct _mbedtls_hmac_drbg_context noattr))) ::
(Etempvar _output (tptr tuchar)) :: (Etempvar _out_len tuint) ::
(Ecast (Econst_int (Int.repr 0) tint) (tptr tvoid)) ::
@@ -1898,9 +1800,8 @@ Definition f_mbedtls_hmac_drbg_free := {|
(Ssequence
(Scall None
(Evar _mbedtls_md_free (Tfunction
- (Tcons
- (tptr (Tstruct _mbedtls_md_context_t noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _mbedtls_md_context_t noattr)) ::
+ nil) tvoid cc_default))
((Eaddrof
(Efield
(Ederef
@@ -1909,8 +1810,7 @@ Definition f_mbedtls_hmac_drbg_free := {|
(Tstruct _mbedtls_md_context_t noattr))
(tptr (Tstruct _mbedtls_md_context_t noattr))) :: nil))
(Scall None
- (Evar _mbedtls_zeroize (Tfunction
- (Tcons (tptr tvoid) (Tcons tuint Tnil)) tvoid
+ (Evar _mbedtls_zeroize (Tfunction ((tptr tvoid) :: tuint :: nil) tvoid
cc_default))
((Etempvar _ctx (tptr (Tstruct _mbedtls_hmac_drbg_context noattr))) ::
(Esizeof (Tstruct _mbedtls_hmac_drbg_context noattr) tuint) :: nil))))
@@ -1957,296 +1857,285 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
- (_free, Gfun(External EF_free (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
- (_malloc,
- Gfun(External EF_malloc (Tcons tuint Tnil) (tptr tvoid) cc_default)) ::
(_memcpy,
Gfun(External (EF_external "memcpy"
- (mksignature (AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tint cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) (Tcons tuint Tnil)))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: AST.Xint :: nil)
+ AST.Xptr cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: nil) (tptr tvoid) cc_default)) ::
(_memset,
Gfun(External (EF_external "memset"
- (mksignature (AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tint cc_default))
- (Tcons (tptr tvoid) (Tcons tint (Tcons tuint Tnil))) (tptr tvoid)
- cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xptr cc_default))
+ ((tptr tvoid) :: tint :: tuint :: nil) (tptr tvoid) cc_default)) ::
(_SHA256_Init,
Gfun(External (EF_external "SHA256_Init"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _SHA256state_st noattr)) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) :: nil) tvoid cc_default)) ::
(_SHA256_Update,
Gfun(External (EF_external "SHA256_Update"
- (mksignature (AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid) (Tcons tuint Tnil))) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) :: (tptr tvoid) :: tuint ::
+ nil) tvoid cc_default)) ::
(_SHA256_Final,
Gfun(External (EF_external "SHA256_Final"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
cc_default))
- (Tcons (tptr tuchar)
- (Tcons (tptr (Tstruct _SHA256state_st noattr)) Tnil)) tvoid
+ ((tptr tuchar) :: (tptr (Tstruct _SHA256state_st noattr)) :: nil) tvoid
cc_default)) :: (_HMAC_Init, Gfun(Internal f_HMAC_Init)) ::
(_HMAC_Update, Gfun(Internal f_HMAC_Update)) ::
(_HMAC_Final, Gfun(Internal f_HMAC_Final)) ::
@@ -2258,18 +2147,23 @@ Definition global_definitions : list (ident * globdef fundef type) :=
(_mbedtls_md_info_from_type, Gfun(Internal f_mbedtls_md_info_from_type)) ::
(_mbedtls_md_get_size, Gfun(Internal f_mbedtls_md_get_size)) ::
(_test_md_get_size, Gfun(Internal f_test_md_get_size)) ::
+ (_malloc,
+ Gfun(External EF_malloc nil tint
+ {|cc_vararg:=None; cc_unproto:=true; cc_structret:=false|})) ::
(_mbedtls_md_setup, Gfun(Internal f_mbedtls_md_setup)) ::
(_mbedtls_md_hmac_starts, Gfun(Internal f_mbedtls_md_hmac_starts)) ::
(_mbedtls_md_hmac_reset, Gfun(Internal f_mbedtls_md_hmac_reset)) ::
(_mbedtls_md_hmac_update, Gfun(Internal f_mbedtls_md_hmac_update)) ::
(_mbedtls_md_hmac_finish, Gfun(Internal f_mbedtls_md_hmac_finish)) ::
+ (_free,
+ Gfun(External EF_free nil tint
+ {|cc_vararg:=None; cc_unproto:=true; cc_structret:=false|})) ::
(_mbedtls_md_free, Gfun(Internal f_mbedtls_md_free)) ::
(_get_entropy,
Gfun(External (EF_external "get_entropy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tuchar) (Tcons tuint Tnil))
- tint cc_default)) ::
- (_mbedtls_zeroize, Gfun(Internal f_mbedtls_zeroize)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tuchar) :: tuint :: nil) tint
+ cc_default)) :: (_mbedtls_zeroize, Gfun(Internal f_mbedtls_zeroize)) ::
(_mbedtls_hmac_drbg_init, Gfun(Internal f_mbedtls_hmac_drbg_init)) ::
(_mbedtls_hmac_drbg_update, Gfun(Internal f_mbedtls_hmac_drbg_update)) ::
(_mbedtls_hmac_drbg_seed_buf, Gfun(Internal f_mbedtls_hmac_drbg_seed_buf)) ::
@@ -2291,25 +2185,26 @@ Definition public_idents : list ident :=
_mbedtls_hmac_drbg_set_prediction_resistance :: _mbedtls_hmac_drbg_seed ::
_mbedtls_hmac_drbg_reseed :: _mbedtls_hmac_drbg_seed_buf ::
_mbedtls_hmac_drbg_update :: _mbedtls_hmac_drbg_init :: _get_entropy ::
- _mbedtls_md_free :: _mbedtls_md_hmac_finish :: _mbedtls_md_hmac_update ::
- _mbedtls_md_hmac_reset :: _mbedtls_md_hmac_starts :: _mbedtls_md_setup ::
+ _mbedtls_md_free :: _free :: _mbedtls_md_hmac_finish ::
+ _mbedtls_md_hmac_update :: _mbedtls_md_hmac_reset ::
+ _mbedtls_md_hmac_starts :: _mbedtls_md_setup :: _malloc ::
_test_md_get_size :: _mbedtls_md_get_size :: _mbedtls_md_info_from_type ::
_mbedtls_md_info_from_string :: _HMAC2 :: _HMAC :: _HMAC_cleanup ::
_HMAC_Final :: _HMAC_Update :: _HMAC_Init :: _SHA256_Final ::
- _SHA256_Update :: _SHA256_Init :: _memset :: _memcpy :: _malloc :: _free ::
- ___builtin_debug :: ___builtin_write32_reversed ::
- ___builtin_write16_reversed :: ___builtin_read32_reversed ::
- ___builtin_read16_reversed :: ___builtin_fnmsub :: ___builtin_fnmadd ::
- ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_fmin ::
- ___builtin_fmax :: ___builtin_expect :: ___builtin_unreachable ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_sel :: ___builtin_memcpy_aligned ::
- ___builtin_sqrt :: ___builtin_fsqrt :: ___builtin_fabsf ::
- ___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ _SHA256_Update :: _SHA256_Init :: _memset :: _memcpy :: ___builtin_debug ::
+ ___builtin_write32_reversed :: ___builtin_write16_reversed ::
+ ___builtin_read32_reversed :: ___builtin_read16_reversed ::
+ ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
+ ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
+ ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
+ ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
+ ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
+ ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
+ ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
+ ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
+ ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
diff --git a/mailbox/atomic_exchange.c b/mailbox/atomic_exchange.c
index 02d6a6084b..9ad931f77f 100644
--- a/mailbox/atomic_exchange.c
+++ b/mailbox/atomic_exchange.c
@@ -1,7 +1,7 @@
#include "atomic_exchange.h"
//This could be replaced by an external call.
-int simulate_atomic_exchange(int *tgt, lock_t *l, int v){
+int simulate_atomic_exchange(int *tgt, lock_t l, int v){
int x;
acquire(l);
x = *tgt;
diff --git a/mailbox/atomic_exchange.h b/mailbox/atomic_exchange.h
index decc09567c..76f931ce4a 100644
--- a/mailbox/atomic_exchange.h
+++ b/mailbox/atomic_exchange.h
@@ -1,3 +1,3 @@
#include "../concurrency/threads.h"
-int simulate_atomic_exchange(int *tgt, lock_t *l, int v);
+int simulate_atomic_exchange(int *tgt, lock_t l, int v);
diff --git a/mailbox/atomic_exchange.v b/mailbox/atomic_exchange.v
index 9e0171e84e..a0c42c5f62 100644
--- a/mailbox/atomic_exchange.v
+++ b/mailbox/atomic_exchange.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.10".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "mailbox/atomic_exchange.c".
@@ -25,6 +25,9 @@ Definition ___builtin_bswap : ident := $"__builtin_bswap".
Definition ___builtin_bswap16 : ident := $"__builtin_bswap16".
Definition ___builtin_bswap32 : ident := $"__builtin_bswap32".
Definition ___builtin_bswap64 : ident := $"__builtin_bswap64".
+Definition ___builtin_cls : ident := $"__builtin_cls".
+Definition ___builtin_clsl : ident := $"__builtin_clsl".
+Definition ___builtin_clsll : ident := $"__builtin_clsll".
Definition ___builtin_clz : ident := $"__builtin_clz".
Definition ___builtin_clzl : ident := $"__builtin_clzl".
Definition ___builtin_clzll : ident := $"__builtin_clzll".
@@ -44,8 +47,6 @@ Definition ___builtin_fnmsub : ident := $"__builtin_fnmsub".
Definition ___builtin_fsqrt : ident := $"__builtin_fsqrt".
Definition ___builtin_membar : ident := $"__builtin_membar".
Definition ___builtin_memcpy_aligned : ident := $"__builtin_memcpy_aligned".
-Definition ___builtin_read16_reversed : ident := $"__builtin_read16_reversed".
-Definition ___builtin_read32_reversed : ident := $"__builtin_read32_reversed".
Definition ___builtin_sel : ident := $"__builtin_sel".
Definition ___builtin_sqrt : ident := $"__builtin_sqrt".
Definition ___builtin_unreachable : ident := $"__builtin_unreachable".
@@ -53,8 +54,6 @@ Definition ___builtin_va_arg : ident := $"__builtin_va_arg".
Definition ___builtin_va_copy : ident := $"__builtin_va_copy".
Definition ___builtin_va_end : ident := $"__builtin_va_end".
Definition ___builtin_va_start : ident := $"__builtin_va_start".
-Definition ___builtin_write16_reversed : ident := $"__builtin_write16_reversed".
-Definition ___builtin_write32_reversed : ident := $"__builtin_write32_reversed".
Definition ___compcert_i64_dtos : ident := $"__compcert_i64_dtos".
Definition ___compcert_i64_dtou : ident := $"__compcert_i64_dtou".
Definition ___compcert_i64_sar : ident := $"__compcert_i64_sar".
@@ -74,33 +73,13 @@ Definition ___compcert_va_composite : ident := $"__compcert_va_composite".
Definition ___compcert_va_float64 : ident := $"__compcert_va_float64".
Definition ___compcert_va_int32 : ident := $"__compcert_va_int32".
Definition ___compcert_va_int64 : ident := $"__compcert_va_int64".
-Definition ___dummy : ident := $"__dummy".
-Definition ___pthread_t : ident := $"__pthread_t".
Definition _acquire : ident := $"acquire".
-Definition _args : ident := $"args".
-Definition _atom_CAS : ident := $"atom_CAS".
Definition _atom_int : ident := $"atom_int".
-Definition _atom_store : ident := $"atom_store".
-Definition _b : ident := $"b".
-Definition _exit : ident := $"exit".
-Definition _exit_thread : ident := $"exit_thread".
-Definition _expected : ident := $"expected".
-Definition _f : ident := $"f".
-Definition _free_atomic : ident := $"free_atomic".
-Definition _freelock : ident := $"freelock".
Definition _l : ident := $"l".
-Definition _lock : ident := $"lock".
Definition _main : ident := $"main".
-Definition _make_atomic : ident := $"make_atomic".
-Definition _makelock : ident := $"makelock".
-Definition _r : ident := $"r".
Definition _release : ident := $"release".
Definition _simulate_atomic_exchange : ident := $"simulate_atomic_exchange".
-Definition _spawn : ident := $"spawn".
-Definition _t : ident := $"t".
Definition _tgt : ident := $"tgt".
-Definition _thrd_create : ident := $"thrd_create".
-Definition _thrd_exit : ident := $"thrd_exit".
Definition _v : ident := $"v".
Definition _x : ident := $"x".
@@ -114,7 +93,7 @@ Definition f_simulate_atomic_exchange := {|
fn_body :=
(Ssequence
(Scall None
- (Evar _acquire (Tfunction (Tcons (tptr (Tstruct _atom_int noattr)) Tnil)
+ (Evar _acquire (Tfunction ((tptr (Tstruct _atom_int noattr)) :: nil)
tvoid cc_default))
((Etempvar _l (tptr (Tstruct _atom_int noattr))) :: nil))
(Ssequence
@@ -124,8 +103,8 @@ Definition f_simulate_atomic_exchange := {|
(Ssequence
(Scall None
(Evar _release (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil)
- tvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _l (tptr (Tstruct _atom_int noattr))) :: nil))
(Sreturn (Some (Etempvar _x tint)))))))
|}.
@@ -136,282 +115,263 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_acquire,
Gfun(External (EF_external "acquire"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil) tvoid cc_default)) ::
(_release,
Gfun(External (EF_external "release"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil) tvoid cc_default)) ::
(_simulate_atomic_exchange, Gfun(Internal f_simulate_atomic_exchange)) ::
nil).
Definition public_idents : list ident :=
(_simulate_atomic_exchange :: _release :: _acquire :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fmin :: ___builtin_fmax :: ___builtin_fnmsub ::
+ ___builtin_fnmadd :: ___builtin_fmsub :: ___builtin_fmadd ::
+ ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
diff --git a/mailbox/mailbox.c b/mailbox/mailbox.c
index 13871f2625..0bdf6b1abf 100644
--- a/mailbox/mailbox.c
+++ b/mailbox/mailbox.c
@@ -1,4 +1,5 @@
//#include
+#include
#include "stdlib.h"
//#include
#include "atomic_exchange.h"
@@ -30,7 +31,7 @@ typedef int buf_id;
typedef struct buffer {int data;} buffer;
buffer *bufs[B];
-lock_t *lock[N];
+lock_t lock[N];
buf_id *comm[N];
//registrar function
@@ -66,7 +67,7 @@ void initialize_reader(int r){
buf_id start_read(int r){
buf_id b;
buf_id *c = comm[r];
- lock_t *l = lock[r];
+ lock_t l = lock[r];
buf_id *rr = reading[r];
buf_id *lr = last_read[r];
b = simulate_atomic_exchange(c, l, Empty);
@@ -123,7 +124,7 @@ void finish_write(){
buf_id w = writing;
for(int r = 0; r < N; r++){
buf_id *c = comm[r];
- lock_t *l = lock[r];
+ lock_t l = lock[r];
buf_id b = simulate_atomic_exchange(c, l, w);
if(b == Empty)
last_taken[r] = last;
diff --git a/mailbox/mailbox.v b/mailbox/mailbox.v
index 8b44ff54e1..0db696b06b 100644
--- a/mailbox/mailbox.v
+++ b/mailbox/mailbox.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.10".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "mailbox/mailbox.c".
@@ -25,6 +25,9 @@ Definition ___builtin_bswap : ident := $"__builtin_bswap".
Definition ___builtin_bswap16 : ident := $"__builtin_bswap16".
Definition ___builtin_bswap32 : ident := $"__builtin_bswap32".
Definition ___builtin_bswap64 : ident := $"__builtin_bswap64".
+Definition ___builtin_cls : ident := $"__builtin_cls".
+Definition ___builtin_clsl : ident := $"__builtin_clsl".
+Definition ___builtin_clsll : ident := $"__builtin_clsll".
Definition ___builtin_clz : ident := $"__builtin_clz".
Definition ___builtin_clzl : ident := $"__builtin_clzl".
Definition ___builtin_clzll : ident := $"__builtin_clzll".
@@ -44,8 +47,6 @@ Definition ___builtin_fnmsub : ident := $"__builtin_fnmsub".
Definition ___builtin_fsqrt : ident := $"__builtin_fsqrt".
Definition ___builtin_membar : ident := $"__builtin_membar".
Definition ___builtin_memcpy_aligned : ident := $"__builtin_memcpy_aligned".
-Definition ___builtin_read16_reversed : ident := $"__builtin_read16_reversed".
-Definition ___builtin_read32_reversed : ident := $"__builtin_read32_reversed".
Definition ___builtin_sel : ident := $"__builtin_sel".
Definition ___builtin_sqrt : ident := $"__builtin_sqrt".
Definition ___builtin_unreachable : ident := $"__builtin_unreachable".
@@ -53,8 +54,6 @@ Definition ___builtin_va_arg : ident := $"__builtin_va_arg".
Definition ___builtin_va_copy : ident := $"__builtin_va_copy".
Definition ___builtin_va_end : ident := $"__builtin_va_end".
Definition ___builtin_va_start : ident := $"__builtin_va_start".
-Definition ___builtin_write16_reversed : ident := $"__builtin_write16_reversed".
-Definition ___builtin_write32_reversed : ident := $"__builtin_write32_reversed".
Definition ___compcert_i64_dtos : ident := $"__compcert_i64_dtos".
Definition ___compcert_i64_dtou : ident := $"__compcert_i64_dtou".
Definition ___compcert_i64_sar : ident := $"__compcert_i64_sar".
@@ -74,14 +73,9 @@ Definition ___compcert_va_composite : ident := $"__compcert_va_composite".
Definition ___compcert_va_float64 : ident := $"__compcert_va_float64".
Definition ___compcert_va_int32 : ident := $"__compcert_va_int32".
Definition ___compcert_va_int64 : ident := $"__compcert_va_int64".
-Definition ___dummy : ident := $"__dummy".
-Definition ___pthread_t : ident := $"__pthread_t".
Definition _acquire : ident := $"acquire".
Definition _arg : ident := $"arg".
-Definition _args : ident := $"args".
-Definition _atom_CAS : ident := $"atom_CAS".
Definition _atom_int : ident := $"atom_int".
-Definition _atom_store : ident := $"atom_store".
Definition _avail : ident := $"avail".
Definition _available : ident := $"available".
Definition _b : ident := $"b".
@@ -93,13 +87,8 @@ Definition _comm : ident := $"comm".
Definition _d : ident := $"d".
Definition _data : ident := $"data".
Definition _exit : ident := $"exit".
-Definition _exit_thread : ident := $"exit_thread".
-Definition _expected : ident := $"expected".
-Definition _f : ident := $"f".
Definition _finish_read : ident := $"finish_read".
Definition _finish_write : ident := $"finish_write".
-Definition _free_atomic : ident := $"free_atomic".
-Definition _freelock : ident := $"freelock".
Definition _i : ident := $"i".
Definition _i__1 : ident := $"i__1".
Definition _initialize_channels : ident := $"initialize_channels".
@@ -113,7 +102,6 @@ Definition _last_taken : ident := $"last_taken".
Definition _lock : ident := $"lock".
Definition _lr : ident := $"lr".
Definition _main : ident := $"main".
-Definition _make_atomic : ident := $"make_atomic".
Definition _makelock : ident := $"makelock".
Definition _malloc : ident := $"malloc".
Definition _memset : ident := $"memset".
@@ -130,10 +118,7 @@ Definition _spawn : ident := $"spawn".
Definition _start_read : ident := $"start_read".
Definition _start_write : ident := $"start_write".
Definition _surely_malloc : ident := $"surely_malloc".
-Definition _t : ident := $"t".
Definition _tgt : ident := $"tgt".
-Definition _thrd_create : ident := $"thrd_create".
-Definition _thrd_exit : ident := $"thrd_exit".
Definition _v : ident := $"v".
Definition _w : ident := $"w".
Definition _writer : ident := $"writer".
@@ -156,12 +141,12 @@ Definition f_surely_malloc := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tulong Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (tulong :: nil) (tptr tvoid) cc_default))
((Etempvar _n tulong) :: nil))
(Sset _p (Etempvar _t'1 (tptr tvoid))))
(Ssequence
(Sifthenelse (Eunop Onotbool (Etempvar _p (tptr tvoid)) tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Sreturn (Some (Etempvar _p (tptr tvoid))))))
@@ -256,15 +241,14 @@ Definition f_initialize_channels := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _surely_malloc (Tfunction (Tcons tulong Tnil)
- (tptr tvoid) cc_default))
+ (Evar _surely_malloc (Tfunction (tulong :: nil) (tptr tvoid)
+ cc_default))
((Esizeof (Tstruct _buffer noattr) tulong) :: nil))
(Sset _b (Etempvar _t'1 (tptr tvoid))))
(Ssequence
(Scall None
(Evar _memset (Tfunction
- (Tcons (tptr tvoid)
- (Tcons tint (Tcons tulong Tnil)))
+ ((tptr tvoid) :: tint :: tulong :: nil)
(tptr tvoid) cc_default))
((Etempvar _b (tptr (Tstruct _buffer noattr))) ::
(Econst_int (Int.repr 0) tint) ::
@@ -289,8 +273,8 @@ Definition f_initialize_channels := {|
(Ssequence
(Ssequence
(Scall (Some _t'2)
- (Evar _surely_malloc (Tfunction (Tcons tulong Tnil)
- (tptr tvoid) cc_default))
+ (Evar _surely_malloc (Tfunction (tulong :: nil) (tptr tvoid)
+ cc_default))
((Esizeof tint tulong) :: nil))
(Sset _c (Etempvar _t'2 (tptr tvoid))))
(Ssequence
@@ -305,7 +289,7 @@ Definition f_initialize_channels := {|
(Ssequence
(Ssequence
(Scall (Some _t'3)
- (Evar _surely_malloc (Tfunction (Tcons tulong Tnil)
+ (Evar _surely_malloc (Tfunction (tulong :: nil)
(tptr tvoid) cc_default))
((Esizeof tint tulong) :: nil))
(Sset _c (Etempvar _t'3 (tptr tvoid))))
@@ -318,7 +302,7 @@ Definition f_initialize_channels := {|
(Ssequence
(Ssequence
(Scall (Some _t'4)
- (Evar _surely_malloc (Tfunction (Tcons tulong Tnil)
+ (Evar _surely_malloc (Tfunction (tulong :: nil)
(tptr tvoid) cc_default))
((Esizeof tint tulong) :: nil))
(Sset _c (Etempvar _t'4 (tptr tvoid))))
@@ -332,7 +316,7 @@ Definition f_initialize_channels := {|
(Ssequence
(Ssequence
(Scall (Some _t'5)
- (Evar _makelock (Tfunction Tnil
+ (Evar _makelock (Tfunction nil
(tptr (Tstruct _atom_int noattr))
cc_default)) nil)
(Sassign
@@ -353,9 +337,8 @@ Definition f_initialize_channels := {|
(tptr (Tstruct _atom_int noattr))))
(Scall None
(Evar _release (Tfunction
- (Tcons
- (tptr (Tstruct _atom_int noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) ::
+ nil) tvoid cc_default))
((Etempvar _t'6 (tptr (Tstruct _atom_int noattr))) ::
nil))))))))))))
(Sset _r
@@ -422,10 +405,9 @@ Definition f_start_read := {|
(Ssequence
(Scall (Some _t'1)
(Evar _simulate_atomic_exchange (Tfunction
- (Tcons (tptr tint)
- (Tcons
- (tptr (Tstruct _atom_int noattr))
- (Tcons tint Tnil))) tint
+ ((tptr tint) ::
+ (tptr (Tstruct _atom_int noattr)) ::
+ tint :: nil) tint
cc_default))
((Etempvar _c (tptr tint)) ::
(Etempvar _l (tptr (Tstruct _atom_int noattr))) ::
@@ -599,8 +581,7 @@ Definition f_start_write := {|
(Sset _i__1
(Ebinop Oadd (Etempvar _i__1 tint)
(Econst_int (Int.repr 1) tint) tint))))
- (Scall None
- (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil)))))))
|}.
@@ -644,11 +625,10 @@ Definition f_finish_write := {|
(Ssequence
(Scall (Some _t'1)
(Evar _simulate_atomic_exchange (Tfunction
- (Tcons (tptr tint)
- (Tcons
- (tptr (Tstruct _atom_int noattr))
- (Tcons tint Tnil)))
- tint cc_default))
+ ((tptr tint) ::
+ (tptr (Tstruct _atom_int noattr)) ::
+ tint :: nil) tint
+ cc_default))
((Etempvar _c (tptr tint)) ::
(Etempvar _l (tptr (Tstruct _atom_int noattr))) ::
(Etempvar _w tint) :: nil))
@@ -684,7 +664,7 @@ Definition f_reader := {|
(Sset _r (Ederef (Ecast (Etempvar _arg (tptr tvoid)) (tptr tint)) tint))
(Ssequence
(Scall None
- (Evar _initialize_reader (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Evar _initialize_reader (Tfunction (tint :: nil) tvoid cc_default))
((Etempvar _r tint) :: nil))
(Ssequence
(Sloop
@@ -693,8 +673,8 @@ Definition f_reader := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _start_read (Tfunction (Tcons tint Tnil) tint
- cc_default)) ((Etempvar _r tint) :: nil))
+ (Evar _start_read (Tfunction (tint :: nil) tint cc_default))
+ ((Etempvar _r tint) :: nil))
(Sset _b (Etempvar _t'1 tint)))
(Ssequence
(Sset _buf
@@ -710,7 +690,7 @@ Definition f_reader := {|
(Ederef (Etempvar _buf (tptr (Tstruct _buffer noattr)))
(Tstruct _buffer noattr)) _data tint))
(Scall None
- (Evar _finish_read (Tfunction (Tcons tint Tnil) tvoid
+ (Evar _finish_read (Tfunction (tint :: nil) tvoid
cc_default))
((Etempvar _r tint) :: nil))))))
Sskip)
@@ -727,8 +707,7 @@ Definition f_writer := {|
nil);
fn_body :=
(Ssequence
- (Scall None (Evar _initialize_writer (Tfunction Tnil tvoid cc_default))
- nil)
+ (Scall None (Evar _initialize_writer (Tfunction nil tvoid cc_default)) nil)
(Ssequence
(Sset _v (Econst_int (Int.repr 0) tint))
(Ssequence
@@ -738,7 +717,7 @@ Definition f_writer := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _start_write (Tfunction Tnil tint cc_default)) nil)
+ (Evar _start_write (Tfunction nil tint cc_default)) nil)
(Sset _b (Etempvar _t'1 tint)))
(Ssequence
(Sset _buf
@@ -756,7 +735,7 @@ Definition f_writer := {|
(Etempvar _v tuint))
(Ssequence
(Scall None
- (Evar _finish_write (Tfunction Tnil tvoid cc_default))
+ (Evar _finish_write (Tfunction nil tvoid cc_default))
nil)
(Sset _v
(Ebinop Oadd (Etempvar _v tuint)
@@ -775,20 +754,18 @@ Definition f_main := {|
fn_body :=
(Ssequence
(Ssequence
- (Scall None (Evar _initialize_channels (Tfunction Tnil tvoid cc_default))
+ (Scall None (Evar _initialize_channels (Tfunction nil tvoid cc_default))
nil)
(Ssequence
(Scall None
(Evar _spawn (Tfunction
- (Tcons
- (tptr (Tfunction (Tcons (tptr tvoid) Tnil) tint
- cc_default)) (Tcons (tptr tvoid) Tnil))
- tvoid cc_default))
+ ((tptr (Tfunction ((tptr tvoid) :: nil) tint
+ cc_default)) :: (tptr tvoid) :: nil) tvoid
+ cc_default))
((Ecast
(Eaddrof
- (Evar _writer (Tfunction (Tcons (tptr tvoid) Tnil) tint
- cc_default))
- (tptr (Tfunction (Tcons (tptr tvoid) Tnil) tint cc_default)))
+ (Evar _writer (Tfunction ((tptr tvoid) :: nil) tint cc_default))
+ (tptr (Tfunction ((tptr tvoid) :: nil) tint cc_default)))
(tptr tvoid)) ::
(Ecast (Econst_int (Int.repr 0) tint) (tptr tvoid)) :: nil))
(Ssequence
@@ -803,7 +780,7 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _surely_malloc (Tfunction (Tcons tulong Tnil)
+ (Evar _surely_malloc (Tfunction (tulong :: nil)
(tptr tvoid) cc_default))
((Esizeof tint tulong) :: nil))
(Sset _d (Etempvar _t'1 (tptr tvoid))))
@@ -812,17 +789,14 @@ Definition f_main := {|
(Etempvar _i tint))
(Scall None
(Evar _spawn (Tfunction
- (Tcons
- (tptr (Tfunction
- (Tcons (tptr tvoid) Tnil) tint
- cc_default))
- (Tcons (tptr tvoid) Tnil)) tvoid
- cc_default))
+ ((tptr (Tfunction ((tptr tvoid) :: nil)
+ tint cc_default)) ::
+ (tptr tvoid) :: nil) tvoid cc_default))
((Ecast
(Eaddrof
- (Evar _reader (Tfunction (Tcons (tptr tvoid) Tnil)
- tint cc_default))
- (tptr (Tfunction (Tcons (tptr tvoid) Tnil) tint
+ (Evar _reader (Tfunction ((tptr tvoid) :: nil) tint
+ cc_default))
+ (tptr (Tfunction ((tptr tvoid) :: nil) tint
cc_default))) (tptr tvoid)) ::
(Ecast (Etempvar _d (tptr tint)) (tptr tvoid)) :: nil)))))
(Sset _i
@@ -838,291 +812,271 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
+ (_malloc, Gfun(External EF_malloc (tulong :: nil) (tptr tvoid) cc_default)) ::
(_exit,
Gfun(External (EF_external "exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
- (_malloc,
- Gfun(External EF_malloc (Tcons tulong Tnil) (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
(_makelock,
Gfun(External (EF_external "makelock"
- (mksignature nil AST.Tlong cc_default)) Tnil
+ (mksignature nil AST.Xptr cc_default)) nil
(tptr (Tstruct _atom_int noattr)) cc_default)) ::
(_release,
Gfun(External (EF_external "release"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil) tvoid cc_default)) ::
(_spawn,
Gfun(External (EF_external "spawn"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
cc_default))
- (Tcons (tptr (Tfunction (Tcons (tptr tvoid) Tnil) tint cc_default))
- (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ ((tptr (Tfunction ((tptr tvoid) :: nil) tint cc_default)) ::
+ (tptr tvoid) :: nil) tvoid cc_default)) ::
(_simulate_atomic_exchange,
Gfun(External (EF_external "simulate_atomic_exchange"
- (mksignature (AST.Tlong :: AST.Tlong :: AST.Tint :: nil)
- AST.Tint cc_default))
- (Tcons (tptr tint)
- (Tcons (tptr (Tstruct _atom_int noattr)) (Tcons tint Tnil))) tint
+ (mksignature (AST.Xptr :: AST.Xptr :: AST.Xint :: nil)
+ AST.Xint cc_default))
+ ((tptr tint) :: (tptr (Tstruct _atom_int noattr)) :: tint :: nil) tint
cc_default)) :: (_surely_malloc, Gfun(Internal f_surely_malloc)) ::
(_memset, Gfun(Internal f_memset)) :: (_bufs, Gvar v_bufs) ::
(_lock, Gvar v_lock) :: (_comm, Gvar v_comm) ::
@@ -1145,26 +1099,25 @@ Definition public_idents : list ident :=
_finish_read :: _start_read :: _initialize_reader :: _initialize_channels ::
_last_read :: _reading :: _comm :: _lock :: _bufs :: _memset ::
_surely_malloc :: _simulate_atomic_exchange :: _spawn :: _release ::
- _makelock :: _malloc :: _exit :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
- ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
- ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
- ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
- ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
- ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
- ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
- ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
- ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ _makelock :: _exit :: _malloc :: ___builtin_debug :: ___builtin_fmin ::
+ ___builtin_fmax :: ___builtin_fnmsub :: ___builtin_fnmadd ::
+ ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_clsll ::
+ ___builtin_clsl :: ___builtin_cls :: ___builtin_expect ::
+ ___builtin_unreachable :: ___builtin_va_end :: ___builtin_va_copy ::
+ ___builtin_va_arg :: ___builtin_va_start :: ___builtin_membar ::
+ ___builtin_annot_intval :: ___builtin_annot :: ___builtin_sel ::
+ ___builtin_memcpy_aligned :: ___builtin_sqrt :: ___builtin_fsqrt ::
+ ___builtin_fabsf :: ___builtin_fabs :: ___builtin_ctzll ::
+ ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll :: ___builtin_clzl ::
+ ___builtin_clz :: ___builtin_bswap16 :: ___builtin_bswap32 ::
+ ___builtin_bswap :: ___builtin_bswap64 :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/mailbox/stdlib.h b/mailbox/stdlib.h
index 1f600e48af..df62d3ea35 100644
--- a/mailbox/stdlib.h
+++ b/mailbox/stdlib.h
@@ -1,4 +1,6 @@
#include
+#define NULL ((void*)0)
+
void *malloc(size_t size);
void exit(int ExitCode);
diff --git a/mc_reify/types.v b/mc_reify/types.v
index 1ec63150d3..9e51f8cc8d 100644
--- a/mc_reify/types.v
+++ b/mc_reify/types.v
@@ -83,7 +83,7 @@ Fixpoint typD (t : typ) (*(m : PositiveMap.t Type)*): Type :=
| tysignedness => signedness
| tyintsize => intsize
| tyfloatsize => floatsize
- | tytypelist => typelist
+ | tytypelist => list type
| tyfieldlist => fieldlist
| tybinary_operation => Cop.binary_operation
| tyunary_operation => Cop.unary_operation
diff --git a/progs/append.v b/progs/append.v
index 72914d1777..1d51ae9b80 100644
--- a/progs/append.v
+++ b/progs/append.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,70 +19,71 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 20%positive.
-Definition ___builtin_annot_intval : ident := 21%positive.
-Definition ___builtin_bswap : ident := 5%positive.
-Definition ___builtin_bswap16 : ident := 7%positive.
-Definition ___builtin_bswap32 : ident := 6%positive.
-Definition ___builtin_bswap64 : ident := 4%positive.
-Definition ___builtin_clz : ident := 8%positive.
-Definition ___builtin_clzl : ident := 9%positive.
-Definition ___builtin_clzll : ident := 10%positive.
-Definition ___builtin_ctz : ident := 11%positive.
-Definition ___builtin_ctzl : ident := 12%positive.
-Definition ___builtin_ctzll : ident := 13%positive.
-Definition ___builtin_debug : ident := 39%positive.
-Definition ___builtin_expect : ident := 28%positive.
-Definition ___builtin_fabs : ident := 14%positive.
-Definition ___builtin_fabsf : ident := 15%positive.
-Definition ___builtin_fmadd : ident := 31%positive.
-Definition ___builtin_fmax : ident := 29%positive.
-Definition ___builtin_fmin : ident := 30%positive.
-Definition ___builtin_fmsub : ident := 32%positive.
-Definition ___builtin_fnmadd : ident := 33%positive.
-Definition ___builtin_fnmsub : ident := 34%positive.
-Definition ___builtin_fsqrt : ident := 16%positive.
-Definition ___builtin_membar : ident := 22%positive.
-Definition ___builtin_memcpy_aligned : ident := 18%positive.
-Definition ___builtin_read16_reversed : ident := 35%positive.
-Definition ___builtin_read32_reversed : ident := 36%positive.
-Definition ___builtin_sel : ident := 19%positive.
-Definition ___builtin_sqrt : ident := 17%positive.
-Definition ___builtin_unreachable : ident := 27%positive.
-Definition ___builtin_va_arg : ident := 24%positive.
-Definition ___builtin_va_copy : ident := 25%positive.
-Definition ___builtin_va_end : ident := 26%positive.
-Definition ___builtin_va_start : ident := 23%positive.
-Definition ___builtin_write16_reversed : ident := 37%positive.
-Definition ___builtin_write32_reversed : ident := 38%positive.
-Definition ___compcert_i64_dtos : ident := 49%positive.
-Definition ___compcert_i64_dtou : ident := 50%positive.
-Definition ___compcert_i64_sar : ident := 61%positive.
-Definition ___compcert_i64_sdiv : ident := 55%positive.
-Definition ___compcert_i64_shl : ident := 59%positive.
-Definition ___compcert_i64_shr : ident := 60%positive.
-Definition ___compcert_i64_smod : ident := 57%positive.
-Definition ___compcert_i64_smulh : ident := 62%positive.
-Definition ___compcert_i64_stod : ident := 51%positive.
-Definition ___compcert_i64_stof : ident := 53%positive.
-Definition ___compcert_i64_udiv : ident := 56%positive.
-Definition ___compcert_i64_umod : ident := 58%positive.
-Definition ___compcert_i64_umulh : ident := 63%positive.
-Definition ___compcert_i64_utod : ident := 52%positive.
-Definition ___compcert_i64_utof : ident := 54%positive.
-Definition ___compcert_va_composite : ident := 48%positive.
-Definition ___compcert_va_float64 : ident := 47%positive.
-Definition ___compcert_va_int32 : ident := 45%positive.
-Definition ___compcert_va_int64 : ident := 46%positive.
-Definition _append : ident := 44%positive.
+Definition ___builtin_ais_annot : ident := 4%positive.
+Definition ___builtin_annot : ident := 21%positive.
+Definition ___builtin_annot_intval : ident := 22%positive.
+Definition ___builtin_bswap : ident := 6%positive.
+Definition ___builtin_bswap16 : ident := 8%positive.
+Definition ___builtin_bswap32 : ident := 7%positive.
+Definition ___builtin_bswap64 : ident := 5%positive.
+Definition ___builtin_clz : ident := 9%positive.
+Definition ___builtin_clzl : ident := 10%positive.
+Definition ___builtin_clzll : ident := 11%positive.
+Definition ___builtin_ctz : ident := 12%positive.
+Definition ___builtin_ctzl : ident := 13%positive.
+Definition ___builtin_ctzll : ident := 14%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 29%positive.
+Definition ___builtin_fabs : ident := 15%positive.
+Definition ___builtin_fabsf : ident := 16%positive.
+Definition ___builtin_fmadd : ident := 32%positive.
+Definition ___builtin_fmax : ident := 30%positive.
+Definition ___builtin_fmin : ident := 31%positive.
+Definition ___builtin_fmsub : ident := 33%positive.
+Definition ___builtin_fnmadd : ident := 34%positive.
+Definition ___builtin_fnmsub : ident := 35%positive.
+Definition ___builtin_fsqrt : ident := 17%positive.
+Definition ___builtin_membar : ident := 23%positive.
+Definition ___builtin_memcpy_aligned : ident := 19%positive.
+Definition ___builtin_read16_reversed : ident := 36%positive.
+Definition ___builtin_read32_reversed : ident := 37%positive.
+Definition ___builtin_sel : ident := 20%positive.
+Definition ___builtin_sqrt : ident := 18%positive.
+Definition ___builtin_unreachable : ident := 28%positive.
+Definition ___builtin_va_arg : ident := 25%positive.
+Definition ___builtin_va_copy : ident := 26%positive.
+Definition ___builtin_va_end : ident := 27%positive.
+Definition ___builtin_va_start : ident := 24%positive.
+Definition ___builtin_write16_reversed : ident := 38%positive.
+Definition ___builtin_write32_reversed : ident := 39%positive.
+Definition ___compcert_i64_dtos : ident := 50%positive.
+Definition ___compcert_i64_dtou : ident := 51%positive.
+Definition ___compcert_i64_sar : ident := 62%positive.
+Definition ___compcert_i64_sdiv : ident := 56%positive.
+Definition ___compcert_i64_shl : ident := 60%positive.
+Definition ___compcert_i64_shr : ident := 61%positive.
+Definition ___compcert_i64_smod : ident := 58%positive.
+Definition ___compcert_i64_smulh : ident := 63%positive.
+Definition ___compcert_i64_stod : ident := 52%positive.
+Definition ___compcert_i64_stof : ident := 54%positive.
+Definition ___compcert_i64_udiv : ident := 57%positive.
+Definition ___compcert_i64_umod : ident := 59%positive.
+Definition ___compcert_i64_umulh : ident := 64%positive.
+Definition ___compcert_i64_utod : ident := 53%positive.
+Definition ___compcert_i64_utof : ident := 55%positive.
+Definition ___compcert_va_composite : ident := 49%positive.
+Definition ___compcert_va_float64 : ident := 48%positive.
+Definition ___compcert_va_int32 : ident := 46%positive.
+Definition ___compcert_va_int64 : ident := 47%positive.
+Definition _append : ident := 45%positive.
Definition _head : ident := 2%positive.
Definition _list : ident := 1%positive.
-Definition _main : ident := 64%positive.
-Definition _t : ident := 42%positive.
+Definition _main : ident := 65%positive.
+Definition _t : ident := 43%positive.
Definition _tail : ident := 3%positive.
-Definition _u : ident := 43%positive.
-Definition _x : ident := 40%positive.
-Definition _y : ident := 41%positive.
+Definition _u : ident := 44%positive.
+Definition _x : ident := 41%positive.
+Definition _y : ident := 42%positive.
Definition f_append := {|
fn_return := (tptr (Tstruct _list noattr));
@@ -132,264 +133,259 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_append, Gfun(Internal f_append)) :: nil).
@@ -406,12 +402,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/bin_search.v b/progs/bin_search.v
index d87dbcbc95..8e65929fe7 100644
--- a/progs/bin_search.v
+++ b/progs/bin_search.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,72 +19,73 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 51%positive.
-Definition ___compcert_i64_dtou : ident := 52%positive.
-Definition ___compcert_i64_sar : ident := 63%positive.
-Definition ___compcert_i64_sdiv : ident := 57%positive.
-Definition ___compcert_i64_shl : ident := 61%positive.
-Definition ___compcert_i64_shr : ident := 62%positive.
-Definition ___compcert_i64_smod : ident := 59%positive.
-Definition ___compcert_i64_smulh : ident := 64%positive.
-Definition ___compcert_i64_stod : ident := 53%positive.
-Definition ___compcert_i64_stof : ident := 55%positive.
-Definition ___compcert_i64_udiv : ident := 58%positive.
-Definition ___compcert_i64_umod : ident := 60%positive.
-Definition ___compcert_i64_umulh : ident := 65%positive.
-Definition ___compcert_i64_utod : ident := 54%positive.
-Definition ___compcert_i64_utof : ident := 56%positive.
-Definition ___compcert_va_composite : ident := 50%positive.
-Definition ___compcert_va_float64 : ident := 49%positive.
-Definition ___compcert_va_int32 : ident := 47%positive.
-Definition ___compcert_va_int64 : ident := 48%positive.
-Definition _a : ident := 37%positive.
-Definition _four : ident := 44%positive.
-Definition _hi : ident := 40%positive.
-Definition _lo : ident := 39%positive.
-Definition _main : ident := 46%positive.
-Definition _mid : ident := 41%positive.
-Definition _s : ident := 45%positive.
-Definition _search : ident := 43%positive.
-Definition _tgt : ident := 38%positive.
-Definition _val : ident := 42%positive.
-Definition _t'1 : ident := 66%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 52%positive.
+Definition ___compcert_i64_dtou : ident := 53%positive.
+Definition ___compcert_i64_sar : ident := 64%positive.
+Definition ___compcert_i64_sdiv : ident := 58%positive.
+Definition ___compcert_i64_shl : ident := 62%positive.
+Definition ___compcert_i64_shr : ident := 63%positive.
+Definition ___compcert_i64_smod : ident := 60%positive.
+Definition ___compcert_i64_smulh : ident := 65%positive.
+Definition ___compcert_i64_stod : ident := 54%positive.
+Definition ___compcert_i64_stof : ident := 56%positive.
+Definition ___compcert_i64_udiv : ident := 59%positive.
+Definition ___compcert_i64_umod : ident := 61%positive.
+Definition ___compcert_i64_umulh : ident := 66%positive.
+Definition ___compcert_i64_utod : ident := 55%positive.
+Definition ___compcert_i64_utof : ident := 57%positive.
+Definition ___compcert_va_composite : ident := 51%positive.
+Definition ___compcert_va_float64 : ident := 50%positive.
+Definition ___compcert_va_int32 : ident := 48%positive.
+Definition ___compcert_va_int64 : ident := 49%positive.
+Definition _a : ident := 38%positive.
+Definition _four : ident := 45%positive.
+Definition _hi : ident := 41%positive.
+Definition _lo : ident := 40%positive.
+Definition _main : ident := 47%positive.
+Definition _mid : ident := 42%positive.
+Definition _s : ident := 46%positive.
+Definition _search : ident := 44%positive.
+Definition _tgt : ident := 39%positive.
+Definition _val : ident := 43%positive.
+Definition _t'1 : ident := 67%positive.
Definition f_search := {|
fn_return := tint;
@@ -138,10 +139,8 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _search (Tfunction
- (Tcons (tptr tint)
- (Tcons tint (Tcons tint (Tcons tint Tnil)))) tint
- cc_default))
+ (Evar _search (Tfunction ((tptr tint) :: tint :: tint :: tint :: nil)
+ tint cc_default))
((Evar _four (tarray tint 4)) :: (Econst_int (Int.repr 3) tint) ::
(Econst_int (Int.repr 0) tint) :: (Econst_int (Int.repr 4) tint) ::
nil))
@@ -156,264 +155,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_search, Gfun(Internal f_search)) :: (_four, Gvar v_four) ::
(_main, Gfun(Internal f_main)) :: nil).
@@ -432,13 +426,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/bst.v b/progs/bst.v
index a75c290e4c..d7fc056d76 100644
--- a/progs/bst.v
+++ b/progs/bst.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,95 +19,96 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 22%positive.
-Definition ___builtin_annot_intval : ident := 23%positive.
-Definition ___builtin_bswap : ident := 7%positive.
-Definition ___builtin_bswap16 : ident := 9%positive.
-Definition ___builtin_bswap32 : ident := 8%positive.
-Definition ___builtin_bswap64 : ident := 6%positive.
-Definition ___builtin_clz : ident := 10%positive.
-Definition ___builtin_clzl : ident := 11%positive.
-Definition ___builtin_clzll : ident := 12%positive.
-Definition ___builtin_ctz : ident := 13%positive.
-Definition ___builtin_ctzl : ident := 14%positive.
-Definition ___builtin_ctzll : ident := 15%positive.
-Definition ___builtin_debug : ident := 41%positive.
-Definition ___builtin_expect : ident := 30%positive.
-Definition ___builtin_fabs : ident := 16%positive.
-Definition ___builtin_fabsf : ident := 17%positive.
-Definition ___builtin_fmadd : ident := 33%positive.
-Definition ___builtin_fmax : ident := 31%positive.
-Definition ___builtin_fmin : ident := 32%positive.
-Definition ___builtin_fmsub : ident := 34%positive.
-Definition ___builtin_fnmadd : ident := 35%positive.
-Definition ___builtin_fnmsub : ident := 36%positive.
-Definition ___builtin_fsqrt : ident := 18%positive.
-Definition ___builtin_membar : ident := 24%positive.
-Definition ___builtin_memcpy_aligned : ident := 20%positive.
-Definition ___builtin_read16_reversed : ident := 37%positive.
-Definition ___builtin_read32_reversed : ident := 38%positive.
-Definition ___builtin_sel : ident := 21%positive.
-Definition ___builtin_sqrt : ident := 19%positive.
-Definition ___builtin_unreachable : ident := 29%positive.
-Definition ___builtin_va_arg : ident := 26%positive.
-Definition ___builtin_va_copy : ident := 27%positive.
-Definition ___builtin_va_end : ident := 28%positive.
-Definition ___builtin_va_start : ident := 25%positive.
-Definition ___builtin_write16_reversed : ident := 39%positive.
-Definition ___builtin_write32_reversed : ident := 40%positive.
-Definition ___compcert_i64_dtos : ident := 74%positive.
-Definition ___compcert_i64_dtou : ident := 75%positive.
-Definition ___compcert_i64_sar : ident := 86%positive.
-Definition ___compcert_i64_sdiv : ident := 80%positive.
-Definition ___compcert_i64_shl : ident := 84%positive.
-Definition ___compcert_i64_shr : ident := 85%positive.
-Definition ___compcert_i64_smod : ident := 82%positive.
-Definition ___compcert_i64_smulh : ident := 87%positive.
-Definition ___compcert_i64_stod : ident := 76%positive.
-Definition ___compcert_i64_stof : ident := 78%positive.
-Definition ___compcert_i64_udiv : ident := 81%positive.
-Definition ___compcert_i64_umod : ident := 83%positive.
-Definition ___compcert_i64_umulh : ident := 88%positive.
-Definition ___compcert_i64_utod : ident := 77%positive.
-Definition ___compcert_i64_utof : ident := 79%positive.
-Definition ___compcert_va_composite : ident := 73%positive.
-Definition ___compcert_va_float64 : ident := 72%positive.
-Definition ___compcert_va_int32 : ident := 70%positive.
-Definition ___compcert_va_int64 : ident := 71%positive.
-Definition ___stringlit_1 : ident := 65%positive.
-Definition ___stringlit_2 : ident := 66%positive.
-Definition ___stringlit_3 : ident := 67%positive.
-Definition ___stringlit_4 : ident := 68%positive.
-Definition __l : ident := 55%positive.
-Definition _b : ident := 49%positive.
-Definition _delete : ident := 62%positive.
-Definition _freeN : ident := 43%positive.
-Definition _insert : ident := 54%positive.
+Definition ___builtin_ais_annot : ident := 6%positive.
+Definition ___builtin_annot : ident := 23%positive.
+Definition ___builtin_annot_intval : ident := 24%positive.
+Definition ___builtin_bswap : ident := 8%positive.
+Definition ___builtin_bswap16 : ident := 10%positive.
+Definition ___builtin_bswap32 : ident := 9%positive.
+Definition ___builtin_bswap64 : ident := 7%positive.
+Definition ___builtin_clz : ident := 11%positive.
+Definition ___builtin_clzl : ident := 12%positive.
+Definition ___builtin_clzll : ident := 13%positive.
+Definition ___builtin_ctz : ident := 14%positive.
+Definition ___builtin_ctzl : ident := 15%positive.
+Definition ___builtin_ctzll : ident := 16%positive.
+Definition ___builtin_debug : ident := 42%positive.
+Definition ___builtin_expect : ident := 31%positive.
+Definition ___builtin_fabs : ident := 17%positive.
+Definition ___builtin_fabsf : ident := 18%positive.
+Definition ___builtin_fmadd : ident := 34%positive.
+Definition ___builtin_fmax : ident := 32%positive.
+Definition ___builtin_fmin : ident := 33%positive.
+Definition ___builtin_fmsub : ident := 35%positive.
+Definition ___builtin_fnmadd : ident := 36%positive.
+Definition ___builtin_fnmsub : ident := 37%positive.
+Definition ___builtin_fsqrt : ident := 19%positive.
+Definition ___builtin_membar : ident := 25%positive.
+Definition ___builtin_memcpy_aligned : ident := 21%positive.
+Definition ___builtin_read16_reversed : ident := 38%positive.
+Definition ___builtin_read32_reversed : ident := 39%positive.
+Definition ___builtin_sel : ident := 22%positive.
+Definition ___builtin_sqrt : ident := 20%positive.
+Definition ___builtin_unreachable : ident := 30%positive.
+Definition ___builtin_va_arg : ident := 27%positive.
+Definition ___builtin_va_copy : ident := 28%positive.
+Definition ___builtin_va_end : ident := 29%positive.
+Definition ___builtin_va_start : ident := 26%positive.
+Definition ___builtin_write16_reversed : ident := 40%positive.
+Definition ___builtin_write32_reversed : ident := 41%positive.
+Definition ___compcert_i64_dtos : ident := 75%positive.
+Definition ___compcert_i64_dtou : ident := 76%positive.
+Definition ___compcert_i64_sar : ident := 87%positive.
+Definition ___compcert_i64_sdiv : ident := 81%positive.
+Definition ___compcert_i64_shl : ident := 85%positive.
+Definition ___compcert_i64_shr : ident := 86%positive.
+Definition ___compcert_i64_smod : ident := 83%positive.
+Definition ___compcert_i64_smulh : ident := 88%positive.
+Definition ___compcert_i64_stod : ident := 77%positive.
+Definition ___compcert_i64_stof : ident := 79%positive.
+Definition ___compcert_i64_udiv : ident := 82%positive.
+Definition ___compcert_i64_umod : ident := 84%positive.
+Definition ___compcert_i64_umulh : ident := 89%positive.
+Definition ___compcert_i64_utod : ident := 78%positive.
+Definition ___compcert_i64_utof : ident := 80%positive.
+Definition ___compcert_va_composite : ident := 74%positive.
+Definition ___compcert_va_float64 : ident := 73%positive.
+Definition ___compcert_va_int32 : ident := 71%positive.
+Definition ___compcert_va_int64 : ident := 72%positive.
+Definition ___stringlit_1 : ident := 66%positive.
+Definition ___stringlit_2 : ident := 67%positive.
+Definition ___stringlit_3 : ident := 68%positive.
+Definition ___stringlit_4 : ident := 69%positive.
+Definition __l : ident := 56%positive.
+Definition _b : ident := 50%positive.
+Definition _delete : ident := 63%positive.
+Definition _freeN : ident := 44%positive.
+Definition _insert : ident := 55%positive.
Definition _key : ident := 2%positive.
-Definition _l : ident := 56%positive.
+Definition _l : ident := 57%positive.
Definition _left : ident := 4%positive.
-Definition _lookup : ident := 64%positive.
-Definition _main : ident := 69%positive.
-Definition _mallocN : ident := 42%positive.
-Definition _mid : ident := 58%positive.
-Definition _p : ident := 44%positive.
-Definition _pa : ident := 46%positive.
-Definition _pb : ident := 47%positive.
-Definition _pushdown_left : ident := 61%positive.
-Definition _q : ident := 60%positive.
-Definition _r : ident := 57%positive.
+Definition _lookup : ident := 65%positive.
+Definition _main : ident := 70%positive.
+Definition _mallocN : ident := 43%positive.
+Definition _mid : ident := 59%positive.
+Definition _p : ident := 45%positive.
+Definition _pa : ident := 47%positive.
+Definition _pb : ident := 48%positive.
+Definition _pushdown_left : ident := 62%positive.
+Definition _q : ident := 61%positive.
+Definition _r : ident := 58%positive.
Definition _right : ident := 5%positive.
-Definition _t : ident := 50%positive.
+Definition _t : ident := 51%positive.
Definition _tree : ident := 1%positive.
-Definition _tree_free : ident := 48%positive.
-Definition _treebox_free : ident := 51%positive.
-Definition _treebox_new : ident := 45%positive.
-Definition _turn_left : ident := 59%positive.
-Definition _v : ident := 63%positive.
+Definition _tree_free : ident := 49%positive.
+Definition _treebox_free : ident := 52%positive.
+Definition _treebox_new : ident := 46%positive.
+Definition _turn_left : ident := 60%positive.
+Definition _v : ident := 64%positive.
Definition _value : ident := 3%positive.
-Definition _x : ident := 52%positive.
-Definition _y : ident := 53%positive.
-Definition _t'1 : ident := 89%positive.
+Definition _x : ident := 53%positive.
+Definition _y : ident := 54%positive.
+Definition _t'1 : ident := 90%positive.
Definition v___stringlit_3 := {|
gvar_info := (tarray tschar 5);
@@ -154,7 +155,7 @@ Definition f_treebox_new := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _mallocN (Tfunction (Tcons tint Tnil) (tptr tvoid) cc_default))
+ (Evar _mallocN (Tfunction (tint :: nil) (tptr tvoid) cc_default))
((Esizeof (tptr (Tstruct _tree noattr)) tuint) :: nil))
(Sset _p
(Ecast (Etempvar _t'1 (tptr tvoid))
@@ -189,20 +190,20 @@ Definition f_tree_free := {|
(Tstruct _tree noattr)) _right (tptr (Tstruct _tree noattr))))
(Ssequence
(Scall None
- (Evar _freeN (Tfunction (Tcons (tptr tvoid) (Tcons tint Tnil))
- tvoid cc_default))
+ (Evar _freeN (Tfunction ((tptr tvoid) :: tint :: nil) tvoid
+ cc_default))
((Etempvar _p (tptr (Tstruct _tree noattr))) ::
(Esizeof (Tstruct _tree noattr) tuint) :: nil))
(Ssequence
(Scall None
(Evar _tree_free (Tfunction
- (Tcons (tptr (Tstruct _tree noattr)) Tnil)
- tvoid cc_default))
+ ((tptr (Tstruct _tree noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _pa (tptr (Tstruct _tree noattr))) :: nil))
(Scall None
(Evar _tree_free (Tfunction
- (Tcons (tptr (Tstruct _tree noattr)) Tnil)
- tvoid cc_default))
+ ((tptr (Tstruct _tree noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _pb (tptr (Tstruct _tree noattr))) :: nil))))))
Sskip)
|}.
@@ -220,12 +221,11 @@ Definition f_treebox_free := {|
(tptr (Tstruct _tree noattr))))
(Ssequence
(Scall None
- (Evar _tree_free (Tfunction (Tcons (tptr (Tstruct _tree noattr)) Tnil)
+ (Evar _tree_free (Tfunction ((tptr (Tstruct _tree noattr)) :: nil)
tvoid cc_default))
((Etempvar _t (tptr (Tstruct _tree noattr))) :: nil))
(Scall None
- (Evar _freeN (Tfunction (Tcons (tptr tvoid) (Tcons tint Tnil)) tvoid
- cc_default))
+ (Evar _freeN (Tfunction ((tptr tvoid) :: tint :: nil) tvoid cc_default))
((Etempvar _b (tptr (tptr (Tstruct _tree noattr)))) ::
(Esizeof (tptr (Tstruct _tree noattr)) tuint) :: nil))))
|}.
@@ -252,7 +252,7 @@ Definition f_insert := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _mallocN (Tfunction (Tcons tint Tnil) (tptr tvoid)
+ (Evar _mallocN (Tfunction (tint :: nil) (tptr tvoid)
cc_default))
((Esizeof (Tstruct _tree noattr) tuint) :: nil))
(Sset _p
@@ -391,8 +391,7 @@ Definition f_pushdown_left := {|
(Etempvar _q (tptr (Tstruct _tree noattr))))
(Ssequence
(Scall None
- (Evar _freeN (Tfunction
- (Tcons (tptr tvoid) (Tcons tint Tnil)) tvoid
+ (Evar _freeN (Tfunction ((tptr tvoid) :: tint :: nil) tvoid
cc_default))
((Etempvar _p (tptr (Tstruct _tree noattr))) ::
(Esizeof (Tstruct _tree noattr) tuint) :: nil))
@@ -400,10 +399,10 @@ Definition f_pushdown_left := {|
(Ssequence
(Scall None
(Evar _turn_left (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons (tptr (Tstruct _tree noattr))
- (Tcons (tptr (Tstruct _tree noattr))
- Tnil))) tvoid cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) ::
+ (tptr (Tstruct _tree noattr)) ::
+ (tptr (Tstruct _tree noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _t (tptr (tptr (Tstruct _tree noattr)))) ::
(Etempvar _p (tptr (Tstruct _tree noattr))) ::
(Etempvar _q (tptr (Tstruct _tree noattr))) :: nil))
@@ -462,9 +461,8 @@ Definition f_delete := {|
(Ssequence
(Scall None
(Evar _pushdown_left (Tfunction
- (Tcons
- (tptr (tptr (Tstruct _tree noattr)))
- Tnil) tvoid cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) ::
+ nil) tvoid cc_default))
((Etempvar _t (tptr (tptr (Tstruct _tree noattr)))) :: nil))
(Sreturn None))))))))
Sskip)
@@ -525,52 +523,47 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _treebox_new (Tfunction Tnil
+ (Evar _treebox_new (Tfunction nil
(tptr (tptr (Tstruct _tree noattr))) cc_default))
nil)
(Sset _p (Etempvar _t'1 (tptr (tptr (Tstruct _tree noattr))))))
(Ssequence
(Scall None
(Evar _insert (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons tint (Tcons (tptr tvoid) Tnil))) tvoid
- cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) :: tint ::
+ (tptr tvoid) :: nil) tvoid cc_default))
((Etempvar _p (tptr (tptr (Tstruct _tree noattr)))) ::
(Econst_int (Int.repr 3) tint) ::
(Evar ___stringlit_1 (tarray tschar 6)) :: nil))
(Ssequence
(Scall None
(Evar _insert (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons tint (Tcons (tptr tvoid) Tnil))) tvoid
- cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) :: tint ::
+ (tptr tvoid) :: nil) tvoid cc_default))
((Etempvar _p (tptr (tptr (Tstruct _tree noattr)))) ::
(Econst_int (Int.repr 1) tint) ::
(Evar ___stringlit_2 (tarray tschar 4)) :: nil))
(Ssequence
(Scall None
(Evar _insert (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons tint (Tcons (tptr tvoid) Tnil))) tvoid
- cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) :: tint ::
+ (tptr tvoid) :: nil) tvoid cc_default))
((Etempvar _p (tptr (tptr (Tstruct _tree noattr)))) ::
(Econst_int (Int.repr 4) tint) ::
(Evar ___stringlit_3 (tarray tschar 5)) :: nil))
(Ssequence
(Scall None
(Evar _insert (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons tint (Tcons (tptr tvoid) Tnil))) tvoid
- cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) ::
+ tint :: (tptr tvoid) :: nil) tvoid cc_default))
((Etempvar _p (tptr (tptr (Tstruct _tree noattr)))) ::
(Econst_int (Int.repr 1) tint) ::
(Evar ___stringlit_4 (tarray tschar 4)) :: nil))
(Ssequence
(Scall None
(Evar _treebox_free (Tfunction
- (Tcons
- (tptr (tptr (Tstruct _tree noattr)))
- Tnil) tvoid cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) ::
+ nil) tvoid cc_default))
((Etempvar _p (tptr (tptr (Tstruct _tree noattr)))) :: nil))
(Sreturn (Some (Econst_int (Int.repr 0) tint)))))))))
(Sreturn (Some (Econst_int (Int.repr 0) tint))))
@@ -586,277 +579,272 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) :: (___stringlit_3, Gvar v___stringlit_3) ::
(___stringlit_1, Gvar v___stringlit_1) ::
(___stringlit_4, Gvar v___stringlit_4) ::
(___stringlit_2, Gvar v___stringlit_2) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_mallocN,
Gfun(External (EF_external "mallocN"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tint Tnil) (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xptr cc_default))
+ (tint :: nil) (tptr tvoid) cc_default)) ::
(_freeN,
Gfun(External (EF_external "freeN"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tint Tnil))
- tvoid cc_default)) :: (_treebox_new, Gfun(Internal f_treebox_new)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tint :: nil) tvoid
+ cc_default)) :: (_treebox_new, Gfun(Internal f_treebox_new)) ::
(_tree_free, Gfun(Internal f_tree_free)) ::
(_treebox_free, Gfun(Internal f_treebox_free)) ::
(_insert, Gfun(Internal f_insert)) ::
@@ -880,12 +868,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/bst_oo.v b/progs/bst_oo.v
index 39f1bc9e5f..8b29f7b5d0 100644
--- a/progs/bst_oo.v
+++ b/progs/bst_oo.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,96 +19,97 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 22%positive.
-Definition ___builtin_annot_intval : ident := 23%positive.
-Definition ___builtin_bswap : ident := 7%positive.
-Definition ___builtin_bswap16 : ident := 9%positive.
-Definition ___builtin_bswap32 : ident := 8%positive.
-Definition ___builtin_bswap64 : ident := 6%positive.
-Definition ___builtin_clz : ident := 10%positive.
-Definition ___builtin_clzl : ident := 11%positive.
-Definition ___builtin_clzll : ident := 12%positive.
-Definition ___builtin_ctz : ident := 13%positive.
-Definition ___builtin_ctzl : ident := 14%positive.
-Definition ___builtin_ctzll : ident := 15%positive.
-Definition ___builtin_debug : ident := 41%positive.
-Definition ___builtin_expect : ident := 30%positive.
-Definition ___builtin_fabs : ident := 16%positive.
-Definition ___builtin_fabsf : ident := 17%positive.
-Definition ___builtin_fmadd : ident := 33%positive.
-Definition ___builtin_fmax : ident := 31%positive.
-Definition ___builtin_fmin : ident := 32%positive.
-Definition ___builtin_fmsub : ident := 34%positive.
-Definition ___builtin_fnmadd : ident := 35%positive.
-Definition ___builtin_fnmsub : ident := 36%positive.
-Definition ___builtin_fsqrt : ident := 18%positive.
-Definition ___builtin_membar : ident := 24%positive.
-Definition ___builtin_memcpy_aligned : ident := 20%positive.
-Definition ___builtin_read16_reversed : ident := 37%positive.
-Definition ___builtin_read32_reversed : ident := 38%positive.
-Definition ___builtin_sel : ident := 21%positive.
-Definition ___builtin_sqrt : ident := 19%positive.
-Definition ___builtin_unreachable : ident := 29%positive.
-Definition ___builtin_va_arg : ident := 26%positive.
-Definition ___builtin_va_copy : ident := 27%positive.
-Definition ___builtin_va_end : ident := 28%positive.
-Definition ___builtin_va_start : ident := 25%positive.
-Definition ___builtin_write16_reversed : ident := 39%positive.
-Definition ___builtin_write32_reversed : ident := 40%positive.
-Definition ___compcert_i64_dtos : ident := 75%positive.
-Definition ___compcert_i64_dtou : ident := 76%positive.
-Definition ___compcert_i64_sar : ident := 87%positive.
-Definition ___compcert_i64_sdiv : ident := 81%positive.
-Definition ___compcert_i64_shl : ident := 85%positive.
-Definition ___compcert_i64_shr : ident := 86%positive.
-Definition ___compcert_i64_smod : ident := 83%positive.
-Definition ___compcert_i64_smulh : ident := 88%positive.
-Definition ___compcert_i64_stod : ident := 77%positive.
-Definition ___compcert_i64_stof : ident := 79%positive.
-Definition ___compcert_i64_udiv : ident := 82%positive.
-Definition ___compcert_i64_umod : ident := 84%positive.
-Definition ___compcert_i64_umulh : ident := 89%positive.
-Definition ___compcert_i64_utod : ident := 78%positive.
-Definition ___compcert_i64_utof : ident := 80%positive.
-Definition ___compcert_va_composite : ident := 74%positive.
-Definition ___compcert_va_float64 : ident := 73%positive.
-Definition ___compcert_va_int32 : ident := 71%positive.
-Definition ___compcert_va_int64 : ident := 72%positive.
-Definition ___stringlit_1 : ident := 66%positive.
-Definition ___stringlit_2 : ident := 67%positive.
-Definition ___stringlit_3 : ident := 68%positive.
-Definition ___stringlit_4 : ident := 69%positive.
-Definition __l : ident := 58%positive.
-Definition _b : ident := 49%positive.
-Definition _delete : ident := 65%positive.
-Definition _freeN : ident := 43%positive.
-Definition _get : ident := 57%positive.
+Definition ___builtin_ais_annot : ident := 6%positive.
+Definition ___builtin_annot : ident := 23%positive.
+Definition ___builtin_annot_intval : ident := 24%positive.
+Definition ___builtin_bswap : ident := 8%positive.
+Definition ___builtin_bswap16 : ident := 10%positive.
+Definition ___builtin_bswap32 : ident := 9%positive.
+Definition ___builtin_bswap64 : ident := 7%positive.
+Definition ___builtin_clz : ident := 11%positive.
+Definition ___builtin_clzl : ident := 12%positive.
+Definition ___builtin_clzll : ident := 13%positive.
+Definition ___builtin_ctz : ident := 14%positive.
+Definition ___builtin_ctzl : ident := 15%positive.
+Definition ___builtin_ctzll : ident := 16%positive.
+Definition ___builtin_debug : ident := 42%positive.
+Definition ___builtin_expect : ident := 31%positive.
+Definition ___builtin_fabs : ident := 17%positive.
+Definition ___builtin_fabsf : ident := 18%positive.
+Definition ___builtin_fmadd : ident := 34%positive.
+Definition ___builtin_fmax : ident := 32%positive.
+Definition ___builtin_fmin : ident := 33%positive.
+Definition ___builtin_fmsub : ident := 35%positive.
+Definition ___builtin_fnmadd : ident := 36%positive.
+Definition ___builtin_fnmsub : ident := 37%positive.
+Definition ___builtin_fsqrt : ident := 19%positive.
+Definition ___builtin_membar : ident := 25%positive.
+Definition ___builtin_memcpy_aligned : ident := 21%positive.
+Definition ___builtin_read16_reversed : ident := 38%positive.
+Definition ___builtin_read32_reversed : ident := 39%positive.
+Definition ___builtin_sel : ident := 22%positive.
+Definition ___builtin_sqrt : ident := 20%positive.
+Definition ___builtin_unreachable : ident := 30%positive.
+Definition ___builtin_va_arg : ident := 27%positive.
+Definition ___builtin_va_copy : ident := 28%positive.
+Definition ___builtin_va_end : ident := 29%positive.
+Definition ___builtin_va_start : ident := 26%positive.
+Definition ___builtin_write16_reversed : ident := 40%positive.
+Definition ___builtin_write32_reversed : ident := 41%positive.
+Definition ___compcert_i64_dtos : ident := 76%positive.
+Definition ___compcert_i64_dtou : ident := 77%positive.
+Definition ___compcert_i64_sar : ident := 88%positive.
+Definition ___compcert_i64_sdiv : ident := 82%positive.
+Definition ___compcert_i64_shl : ident := 86%positive.
+Definition ___compcert_i64_shr : ident := 87%positive.
+Definition ___compcert_i64_smod : ident := 84%positive.
+Definition ___compcert_i64_smulh : ident := 89%positive.
+Definition ___compcert_i64_stod : ident := 78%positive.
+Definition ___compcert_i64_stof : ident := 80%positive.
+Definition ___compcert_i64_udiv : ident := 83%positive.
+Definition ___compcert_i64_umod : ident := 85%positive.
+Definition ___compcert_i64_umulh : ident := 90%positive.
+Definition ___compcert_i64_utod : ident := 79%positive.
+Definition ___compcert_i64_utof : ident := 81%positive.
+Definition ___compcert_va_composite : ident := 75%positive.
+Definition ___compcert_va_float64 : ident := 74%positive.
+Definition ___compcert_va_int32 : ident := 72%positive.
+Definition ___compcert_va_int64 : ident := 73%positive.
+Definition ___stringlit_1 : ident := 67%positive.
+Definition ___stringlit_2 : ident := 68%positive.
+Definition ___stringlit_3 : ident := 69%positive.
+Definition ___stringlit_4 : ident := 70%positive.
+Definition __l : ident := 59%positive.
+Definition _b : ident := 50%positive.
+Definition _delete : ident := 66%positive.
+Definition _freeN : ident := 44%positive.
+Definition _get : ident := 58%positive.
Definition _key : ident := 2%positive.
-Definition _l : ident := 59%positive.
+Definition _l : ident := 60%positive.
Definition _left : ident := 4%positive.
-Definition _main : ident := 70%positive.
-Definition _mallocN : ident := 42%positive.
-Definition _mid : ident := 61%positive.
-Definition _p : ident := 44%positive.
-Definition _pa : ident := 46%positive.
-Definition _pb : ident := 47%positive.
-Definition _pushdown_left : ident := 64%positive.
-Definition _q : ident := 63%positive.
-Definition _r : ident := 60%positive.
+Definition _main : ident := 71%positive.
+Definition _mallocN : ident := 43%positive.
+Definition _mid : ident := 62%positive.
+Definition _p : ident := 45%positive.
+Definition _pa : ident := 47%positive.
+Definition _pb : ident := 48%positive.
+Definition _pushdown_left : ident := 65%positive.
+Definition _q : ident := 64%positive.
+Definition _r : ident := 61%positive.
Definition _right : ident := 5%positive.
-Definition _set : ident := 55%positive.
-Definition _subscr : ident := 53%positive.
-Definition _t : ident := 50%positive.
+Definition _set : ident := 56%positive.
+Definition _subscr : ident := 54%positive.
+Definition _t : ident := 51%positive.
Definition _tree : ident := 1%positive.
-Definition _tree_free : ident := 48%positive.
-Definition _treebox_free : ident := 51%positive.
-Definition _treebox_new : ident := 45%positive.
-Definition _turn_left : ident := 62%positive.
-Definition _v : ident := 56%positive.
+Definition _tree_free : ident := 49%positive.
+Definition _treebox_free : ident := 52%positive.
+Definition _treebox_new : ident := 46%positive.
+Definition _turn_left : ident := 63%positive.
+Definition _v : ident := 57%positive.
Definition _value : ident := 3%positive.
-Definition _x : ident := 54%positive.
-Definition _y : ident := 52%positive.
-Definition _t'1 : ident := 90%positive.
+Definition _x : ident := 55%positive.
+Definition _y : ident := 53%positive.
+Definition _t'1 : ident := 91%positive.
Definition v___stringlit_3 := {|
gvar_info := (tarray tschar 5);
@@ -155,7 +156,7 @@ Definition f_treebox_new := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _mallocN (Tfunction (Tcons tint Tnil) (tptr tvoid) cc_default))
+ (Evar _mallocN (Tfunction (tint :: nil) (tptr tvoid) cc_default))
((Esizeof (tptr (Tstruct _tree noattr)) tuint) :: nil))
(Sset _p
(Ecast (Etempvar _t'1 (tptr tvoid))
@@ -190,20 +191,20 @@ Definition f_tree_free := {|
(Tstruct _tree noattr)) _right (tptr (Tstruct _tree noattr))))
(Ssequence
(Scall None
- (Evar _freeN (Tfunction (Tcons (tptr tvoid) (Tcons tint Tnil))
- tvoid cc_default))
+ (Evar _freeN (Tfunction ((tptr tvoid) :: tint :: nil) tvoid
+ cc_default))
((Etempvar _p (tptr (Tstruct _tree noattr))) ::
(Esizeof (Tstruct _tree noattr) tuint) :: nil))
(Ssequence
(Scall None
(Evar _tree_free (Tfunction
- (Tcons (tptr (Tstruct _tree noattr)) Tnil)
- tvoid cc_default))
+ ((tptr (Tstruct _tree noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _pa (tptr (Tstruct _tree noattr))) :: nil))
(Scall None
(Evar _tree_free (Tfunction
- (Tcons (tptr (Tstruct _tree noattr)) Tnil)
- tvoid cc_default))
+ ((tptr (Tstruct _tree noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _pb (tptr (Tstruct _tree noattr))) :: nil))))))
Sskip)
|}.
@@ -221,12 +222,11 @@ Definition f_treebox_free := {|
(tptr (Tstruct _tree noattr))))
(Ssequence
(Scall None
- (Evar _tree_free (Tfunction (Tcons (tptr (Tstruct _tree noattr)) Tnil)
+ (Evar _tree_free (Tfunction ((tptr (Tstruct _tree noattr)) :: nil)
tvoid cc_default))
((Etempvar _t (tptr (Tstruct _tree noattr))) :: nil))
(Scall None
- (Evar _freeN (Tfunction (Tcons (tptr tvoid) (Tcons tint Tnil)) tvoid
- cc_default))
+ (Evar _freeN (Tfunction ((tptr tvoid) :: tint :: nil) tvoid cc_default))
((Etempvar _b (tptr (tptr (Tstruct _tree noattr)))) ::
(Esizeof (tptr (Tstruct _tree noattr)) tuint) :: nil))))
|}.
@@ -253,7 +253,7 @@ Definition f_subscr := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _mallocN (Tfunction (Tcons tint Tnil) (tptr tvoid)
+ (Evar _mallocN (Tfunction (tint :: nil) (tptr tvoid)
cc_default))
((Esizeof (Tstruct _tree noattr) tuint) :: nil))
(Sset _p
@@ -341,8 +341,8 @@ Definition f_set := {|
(Ssequence
(Scall (Some _t'1)
(Evar _subscr (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons tint Tnil)) (tptr (tptr tvoid)) cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) :: tint :: nil)
+ (tptr (tptr tvoid)) cc_default))
((Etempvar _t (tptr (tptr (Tstruct _tree noattr)))) ::
(Etempvar _x tint) :: nil))
(Sset _p (Etempvar _t'1 (tptr (tptr tvoid)))))
@@ -363,8 +363,8 @@ Definition f_get := {|
(Ssequence
(Scall (Some _t'1)
(Evar _subscr (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons tint Tnil)) (tptr (tptr tvoid)) cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) :: tint :: nil)
+ (tptr (tptr tvoid)) cc_default))
((Etempvar _t (tptr (tptr (Tstruct _tree noattr)))) ::
(Etempvar _x tint) :: nil))
(Sset _p (Etempvar _t'1 (tptr (tptr tvoid)))))
@@ -441,8 +441,7 @@ Definition f_pushdown_left := {|
(Etempvar _q (tptr (Tstruct _tree noattr))))
(Ssequence
(Scall None
- (Evar _freeN (Tfunction
- (Tcons (tptr tvoid) (Tcons tint Tnil)) tvoid
+ (Evar _freeN (Tfunction ((tptr tvoid) :: tint :: nil) tvoid
cc_default))
((Etempvar _p (tptr (Tstruct _tree noattr))) ::
(Esizeof (Tstruct _tree noattr) tuint) :: nil))
@@ -450,10 +449,10 @@ Definition f_pushdown_left := {|
(Ssequence
(Scall None
(Evar _turn_left (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons (tptr (Tstruct _tree noattr))
- (Tcons (tptr (Tstruct _tree noattr))
- Tnil))) tvoid cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) ::
+ (tptr (Tstruct _tree noattr)) ::
+ (tptr (Tstruct _tree noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _t (tptr (tptr (Tstruct _tree noattr)))) ::
(Etempvar _p (tptr (Tstruct _tree noattr))) ::
(Etempvar _q (tptr (Tstruct _tree noattr))) :: nil))
@@ -512,9 +511,8 @@ Definition f_delete := {|
(Ssequence
(Scall None
(Evar _pushdown_left (Tfunction
- (Tcons
- (tptr (tptr (Tstruct _tree noattr)))
- Tnil) tvoid cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) ::
+ nil) tvoid cc_default))
((Etempvar _t (tptr (tptr (Tstruct _tree noattr)))) :: nil))
(Sreturn None))))))))
Sskip)
@@ -532,52 +530,47 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _treebox_new (Tfunction Tnil
+ (Evar _treebox_new (Tfunction nil
(tptr (tptr (Tstruct _tree noattr))) cc_default))
nil)
(Sset _p (Etempvar _t'1 (tptr (tptr (Tstruct _tree noattr))))))
(Ssequence
(Scall None
(Evar _set (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons tint (Tcons (tptr tvoid) Tnil))) tvoid
- cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) :: tint ::
+ (tptr tvoid) :: nil) tvoid cc_default))
((Etempvar _p (tptr (tptr (Tstruct _tree noattr)))) ::
(Econst_int (Int.repr 3) tint) ::
(Evar ___stringlit_1 (tarray tschar 6)) :: nil))
(Ssequence
(Scall None
(Evar _set (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons tint (Tcons (tptr tvoid) Tnil))) tvoid
- cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) :: tint ::
+ (tptr tvoid) :: nil) tvoid cc_default))
((Etempvar _p (tptr (tptr (Tstruct _tree noattr)))) ::
(Econst_int (Int.repr 1) tint) ::
(Evar ___stringlit_2 (tarray tschar 4)) :: nil))
(Ssequence
(Scall None
(Evar _set (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons tint (Tcons (tptr tvoid) Tnil))) tvoid
- cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) :: tint ::
+ (tptr tvoid) :: nil) tvoid cc_default))
((Etempvar _p (tptr (tptr (Tstruct _tree noattr)))) ::
(Econst_int (Int.repr 4) tint) ::
(Evar ___stringlit_3 (tarray tschar 5)) :: nil))
(Ssequence
(Scall None
(Evar _set (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons tint (Tcons (tptr tvoid) Tnil))) tvoid
- cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) :: tint ::
+ (tptr tvoid) :: nil) tvoid cc_default))
((Etempvar _p (tptr (tptr (Tstruct _tree noattr)))) ::
(Econst_int (Int.repr 1) tint) ::
(Evar ___stringlit_4 (tarray tschar 4)) :: nil))
(Ssequence
(Scall None
(Evar _treebox_free (Tfunction
- (Tcons
- (tptr (tptr (Tstruct _tree noattr)))
- Tnil) tvoid cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) ::
+ nil) tvoid cc_default))
((Etempvar _p (tptr (tptr (Tstruct _tree noattr)))) :: nil))
(Sreturn (Some (Econst_int (Int.repr 0) tint)))))))))
(Sreturn (Some (Econst_int (Int.repr 0) tint))))
@@ -593,277 +586,272 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) :: (___stringlit_3, Gvar v___stringlit_3) ::
(___stringlit_1, Gvar v___stringlit_1) ::
(___stringlit_4, Gvar v___stringlit_4) ::
(___stringlit_2, Gvar v___stringlit_2) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_mallocN,
Gfun(External (EF_external "mallocN"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tint Tnil) (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xptr cc_default))
+ (tint :: nil) (tptr tvoid) cc_default)) ::
(_freeN,
Gfun(External (EF_external "freeN"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tint Tnil))
- tvoid cc_default)) :: (_treebox_new, Gfun(Internal f_treebox_new)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tint :: nil) tvoid
+ cc_default)) :: (_treebox_new, Gfun(Internal f_treebox_new)) ::
(_tree_free, Gfun(Internal f_tree_free)) ::
(_treebox_free, Gfun(Internal f_treebox_free)) ::
(_subscr, Gfun(Internal f_subscr)) :: (_set, Gfun(Internal f_set)) ::
@@ -886,12 +874,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/cast_test.v b/progs/cast_test.v
index 210cb78bcf..535db55ef8 100644
--- a/progs/cast_test.v
+++ b/progs/cast_test.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,69 +19,70 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 48%positive.
-Definition ___compcert_i64_dtou : ident := 49%positive.
-Definition ___compcert_i64_sar : ident := 60%positive.
-Definition ___compcert_i64_sdiv : ident := 54%positive.
-Definition ___compcert_i64_shl : ident := 58%positive.
-Definition ___compcert_i64_shr : ident := 59%positive.
-Definition ___compcert_i64_smod : ident := 56%positive.
-Definition ___compcert_i64_smulh : ident := 61%positive.
-Definition ___compcert_i64_stod : ident := 50%positive.
-Definition ___compcert_i64_stof : ident := 52%positive.
-Definition ___compcert_i64_udiv : ident := 55%positive.
-Definition ___compcert_i64_umod : ident := 57%positive.
-Definition ___compcert_i64_umulh : ident := 62%positive.
-Definition ___compcert_i64_utod : ident := 51%positive.
-Definition ___compcert_i64_utof : ident := 53%positive.
-Definition ___compcert_va_composite : ident := 47%positive.
-Definition ___compcert_va_float64 : ident := 46%positive.
-Definition ___compcert_va_int32 : ident := 44%positive.
-Definition ___compcert_va_int64 : ident := 45%positive.
-Definition _b : ident := 38%positive.
-Definition _c : ident := 39%positive.
-Definition _d : ident := 40%positive.
-Definition _issue500 : ident := 43%positive.
-Definition _main : ident := 63%positive.
-Definition _n : ident := 37%positive.
-Definition _test : ident := 41%positive.
-Definition _val : ident := 42%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 49%positive.
+Definition ___compcert_i64_dtou : ident := 50%positive.
+Definition ___compcert_i64_sar : ident := 61%positive.
+Definition ___compcert_i64_sdiv : ident := 55%positive.
+Definition ___compcert_i64_shl : ident := 59%positive.
+Definition ___compcert_i64_shr : ident := 60%positive.
+Definition ___compcert_i64_smod : ident := 57%positive.
+Definition ___compcert_i64_smulh : ident := 62%positive.
+Definition ___compcert_i64_stod : ident := 51%positive.
+Definition ___compcert_i64_stof : ident := 53%positive.
+Definition ___compcert_i64_udiv : ident := 56%positive.
+Definition ___compcert_i64_umod : ident := 58%positive.
+Definition ___compcert_i64_umulh : ident := 63%positive.
+Definition ___compcert_i64_utod : ident := 52%positive.
+Definition ___compcert_i64_utof : ident := 54%positive.
+Definition ___compcert_va_composite : ident := 48%positive.
+Definition ___compcert_va_float64 : ident := 47%positive.
+Definition ___compcert_va_int32 : ident := 45%positive.
+Definition ___compcert_va_int64 : ident := 46%positive.
+Definition _b : ident := 39%positive.
+Definition _c : ident := 40%positive.
+Definition _d : ident := 41%positive.
+Definition _issue500 : ident := 44%positive.
+Definition _main : ident := 64%positive.
+Definition _n : ident := 38%positive.
+Definition _test : ident := 42%positive.
+Definition _val : ident := 43%positive.
Definition f_test := {|
fn_return := tuchar;
@@ -150,264 +151,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_test, Gfun(Internal f_test)) :: (_issue500, Gfun(Internal f_issue500)) ::
nil).
@@ -425,12 +421,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/dotprod.v b/progs/dotprod.v
index 293cbb8143..fc2c343f02 100644
--- a/progs/dotprod.v
+++ b/progs/dotprod.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,72 +19,73 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 49%positive.
-Definition ___compcert_i64_dtou : ident := 50%positive.
-Definition ___compcert_i64_sar : ident := 61%positive.
-Definition ___compcert_i64_sdiv : ident := 55%positive.
-Definition ___compcert_i64_shl : ident := 59%positive.
-Definition ___compcert_i64_shr : ident := 60%positive.
-Definition ___compcert_i64_smod : ident := 57%positive.
-Definition ___compcert_i64_smulh : ident := 62%positive.
-Definition ___compcert_i64_stod : ident := 51%positive.
-Definition ___compcert_i64_stof : ident := 53%positive.
-Definition ___compcert_i64_udiv : ident := 56%positive.
-Definition ___compcert_i64_umod : ident := 58%positive.
-Definition ___compcert_i64_umulh : ident := 63%positive.
-Definition ___compcert_i64_utod : ident := 52%positive.
-Definition ___compcert_i64_utof : ident := 54%positive.
-Definition ___compcert_va_composite : ident := 48%positive.
-Definition ___compcert_va_float64 : ident := 47%positive.
-Definition ___compcert_va_int32 : ident := 45%positive.
-Definition ___compcert_va_int64 : ident := 46%positive.
-Definition _add : ident := 41%positive.
-Definition _dotprod : ident := 44%positive.
-Definition _i : ident := 40%positive.
-Definition _main : ident := 64%positive.
-Definition _n : ident := 42%positive.
-Definition _sum : ident := 43%positive.
-Definition _x : ident := 37%positive.
-Definition _y : ident := 38%positive.
-Definition _z : ident := 39%positive.
-Definition _t'1 : ident := 65%positive.
-Definition _t'2 : ident := 66%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 50%positive.
+Definition ___compcert_i64_dtou : ident := 51%positive.
+Definition ___compcert_i64_sar : ident := 62%positive.
+Definition ___compcert_i64_sdiv : ident := 56%positive.
+Definition ___compcert_i64_shl : ident := 60%positive.
+Definition ___compcert_i64_shr : ident := 61%positive.
+Definition ___compcert_i64_smod : ident := 58%positive.
+Definition ___compcert_i64_smulh : ident := 63%positive.
+Definition ___compcert_i64_stod : ident := 52%positive.
+Definition ___compcert_i64_stof : ident := 54%positive.
+Definition ___compcert_i64_udiv : ident := 57%positive.
+Definition ___compcert_i64_umod : ident := 59%positive.
+Definition ___compcert_i64_umulh : ident := 64%positive.
+Definition ___compcert_i64_utod : ident := 53%positive.
+Definition ___compcert_i64_utof : ident := 55%positive.
+Definition ___compcert_va_composite : ident := 49%positive.
+Definition ___compcert_va_float64 : ident := 48%positive.
+Definition ___compcert_va_int32 : ident := 46%positive.
+Definition ___compcert_va_int64 : ident := 47%positive.
+Definition _add : ident := 42%positive.
+Definition _dotprod : ident := 45%positive.
+Definition _i : ident := 41%positive.
+Definition _main : ident := 65%positive.
+Definition _n : ident := 43%positive.
+Definition _sum : ident := 44%positive.
+Definition _x : ident := 38%positive.
+Definition _y : ident := 39%positive.
+Definition _z : ident := 40%positive.
+Definition _t'1 : ident := 66%positive.
+Definition _t'2 : ident := 67%positive.
Definition f_add := {|
fn_return := tvoid;
@@ -168,264 +169,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_add, Gfun(Internal f_add)) :: (_dotprod, Gfun(Internal f_dotprod)) :: nil).
@@ -442,12 +438,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/dry_mem_lemmas.v b/progs/dry_mem_lemmas.v
index 5ec757400b..5400ca7c5d 100644
--- a/progs/dry_mem_lemmas.v
+++ b/progs/dry_mem_lemmas.v
@@ -866,15 +866,16 @@ Definition main_pre_juicy {Z} prog (ora : Z) gv (x' : rmap * {ts : list Type & u
(m_phi m) (*phi0 /\
necR (fst x') phi1*) /\ joins (ghost_of (m_phi m)) [Some (ext_ref z, NoneP)]).
-Definition rettype_of_option_typ (t: option typ) : rettype :=
-match t with Some t => AST.Tret t | None => AST.Tvoid end.
+Definition xtype_of_option_typ (t: option typ) : xtype :=
+match t with Some t => inj_type t | None => Xvoid end.
+
Definition main_post_juicy {Z} prog (ora : Z) gv (x' : rmap * {ts : list Type & unit})
(ge_s: extspec.injective_PTree block) (tret : option typ) ret (z : Z) (m : juicy_mem) :=
(*exists phi0 phi1 : rmap,
join phi0 phi1 (m_phi m) /\*)
(app_pred (main_post prog gv
- (semax.make_ext_rval (filter_genv (semax_ext.symb2genv ge_s)) (rettype_of_option_typ tret) ret))
+ (semax.make_ext_rval (filter_genv (semax_ext.symb2genv ge_s)) (xtype_of_option_typ tret) ret))
(m_phi m)(*phi0 /\
necR (fst x') phi1*) /\ joins (ghost_of (m_phi m)) [Some (ext_ref z, NoneP)]).
diff --git a/progs/even.v b/progs/even.v
index 847dc94297..afa4ef7efe 100644
--- a/progs/even.v
+++ b/progs/even.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,66 +19,67 @@ Module Info.
Definition normalized := false.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 45%positive.
-Definition ___compcert_i64_dtou : ident := 46%positive.
-Definition ___compcert_i64_sar : ident := 57%positive.
-Definition ___compcert_i64_sdiv : ident := 51%positive.
-Definition ___compcert_i64_shl : ident := 55%positive.
-Definition ___compcert_i64_shr : ident := 56%positive.
-Definition ___compcert_i64_smod : ident := 53%positive.
-Definition ___compcert_i64_smulh : ident := 58%positive.
-Definition ___compcert_i64_stod : ident := 47%positive.
-Definition ___compcert_i64_stof : ident := 49%positive.
-Definition ___compcert_i64_udiv : ident := 52%positive.
-Definition ___compcert_i64_umod : ident := 54%positive.
-Definition ___compcert_i64_umulh : ident := 59%positive.
-Definition ___compcert_i64_utod : ident := 48%positive.
-Definition ___compcert_i64_utof : ident := 50%positive.
-Definition ___compcert_va_composite : ident := 44%positive.
-Definition ___compcert_va_float64 : ident := 43%positive.
-Definition ___compcert_va_int32 : ident := 41%positive.
-Definition ___compcert_va_int64 : ident := 42%positive.
-Definition _even : ident := 39%positive.
-Definition _main : ident := 40%positive.
-Definition _n : ident := 38%positive.
-Definition _odd : ident := 37%positive.
-Definition _t'1 : ident := 60%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 46%positive.
+Definition ___compcert_i64_dtou : ident := 47%positive.
+Definition ___compcert_i64_sar : ident := 58%positive.
+Definition ___compcert_i64_sdiv : ident := 52%positive.
+Definition ___compcert_i64_shl : ident := 56%positive.
+Definition ___compcert_i64_shr : ident := 57%positive.
+Definition ___compcert_i64_smod : ident := 54%positive.
+Definition ___compcert_i64_smulh : ident := 59%positive.
+Definition ___compcert_i64_stod : ident := 48%positive.
+Definition ___compcert_i64_stof : ident := 50%positive.
+Definition ___compcert_i64_udiv : ident := 53%positive.
+Definition ___compcert_i64_umod : ident := 55%positive.
+Definition ___compcert_i64_umulh : ident := 60%positive.
+Definition ___compcert_i64_utod : ident := 49%positive.
+Definition ___compcert_i64_utof : ident := 51%positive.
+Definition ___compcert_va_composite : ident := 45%positive.
+Definition ___compcert_va_float64 : ident := 44%positive.
+Definition ___compcert_va_int32 : ident := 42%positive.
+Definition ___compcert_va_int64 : ident := 43%positive.
+Definition _even : ident := 40%positive.
+Definition _main : ident := 41%positive.
+Definition _n : ident := 39%positive.
+Definition _odd : ident := 38%positive.
+Definition _t'1 : ident := 61%positive.
Definition f_even := {|
fn_return := tint;
@@ -93,8 +94,7 @@ Definition f_even := {|
(Sreturn (Some (Econst_int (Int.repr 1) tint)))
Sskip)
(Ssequence
- (Scall (Some _t'1)
- (Evar _odd (Tfunction (Tcons tuint Tnil) tint cc_default))
+ (Scall (Some _t'1) (Evar _odd (Tfunction (tuint :: nil) tint cc_default))
((Ebinop Osub (Etempvar _n tuint) (Econst_int (Int.repr 1) tint) tuint) ::
nil))
(Sreturn (Some (Etempvar _t'1 tint)))))
@@ -110,7 +110,7 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _even (Tfunction (Tcons tuint Tnil) tint cc_default))
+ (Evar _even (Tfunction (tuint :: nil) tint cc_default))
((Econst_int (Int.repr 42) tint) :: nil))
(Sreturn (Some (Etempvar _t'1 tint))))
(Sreturn (Some (Econst_int (Int.repr 0) tint))))
@@ -122,270 +122,265 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_odd,
Gfun(External (EF_external "odd"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
- (_even, Gfun(Internal f_even)) :: (_main, Gfun(Internal f_main)) :: nil).
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) :: (_even, Gfun(Internal f_even)) ::
+ (_main, Gfun(Internal f_main)) :: nil).
Definition public_idents : list ident :=
(_main :: _even :: _odd :: ___builtin_debug :: ___builtin_write32_reversed ::
@@ -400,12 +395,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/fib.v b/progs/fib.v
index 77c27f8925..765eb42862 100644
--- a/progs/fib.v
+++ b/progs/fib.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,79 +19,80 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 57%positive.
-Definition ___compcert_i64_dtou : ident := 58%positive.
-Definition ___compcert_i64_sar : ident := 69%positive.
-Definition ___compcert_i64_sdiv : ident := 63%positive.
-Definition ___compcert_i64_shl : ident := 67%positive.
-Definition ___compcert_i64_shr : ident := 68%positive.
-Definition ___compcert_i64_smod : ident := 65%positive.
-Definition ___compcert_i64_smulh : ident := 70%positive.
-Definition ___compcert_i64_stod : ident := 59%positive.
-Definition ___compcert_i64_stof : ident := 61%positive.
-Definition ___compcert_i64_udiv : ident := 64%positive.
-Definition ___compcert_i64_umod : ident := 66%positive.
-Definition ___compcert_i64_umulh : ident := 71%positive.
-Definition ___compcert_i64_utod : ident := 60%positive.
-Definition ___compcert_i64_utof : ident := 62%positive.
-Definition ___compcert_va_composite : ident := 56%positive.
-Definition ___compcert_va_float64 : ident := 55%positive.
-Definition ___compcert_va_int32 : ident := 53%positive.
-Definition ___compcert_va_int64 : ident := 54%positive.
-Definition _a : ident := 49%positive.
-Definition _a0 : ident := 38%positive.
-Definition _a1 : ident := 39%positive.
-Definition _a2 : ident := 40%positive.
-Definition _b : ident := 50%positive.
-Definition _fib_loop : ident := 42%positive.
-Definition _fib_loop_mod : ident := 45%positive.
-Definition _fib_loop_save_var : ident := 43%positive.
-Definition _fib_rec : ident := 46%positive.
-Definition _i : ident := 41%positive.
-Definition _main : ident := 52%positive.
-Definition _mod : ident := 44%positive.
-Definition _n : ident := 37%positive.
-Definition _swap_int : ident := 51%positive.
-Definition _x : ident := 47%positive.
-Definition _y : ident := 48%positive.
-Definition _t'1 : ident := 72%positive.
-Definition _t'2 : ident := 73%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 58%positive.
+Definition ___compcert_i64_dtou : ident := 59%positive.
+Definition ___compcert_i64_sar : ident := 70%positive.
+Definition ___compcert_i64_sdiv : ident := 64%positive.
+Definition ___compcert_i64_shl : ident := 68%positive.
+Definition ___compcert_i64_shr : ident := 69%positive.
+Definition ___compcert_i64_smod : ident := 66%positive.
+Definition ___compcert_i64_smulh : ident := 71%positive.
+Definition ___compcert_i64_stod : ident := 60%positive.
+Definition ___compcert_i64_stof : ident := 62%positive.
+Definition ___compcert_i64_udiv : ident := 65%positive.
+Definition ___compcert_i64_umod : ident := 67%positive.
+Definition ___compcert_i64_umulh : ident := 72%positive.
+Definition ___compcert_i64_utod : ident := 61%positive.
+Definition ___compcert_i64_utof : ident := 63%positive.
+Definition ___compcert_va_composite : ident := 57%positive.
+Definition ___compcert_va_float64 : ident := 56%positive.
+Definition ___compcert_va_int32 : ident := 54%positive.
+Definition ___compcert_va_int64 : ident := 55%positive.
+Definition _a : ident := 50%positive.
+Definition _a0 : ident := 39%positive.
+Definition _a1 : ident := 40%positive.
+Definition _a2 : ident := 41%positive.
+Definition _b : ident := 51%positive.
+Definition _fib_loop : ident := 43%positive.
+Definition _fib_loop_mod : ident := 46%positive.
+Definition _fib_loop_save_var : ident := 44%positive.
+Definition _fib_rec : ident := 47%positive.
+Definition _i : ident := 42%positive.
+Definition _main : ident := 53%positive.
+Definition _mod : ident := 45%positive.
+Definition _n : ident := 38%positive.
+Definition _swap_int : ident := 52%positive.
+Definition _x : ident := 48%positive.
+Definition _y : ident := 49%positive.
+Definition _t'1 : ident := 73%positive.
+Definition _t'2 : ident := 74%positive.
Definition f_fib_loop := {|
fn_return := tint;
@@ -210,11 +211,11 @@ Definition f_fib_rec := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _fib_rec (Tfunction (Tcons tint Tnil) tint cc_default))
+ (Evar _fib_rec (Tfunction (tint :: nil) tint cc_default))
((Ebinop Osub (Etempvar _n tint) (Econst_int (Int.repr 2) tint)
tint) :: nil))
(Scall (Some _t'2)
- (Evar _fib_rec (Tfunction (Tcons tint Tnil) tint cc_default))
+ (Evar _fib_rec (Tfunction (tint :: nil) tint cc_default))
((Ebinop Osub (Etempvar _n tint) (Econst_int (Int.repr 1) tint)
tint) :: nil)))
(Sreturn (Some (Ebinop Oadd (Etempvar _t'1 tint) (Etempvar _t'2 tint)
@@ -257,264 +258,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_fib_loop, Gfun(Internal f_fib_loop)) ::
(_fib_loop_save_var, Gfun(Internal f_fib_loop_save_var)) ::
@@ -537,12 +533,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/field_loadstore.v b/progs/field_loadstore.v
index 47c902d4ba..8bb0e5eab0 100644
--- a/progs/field_loadstore.v
+++ b/progs/field_loadstore.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,75 +19,76 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 42%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
-Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
-Definition ___builtin_fmsub : ident := 35%positive.
-Definition ___builtin_fnmadd : ident := 36%positive.
-Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 39%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 40%positive.
-Definition ___builtin_write32_reversed : ident := 41%positive.
-Definition ___compcert_i64_dtos : ident := 54%positive.
-Definition ___compcert_i64_dtou : ident := 55%positive.
-Definition ___compcert_i64_sar : ident := 66%positive.
-Definition ___compcert_i64_sdiv : ident := 60%positive.
-Definition ___compcert_i64_shl : ident := 64%positive.
-Definition ___compcert_i64_shr : ident := 65%positive.
-Definition ___compcert_i64_smod : ident := 62%positive.
-Definition ___compcert_i64_smulh : ident := 67%positive.
-Definition ___compcert_i64_stod : ident := 56%positive.
-Definition ___compcert_i64_stof : ident := 58%positive.
-Definition ___compcert_i64_udiv : ident := 61%positive.
-Definition ___compcert_i64_umod : ident := 63%positive.
-Definition ___compcert_i64_umulh : ident := 68%positive.
-Definition ___compcert_i64_utod : ident := 57%positive.
-Definition ___compcert_i64_utof : ident := 59%positive.
-Definition ___compcert_va_composite : ident := 53%positive.
-Definition ___compcert_va_float64 : ident := 52%positive.
-Definition ___compcert_va_int32 : ident := 50%positive.
-Definition ___compcert_va_int64 : ident := 51%positive.
+Definition ___builtin_ais_annot : ident := 7%positive.
+Definition ___builtin_annot : ident := 24%positive.
+Definition ___builtin_annot_intval : ident := 25%positive.
+Definition ___builtin_bswap : ident := 9%positive.
+Definition ___builtin_bswap16 : ident := 11%positive.
+Definition ___builtin_bswap32 : ident := 10%positive.
+Definition ___builtin_bswap64 : ident := 8%positive.
+Definition ___builtin_clz : ident := 12%positive.
+Definition ___builtin_clzl : ident := 13%positive.
+Definition ___builtin_clzll : ident := 14%positive.
+Definition ___builtin_ctz : ident := 15%positive.
+Definition ___builtin_ctzl : ident := 16%positive.
+Definition ___builtin_ctzll : ident := 17%positive.
+Definition ___builtin_debug : ident := 43%positive.
+Definition ___builtin_expect : ident := 32%positive.
+Definition ___builtin_fabs : ident := 18%positive.
+Definition ___builtin_fabsf : ident := 19%positive.
+Definition ___builtin_fmadd : ident := 35%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 36%positive.
+Definition ___builtin_fnmadd : ident := 37%positive.
+Definition ___builtin_fnmsub : ident := 38%positive.
+Definition ___builtin_fsqrt : ident := 20%positive.
+Definition ___builtin_membar : ident := 26%positive.
+Definition ___builtin_memcpy_aligned : ident := 22%positive.
+Definition ___builtin_read16_reversed : ident := 39%positive.
+Definition ___builtin_read32_reversed : ident := 40%positive.
+Definition ___builtin_sel : ident := 23%positive.
+Definition ___builtin_sqrt : ident := 21%positive.
+Definition ___builtin_unreachable : ident := 31%positive.
+Definition ___builtin_va_arg : ident := 28%positive.
+Definition ___builtin_va_copy : ident := 29%positive.
+Definition ___builtin_va_end : ident := 30%positive.
+Definition ___builtin_va_start : ident := 27%positive.
+Definition ___builtin_write16_reversed : ident := 41%positive.
+Definition ___builtin_write32_reversed : ident := 42%positive.
+Definition ___compcert_i64_dtos : ident := 55%positive.
+Definition ___compcert_i64_dtou : ident := 56%positive.
+Definition ___compcert_i64_sar : ident := 67%positive.
+Definition ___compcert_i64_sdiv : ident := 61%positive.
+Definition ___compcert_i64_shl : ident := 65%positive.
+Definition ___compcert_i64_shr : ident := 66%positive.
+Definition ___compcert_i64_smod : ident := 63%positive.
+Definition ___compcert_i64_smulh : ident := 68%positive.
+Definition ___compcert_i64_stod : ident := 57%positive.
+Definition ___compcert_i64_stof : ident := 59%positive.
+Definition ___compcert_i64_udiv : ident := 62%positive.
+Definition ___compcert_i64_umod : ident := 64%positive.
+Definition ___compcert_i64_umulh : ident := 69%positive.
+Definition ___compcert_i64_utod : ident := 58%positive.
+Definition ___compcert_i64_utof : ident := 60%positive.
+Definition ___compcert_va_composite : ident := 54%positive.
+Definition ___compcert_va_float64 : ident := 53%positive.
+Definition ___compcert_va_int32 : ident := 51%positive.
+Definition ___compcert_va_int64 : ident := 52%positive.
Definition _a : ident := 1%positive.
Definition _b : ident := 4%positive.
-Definition _i : ident := 44%positive.
-Definition _j : ident := 47%positive.
-Definition _main : ident := 49%positive.
-Definition _p : ident := 43%positive.
-Definition _sub1 : ident := 45%positive.
-Definition _sub2 : ident := 46%positive.
-Definition _sub3 : ident := 48%positive.
+Definition _i : ident := 45%positive.
+Definition _j : ident := 48%positive.
+Definition _main : ident := 50%positive.
+Definition _p : ident := 44%positive.
+Definition _sub1 : ident := 46%positive.
+Definition _sub2 : ident := 47%positive.
+Definition _sub3 : ident := 49%positive.
Definition _x1 : ident := 2%positive.
Definition _x2 : ident := 3%positive.
Definition _y1 : ident := 5%positive.
Definition _y2 : ident := 6%positive.
-Definition _t'1 : ident := 69%positive.
+Definition _t'1 : ident := 70%positive.
Definition v_p := {|
gvar_info := (Tstruct _b noattr);
@@ -181,264 +182,259 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_p, Gvar v_p) :: (_sub1, Gfun(Internal f_sub1)) ::
(_sub2, Gfun(Internal f_sub2)) :: (_sub3, Gfun(Internal f_sub3)) ::
@@ -458,13 +454,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/float.v b/progs/float.v
index 9bdebca73a..357f8e98f7 100644
--- a/progs/float.v
+++ b/progs/float.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,74 +19,75 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 21%positive.
-Definition ___builtin_annot_intval : ident := 22%positive.
-Definition ___builtin_bswap : ident := 6%positive.
-Definition ___builtin_bswap16 : ident := 8%positive.
-Definition ___builtin_bswap32 : ident := 7%positive.
-Definition ___builtin_bswap64 : ident := 5%positive.
-Definition ___builtin_clz : ident := 9%positive.
-Definition ___builtin_clzl : ident := 10%positive.
-Definition ___builtin_clzll : ident := 11%positive.
-Definition ___builtin_ctz : ident := 12%positive.
-Definition ___builtin_ctzl : ident := 13%positive.
-Definition ___builtin_ctzll : ident := 14%positive.
-Definition ___builtin_debug : ident := 40%positive.
-Definition ___builtin_expect : ident := 29%positive.
-Definition ___builtin_fabs : ident := 15%positive.
-Definition ___builtin_fabsf : ident := 16%positive.
-Definition ___builtin_fmadd : ident := 32%positive.
-Definition ___builtin_fmax : ident := 30%positive.
-Definition ___builtin_fmin : ident := 31%positive.
-Definition ___builtin_fmsub : ident := 33%positive.
-Definition ___builtin_fnmadd : ident := 34%positive.
-Definition ___builtin_fnmsub : ident := 35%positive.
-Definition ___builtin_fsqrt : ident := 17%positive.
-Definition ___builtin_membar : ident := 23%positive.
-Definition ___builtin_memcpy_aligned : ident := 19%positive.
-Definition ___builtin_read16_reversed : ident := 36%positive.
-Definition ___builtin_read32_reversed : ident := 37%positive.
-Definition ___builtin_sel : ident := 20%positive.
-Definition ___builtin_sqrt : ident := 18%positive.
-Definition ___builtin_unreachable : ident := 28%positive.
-Definition ___builtin_va_arg : ident := 25%positive.
-Definition ___builtin_va_copy : ident := 26%positive.
-Definition ___builtin_va_end : ident := 27%positive.
-Definition ___builtin_va_start : ident := 24%positive.
-Definition ___builtin_write16_reversed : ident := 38%positive.
-Definition ___builtin_write32_reversed : ident := 39%positive.
-Definition ___compcert_i64_dtos : ident := 51%positive.
-Definition ___compcert_i64_dtou : ident := 52%positive.
-Definition ___compcert_i64_sar : ident := 63%positive.
-Definition ___compcert_i64_sdiv : ident := 57%positive.
-Definition ___compcert_i64_shl : ident := 61%positive.
-Definition ___compcert_i64_shr : ident := 62%positive.
-Definition ___compcert_i64_smod : ident := 59%positive.
-Definition ___compcert_i64_smulh : ident := 64%positive.
-Definition ___compcert_i64_stod : ident := 53%positive.
-Definition ___compcert_i64_stof : ident := 55%positive.
-Definition ___compcert_i64_udiv : ident := 58%positive.
-Definition ___compcert_i64_umod : ident := 60%positive.
-Definition ___compcert_i64_umulh : ident := 65%positive.
-Definition ___compcert_i64_utod : ident := 54%positive.
-Definition ___compcert_i64_utof : ident := 56%positive.
-Definition ___compcert_va_composite : ident := 50%positive.
-Definition ___compcert_va_float64 : ident := 49%positive.
-Definition ___compcert_va_int32 : ident := 47%positive.
-Definition ___compcert_va_int64 : ident := 48%positive.
-Definition _a : ident := 42%positive.
+Definition ___builtin_ais_annot : ident := 5%positive.
+Definition ___builtin_annot : ident := 22%positive.
+Definition ___builtin_annot_intval : ident := 23%positive.
+Definition ___builtin_bswap : ident := 7%positive.
+Definition ___builtin_bswap16 : ident := 9%positive.
+Definition ___builtin_bswap32 : ident := 8%positive.
+Definition ___builtin_bswap64 : ident := 6%positive.
+Definition ___builtin_clz : ident := 10%positive.
+Definition ___builtin_clzl : ident := 11%positive.
+Definition ___builtin_clzll : ident := 12%positive.
+Definition ___builtin_ctz : ident := 13%positive.
+Definition ___builtin_ctzl : ident := 14%positive.
+Definition ___builtin_ctzll : ident := 15%positive.
+Definition ___builtin_debug : ident := 41%positive.
+Definition ___builtin_expect : ident := 30%positive.
+Definition ___builtin_fabs : ident := 16%positive.
+Definition ___builtin_fabsf : ident := 17%positive.
+Definition ___builtin_fmadd : ident := 33%positive.
+Definition ___builtin_fmax : ident := 31%positive.
+Definition ___builtin_fmin : ident := 32%positive.
+Definition ___builtin_fmsub : ident := 34%positive.
+Definition ___builtin_fnmadd : ident := 35%positive.
+Definition ___builtin_fnmsub : ident := 36%positive.
+Definition ___builtin_fsqrt : ident := 18%positive.
+Definition ___builtin_membar : ident := 24%positive.
+Definition ___builtin_memcpy_aligned : ident := 20%positive.
+Definition ___builtin_read16_reversed : ident := 37%positive.
+Definition ___builtin_read32_reversed : ident := 38%positive.
+Definition ___builtin_sel : ident := 21%positive.
+Definition ___builtin_sqrt : ident := 19%positive.
+Definition ___builtin_unreachable : ident := 29%positive.
+Definition ___builtin_va_arg : ident := 26%positive.
+Definition ___builtin_va_copy : ident := 27%positive.
+Definition ___builtin_va_end : ident := 28%positive.
+Definition ___builtin_va_start : ident := 25%positive.
+Definition ___builtin_write16_reversed : ident := 39%positive.
+Definition ___builtin_write32_reversed : ident := 40%positive.
+Definition ___compcert_i64_dtos : ident := 52%positive.
+Definition ___compcert_i64_dtou : ident := 53%positive.
+Definition ___compcert_i64_sar : ident := 64%positive.
+Definition ___compcert_i64_sdiv : ident := 58%positive.
+Definition ___compcert_i64_shl : ident := 62%positive.
+Definition ___compcert_i64_shr : ident := 63%positive.
+Definition ___compcert_i64_smod : ident := 60%positive.
+Definition ___compcert_i64_smulh : ident := 65%positive.
+Definition ___compcert_i64_stod : ident := 54%positive.
+Definition ___compcert_i64_stof : ident := 56%positive.
+Definition ___compcert_i64_udiv : ident := 59%positive.
+Definition ___compcert_i64_umod : ident := 61%positive.
+Definition ___compcert_i64_umulh : ident := 66%positive.
+Definition ___compcert_i64_utod : ident := 55%positive.
+Definition ___compcert_i64_utof : ident := 57%positive.
+Definition ___compcert_va_composite : ident := 51%positive.
+Definition ___compcert_va_float64 : ident := 50%positive.
+Definition ___compcert_va_int32 : ident := 48%positive.
+Definition ___compcert_va_int64 : ident := 49%positive.
+Definition _a : ident := 43%positive.
Definition _foo : ident := 1%positive.
-Definition _main : ident := 46%positive.
-Definition _s : ident := 41%positive.
+Definition _main : ident := 47%positive.
+Definition _s : ident := 42%positive.
Definition _x : ident := 2%positive.
-Definition _x1 : ident := 44%positive.
+Definition _x1 : ident := 45%positive.
Definition _y : ident := 3%positive.
-Definition _y1 : ident := 43%positive.
-Definition _y2 : ident := 45%positive.
+Definition _y1 : ident := 44%positive.
+Definition _y2 : ident := 46%positive.
Definition _z : ident := 4%positive.
-Definition _t'1 : ident := 66%positive.
-Definition _t'2 : ident := 67%positive.
-Definition _t'3 : ident := 68%positive.
+Definition _t'1 : ident := 67%positive.
+Definition _t'2 : ident := 68%positive.
+Definition _t'3 : ident := 69%positive.
Definition v_s := {|
gvar_info := (Tstruct _foo noattr);
@@ -151,264 +152,259 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_s, Gvar v_s) :: (_a, Gvar v_a) :: (_main, Gfun(Internal f_main)) :: nil).
@@ -425,12 +421,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/floyd_tests.v b/progs/floyd_tests.v
index c6050d878a..c594234e7e 100644
--- a/progs/floyd_tests.v
+++ b/progs/floyd_tests.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,68 +19,69 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 47%positive.
-Definition ___compcert_i64_dtou : ident := 48%positive.
-Definition ___compcert_i64_sar : ident := 59%positive.
-Definition ___compcert_i64_sdiv : ident := 53%positive.
-Definition ___compcert_i64_shl : ident := 57%positive.
-Definition ___compcert_i64_shr : ident := 58%positive.
-Definition ___compcert_i64_smod : ident := 55%positive.
-Definition ___compcert_i64_smulh : ident := 60%positive.
-Definition ___compcert_i64_stod : ident := 49%positive.
-Definition ___compcert_i64_stof : ident := 51%positive.
-Definition ___compcert_i64_udiv : ident := 54%positive.
-Definition ___compcert_i64_umod : ident := 56%positive.
-Definition ___compcert_i64_umulh : ident := 61%positive.
-Definition ___compcert_i64_utod : ident := 50%positive.
-Definition ___compcert_i64_utof : ident := 52%positive.
-Definition ___compcert_va_composite : ident := 46%positive.
-Definition ___compcert_va_float64 : ident := 45%positive.
-Definition ___compcert_va_int32 : ident := 43%positive.
-Definition ___compcert_va_int64 : ident := 44%positive.
-Definition _a : ident := 38%positive.
-Definition _b : ident := 39%positive.
-Definition _main : ident := 42%positive.
-Definition _p : ident := 37%positive.
-Definition _test_sizeof : ident := 40%positive.
-Definition _x : ident := 41%positive.
-Definition _t'1 : ident := 62%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 48%positive.
+Definition ___compcert_i64_dtou : ident := 49%positive.
+Definition ___compcert_i64_sar : ident := 60%positive.
+Definition ___compcert_i64_sdiv : ident := 54%positive.
+Definition ___compcert_i64_shl : ident := 58%positive.
+Definition ___compcert_i64_shr : ident := 59%positive.
+Definition ___compcert_i64_smod : ident := 56%positive.
+Definition ___compcert_i64_smulh : ident := 61%positive.
+Definition ___compcert_i64_stod : ident := 50%positive.
+Definition ___compcert_i64_stof : ident := 52%positive.
+Definition ___compcert_i64_udiv : ident := 55%positive.
+Definition ___compcert_i64_umod : ident := 57%positive.
+Definition ___compcert_i64_umulh : ident := 62%positive.
+Definition ___compcert_i64_utod : ident := 51%positive.
+Definition ___compcert_i64_utof : ident := 53%positive.
+Definition ___compcert_va_composite : ident := 47%positive.
+Definition ___compcert_va_float64 : ident := 46%positive.
+Definition ___compcert_va_int32 : ident := 44%positive.
+Definition ___compcert_va_int64 : ident := 45%positive.
+Definition _a : ident := 39%positive.
+Definition _b : ident := 40%positive.
+Definition _main : ident := 43%positive.
+Definition _p : ident := 38%positive.
+Definition _test_sizeof : ident := 41%positive.
+Definition _x : ident := 42%positive.
+Definition _t'1 : ident := 63%positive.
Definition f_test_sizeof := {|
fn_return := tint;
@@ -109,8 +110,7 @@ Definition f_main := {|
(Sassign (Evar _x tint) (Econst_int (Int.repr 0) tint))
(Ssequence
(Scall (Some _t'1)
- (Evar _test_sizeof (Tfunction (Tcons (tptr tint) Tnil) tint
- cc_default))
+ (Evar _test_sizeof (Tfunction ((tptr tint) :: nil) tint cc_default))
((Eaddrof (Evar _x tint) (tptr tint)) :: nil))
(Sreturn (Some (Etempvar _t'1 tint)))))
(Sreturn (Some (Econst_int (Int.repr 0) tint))))
@@ -122,264 +122,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_test_sizeof, Gfun(Internal f_test_sizeof)) ::
(_main, Gfun(Internal f_main)) :: nil).
@@ -397,12 +392,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/funcptr.v b/progs/funcptr.v
index 0c9b9b6778..408feb5ba6 100644
--- a/progs/funcptr.v
+++ b/progs/funcptr.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,67 +19,68 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 46%positive.
-Definition ___compcert_i64_dtou : ident := 47%positive.
-Definition ___compcert_i64_sar : ident := 58%positive.
-Definition ___compcert_i64_sdiv : ident := 52%positive.
-Definition ___compcert_i64_shl : ident := 56%positive.
-Definition ___compcert_i64_shr : ident := 57%positive.
-Definition ___compcert_i64_smod : ident := 54%positive.
-Definition ___compcert_i64_smulh : ident := 59%positive.
-Definition ___compcert_i64_stod : ident := 48%positive.
-Definition ___compcert_i64_stof : ident := 50%positive.
-Definition ___compcert_i64_udiv : ident := 53%positive.
-Definition ___compcert_i64_umod : ident := 55%positive.
-Definition ___compcert_i64_umulh : ident := 60%positive.
-Definition ___compcert_i64_utod : ident := 49%positive.
-Definition ___compcert_i64_utof : ident := 51%positive.
-Definition ___compcert_va_composite : ident := 45%positive.
-Definition ___compcert_va_float64 : ident := 44%positive.
-Definition ___compcert_va_int32 : ident := 42%positive.
-Definition ___compcert_va_int64 : ident := 43%positive.
-Definition _f : ident := 39%positive.
-Definition _i : ident := 37%positive.
-Definition _j : ident := 40%positive.
-Definition _main : ident := 41%positive.
-Definition _myfunc : ident := 38%positive.
-Definition _t'1 : ident := 61%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 47%positive.
+Definition ___compcert_i64_dtou : ident := 48%positive.
+Definition ___compcert_i64_sar : ident := 59%positive.
+Definition ___compcert_i64_sdiv : ident := 53%positive.
+Definition ___compcert_i64_shl : ident := 57%positive.
+Definition ___compcert_i64_shr : ident := 58%positive.
+Definition ___compcert_i64_smod : ident := 55%positive.
+Definition ___compcert_i64_smulh : ident := 60%positive.
+Definition ___compcert_i64_stod : ident := 49%positive.
+Definition ___compcert_i64_stof : ident := 51%positive.
+Definition ___compcert_i64_udiv : ident := 54%positive.
+Definition ___compcert_i64_umod : ident := 56%positive.
+Definition ___compcert_i64_umulh : ident := 61%positive.
+Definition ___compcert_i64_utod : ident := 50%positive.
+Definition ___compcert_i64_utof : ident := 52%positive.
+Definition ___compcert_va_composite : ident := 46%positive.
+Definition ___compcert_va_float64 : ident := 45%positive.
+Definition ___compcert_va_int32 : ident := 43%positive.
+Definition ___compcert_va_int64 : ident := 44%positive.
+Definition _f : ident := 40%positive.
+Definition _i : ident := 38%positive.
+Definition _j : ident := 41%positive.
+Definition _main : ident := 42%positive.
+Definition _myfunc : ident := 39%positive.
+Definition _t'1 : ident := 62%positive.
Definition f_myfunc := {|
fn_return := tint;
@@ -97,18 +98,18 @@ Definition f_main := {|
fn_callconv := cc_default;
fn_params := nil;
fn_vars := nil;
- fn_temps := ((_f, (tptr (Tfunction (Tcons tint Tnil) tint cc_default))) ::
+ fn_temps := ((_f, (tptr (Tfunction (tint :: nil) tint cc_default))) ::
(_j, tint) :: (_t'1, tint) :: nil);
fn_body :=
(Ssequence
(Ssequence
(Sset _f
- (Eaddrof (Evar _myfunc (Tfunction (Tcons tint Tnil) tint cc_default))
- (tptr (Tfunction (Tcons tint Tnil) tint cc_default))))
+ (Eaddrof (Evar _myfunc (Tfunction (tint :: nil) tint cc_default))
+ (tptr (Tfunction (tint :: nil) tint cc_default))))
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Etempvar _f (tptr (Tfunction (Tcons tint Tnil) tint cc_default)))
+ (Etempvar _f (tptr (Tfunction (tint :: nil) tint cc_default)))
((Econst_int (Int.repr 3) tint) :: nil))
(Sset _j (Etempvar _t'1 tint)))
(Sreturn (Some (Etempvar _j tint)))))
@@ -121,264 +122,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_myfunc, Gfun(Internal f_myfunc)) :: (_main, Gfun(Internal f_main)) :: nil).
@@ -395,12 +391,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/global.v b/progs/global.v
index 477e83952c..e9f42fba1c 100644
--- a/progs/global.v
+++ b/progs/global.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,75 +19,76 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 20%positive.
-Definition ___builtin_annot_intval : ident := 21%positive.
-Definition ___builtin_bswap : ident := 5%positive.
-Definition ___builtin_bswap16 : ident := 7%positive.
-Definition ___builtin_bswap32 : ident := 6%positive.
-Definition ___builtin_bswap64 : ident := 4%positive.
-Definition ___builtin_clz : ident := 8%positive.
-Definition ___builtin_clzl : ident := 9%positive.
-Definition ___builtin_clzll : ident := 10%positive.
-Definition ___builtin_ctz : ident := 11%positive.
-Definition ___builtin_ctzl : ident := 12%positive.
-Definition ___builtin_ctzll : ident := 13%positive.
-Definition ___builtin_debug : ident := 39%positive.
-Definition ___builtin_expect : ident := 28%positive.
-Definition ___builtin_fabs : ident := 14%positive.
-Definition ___builtin_fabsf : ident := 15%positive.
-Definition ___builtin_fmadd : ident := 31%positive.
-Definition ___builtin_fmax : ident := 29%positive.
-Definition ___builtin_fmin : ident := 30%positive.
-Definition ___builtin_fmsub : ident := 32%positive.
-Definition ___builtin_fnmadd : ident := 33%positive.
-Definition ___builtin_fnmsub : ident := 34%positive.
-Definition ___builtin_fsqrt : ident := 16%positive.
-Definition ___builtin_membar : ident := 22%positive.
-Definition ___builtin_memcpy_aligned : ident := 18%positive.
-Definition ___builtin_read16_reversed : ident := 35%positive.
-Definition ___builtin_read32_reversed : ident := 36%positive.
-Definition ___builtin_sel : ident := 19%positive.
-Definition ___builtin_sqrt : ident := 17%positive.
-Definition ___builtin_unreachable : ident := 27%positive.
-Definition ___builtin_va_arg : ident := 24%positive.
-Definition ___builtin_va_copy : ident := 25%positive.
-Definition ___builtin_va_end : ident := 26%positive.
-Definition ___builtin_va_start : ident := 23%positive.
-Definition ___builtin_write16_reversed : ident := 37%positive.
-Definition ___builtin_write32_reversed : ident := 38%positive.
-Definition ___compcert_i64_dtos : ident := 54%positive.
-Definition ___compcert_i64_dtou : ident := 55%positive.
-Definition ___compcert_i64_sar : ident := 66%positive.
-Definition ___compcert_i64_sdiv : ident := 60%positive.
-Definition ___compcert_i64_shl : ident := 64%positive.
-Definition ___compcert_i64_shr : ident := 65%positive.
-Definition ___compcert_i64_smod : ident := 62%positive.
-Definition ___compcert_i64_smulh : ident := 67%positive.
-Definition ___compcert_i64_stod : ident := 56%positive.
-Definition ___compcert_i64_stof : ident := 58%positive.
-Definition ___compcert_i64_udiv : ident := 61%positive.
-Definition ___compcert_i64_umod : ident := 63%positive.
-Definition ___compcert_i64_umulh : ident := 68%positive.
-Definition ___compcert_i64_utod : ident := 57%positive.
-Definition ___compcert_i64_utof : ident := 59%positive.
-Definition ___compcert_va_composite : ident := 53%positive.
-Definition ___compcert_va_float64 : ident := 52%positive.
-Definition ___compcert_va_int32 : ident := 50%positive.
-Definition ___compcert_va_int64 : ident := 51%positive.
+Definition ___builtin_ais_annot : ident := 4%positive.
+Definition ___builtin_annot : ident := 21%positive.
+Definition ___builtin_annot_intval : ident := 22%positive.
+Definition ___builtin_bswap : ident := 6%positive.
+Definition ___builtin_bswap16 : ident := 8%positive.
+Definition ___builtin_bswap32 : ident := 7%positive.
+Definition ___builtin_bswap64 : ident := 5%positive.
+Definition ___builtin_clz : ident := 9%positive.
+Definition ___builtin_clzl : ident := 10%positive.
+Definition ___builtin_clzll : ident := 11%positive.
+Definition ___builtin_ctz : ident := 12%positive.
+Definition ___builtin_ctzl : ident := 13%positive.
+Definition ___builtin_ctzll : ident := 14%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 29%positive.
+Definition ___builtin_fabs : ident := 15%positive.
+Definition ___builtin_fabsf : ident := 16%positive.
+Definition ___builtin_fmadd : ident := 32%positive.
+Definition ___builtin_fmax : ident := 30%positive.
+Definition ___builtin_fmin : ident := 31%positive.
+Definition ___builtin_fmsub : ident := 33%positive.
+Definition ___builtin_fnmadd : ident := 34%positive.
+Definition ___builtin_fnmsub : ident := 35%positive.
+Definition ___builtin_fsqrt : ident := 17%positive.
+Definition ___builtin_membar : ident := 23%positive.
+Definition ___builtin_memcpy_aligned : ident := 19%positive.
+Definition ___builtin_read16_reversed : ident := 36%positive.
+Definition ___builtin_read32_reversed : ident := 37%positive.
+Definition ___builtin_sel : ident := 20%positive.
+Definition ___builtin_sqrt : ident := 18%positive.
+Definition ___builtin_unreachable : ident := 28%positive.
+Definition ___builtin_va_arg : ident := 25%positive.
+Definition ___builtin_va_copy : ident := 26%positive.
+Definition ___builtin_va_end : ident := 27%positive.
+Definition ___builtin_va_start : ident := 24%positive.
+Definition ___builtin_write16_reversed : ident := 38%positive.
+Definition ___builtin_write32_reversed : ident := 39%positive.
+Definition ___compcert_i64_dtos : ident := 55%positive.
+Definition ___compcert_i64_dtou : ident := 56%positive.
+Definition ___compcert_i64_sar : ident := 67%positive.
+Definition ___compcert_i64_sdiv : ident := 61%positive.
+Definition ___compcert_i64_shl : ident := 65%positive.
+Definition ___compcert_i64_shr : ident := 66%positive.
+Definition ___compcert_i64_smod : ident := 63%positive.
+Definition ___compcert_i64_smulh : ident := 68%positive.
+Definition ___compcert_i64_stod : ident := 57%positive.
+Definition ___compcert_i64_stof : ident := 59%positive.
+Definition ___compcert_i64_udiv : ident := 62%positive.
+Definition ___compcert_i64_umod : ident := 64%positive.
+Definition ___compcert_i64_umulh : ident := 69%positive.
+Definition ___compcert_i64_utod : ident := 58%positive.
+Definition ___compcert_i64_utof : ident := 60%positive.
+Definition ___compcert_va_composite : ident := 54%positive.
+Definition ___compcert_va_float64 : ident := 53%positive.
+Definition ___compcert_va_int32 : ident := 51%positive.
+Definition ___compcert_va_int64 : ident := 52%positive.
Definition _a : ident := 3%positive.
-Definition _b : ident := 41%positive.
-Definition _c : ident := 42%positive.
-Definition _d : ident := 43%positive.
-Definition _e : ident := 44%positive.
-Definition _f : ident := 45%positive.
+Definition _b : ident := 42%positive.
+Definition _c : ident := 43%positive.
+Definition _d : ident := 44%positive.
+Definition _e : ident := 45%positive.
+Definition _f : ident := 46%positive.
Definition _foo : ident := 1%positive.
-Definition _g : ident := 46%positive.
-Definition _h : ident := 47%positive.
-Definition _main : ident := 49%positive.
-Definition _p : ident := 40%positive.
+Definition _g : ident := 47%positive.
+Definition _h : ident := 48%positive.
+Definition _main : ident := 50%positive.
+Definition _p : ident := 41%positive.
Definition _x : ident := 2%positive.
-Definition _y : ident := 48%positive.
-Definition _t'1 : ident := 69%positive.
+Definition _y : ident := 49%positive.
+Definition _t'1 : ident := 70%positive.
Definition v_p := {|
gvar_info := (tptr (Tstruct _foo noattr));
@@ -172,7 +173,7 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Ssequence
- (Scall (Some _t'1) (Evar _h (Tfunction Tnil tint cc_default)) nil)
+ (Scall (Some _t'1) (Evar _h (Tfunction nil tint cc_default)) nil)
(Sset _y (Etempvar _t'1 tint)))
(Sreturn (Some (Etempvar _y tint))))
(Sreturn (Some (Econst_int (Int.repr 0) tint))))
@@ -186,264 +187,259 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_p, Gvar v_p) :: (_a, Gvar v_a) :: (_b, Gvar v_b) :: (_c, Gvar v_c) ::
(_d, Gvar v_d) :: (_e, Gvar v_e) :: (_f, Gvar v_f) :: (_g, Gvar v_g) ::
@@ -463,12 +459,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/incr.v b/progs/incr.v
index 8f4d9f51c5..f2d3d8734c 100644
--- a/progs/incr.v
+++ b/progs/incr.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,6 +19,7 @@ Module Info.
Definition normalized := true.
End Info.
+Definition ___builtin_ais_annot : ident := $"__builtin_ais_annot".
Definition ___builtin_annot : ident := $"__builtin_annot".
Definition ___builtin_annot_intval : ident := $"__builtin_annot_intval".
Definition ___builtin_bswap : ident := $"__builtin_bswap".
@@ -119,9 +120,8 @@ Definition f_incr := {|
(Efield (Evar _c (Tstruct _counter noattr)) _lock
(tptr (tptr (Tstruct _atom_int noattr)))))
(Scall None
- (Evar _acquire (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid
- cc_default))
+ (Evar _acquire (Tfunction ((tptr (Tstruct _atom_int noattr)) :: nil)
+ tvoid cc_default))
((Etempvar _t'3 (tptr (tptr (Tstruct _atom_int noattr)))) :: nil)))
(Ssequence
(Ssequence
@@ -134,9 +134,8 @@ Definition f_incr := {|
(Efield (Evar _c (Tstruct _counter noattr)) _lock
(tptr (tptr (Tstruct _atom_int noattr)))))
(Scall None
- (Evar _release (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid
- cc_default))
+ (Evar _release (Tfunction ((tptr (Tstruct _atom_int noattr)) :: nil)
+ tvoid cc_default))
((Etempvar _t'1 (tptr (tptr (Tstruct _atom_int noattr)))) :: nil)))))
|}.
@@ -155,9 +154,8 @@ Definition f_read := {|
(Efield (Evar _c (Tstruct _counter noattr)) _lock
(tptr (tptr (Tstruct _atom_int noattr)))))
(Scall None
- (Evar _acquire (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid
- cc_default))
+ (Evar _acquire (Tfunction ((tptr (Tstruct _atom_int noattr)) :: nil)
+ tvoid cc_default))
((Etempvar _t'2 (tptr (tptr (Tstruct _atom_int noattr)))) :: nil)))
(Ssequence
(Sset _t (Efield (Evar _c (Tstruct _counter noattr)) _ctr tuint))
@@ -168,8 +166,8 @@ Definition f_read := {|
(tptr (tptr (Tstruct _atom_int noattr)))))
(Scall None
(Evar _release (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil)
- tvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _t'1 (tptr (tptr (Tstruct _atom_int noattr)))) :: nil)))
(Sreturn (Some (Etempvar _t tuint))))))
|}.
@@ -182,12 +180,11 @@ Definition f_thread_func := {|
fn_temps := nil;
fn_body :=
(Ssequence
- (Scall None (Evar _incr (Tfunction Tnil tvoid cc_default)) nil)
+ (Scall None (Evar _incr (Tfunction nil tvoid cc_default)) nil)
(Ssequence
(Scall None
- (Evar _release (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid
- cc_default))
+ (Evar _release (Tfunction ((tptr (Tstruct _atom_int noattr)) :: nil)
+ tvoid cc_default))
((Ecast (Etempvar _thread_lock (tptr tvoid))
(tptr (tptr (Tstruct _atom_int noattr)))) :: nil))
(Sreturn (Some (Econst_int (Int.repr 0) tint)))))
@@ -213,7 +210,7 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _makelock (Tfunction Tnil (tptr (Tstruct _atom_int noattr))
+ (Evar _makelock (Tfunction nil (tptr (Tstruct _atom_int noattr))
cc_default)) nil)
(Sassign
(Efield (Evar _c (Tstruct _counter noattr)) _lock
@@ -226,13 +223,13 @@ Definition f_main := {|
(tptr (tptr (Tstruct _atom_int noattr)))))
(Scall None
(Evar _release (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil)
- tvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _t'6 (tptr (tptr (Tstruct _atom_int noattr)))) :: nil)))
(Ssequence
(Ssequence
(Scall (Some _t'2)
- (Evar _makelock (Tfunction Tnil
+ (Evar _makelock (Tfunction nil
(tptr (Tstruct _atom_int noattr)) cc_default))
nil)
(Sset _thread_lock
@@ -240,32 +237,31 @@ Definition f_main := {|
(Ssequence
(Scall None
(Evar _spawn (Tfunction
- (Tcons
- (tptr (Tfunction (Tcons (tptr tvoid) Tnil)
- tint cc_default))
- (Tcons (tptr tvoid) Tnil)) tvoid cc_default))
+ ((tptr (Tfunction ((tptr tvoid) :: nil) tint
+ cc_default)) :: (tptr tvoid) :: nil)
+ tvoid cc_default))
((Ecast
(Eaddrof
- (Evar _thread_func (Tfunction (Tcons (tptr tvoid) Tnil)
- tint cc_default))
- (tptr (Tfunction (Tcons (tptr tvoid) Tnil) tint
- cc_default))) (tptr tvoid)) ::
+ (Evar _thread_func (Tfunction ((tptr tvoid) :: nil) tint
+ cc_default))
+ (tptr (Tfunction ((tptr tvoid) :: nil) tint cc_default)))
+ (tptr tvoid)) ::
(Ecast
(Etempvar _thread_lock (tptr (tptr (Tstruct _atom_int noattr))))
(tptr tvoid)) :: nil))
(Ssequence
- (Scall None (Evar _incr (Tfunction Tnil tvoid cc_default)) nil)
+ (Scall None (Evar _incr (Tfunction nil tvoid cc_default)) nil)
(Ssequence
(Scall None
(Evar _acquire (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil)
+ tvoid cc_default))
((Etempvar _thread_lock (tptr (tptr (Tstruct _atom_int noattr)))) ::
nil))
(Ssequence
(Ssequence
(Scall (Some _t'3)
- (Evar _read (Tfunction Tnil tuint cc_default)) nil)
+ (Evar _read (Tfunction nil tuint cc_default)) nil)
(Sset _t (Etempvar _t'3 tuint)))
(Ssequence
(Ssequence
@@ -274,17 +270,15 @@ Definition f_main := {|
(tptr (tptr (Tstruct _atom_int noattr)))))
(Scall None
(Evar _acquire (Tfunction
- (Tcons
- (tptr (Tstruct _atom_int noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) ::
+ nil) tvoid cc_default))
((Etempvar _t'5 (tptr (tptr (Tstruct _atom_int noattr)))) ::
nil)))
(Ssequence
(Scall None
(Evar _freelock (Tfunction
- (Tcons
- (tptr (Tstruct _atom_int noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) ::
+ nil) tvoid cc_default))
((Etempvar _thread_lock (tptr (tptr (Tstruct _atom_int noattr)))) ::
nil))
(Ssequence
@@ -294,9 +288,8 @@ Definition f_main := {|
(tptr (tptr (Tstruct _atom_int noattr)))))
(Scall None
(Evar _freelock (Tfunction
- (Tcons
- (tptr (Tstruct _atom_int noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) ::
+ nil) tvoid cc_default))
((Etempvar _t'4 (tptr (tptr (Tstruct _atom_int noattr)))) ::
nil)))
(Sreturn (Some (Etempvar _t tuint))))))))))))))
@@ -312,287 +305,282 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_makelock,
Gfun(External (EF_external "makelock"
- (mksignature nil AST.Tint cc_default)) Tnil
+ (mksignature nil AST.Xptr cc_default)) nil
(tptr (Tstruct _atom_int noattr)) cc_default)) ::
(_freelock,
Gfun(External (EF_external "freelock"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil) tvoid cc_default)) ::
(_acquire,
Gfun(External (EF_external "acquire"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil) tvoid cc_default)) ::
(_release,
Gfun(External (EF_external "release"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil) tvoid cc_default)) ::
(_spawn,
Gfun(External (EF_external "spawn"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
cc_default))
- (Tcons (tptr (Tfunction (Tcons (tptr tvoid) Tnil) tint cc_default))
- (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) :: (_c, Gvar v_c) ::
+ ((tptr (Tfunction ((tptr tvoid) :: nil) tint cc_default)) ::
+ (tptr tvoid) :: nil) tvoid cc_default)) :: (_c, Gvar v_c) ::
(_incr, Gfun(Internal f_incr)) :: (_read, Gfun(Internal f_read)) ::
(_thread_func, Gfun(Internal f_thread_func)) ::
(_main, Gfun(Internal f_main)) :: nil).
@@ -612,13 +600,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/insertionsort.v b/progs/insertionsort.v
index 43561c3566..d6bd33947f 100644
--- a/progs/insertionsort.v
+++ b/progs/insertionsort.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,78 +19,79 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 20%positive.
-Definition ___builtin_annot_intval : ident := 21%positive.
-Definition ___builtin_bswap : ident := 5%positive.
-Definition ___builtin_bswap16 : ident := 7%positive.
-Definition ___builtin_bswap32 : ident := 6%positive.
-Definition ___builtin_bswap64 : ident := 4%positive.
-Definition ___builtin_clz : ident := 8%positive.
-Definition ___builtin_clzl : ident := 9%positive.
-Definition ___builtin_clzll : ident := 10%positive.
-Definition ___builtin_ctz : ident := 11%positive.
-Definition ___builtin_ctzl : ident := 12%positive.
-Definition ___builtin_ctzll : ident := 13%positive.
-Definition ___builtin_debug : ident := 39%positive.
-Definition ___builtin_expect : ident := 28%positive.
-Definition ___builtin_fabs : ident := 14%positive.
-Definition ___builtin_fabsf : ident := 15%positive.
-Definition ___builtin_fmadd : ident := 31%positive.
-Definition ___builtin_fmax : ident := 29%positive.
-Definition ___builtin_fmin : ident := 30%positive.
-Definition ___builtin_fmsub : ident := 32%positive.
-Definition ___builtin_fnmadd : ident := 33%positive.
-Definition ___builtin_fnmsub : ident := 34%positive.
-Definition ___builtin_fsqrt : ident := 16%positive.
-Definition ___builtin_membar : ident := 22%positive.
-Definition ___builtin_memcpy_aligned : ident := 18%positive.
-Definition ___builtin_read16_reversed : ident := 35%positive.
-Definition ___builtin_read32_reversed : ident := 36%positive.
-Definition ___builtin_sel : ident := 19%positive.
-Definition ___builtin_sqrt : ident := 17%positive.
-Definition ___builtin_unreachable : ident := 27%positive.
-Definition ___builtin_va_arg : ident := 24%positive.
-Definition ___builtin_va_copy : ident := 25%positive.
-Definition ___builtin_va_end : ident := 26%positive.
-Definition ___builtin_va_start : ident := 23%positive.
-Definition ___builtin_write16_reversed : ident := 37%positive.
-Definition ___builtin_write32_reversed : ident := 38%positive.
-Definition ___compcert_i64_dtos : ident := 56%positive.
-Definition ___compcert_i64_dtou : ident := 57%positive.
-Definition ___compcert_i64_sar : ident := 68%positive.
-Definition ___compcert_i64_sdiv : ident := 62%positive.
-Definition ___compcert_i64_shl : ident := 66%positive.
-Definition ___compcert_i64_shr : ident := 67%positive.
-Definition ___compcert_i64_smod : ident := 64%positive.
-Definition ___compcert_i64_smulh : ident := 69%positive.
-Definition ___compcert_i64_stod : ident := 58%positive.
-Definition ___compcert_i64_stof : ident := 60%positive.
-Definition ___compcert_i64_udiv : ident := 63%positive.
-Definition ___compcert_i64_umod : ident := 65%positive.
-Definition ___compcert_i64_umulh : ident := 70%positive.
-Definition ___compcert_i64_utod : ident := 59%positive.
-Definition ___compcert_i64_utof : ident := 61%positive.
-Definition ___compcert_va_composite : ident := 55%positive.
-Definition ___compcert_va_float64 : ident := 54%positive.
-Definition ___compcert_va_int32 : ident := 52%positive.
-Definition ___compcert_va_int64 : ident := 53%positive.
-Definition _guard : ident := 45%positive.
+Definition ___builtin_ais_annot : ident := 4%positive.
+Definition ___builtin_annot : ident := 21%positive.
+Definition ___builtin_annot_intval : ident := 22%positive.
+Definition ___builtin_bswap : ident := 6%positive.
+Definition ___builtin_bswap16 : ident := 8%positive.
+Definition ___builtin_bswap32 : ident := 7%positive.
+Definition ___builtin_bswap64 : ident := 5%positive.
+Definition ___builtin_clz : ident := 9%positive.
+Definition ___builtin_clzl : ident := 10%positive.
+Definition ___builtin_clzll : ident := 11%positive.
+Definition ___builtin_ctz : ident := 12%positive.
+Definition ___builtin_ctzl : ident := 13%positive.
+Definition ___builtin_ctzll : ident := 14%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 29%positive.
+Definition ___builtin_fabs : ident := 15%positive.
+Definition ___builtin_fabsf : ident := 16%positive.
+Definition ___builtin_fmadd : ident := 32%positive.
+Definition ___builtin_fmax : ident := 30%positive.
+Definition ___builtin_fmin : ident := 31%positive.
+Definition ___builtin_fmsub : ident := 33%positive.
+Definition ___builtin_fnmadd : ident := 34%positive.
+Definition ___builtin_fnmsub : ident := 35%positive.
+Definition ___builtin_fsqrt : ident := 17%positive.
+Definition ___builtin_membar : ident := 23%positive.
+Definition ___builtin_memcpy_aligned : ident := 19%positive.
+Definition ___builtin_read16_reversed : ident := 36%positive.
+Definition ___builtin_read32_reversed : ident := 37%positive.
+Definition ___builtin_sel : ident := 20%positive.
+Definition ___builtin_sqrt : ident := 18%positive.
+Definition ___builtin_unreachable : ident := 28%positive.
+Definition ___builtin_va_arg : ident := 25%positive.
+Definition ___builtin_va_copy : ident := 26%positive.
+Definition ___builtin_va_end : ident := 27%positive.
+Definition ___builtin_va_start : ident := 24%positive.
+Definition ___builtin_write16_reversed : ident := 38%positive.
+Definition ___builtin_write32_reversed : ident := 39%positive.
+Definition ___compcert_i64_dtos : ident := 57%positive.
+Definition ___compcert_i64_dtou : ident := 58%positive.
+Definition ___compcert_i64_sar : ident := 69%positive.
+Definition ___compcert_i64_sdiv : ident := 63%positive.
+Definition ___compcert_i64_shl : ident := 67%positive.
+Definition ___compcert_i64_shr : ident := 68%positive.
+Definition ___compcert_i64_smod : ident := 65%positive.
+Definition ___compcert_i64_smulh : ident := 70%positive.
+Definition ___compcert_i64_stod : ident := 59%positive.
+Definition ___compcert_i64_stof : ident := 61%positive.
+Definition ___compcert_i64_udiv : ident := 64%positive.
+Definition ___compcert_i64_umod : ident := 66%positive.
+Definition ___compcert_i64_umulh : ident := 71%positive.
+Definition ___compcert_i64_utod : ident := 60%positive.
+Definition ___compcert_i64_utof : ident := 62%positive.
+Definition ___compcert_va_composite : ident := 56%positive.
+Definition ___compcert_va_float64 : ident := 55%positive.
+Definition ___compcert_va_int32 : ident := 53%positive.
+Definition ___compcert_va_int64 : ident := 54%positive.
+Definition _guard : ident := 46%positive.
Definition _head : ident := 2%positive.
-Definition _index : ident := 42%positive.
-Definition _insert : ident := 47%positive.
-Definition _insert_node : ident := 40%positive.
-Definition _insert_value : ident := 46%positive.
-Definition _insertionsort : ident := 50%positive.
+Definition _index : ident := 43%positive.
+Definition _insert : ident := 48%positive.
+Definition _insert_node : ident := 41%positive.
+Definition _insert_value : ident := 47%positive.
+Definition _insertionsort : ident := 51%positive.
Definition _list : ident := 1%positive.
-Definition _main : ident := 51%positive.
-Definition _next : ident := 49%positive.
-Definition _p : ident := 48%positive.
-Definition _previous : ident := 43%positive.
-Definition _sorted : ident := 41%positive.
-Definition _sortedvalue : ident := 44%positive.
+Definition _main : ident := 52%positive.
+Definition _next : ident := 50%positive.
+Definition _p : ident := 49%positive.
+Definition _previous : ident := 44%positive.
+Definition _sorted : ident := 42%positive.
+Definition _sortedvalue : ident := 45%positive.
Definition _tail : ident := 3%positive.
-Definition _t'1 : ident := 71%positive.
-Definition _t'2 : ident := 72%positive.
+Definition _t'1 : ident := 72%positive.
+Definition _t'2 : ident := 73%positive.
Definition f_insert := {|
fn_return := (tptr (Tstruct _list noattr));
@@ -212,10 +213,9 @@ Definition f_insertionsort := {|
(Ssequence
(Scall (Some _t'1)
(Evar _insert (Tfunction
- (Tcons (tptr (Tstruct _list noattr))
- (Tcons (tptr (Tstruct _list noattr))
- Tnil)) (tptr (Tstruct _list noattr))
- cc_default))
+ ((tptr (Tstruct _list noattr)) ::
+ (tptr (Tstruct _list noattr)) :: nil)
+ (tptr (Tstruct _list noattr)) cc_default))
((Etempvar _index (tptr (Tstruct _list noattr))) ::
(Etempvar _sorted (tptr (Tstruct _list noattr))) :: nil))
(Sset _sorted (Etempvar _t'1 (tptr (Tstruct _list noattr)))))
@@ -244,264 +244,259 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_insert, Gfun(Internal f_insert)) ::
(_insertionsort, Gfun(Internal f_insertionsort)) ::
@@ -521,13 +516,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/int_or_ptr.v b/progs/int_or_ptr.v
index adb8226c1c..4ea12ec813 100644
--- a/progs/int_or_ptr.v
+++ b/progs/int_or_ptr.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,99 +19,100 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 20%positive.
-Definition ___builtin_annot_intval : ident := 21%positive.
-Definition ___builtin_bswap : ident := 5%positive.
-Definition ___builtin_bswap16 : ident := 7%positive.
-Definition ___builtin_bswap32 : ident := 6%positive.
-Definition ___builtin_bswap64 : ident := 4%positive.
-Definition ___builtin_clz : ident := 8%positive.
-Definition ___builtin_clzl : ident := 9%positive.
-Definition ___builtin_clzll : ident := 10%positive.
-Definition ___builtin_ctz : ident := 11%positive.
-Definition ___builtin_ctzl : ident := 12%positive.
-Definition ___builtin_ctzll : ident := 13%positive.
-Definition ___builtin_debug : ident := 39%positive.
-Definition ___builtin_expect : ident := 28%positive.
-Definition ___builtin_fabs : ident := 14%positive.
-Definition ___builtin_fabsf : ident := 15%positive.
-Definition ___builtin_fmadd : ident := 31%positive.
-Definition ___builtin_fmax : ident := 29%positive.
-Definition ___builtin_fmin : ident := 30%positive.
-Definition ___builtin_fmsub : ident := 32%positive.
-Definition ___builtin_fnmadd : ident := 33%positive.
-Definition ___builtin_fnmsub : ident := 34%positive.
-Definition ___builtin_fsqrt : ident := 16%positive.
-Definition ___builtin_membar : ident := 22%positive.
-Definition ___builtin_memcpy_aligned : ident := 18%positive.
-Definition ___builtin_read16_reversed : ident := 35%positive.
-Definition ___builtin_read32_reversed : ident := 36%positive.
-Definition ___builtin_sel : ident := 19%positive.
-Definition ___builtin_sqrt : ident := 17%positive.
-Definition ___builtin_unreachable : ident := 27%positive.
-Definition ___builtin_va_arg : ident := 24%positive.
-Definition ___builtin_va_copy : ident := 25%positive.
-Definition ___builtin_va_end : ident := 26%positive.
-Definition ___builtin_va_start : ident := 23%positive.
-Definition ___builtin_write16_reversed : ident := 37%positive.
-Definition ___builtin_write32_reversed : ident := 38%positive.
-Definition ___compcert_i64_dtos : ident := 71%positive.
-Definition ___compcert_i64_dtou : ident := 72%positive.
-Definition ___compcert_i64_sar : ident := 83%positive.
-Definition ___compcert_i64_sdiv : ident := 77%positive.
-Definition ___compcert_i64_shl : ident := 81%positive.
-Definition ___compcert_i64_shr : ident := 82%positive.
-Definition ___compcert_i64_smod : ident := 79%positive.
-Definition ___compcert_i64_smulh : ident := 84%positive.
-Definition ___compcert_i64_stod : ident := 73%positive.
-Definition ___compcert_i64_stof : ident := 75%positive.
-Definition ___compcert_i64_udiv : ident := 78%positive.
-Definition ___compcert_i64_umod : ident := 80%positive.
-Definition ___compcert_i64_umulh : ident := 85%positive.
-Definition ___compcert_i64_utod : ident := 74%positive.
-Definition ___compcert_i64_utof : ident := 76%positive.
-Definition ___compcert_va_composite : ident := 70%positive.
-Definition ___compcert_va_float64 : ident := 69%positive.
-Definition ___compcert_va_int32 : ident := 67%positive.
-Definition ___compcert_va_int64 : ident := 68%positive.
-Definition _a : ident := 63%positive.
-Definition _arena : ident := 49%positive.
-Definition _b : ident := 64%positive.
-Definition _copytree : ident := 59%positive.
-Definition _depth : ident := 52%positive.
-Definition _exit : ident := 41%positive.
-Definition _i : ident := 60%positive.
-Definition _int_or_ptr_to_int : ident := 44%positive.
-Definition _int_or_ptr_to_ptr : ident := 45%positive.
-Definition _int_to_int_or_ptr : ident := 46%positive.
-Definition _leaf : ident := 48%positive.
+Definition ___builtin_ais_annot : ident := 4%positive.
+Definition ___builtin_annot : ident := 21%positive.
+Definition ___builtin_annot_intval : ident := 22%positive.
+Definition ___builtin_bswap : ident := 6%positive.
+Definition ___builtin_bswap16 : ident := 8%positive.
+Definition ___builtin_bswap32 : ident := 7%positive.
+Definition ___builtin_bswap64 : ident := 5%positive.
+Definition ___builtin_clz : ident := 9%positive.
+Definition ___builtin_clzl : ident := 10%positive.
+Definition ___builtin_clzll : ident := 11%positive.
+Definition ___builtin_ctz : ident := 12%positive.
+Definition ___builtin_ctzl : ident := 13%positive.
+Definition ___builtin_ctzll : ident := 14%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 29%positive.
+Definition ___builtin_fabs : ident := 15%positive.
+Definition ___builtin_fabsf : ident := 16%positive.
+Definition ___builtin_fmadd : ident := 32%positive.
+Definition ___builtin_fmax : ident := 30%positive.
+Definition ___builtin_fmin : ident := 31%positive.
+Definition ___builtin_fmsub : ident := 33%positive.
+Definition ___builtin_fnmadd : ident := 34%positive.
+Definition ___builtin_fnmsub : ident := 35%positive.
+Definition ___builtin_fsqrt : ident := 17%positive.
+Definition ___builtin_membar : ident := 23%positive.
+Definition ___builtin_memcpy_aligned : ident := 19%positive.
+Definition ___builtin_read16_reversed : ident := 36%positive.
+Definition ___builtin_read32_reversed : ident := 37%positive.
+Definition ___builtin_sel : ident := 20%positive.
+Definition ___builtin_sqrt : ident := 18%positive.
+Definition ___builtin_unreachable : ident := 28%positive.
+Definition ___builtin_va_arg : ident := 25%positive.
+Definition ___builtin_va_copy : ident := 26%positive.
+Definition ___builtin_va_end : ident := 27%positive.
+Definition ___builtin_va_start : ident := 24%positive.
+Definition ___builtin_write16_reversed : ident := 38%positive.
+Definition ___builtin_write32_reversed : ident := 39%positive.
+Definition ___compcert_i64_dtos : ident := 72%positive.
+Definition ___compcert_i64_dtou : ident := 73%positive.
+Definition ___compcert_i64_sar : ident := 84%positive.
+Definition ___compcert_i64_sdiv : ident := 78%positive.
+Definition ___compcert_i64_shl : ident := 82%positive.
+Definition ___compcert_i64_shr : ident := 83%positive.
+Definition ___compcert_i64_smod : ident := 80%positive.
+Definition ___compcert_i64_smulh : ident := 85%positive.
+Definition ___compcert_i64_stod : ident := 74%positive.
+Definition ___compcert_i64_stof : ident := 76%positive.
+Definition ___compcert_i64_udiv : ident := 79%positive.
+Definition ___compcert_i64_umod : ident := 81%positive.
+Definition ___compcert_i64_umulh : ident := 86%positive.
+Definition ___compcert_i64_utod : ident := 75%positive.
+Definition ___compcert_i64_utof : ident := 77%positive.
+Definition ___compcert_va_composite : ident := 71%positive.
+Definition ___compcert_va_float64 : ident := 70%positive.
+Definition ___compcert_va_int32 : ident := 68%positive.
+Definition ___compcert_va_int64 : ident := 69%positive.
+Definition _a : ident := 64%positive.
+Definition _arena : ident := 50%positive.
+Definition _b : ident := 65%positive.
+Definition _copytree : ident := 60%positive.
+Definition _depth : ident := 53%positive.
+Definition _exit : ident := 42%positive.
+Definition _i : ident := 61%positive.
+Definition _int_or_ptr_to_int : ident := 45%positive.
+Definition _int_or_ptr_to_ptr : ident := 46%positive.
+Definition _int_to_int_or_ptr : ident := 47%positive.
+Definition _leaf : ident := 49%positive.
Definition _left : ident := 2%positive.
-Definition _main : ident := 66%positive.
-Definition _makenode : ident := 51%positive.
-Definition _maketree : ident := 56%positive.
-Definition _next : ident := 50%positive.
-Definition _p : ident := 54%positive.
-Definition _print : ident := 65%positive.
-Definition _print_int : ident := 62%positive.
-Definition _print_intx : ident := 61%positive.
-Definition _ptr_to_int_or_ptr : ident := 47%positive.
-Definition _putchar : ident := 40%positive.
-Definition _q : ident := 55%positive.
-Definition _r : ident := 53%positive.
+Definition _main : ident := 67%positive.
+Definition _makenode : ident := 52%positive.
+Definition _maketree : ident := 57%positive.
+Definition _next : ident := 51%positive.
+Definition _p : ident := 55%positive.
+Definition _print : ident := 66%positive.
+Definition _print_int : ident := 63%positive.
+Definition _print_intx : ident := 62%positive.
+Definition _ptr_to_int_or_ptr : ident := 48%positive.
+Definition _putchar : ident := 41%positive.
+Definition _q : ident := 56%positive.
+Definition _r : ident := 54%positive.
Definition _right : ident := 3%positive.
-Definition _s : ident := 58%positive.
-Definition _t : ident := 57%positive.
-Definition _test_int_or_ptr : ident := 43%positive.
+Definition _s : ident := 59%positive.
+Definition _t : ident := 58%positive.
+Definition _test_int_or_ptr : ident := 44%positive.
Definition _tree : ident := 1%positive.
-Definition _x : ident := 42%positive.
-Definition _t'1 : ident := 86%positive.
-Definition _t'2 : ident := 87%positive.
-Definition _t'3 : ident := 88%positive.
-Definition _t'4 : ident := 89%positive.
-Definition _t'5 : ident := 90%positive.
-Definition _t'6 : ident := 91%positive.
-Definition _t'7 : ident := 92%positive.
-Definition _t'8 : ident := 93%positive.
+Definition _x : ident := 43%positive.
+Definition _t'1 : ident := 87%positive.
+Definition _t'2 : ident := 88%positive.
+Definition _t'3 : ident := 89%positive.
+Definition _t'4 : ident := 90%positive.
+Definition _t'5 : ident := 91%positive.
+Definition _t'6 : ident := 92%positive.
+Definition _t'7 : ident := 93%positive.
+Definition _t'8 : ident := 94%positive.
Definition f_test_int_or_ptr := {|
fn_return := tint;
@@ -231,7 +232,7 @@ Definition f_makenode := {|
(Ebinop Oadd (Etempvar _t'1 (tptr (Tstruct _tree noattr)))
(Econst_int (Int.repr 1) tint) (tptr (Tstruct _tree noattr)))))
(Sreturn (Some (Etempvar _t'1 (tptr (Tstruct _tree noattr))))))))
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))))
|}.
@@ -260,7 +261,7 @@ Definition f_maketree := {|
(Ebinop Oadd (Etempvar _t'1 tint) (Econst_int (Int.repr 1) tint)
tint)))
(Scall (Some _t'2)
- (Evar _int_to_int_or_ptr (Tfunction (Tcons tuint Tnil)
+ (Evar _int_to_int_or_ptr (Tfunction (tuint :: nil)
(talignas 2%N (tptr tvoid)) cc_default))
((Ebinop Oor
(Ebinop Oshl (Etempvar _t'1 tint) (Econst_int (Int.repr 1) tint)
@@ -270,15 +271,15 @@ Definition f_maketree := {|
(Ssequence
(Ssequence
(Scall (Some _t'3)
- (Evar _maketree (Tfunction (Tcons tint Tnil)
- (talignas 2%N (tptr tvoid)) cc_default))
+ (Evar _maketree (Tfunction (tint :: nil) (talignas 2%N (tptr tvoid))
+ cc_default))
((Ebinop Osub (Etempvar _depth tint) (Econst_int (Int.repr 1) tint)
tint) :: nil))
(Sset _p (Etempvar _t'3 (talignas 2%N (tptr tvoid)))))
(Ssequence
(Ssequence
(Scall (Some _t'4)
- (Evar _maketree (Tfunction (Tcons tint Tnil)
+ (Evar _maketree (Tfunction (tint :: nil)
(talignas 2%N (tptr tvoid)) cc_default))
((Ebinop Osub (Etempvar _depth tint) (Econst_int (Int.repr 1) tint)
tint) :: nil))
@@ -287,13 +288,13 @@ Definition f_maketree := {|
(Ssequence
(Scall (Some _t'5)
(Evar _makenode (Tfunction
- (Tcons (talignas 2%N (tptr tvoid))
- (Tcons (talignas 2%N (tptr tvoid)) Tnil))
+ ((talignas 2%N (tptr tvoid)) ::
+ (talignas 2%N (tptr tvoid)) :: nil)
(tptr (Tstruct _tree noattr)) cc_default))
((Etempvar _p (talignas 2%N (tptr tvoid))) ::
(Etempvar _q (talignas 2%N (tptr tvoid))) :: nil))
(Scall (Some _t'6)
- (Evar _ptr_to_int_or_ptr (Tfunction (Tcons (tptr tvoid) Tnil)
+ (Evar _ptr_to_int_or_ptr (Tfunction ((tptr tvoid) :: nil)
(talignas 2%N (tptr tvoid))
cc_default))
((Etempvar _t'5 (tptr (Tstruct _tree noattr))) :: nil)))
@@ -317,9 +318,8 @@ Definition f_copytree := {|
fn_body :=
(Ssequence
(Scall (Some _t'6)
- (Evar _test_int_or_ptr (Tfunction
- (Tcons (talignas 2%N (tptr tvoid)) Tnil) tint
- cc_default))
+ (Evar _test_int_or_ptr (Tfunction ((talignas 2%N (tptr tvoid)) :: nil)
+ tint cc_default))
((Etempvar _t (talignas 2%N (tptr tvoid))) :: nil))
(Sifthenelse (Etempvar _t'6 tint)
(Sreturn (Some (Etempvar _t (talignas 2%N (tptr tvoid)))))
@@ -327,7 +327,7 @@ Definition f_copytree := {|
(Ssequence
(Scall (Some _t'1)
(Evar _int_or_ptr_to_ptr (Tfunction
- (Tcons (talignas 2%N (tptr tvoid)) Tnil)
+ ((talignas 2%N (tptr tvoid)) :: nil)
(tptr tvoid) cc_default))
((Etempvar _t (talignas 2%N (tptr tvoid))) :: nil))
(Sset _s
@@ -340,8 +340,7 @@ Definition f_copytree := {|
(Ederef (Etempvar _s (tptr (Tstruct _tree noattr)))
(Tstruct _tree noattr)) _left (talignas 2%N (tptr tvoid))))
(Scall (Some _t'2)
- (Evar _copytree (Tfunction
- (Tcons (talignas 2%N (tptr tvoid)) Tnil)
+ (Evar _copytree (Tfunction ((talignas 2%N (tptr tvoid)) :: nil)
(talignas 2%N (tptr tvoid)) cc_default))
((Etempvar _t'8 (talignas 2%N (tptr tvoid))) :: nil)))
(Sset _p (Etempvar _t'2 (talignas 2%N (tptr tvoid)))))
@@ -355,7 +354,7 @@ Definition f_copytree := {|
(talignas 2%N (tptr tvoid))))
(Scall (Some _t'3)
(Evar _copytree (Tfunction
- (Tcons (talignas 2%N (tptr tvoid)) Tnil)
+ ((talignas 2%N (tptr tvoid)) :: nil)
(talignas 2%N (tptr tvoid)) cc_default))
((Etempvar _t'7 (talignas 2%N (tptr tvoid))) :: nil)))
(Sset _q (Etempvar _t'3 (talignas 2%N (tptr tvoid)))))
@@ -363,13 +362,13 @@ Definition f_copytree := {|
(Ssequence
(Scall (Some _t'4)
(Evar _makenode (Tfunction
- (Tcons (talignas 2%N (tptr tvoid))
- (Tcons (talignas 2%N (tptr tvoid)) Tnil))
+ ((talignas 2%N (tptr tvoid)) ::
+ (talignas 2%N (tptr tvoid)) :: nil)
(tptr (Tstruct _tree noattr)) cc_default))
((Etempvar _p (talignas 2%N (tptr tvoid))) ::
(Etempvar _q (talignas 2%N (tptr tvoid))) :: nil))
(Scall (Some _t'5)
- (Evar _ptr_to_int_or_ptr (Tfunction (Tcons (tptr tvoid) Tnil)
+ (Evar _ptr_to_int_or_ptr (Tfunction ((tptr tvoid) :: nil)
(talignas 2%N (tptr tvoid))
cc_default))
((Etempvar _t'4 (tptr (Tstruct _tree noattr))) :: nil)))
@@ -387,10 +386,10 @@ Definition f_print_intx := {|
tint)
(Ssequence
(Scall None
- (Evar _print_intx (Tfunction (Tcons tuint Tnil) tvoid cc_default))
+ (Evar _print_intx (Tfunction (tuint :: nil) tvoid cc_default))
((Ebinop Odiv (Etempvar _i tuint) (Econst_int (Int.repr 10) tint)
tuint) :: nil))
- (Scall None (Evar _putchar (Tfunction (Tcons tint Tnil) tint cc_default))
+ (Scall None (Evar _putchar (Tfunction (tint :: nil) tint cc_default))
((Ebinop Oadd (Econst_int (Int.repr 48) tint)
(Ebinop Omod (Etempvar _i tuint) (Econst_int (Int.repr 10) tint)
tuint) tuint) :: nil)))
@@ -406,10 +405,9 @@ Definition f_print_int := {|
fn_body :=
(Sifthenelse (Ebinop Oeq (Etempvar _i tuint) (Econst_int (Int.repr 0) tint)
tint)
- (Scall None (Evar _putchar (Tfunction (Tcons tint Tnil) tint cc_default))
+ (Scall None (Evar _putchar (Tfunction (tint :: nil) tint cc_default))
((Econst_int (Int.repr 48) tint) :: nil))
- (Scall None
- (Evar _print_intx (Tfunction (Tcons tuint Tnil) tvoid cc_default))
+ (Scall None (Evar _print_intx (Tfunction (tuint :: nil) tvoid cc_default))
((Etempvar _i tuint) :: nil)))
|}.
@@ -425,28 +423,27 @@ Definition f_print := {|
fn_body :=
(Ssequence
(Scall (Some _t'3)
- (Evar _test_int_or_ptr (Tfunction
- (Tcons (talignas 2%N (tptr tvoid)) Tnil) tint
- cc_default))
+ (Evar _test_int_or_ptr (Tfunction ((talignas 2%N (tptr tvoid)) :: nil)
+ tint cc_default))
((Etempvar _p (talignas 2%N (tptr tvoid))) :: nil))
(Sifthenelse (Etempvar _t'3 tint)
(Ssequence
(Ssequence
(Scall (Some _t'1)
(Evar _int_or_ptr_to_int (Tfunction
- (Tcons (talignas 2%N (tptr tvoid)) Tnil)
+ ((talignas 2%N (tptr tvoid)) :: nil)
tuint cc_default))
((Etempvar _p (talignas 2%N (tptr tvoid))) :: nil))
(Sset _i (Etempvar _t'1 tuint)))
(Scall None
- (Evar _print_int (Tfunction (Tcons tuint Tnil) tvoid cc_default))
+ (Evar _print_int (Tfunction (tuint :: nil) tvoid cc_default))
((Ebinop Oshr (Etempvar _i tuint) (Econst_int (Int.repr 1) tint)
tuint) :: nil)))
(Ssequence
(Ssequence
(Scall (Some _t'2)
(Evar _int_or_ptr_to_ptr (Tfunction
- (Tcons (talignas 2%N (tptr tvoid)) Tnil)
+ ((talignas 2%N (tptr tvoid)) :: nil)
(tptr tvoid) cc_default))
((Etempvar _p (talignas 2%N (tptr tvoid))) :: nil))
(Sset _q
@@ -463,28 +460,25 @@ Definition f_print := {|
(Tstruct _tree noattr)) _right (talignas 2%N (tptr tvoid))))
(Ssequence
(Scall None
- (Evar _putchar (Tfunction (Tcons tint Tnil) tint cc_default))
+ (Evar _putchar (Tfunction (tint :: nil) tint cc_default))
((Econst_int (Int.repr 40) tint) :: nil))
(Ssequence
(Scall None
- (Evar _print (Tfunction
- (Tcons (talignas 2%N (tptr tvoid)) Tnil) tvoid
- cc_default))
+ (Evar _print (Tfunction ((talignas 2%N (tptr tvoid)) :: nil)
+ tvoid cc_default))
((Etempvar _a (talignas 2%N (tptr tvoid))) :: nil))
(Ssequence
(Scall None
- (Evar _putchar (Tfunction (Tcons tint Tnil) tint
- cc_default))
+ (Evar _putchar (Tfunction (tint :: nil) tint cc_default))
((Econst_int (Int.repr 44) tint) :: nil))
(Ssequence
(Scall None
(Evar _print (Tfunction
- (Tcons (talignas 2%N (tptr tvoid)) Tnil)
- tvoid cc_default))
+ ((talignas 2%N (tptr tvoid)) :: nil) tvoid
+ cc_default))
((Etempvar _b (talignas 2%N (tptr tvoid))) :: nil))
(Scall None
- (Evar _putchar (Tfunction (Tcons tint Tnil) tint
- cc_default))
+ (Evar _putchar (Tfunction (tint :: nil) tint cc_default))
((Econst_int (Int.repr 41) tint) :: nil)))))))))))
|}.
@@ -501,21 +495,21 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _maketree (Tfunction (Tcons tint Tnil)
- (talignas 2%N (tptr tvoid)) cc_default))
+ (Evar _maketree (Tfunction (tint :: nil) (talignas 2%N (tptr tvoid))
+ cc_default))
((Econst_int (Int.repr 3) tint) :: nil))
(Sset _p (Etempvar _t'1 (talignas 2%N (tptr tvoid)))))
(Ssequence
(Ssequence
(Scall (Some _t'2)
- (Evar _copytree (Tfunction (Tcons (talignas 2%N (tptr tvoid)) Tnil)
+ (Evar _copytree (Tfunction ((talignas 2%N (tptr tvoid)) :: nil)
(talignas 2%N (tptr tvoid)) cc_default))
((Etempvar _p (talignas 2%N (tptr tvoid))) :: nil))
(Sset _p (Etempvar _t'2 (talignas 2%N (tptr tvoid)))))
(Ssequence
(Scall None
- (Evar _print (Tfunction (Tcons (talignas 2%N (tptr tvoid)) Tnil)
- tvoid cc_default))
+ (Evar _print (Tfunction ((talignas 2%N (tptr tvoid)) :: nil) tvoid
+ cc_default))
((Etempvar _p (talignas 2%N (tptr tvoid))) :: nil))
(Sreturn (Some (Econst_int (Int.repr 0) tint))))))
(Sreturn (Some (Econst_int (Int.repr 0) tint))))
@@ -530,273 +524,268 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_putchar,
Gfun(External (EF_external "putchar"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
(_exit,
Gfun(External (EF_external "exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
(_test_int_or_ptr, Gfun(Internal f_test_int_or_ptr)) ::
(_int_or_ptr_to_int, Gfun(Internal f_int_or_ptr_to_int)) ::
(_int_or_ptr_to_ptr, Gfun(Internal f_int_or_ptr_to_ptr)) ::
@@ -827,13 +816,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/io.v b/progs/io.v
index 765d770883..04df555240 100644
--- a/progs/io.v
+++ b/progs/io.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.9".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,76 +19,77 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 54%positive.
-Definition ___compcert_i64_dtou : ident := 55%positive.
-Definition ___compcert_i64_sar : ident := 66%positive.
-Definition ___compcert_i64_sdiv : ident := 60%positive.
-Definition ___compcert_i64_shl : ident := 64%positive.
-Definition ___compcert_i64_shr : ident := 65%positive.
-Definition ___compcert_i64_smod : ident := 62%positive.
-Definition ___compcert_i64_smulh : ident := 67%positive.
-Definition ___compcert_i64_stod : ident := 56%positive.
-Definition ___compcert_i64_stof : ident := 58%positive.
-Definition ___compcert_i64_udiv : ident := 61%positive.
-Definition ___compcert_i64_umod : ident := 63%positive.
-Definition ___compcert_i64_umulh : ident := 68%positive.
-Definition ___compcert_i64_utod : ident := 57%positive.
-Definition ___compcert_i64_utof : ident := 59%positive.
-Definition ___compcert_va_composite : ident := 53%positive.
-Definition ___compcert_va_float64 : ident := 52%positive.
-Definition ___compcert_va_int32 : ident := 50%positive.
-Definition ___compcert_va_int64 : ident := 51%positive.
-Definition _c : ident := 41%positive.
-Definition _d : ident := 48%positive.
-Definition _getchar : ident := 37%positive.
-Definition _getchar_blocking : ident := 40%positive.
-Definition _i : ident := 43%positive.
-Definition _main : ident := 49%positive.
-Definition _n : ident := 47%positive.
-Definition _print_int : ident := 46%positive.
-Definition _print_intr : ident := 45%positive.
-Definition _putchar : ident := 38%positive.
-Definition _putchar_blocking : ident := 42%positive.
-Definition _q : ident := 44%positive.
-Definition _r : ident := 39%positive.
-Definition _t'1 : ident := 69%positive.
-Definition _t'2 : ident := 70%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 55%positive.
+Definition ___compcert_i64_dtou : ident := 56%positive.
+Definition ___compcert_i64_sar : ident := 67%positive.
+Definition ___compcert_i64_sdiv : ident := 61%positive.
+Definition ___compcert_i64_shl : ident := 65%positive.
+Definition ___compcert_i64_shr : ident := 66%positive.
+Definition ___compcert_i64_smod : ident := 63%positive.
+Definition ___compcert_i64_smulh : ident := 68%positive.
+Definition ___compcert_i64_stod : ident := 57%positive.
+Definition ___compcert_i64_stof : ident := 59%positive.
+Definition ___compcert_i64_udiv : ident := 62%positive.
+Definition ___compcert_i64_umod : ident := 64%positive.
+Definition ___compcert_i64_umulh : ident := 69%positive.
+Definition ___compcert_i64_utod : ident := 58%positive.
+Definition ___compcert_i64_utof : ident := 60%positive.
+Definition ___compcert_va_composite : ident := 54%positive.
+Definition ___compcert_va_float64 : ident := 53%positive.
+Definition ___compcert_va_int32 : ident := 51%positive.
+Definition ___compcert_va_int64 : ident := 52%positive.
+Definition _c : ident := 42%positive.
+Definition _d : ident := 49%positive.
+Definition _getchar : ident := 38%positive.
+Definition _getchar_blocking : ident := 41%positive.
+Definition _i : ident := 44%positive.
+Definition _main : ident := 50%positive.
+Definition _n : ident := 48%positive.
+Definition _print_int : ident := 47%positive.
+Definition _print_intr : ident := 46%positive.
+Definition _putchar : ident := 39%positive.
+Definition _putchar_blocking : ident := 43%positive.
+Definition _q : ident := 45%positive.
+Definition _r : ident := 40%positive.
+Definition _t'1 : ident := 70%positive.
+Definition _t'2 : ident := 71%positive.
Definition f_getchar_blocking := {|
fn_return := tint;
@@ -104,7 +105,7 @@ Definition f_getchar_blocking := {|
(Ebinop Oeq (Etempvar _r tint)
(Eunop Oneg (Econst_int (Int.repr 1) tint) tint) tint)
(Ssequence
- (Scall (Some _t'1) (Evar _getchar (Tfunction Tnil tint cc_default))
+ (Scall (Some _t'1) (Evar _getchar (Tfunction nil tint cc_default))
nil)
(Sset _r (Etempvar _t'1 tint))))
(Sreturn (Some (Etempvar _r tint)))))
@@ -125,7 +126,7 @@ Definition f_putchar_blocking := {|
(Eunop Oneg (Econst_int (Int.repr 1) tint) tint) tint)
(Ssequence
(Scall (Some _t'1)
- (Evar _putchar (Tfunction (Tcons tint Tnil) tint cc_default))
+ (Evar _putchar (Tfunction (tint :: nil) tint cc_default))
((Etempvar _c tint) :: nil))
(Sset _r (Etempvar _t'1 tint))))
(Sreturn (Some (Etempvar _r tint)))))
@@ -150,11 +151,10 @@ Definition f_print_intr := {|
tuint))
(Ssequence
(Scall None
- (Evar _print_intr (Tfunction (Tcons tuint Tnil) tvoid cc_default))
+ (Evar _print_intr (Tfunction (tuint :: nil) tvoid cc_default))
((Etempvar _q tuint) :: nil))
(Scall None
- (Evar _putchar_blocking (Tfunction (Tcons tint Tnil) tint
- cc_default))
+ (Evar _putchar_blocking (Tfunction (tint :: nil) tint cc_default))
((Ebinop Oadd (Etempvar _r tuint) (Econst_int (Int.repr 48) tint)
tuint) :: nil)))))
Sskip)
@@ -170,10 +170,9 @@ Definition f_print_int := {|
(Sifthenelse (Ebinop Oeq (Etempvar _i tuint) (Econst_int (Int.repr 0) tint)
tint)
(Scall None
- (Evar _putchar_blocking (Tfunction (Tcons tint Tnil) tint cc_default))
+ (Evar _putchar_blocking (Tfunction (tint :: nil) tint cc_default))
((Econst_int (Int.repr 48) tint) :: nil))
- (Scall None
- (Evar _print_intr (Tfunction (Tcons tuint Tnil) tvoid cc_default))
+ (Scall None (Evar _print_intr (Tfunction (tuint :: nil) tvoid cc_default))
((Etempvar _i tuint) :: nil)))
|}.
@@ -191,7 +190,7 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _getchar_blocking (Tfunction Tnil tint cc_default)) nil)
+ (Evar _getchar_blocking (Tfunction nil tint cc_default)) nil)
(Sset _c (Ecast (Etempvar _t'1 tint) tuchar)))
(Ssequence
(Swhile
@@ -211,17 +210,17 @@ Definition f_main := {|
(Ebinop Oadd (Etempvar _n tuint) (Etempvar _d tuint) tuint))
(Ssequence
(Scall None
- (Evar _print_int (Tfunction (Tcons tuint Tnil) tvoid
+ (Evar _print_int (Tfunction (tuint :: nil) tvoid
cc_default))
((Etempvar _n tuint) :: nil))
(Ssequence
(Scall None
- (Evar _putchar_blocking (Tfunction (Tcons tint Tnil)
- tint cc_default))
+ (Evar _putchar_blocking (Tfunction (tint :: nil) tint
+ cc_default))
((Econst_int (Int.repr 10) tint) :: nil))
(Ssequence
(Scall (Some _t'2)
- (Evar _getchar_blocking (Tfunction Tnil tint
+ (Evar _getchar_blocking (Tfunction nil tint
cc_default)) nil)
(Sset _c (Ecast (Etempvar _t'2 tint) tuchar)))))))))
(Sreturn (Some (Econst_int (Int.repr 0) tint))))))
@@ -234,273 +233,268 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_getchar,
Gfun(External (EF_external "getchar"
- (mksignature nil AST.Tint cc_default)) Tnil tint
+ (mksignature nil AST.Xint cc_default)) nil tint
cc_default)) ::
(_putchar,
Gfun(External (EF_external "putchar"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
(_getchar_blocking, Gfun(Internal f_getchar_blocking)) ::
(_putchar_blocking, Gfun(Internal f_putchar_blocking)) ::
(_print_intr, Gfun(Internal f_print_intr)) ::
@@ -522,13 +516,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/io_combine.v b/progs/io_combine.v
index 2dc06d973b..f8eadf1a08 100644
--- a/progs/io_combine.v
+++ b/progs/io_combine.v
@@ -118,7 +118,7 @@ Proof.
destruct i1.
destruct (zeq _ _); subst; try discriminate.
destruct (sys_putc_spec _) eqn:Hspec; inv H3.
- assert (sig_res (ef_sig e) <> AST.Tvoid).
+ assert (sig_res (ef_sig e) <> AST.Xvoid).
{ destruct e; inv H2; discriminate. }
eapply sys_putc_correct in Hspec as (? & -> & [? Hpost ?]); eauto.
rewrite Harg. unfold Vubyte. f_equal.
@@ -130,7 +130,7 @@ Proof.
rewrite if_true in H3 by auto.
unfold sys_getc_wrap_spec in *.
destruct (sys_getc_spec) eqn:Hspec; inv H3.
- assert (sig_res (ef_sig e) <> AST.Tvoid).
+ assert (sig_res (ef_sig e) <> AST.Xvoid).
{ destruct e; inv H4; discriminate. }
eapply (sys_getc_correct _ _ m) in Hspec as (? & -> & [? Hpost ? ?]); eauto.
* split; auto; do 2 eexists; eauto.
@@ -165,7 +165,7 @@ Definition trace_set := @trace (@io_events.IO_event nat) unit * RData -> Prop.
forall n t (traces : trace_set) z s0 c m e args,
cl_at_external c = Some (e,args) ->
(forall s s' ret m' t' n'
- (Hargsty : Val.has_type_list args (sig_args (ef_sig e)))
+ (Hargsty : Val.has_type_list args (map proj_xtype (sig_args (ef_sig e))))
(Hretty : Builtins0.val_opt_has_rettype ret (sig_res (ef_sig e))),
IO_inj_mem e args m t s ->
IO_ext_sem e args s = Some (s', ret, t') ->
@@ -176,7 +176,7 @@ Definition trace_set := @trace (@io_events.IO_event nat) unit * RData -> Prop.
OS_safeN_trace n' (app_trace t t') traces' z' s' c' m' /\
(forall t'' sf, traces' (t'', sf) -> traces (app_trace t' t'', sf))) ->
(forall t1, traces t1 ->
- exists s s' ret m' t' n', Val.has_type_list args (sig_args (ef_sig e)) /\
+ exists s s' ret m' t' n', Val.has_type_list args (map proj_xtype (sig_args (ef_sig e))) /\
Builtins0.val_opt_has_rettype ret (sig_res (ef_sig e)) /\
IO_inj_mem e args m t s /\ IO_ext_sem e args s = Some (s', ret, t') /\ m' = OS_mem e args m s' /\
(n' <= n)%nat /\ valid_trace s' /\ exists traces' z' c', consume_trace z z' t' /\
@@ -340,7 +340,7 @@ Local Ltac destruct_spec Hspec :=
- edestruct IHn as (traces' & ? & ?); eauto.
do 2 eexists; eauto.
eapply OS_safeN_trace_step; eauto.
- - exists (fun t1 => exists s s' ret m' t' n', Val.has_type_list args (sig_args (ef_sig e)) /\
+ - exists (fun t1 => exists s s' ret m' t' n', Val.has_type_list args (map proj_xtype (sig_args (ef_sig e))) /\
Builtins0.val_opt_has_rettype ret (sig_res (ef_sig e)) /\
IO_inj_mem e args m t s /\ IO_ext_sem e args s = Some (s', ret, t') /\ m' = OS_mem e args m s' /\
(n' <= n0)%nat /\ valid_trace s' /\ exists traces' z' c', consume_trace z z' t' /\
diff --git a/progs/io_dry.v b/progs/io_dry.v
index 2921a9ec0d..200f221424 100644
--- a/progs/io_dry.v
+++ b/progs/io_dry.v
@@ -54,11 +54,11 @@ Proof.
+ destruct X as (m0 & _ & w).
destruct X1; [|exact False].
destruct v; [exact False | | exact False | exact False | exact False | exact False].
- exact (ot <> AST.Tvoid /\ putchar_post m0 X3 i w X2).
+ exact (ot <> AST.Xvoid /\ putchar_post m0 X3 i w X2).
+ destruct X as (m0 & _ & w).
destruct X1; [|exact False].
destruct v; [exact False | | exact False | exact False | exact False | exact False].
- exact (ot <> AST.Tvoid /\ getchar_post m0 X3 i w X2).
+ exact (ot <> AST.Xvoid /\ getchar_post m0 X3 i w X2).
- intros; exact True.
Defined.
diff --git a/progs/io_mem.v b/progs/io_mem.v
index 91d552e670..c9ffa7feb1 100644
--- a/progs/io_mem.v
+++ b/progs/io_mem.v
@@ -122,7 +122,7 @@ Definition f_print_intr := {|
(Ssequence
(Scall (Some _t'1)
(Evar _print_intr (Tfunction
- (Tcons tuint (Tcons (tptr tuchar) Tnil))
+ (cons tuint (cons (tptr tuchar) nil))
tint cc_default))
((Etempvar _q tuint) :: (Etempvar _buf (tptr tuchar)) :: nil))
(Sset _k (Etempvar _t'1 tint)))
@@ -148,12 +148,12 @@ Definition f_print_int := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (cons tuint nil) (tptr tvoid) cc_default))
((Econst_int (Int.repr 5) tint) :: nil))
(Sset _buf (Etempvar _t'1 (tptr tvoid))))
(Ssequence
(Sifthenelse (Eunop Onotbool (Etempvar _buf (tptr tuchar)) tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (cons tint nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Ssequence
@@ -176,7 +176,7 @@ Definition f_print_int := {|
(Ssequence
(Scall (Some _t'2)
(Evar _print_intr (Tfunction
- (Tcons tuint (Tcons (tptr tuchar) Tnil))
+ (cons tuint (cons (tptr tuchar) nil))
tint cc_default))
((Etempvar _i tuint) :: (Etempvar _buf (tptr tuchar)) :: nil))
(Sset _k (Etempvar _t'2 tint)))
@@ -190,11 +190,11 @@ Definition f_print_int := {|
tint)))))
(Ssequence
(Scall None
- (Evar _putchars (Tfunction (Tcons (tptr tuchar) (Tcons tint Tnil))
+ (Evar _putchars (Tfunction (cons (tptr tuchar) (cons tint nil))
tint cc_default))
((Etempvar _buf (tptr tuchar)) :: (Etempvar _k tint) :: nil))
(Scall None
- (Evar _free (Tfunction (Tcons (tptr tvoid) Tnil) tvoid cc_default))
+ (Evar _free (Tfunction (cons (tptr tvoid) nil) tvoid cc_default))
((Etempvar _buf (tptr tuchar)) :: nil))))))
|}.
@@ -214,21 +214,21 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid)
+ (Evar _malloc (Tfunction (cons tuint nil) (tptr tvoid)
cc_default))
((Econst_int (Int.repr 4) tint) :: nil))
(Sset _buf (Etempvar _t'1 (tptr tvoid))))
(Ssequence
(Sifthenelse (Eunop Onotbool (Etempvar _buf (tptr tuchar)) tint)
(Scall None
- (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Evar _exit (Tfunction (cons tint nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Ssequence
(Ssequence
(Scall (Some _t'2)
(Evar _getchars (Tfunction
- (Tcons (tptr tuchar) (Tcons tint Tnil)) tint
+ (cons (tptr tuchar) (cons tint nil)) tint
cc_default))
((Etempvar _buf (tptr tuchar)) ::
(Econst_int (Int.repr 4) tint) :: nil))
@@ -265,7 +265,7 @@ Definition f_main := {|
(Ssequence
(Scall None
(Evar _free (Tfunction
- (Tcons (tptr tvoid) Tnil)
+ (cons (tptr tvoid) nil)
tvoid cc_default))
((Etempvar _buf (tptr tuchar)) :: nil))
(Sreturn (Some (Econst_int (Int.repr 0) tint))))
@@ -276,7 +276,7 @@ Definition f_main := {|
(Etempvar _d tuint) tuint))
(Scall None
(Evar _print_int (Tfunction
- (Tcons tuint Tnil) tvoid
+ (cons tuint nil) tvoid
cc_default))
((Etempvar _n tuint) :: nil)))))))
(Sset _j
@@ -285,14 +285,14 @@ Definition f_main := {|
(Ssequence
(Scall (Some _t'3)
(Evar _getchars (Tfunction
- (Tcons (tptr tuchar) (Tcons tint Tnil))
+ (cons (tptr tuchar) (cons tint nil))
tint cc_default))
((Etempvar _buf (tptr tuchar)) ::
(Econst_int (Int.repr 4) tint) :: nil))
(Sset _i (Etempvar _t'3 tint)))))
(Ssequence
(Scall None
- (Evar _free (Tfunction (Tcons (tptr tvoid) Tnil) tvoid
+ (Evar _free (Tfunction (cons (tptr tvoid) nil) tvoid
cc_default))
((Etempvar _buf (tptr tuchar)) :: nil))
(Sreturn (Some (Econst_int (Int.repr 0) tint)))))))))
@@ -305,281 +305,270 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_exit,
Gfun(External (EF_external "exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
- (_free, Gfun(External EF_free (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (cons tint nil) tvoid cc_default)) ::
+ (_free, Gfun(External EF_free (cons (tptr tvoid) nil) tvoid cc_default)) ::
(_malloc,
- Gfun(External EF_malloc (Tcons tuint Tnil) (tptr tvoid) cc_default)) ::
+ Gfun(External EF_malloc (cons tuint nil) (tptr tvoid) cc_default)) ::
(_getchars,
Gfun(External (EF_external "getchars"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tuchar) (Tcons tint Tnil))
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) (cons (tptr tuchar) (cons tint nil))
tint cc_default)) ::
(_putchars,
Gfun(External (EF_external "putchars"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tuchar) (Tcons tint Tnil))
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) (cons (tptr tuchar) (cons tint nil))
tint cc_default)) :: (_print_intr, Gfun(Internal f_print_intr)) ::
(_print_int, Gfun(Internal f_print_int)) ::
(_main, Gfun(Internal f_main)) :: nil).
diff --git a/progs/io_mem_dry.v b/progs/io_mem_dry.v
index 4717e8e8af..c07294c4fd 100644
--- a/progs/io_mem_dry.v
+++ b/progs/io_mem_dry.v
@@ -72,11 +72,11 @@ Proof.
+ destruct X as (m0 & _ & w).
destruct X1; [|exact False].
destruct v; [exact False | | exact False | exact False | exact False | exact False].
- exact (ot <> AST.Tvoid /\ putchars_post m0 X3 i w X2).
+ exact (ot <> AST.Xvoid /\ putchars_post m0 X3 i w X2).
+ destruct X as (m0 & _ & w).
destruct X1; [|exact False].
destruct v; [exact False | | exact False | exact False | exact False | exact False].
- exact (ot <> AST.Tvoid /\ getchars_post m0 X3 i w X2).
+ exact (ot <> AST.Xvoid /\ getchars_post m0 X3 i w X2).
- intros; exact True.
Defined.
diff --git a/progs/libglob.v b/progs/libglob.v
index c0ef62e0f0..9168c04cf3 100644
--- a/progs/libglob.v
+++ b/progs/libglob.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,75 +19,76 @@ Module Info.
Definition normalized := true.
End Info.
-Definition _LG_bump : ident := 43%positive.
-Definition _LG_foo : ident := 41%positive.
-Definition _LG_get : ident := 45%positive.
-Definition _LG_init : ident := 42%positive.
-Definition _LG_n : ident := 40%positive.
-Definition ___builtin_annot : ident := 20%positive.
-Definition ___builtin_annot_intval : ident := 21%positive.
-Definition ___builtin_bswap : ident := 5%positive.
-Definition ___builtin_bswap16 : ident := 7%positive.
-Definition ___builtin_bswap32 : ident := 6%positive.
-Definition ___builtin_bswap64 : ident := 4%positive.
-Definition ___builtin_clz : ident := 8%positive.
-Definition ___builtin_clzl : ident := 9%positive.
-Definition ___builtin_clzll : ident := 10%positive.
-Definition ___builtin_ctz : ident := 11%positive.
-Definition ___builtin_ctzl : ident := 12%positive.
-Definition ___builtin_ctzll : ident := 13%positive.
-Definition ___builtin_debug : ident := 39%positive.
-Definition ___builtin_expect : ident := 28%positive.
-Definition ___builtin_fabs : ident := 14%positive.
-Definition ___builtin_fabsf : ident := 15%positive.
-Definition ___builtin_fmadd : ident := 31%positive.
-Definition ___builtin_fmax : ident := 29%positive.
-Definition ___builtin_fmin : ident := 30%positive.
-Definition ___builtin_fmsub : ident := 32%positive.
-Definition ___builtin_fnmadd : ident := 33%positive.
-Definition ___builtin_fnmsub : ident := 34%positive.
-Definition ___builtin_fsqrt : ident := 16%positive.
-Definition ___builtin_membar : ident := 22%positive.
-Definition ___builtin_memcpy_aligned : ident := 18%positive.
-Definition ___builtin_read16_reversed : ident := 35%positive.
-Definition ___builtin_read32_reversed : ident := 36%positive.
-Definition ___builtin_sel : ident := 19%positive.
-Definition ___builtin_sqrt : ident := 17%positive.
-Definition ___builtin_unreachable : ident := 27%positive.
-Definition ___builtin_va_arg : ident := 24%positive.
-Definition ___builtin_va_copy : ident := 25%positive.
-Definition ___builtin_va_end : ident := 26%positive.
-Definition ___builtin_va_start : ident := 23%positive.
-Definition ___builtin_write16_reversed : ident := 37%positive.
-Definition ___builtin_write32_reversed : ident := 38%positive.
-Definition ___compcert_i64_dtos : ident := 53%positive.
-Definition ___compcert_i64_dtou : ident := 54%positive.
-Definition ___compcert_i64_sar : ident := 65%positive.
-Definition ___compcert_i64_sdiv : ident := 59%positive.
-Definition ___compcert_i64_shl : ident := 63%positive.
-Definition ___compcert_i64_shr : ident := 64%positive.
-Definition ___compcert_i64_smod : ident := 61%positive.
-Definition ___compcert_i64_smulh : ident := 66%positive.
-Definition ___compcert_i64_stod : ident := 55%positive.
-Definition ___compcert_i64_stof : ident := 57%positive.
-Definition ___compcert_i64_udiv : ident := 60%positive.
-Definition ___compcert_i64_umod : ident := 62%positive.
-Definition ___compcert_i64_umulh : ident := 67%positive.
-Definition ___compcert_i64_utod : ident := 56%positive.
-Definition ___compcert_i64_utof : ident := 58%positive.
-Definition ___compcert_va_composite : ident := 52%positive.
-Definition ___compcert_va_float64 : ident := 51%positive.
-Definition ___compcert_va_int32 : ident := 49%positive.
-Definition ___compcert_va_int64 : ident := 50%positive.
-Definition _client : ident := 47%positive.
-Definition _client_var : ident := 46%positive.
+Definition _LG_bump : ident := 44%positive.
+Definition _LG_foo : ident := 42%positive.
+Definition _LG_get : ident := 46%positive.
+Definition _LG_init : ident := 43%positive.
+Definition _LG_n : ident := 41%positive.
+Definition ___builtin_ais_annot : ident := 4%positive.
+Definition ___builtin_annot : ident := 21%positive.
+Definition ___builtin_annot_intval : ident := 22%positive.
+Definition ___builtin_bswap : ident := 6%positive.
+Definition ___builtin_bswap16 : ident := 8%positive.
+Definition ___builtin_bswap32 : ident := 7%positive.
+Definition ___builtin_bswap64 : ident := 5%positive.
+Definition ___builtin_clz : ident := 9%positive.
+Definition ___builtin_clzl : ident := 10%positive.
+Definition ___builtin_clzll : ident := 11%positive.
+Definition ___builtin_ctz : ident := 12%positive.
+Definition ___builtin_ctzl : ident := 13%positive.
+Definition ___builtin_ctzll : ident := 14%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 29%positive.
+Definition ___builtin_fabs : ident := 15%positive.
+Definition ___builtin_fabsf : ident := 16%positive.
+Definition ___builtin_fmadd : ident := 32%positive.
+Definition ___builtin_fmax : ident := 30%positive.
+Definition ___builtin_fmin : ident := 31%positive.
+Definition ___builtin_fmsub : ident := 33%positive.
+Definition ___builtin_fnmadd : ident := 34%positive.
+Definition ___builtin_fnmsub : ident := 35%positive.
+Definition ___builtin_fsqrt : ident := 17%positive.
+Definition ___builtin_membar : ident := 23%positive.
+Definition ___builtin_memcpy_aligned : ident := 19%positive.
+Definition ___builtin_read16_reversed : ident := 36%positive.
+Definition ___builtin_read32_reversed : ident := 37%positive.
+Definition ___builtin_sel : ident := 20%positive.
+Definition ___builtin_sqrt : ident := 18%positive.
+Definition ___builtin_unreachable : ident := 28%positive.
+Definition ___builtin_va_arg : ident := 25%positive.
+Definition ___builtin_va_copy : ident := 26%positive.
+Definition ___builtin_va_end : ident := 27%positive.
+Definition ___builtin_va_start : ident := 24%positive.
+Definition ___builtin_write16_reversed : ident := 38%positive.
+Definition ___builtin_write32_reversed : ident := 39%positive.
+Definition ___compcert_i64_dtos : ident := 54%positive.
+Definition ___compcert_i64_dtou : ident := 55%positive.
+Definition ___compcert_i64_sar : ident := 66%positive.
+Definition ___compcert_i64_sdiv : ident := 60%positive.
+Definition ___compcert_i64_shl : ident := 64%positive.
+Definition ___compcert_i64_shr : ident := 65%positive.
+Definition ___compcert_i64_smod : ident := 62%positive.
+Definition ___compcert_i64_smulh : ident := 67%positive.
+Definition ___compcert_i64_stod : ident := 56%positive.
+Definition ___compcert_i64_stof : ident := 58%positive.
+Definition ___compcert_i64_udiv : ident := 61%positive.
+Definition ___compcert_i64_umod : ident := 63%positive.
+Definition ___compcert_i64_umulh : ident := 68%positive.
+Definition ___compcert_i64_utod : ident := 57%positive.
+Definition ___compcert_i64_utof : ident := 59%positive.
+Definition ___compcert_va_composite : ident := 53%positive.
+Definition ___compcert_va_float64 : ident := 52%positive.
+Definition ___compcert_va_int32 : ident := 50%positive.
+Definition ___compcert_va_int64 : ident := 51%positive.
+Definition _client : ident := 48%positive.
+Definition _client_var : ident := 47%positive.
Definition _foo : ident := 1%positive.
-Definition _i : ident := 44%positive.
+Definition _i : ident := 45%positive.
Definition _initialized : ident := 2%positive.
Definition _m : ident := 3%positive.
-Definition _main : ident := 48%positive.
-Definition _t'1 : ident := 68%positive.
-Definition _t'2 : ident := 69%positive.
+Definition _main : ident := 49%positive.
+Definition _t'1 : ident := 69%positive.
+Definition _t'2 : ident := 70%positive.
Definition v_LG_n := {|
gvar_info := tint;
@@ -130,7 +131,7 @@ Definition f_LG_bump := {|
fn_temps := ((_t'2, tint) :: (_t'1, tint) :: nil);
fn_body :=
(Ssequence
- (Scall None (Evar _LG_init (Tfunction Tnil tvoid cc_default)) nil)
+ (Scall None (Evar _LG_init (Tfunction nil tvoid cc_default)) nil)
(Ssequence
(Ssequence
(Sset _t'2 (Evar _LG_n tint))
@@ -152,7 +153,7 @@ Definition f_LG_get := {|
fn_temps := ((_i, tint) :: (_t'1, tint) :: nil);
fn_body :=
(Ssequence
- (Scall None (Evar _LG_init (Tfunction Tnil tvoid cc_default)) nil)
+ (Scall None (Evar _LG_init (Tfunction nil tvoid cc_default)) nil)
(Ssequence
(Sset _i (Evar _LG_n tint))
(Sifthenelse (Ebinop Oand (Etempvar _i tint)
@@ -178,11 +179,11 @@ Definition f_client := {|
fn_temps := ((_t'1, tint) :: nil);
fn_body :=
(Ssequence
- (Scall None (Evar _LG_bump (Tfunction Tnil tvoid cc_default)) nil)
+ (Scall None (Evar _LG_bump (Tfunction nil tvoid cc_default)) nil)
(Ssequence
- (Scall None (Evar _LG_bump (Tfunction Tnil tvoid cc_default)) nil)
+ (Scall None (Evar _LG_bump (Tfunction nil tvoid cc_default)) nil)
(Ssequence
- (Scall (Some _t'1) (Evar _LG_get (Tfunction Tnil tint cc_default)) nil)
+ (Scall (Some _t'1) (Evar _LG_get (Tfunction nil tint cc_default)) nil)
(Sreturn (Some (Etempvar _t'1 tint))))))
|}.
@@ -195,7 +196,7 @@ Definition f_main := {|
fn_body :=
(Ssequence
(Ssequence
- (Scall (Some _t'1) (Evar _client (Tfunction Tnil tint cc_default)) nil)
+ (Scall (Some _t'1) (Evar _client (Tfunction nil tint cc_default)) nil)
(Sreturn (Some (Etempvar _t'1 tint))))
(Sreturn (Some (Econst_int (Int.repr 0) tint))))
|}.
@@ -208,264 +209,259 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_LG_n, Gvar v_LG_n) :: (_LG_foo, Gvar v_LG_foo) ::
(_LG_init, Gfun(Internal f_LG_init)) ::
@@ -487,12 +483,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/load_demo.v b/progs/load_demo.v
index 54705063c0..113708ba89 100644
--- a/progs/load_demo.v
+++ b/progs/load_demo.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,95 +19,96 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 42%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
-Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
-Definition ___builtin_fmsub : ident := 35%positive.
-Definition ___builtin_fnmadd : ident := 36%positive.
-Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 39%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 40%positive.
-Definition ___builtin_write32_reversed : ident := 41%positive.
-Definition ___compcert_i64_dtos : ident := 72%positive.
-Definition ___compcert_i64_dtou : ident := 73%positive.
-Definition ___compcert_i64_sar : ident := 84%positive.
-Definition ___compcert_i64_sdiv : ident := 78%positive.
-Definition ___compcert_i64_shl : ident := 82%positive.
-Definition ___compcert_i64_shr : ident := 83%positive.
-Definition ___compcert_i64_smod : ident := 80%positive.
-Definition ___compcert_i64_smulh : ident := 85%positive.
-Definition ___compcert_i64_stod : ident := 74%positive.
-Definition ___compcert_i64_stof : ident := 76%positive.
-Definition ___compcert_i64_udiv : ident := 79%positive.
-Definition ___compcert_i64_umod : ident := 81%positive.
-Definition ___compcert_i64_umulh : ident := 86%positive.
-Definition ___compcert_i64_utod : ident := 75%positive.
-Definition ___compcert_i64_utof : ident := 77%positive.
-Definition ___compcert_va_composite : ident := 71%positive.
-Definition ___compcert_va_float64 : ident := 70%positive.
-Definition ___compcert_va_int32 : ident := 68%positive.
-Definition ___compcert_va_int64 : ident := 69%positive.
-Definition _b0 : ident := 54%positive.
-Definition _b1 : ident := 55%positive.
-Definition _b2 : ident := 56%positive.
-Definition _b3 : ident := 57%positive.
-Definition _fiddle : ident := 52%positive.
+Definition ___builtin_ais_annot : ident := 7%positive.
+Definition ___builtin_annot : ident := 24%positive.
+Definition ___builtin_annot_intval : ident := 25%positive.
+Definition ___builtin_bswap : ident := 9%positive.
+Definition ___builtin_bswap16 : ident := 11%positive.
+Definition ___builtin_bswap32 : ident := 10%positive.
+Definition ___builtin_bswap64 : ident := 8%positive.
+Definition ___builtin_clz : ident := 12%positive.
+Definition ___builtin_clzl : ident := 13%positive.
+Definition ___builtin_clzll : ident := 14%positive.
+Definition ___builtin_ctz : ident := 15%positive.
+Definition ___builtin_ctzl : ident := 16%positive.
+Definition ___builtin_ctzll : ident := 17%positive.
+Definition ___builtin_debug : ident := 43%positive.
+Definition ___builtin_expect : ident := 32%positive.
+Definition ___builtin_fabs : ident := 18%positive.
+Definition ___builtin_fabsf : ident := 19%positive.
+Definition ___builtin_fmadd : ident := 35%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 36%positive.
+Definition ___builtin_fnmadd : ident := 37%positive.
+Definition ___builtin_fnmsub : ident := 38%positive.
+Definition ___builtin_fsqrt : ident := 20%positive.
+Definition ___builtin_membar : ident := 26%positive.
+Definition ___builtin_memcpy_aligned : ident := 22%positive.
+Definition ___builtin_read16_reversed : ident := 39%positive.
+Definition ___builtin_read32_reversed : ident := 40%positive.
+Definition ___builtin_sel : ident := 23%positive.
+Definition ___builtin_sqrt : ident := 21%positive.
+Definition ___builtin_unreachable : ident := 31%positive.
+Definition ___builtin_va_arg : ident := 28%positive.
+Definition ___builtin_va_copy : ident := 29%positive.
+Definition ___builtin_va_end : ident := 30%positive.
+Definition ___builtin_va_start : ident := 27%positive.
+Definition ___builtin_write16_reversed : ident := 41%positive.
+Definition ___builtin_write32_reversed : ident := 42%positive.
+Definition ___compcert_i64_dtos : ident := 73%positive.
+Definition ___compcert_i64_dtou : ident := 74%positive.
+Definition ___compcert_i64_sar : ident := 85%positive.
+Definition ___compcert_i64_sdiv : ident := 79%positive.
+Definition ___compcert_i64_shl : ident := 83%positive.
+Definition ___compcert_i64_shr : ident := 84%positive.
+Definition ___compcert_i64_smod : ident := 81%positive.
+Definition ___compcert_i64_smulh : ident := 86%positive.
+Definition ___compcert_i64_stod : ident := 75%positive.
+Definition ___compcert_i64_stof : ident := 77%positive.
+Definition ___compcert_i64_udiv : ident := 80%positive.
+Definition ___compcert_i64_umod : ident := 82%positive.
+Definition ___compcert_i64_umulh : ident := 87%positive.
+Definition ___compcert_i64_utod : ident := 76%positive.
+Definition ___compcert_i64_utof : ident := 78%positive.
+Definition ___compcert_va_composite : ident := 72%positive.
+Definition ___compcert_va_float64 : ident := 71%positive.
+Definition ___compcert_va_int32 : ident := 69%positive.
+Definition ___compcert_va_int64 : ident := 70%positive.
+Definition _b0 : ident := 55%positive.
+Definition _b1 : ident := 56%positive.
+Definition _b2 : ident := 57%positive.
+Definition _b3 : ident := 58%positive.
+Definition _fiddle : ident := 53%positive.
Definition _fst : ident := 2%positive.
-Definition _get22 : ident := 47%positive.
-Definition _get_little_endian : ident := 58%positive.
-Definition _i : ident := 44%positive.
-Definition _input : ident := 53%positive.
+Definition _get22 : ident := 48%positive.
+Definition _get_little_endian : ident := 59%positive.
+Definition _i : ident := 45%positive.
+Definition _input : ident := 54%positive.
Definition _int_pair : ident := 1%positive.
Definition _left : ident := 5%positive.
-Definition _main : ident := 67%positive.
-Definition _obj : ident := 62%positive.
-Definition _onetwo : ident := 59%positive.
-Definition _p : ident := 45%positive.
+Definition _main : ident := 68%positive.
+Definition _obj : ident := 63%positive.
+Definition _onetwo : ident := 60%positive.
+Definition _p : ident := 46%positive.
Definition _pair_pair : ident := 4%positive.
-Definition _pp : ident := 61%positive.
-Definition _pps : ident := 43%positive.
-Definition _r : ident := 51%positive.
-Definition _res : ident := 46%positive.
-Definition _res1 : ident := 64%positive.
-Definition _res2 : ident := 65%positive.
-Definition _res3 : ident := 66%positive.
+Definition _pp : ident := 62%positive.
+Definition _pps : ident := 44%positive.
+Definition _r : ident := 52%positive.
+Definition _res : ident := 47%positive.
+Definition _res1 : ident := 65%positive.
+Definition _res2 : ident := 66%positive.
+Definition _res3 : ident := 67%positive.
Definition _right : ident := 6%positive.
-Definition _size : ident := 49%positive.
+Definition _size : ident := 50%positive.
Definition _snd : ident := 3%positive.
-Definition _sum : ident := 48%positive.
-Definition _tagword : ident := 50%positive.
-Definition _threefour : ident := 60%positive.
-Definition _v : ident := 63%positive.
-Definition _t'1 : ident := 87%positive.
-Definition _t'2 : ident := 88%positive.
-Definition _t'3 : ident := 89%positive.
+Definition _sum : ident := 49%positive.
+Definition _tagword : ident := 51%positive.
+Definition _threefour : ident := 61%positive.
+Definition _v : ident := 64%positive.
+Definition _t'1 : ident := 88%positive.
+Definition _t'2 : ident := 89%positive.
+Definition _t'3 : ident := 90%positive.
Definition f_get22 := {|
fn_return := tint;
@@ -323,10 +324,9 @@ Definition f_main := {|
(Ssequence
(Scall (Some _t'1)
(Evar _get22 (Tfunction
- (Tcons
- (tptr (Tstruct _pair_pair noattr))
- (Tcons tint Tnil))
- tint cc_default))
+ ((tptr (Tstruct _pair_pair noattr)) ::
+ tint :: nil) tint
+ cc_default))
((Evar _pps (tarray (Tstruct _pair_pair noattr) 1)) ::
(Econst_int (Int.repr 0) tint) :: nil))
(Sset _res1 (Etempvar _t'1 tint)))
@@ -334,18 +334,16 @@ Definition f_main := {|
(Ssequence
(Scall (Some _t'2)
(Evar _fiddle (Tfunction
- (Tcons (tptr tuint)
- Tnil) tint
- cc_default))
+ ((tptr tuint) :: nil)
+ tint cc_default))
((Etempvar _p (tptr tuint)) :: nil))
(Sset _res2 (Etempvar _t'2 tint)))
(Ssequence
(Ssequence
(Scall (Some _t'3)
(Evar _get_little_endian (Tfunction
- (Tcons
- (tptr tuchar)
- Tnil)
+ ((tptr tuchar) ::
+ nil)
tuint
cc_default))
((Evar _v (tarray tuchar 4)) ::
@@ -375,264 +373,259 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_get22, Gfun(Internal f_get22)) :: (_fiddle, Gfun(Internal f_fiddle)) ::
(_get_little_endian, Gfun(Internal f_get_little_endian)) ::
@@ -652,13 +645,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/logical_compare.v b/progs/logical_compare.v
index 54804618e6..6dac5df704 100644
--- a/progs/logical_compare.v
+++ b/progs/logical_compare.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,67 +19,68 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 46%positive.
-Definition ___compcert_i64_dtou : ident := 47%positive.
-Definition ___compcert_i64_sar : ident := 58%positive.
-Definition ___compcert_i64_sdiv : ident := 52%positive.
-Definition ___compcert_i64_shl : ident := 56%positive.
-Definition ___compcert_i64_shr : ident := 57%positive.
-Definition ___compcert_i64_smod : ident := 54%positive.
-Definition ___compcert_i64_smulh : ident := 59%positive.
-Definition ___compcert_i64_stod : ident := 48%positive.
-Definition ___compcert_i64_stof : ident := 50%positive.
-Definition ___compcert_i64_udiv : ident := 53%positive.
-Definition ___compcert_i64_umod : ident := 55%positive.
-Definition ___compcert_i64_umulh : ident := 60%positive.
-Definition ___compcert_i64_utod : ident := 49%positive.
-Definition ___compcert_i64_utof : ident := 51%positive.
-Definition ___compcert_va_composite : ident := 45%positive.
-Definition ___compcert_va_float64 : ident := 44%positive.
-Definition ___compcert_va_int32 : ident := 42%positive.
-Definition ___compcert_va_int64 : ident := 43%positive.
-Definition _a : ident := 37%positive.
-Definition _b : ident := 38%positive.
-Definition _do_and : ident := 40%positive.
-Definition _do_or : ident := 39%positive.
-Definition _main : ident := 41%positive.
-Definition _t'1 : ident := 61%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 47%positive.
+Definition ___compcert_i64_dtou : ident := 48%positive.
+Definition ___compcert_i64_sar : ident := 59%positive.
+Definition ___compcert_i64_sdiv : ident := 53%positive.
+Definition ___compcert_i64_shl : ident := 57%positive.
+Definition ___compcert_i64_shr : ident := 58%positive.
+Definition ___compcert_i64_smod : ident := 55%positive.
+Definition ___compcert_i64_smulh : ident := 60%positive.
+Definition ___compcert_i64_stod : ident := 49%positive.
+Definition ___compcert_i64_stof : ident := 51%positive.
+Definition ___compcert_i64_udiv : ident := 54%positive.
+Definition ___compcert_i64_umod : ident := 56%positive.
+Definition ___compcert_i64_umulh : ident := 61%positive.
+Definition ___compcert_i64_utod : ident := 50%positive.
+Definition ___compcert_i64_utof : ident := 52%positive.
+Definition ___compcert_va_composite : ident := 46%positive.
+Definition ___compcert_va_float64 : ident := 45%positive.
+Definition ___compcert_va_int32 : ident := 43%positive.
+Definition ___compcert_va_int64 : ident := 44%positive.
+Definition _a : ident := 38%positive.
+Definition _b : ident := 39%positive.
+Definition _do_and : ident := 41%positive.
+Definition _do_or : ident := 40%positive.
+Definition _main : ident := 42%positive.
+Definition _t'1 : ident := 62%positive.
Definition f_do_or := {|
fn_return := tbool;
@@ -127,264 +128,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_do_or, Gfun(Internal f_do_or)) :: (_do_and, Gfun(Internal f_do_and)) ::
(_main, Gfun(Internal f_main)) :: nil).
@@ -403,13 +399,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/loop_minus1.v b/progs/loop_minus1.v
index 0040eb36a6..c1fcb1e262 100644
--- a/progs/loop_minus1.v
+++ b/progs/loop_minus1.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,68 +19,69 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 46%positive.
-Definition ___compcert_i64_dtou : ident := 47%positive.
-Definition ___compcert_i64_sar : ident := 58%positive.
-Definition ___compcert_i64_sdiv : ident := 52%positive.
-Definition ___compcert_i64_shl : ident := 56%positive.
-Definition ___compcert_i64_shr : ident := 57%positive.
-Definition ___compcert_i64_smod : ident := 54%positive.
-Definition ___compcert_i64_smulh : ident := 59%positive.
-Definition ___compcert_i64_stod : ident := 48%positive.
-Definition ___compcert_i64_stof : ident := 50%positive.
-Definition ___compcert_i64_udiv : ident := 53%positive.
-Definition ___compcert_i64_umod : ident := 55%positive.
-Definition ___compcert_i64_umulh : ident := 60%positive.
-Definition ___compcert_i64_utod : ident := 49%positive.
-Definition ___compcert_i64_utof : ident := 51%positive.
-Definition ___compcert_va_composite : ident := 45%positive.
-Definition ___compcert_va_float64 : ident := 44%positive.
-Definition ___compcert_va_int32 : ident := 42%positive.
-Definition ___compcert_va_int64 : ident := 43%positive.
-Definition _a : ident := 37%positive.
-Definition _i : ident := 39%positive.
-Definition _main : ident := 61%positive.
-Definition _n : ident := 38%positive.
-Definition _s : ident := 40%positive.
-Definition _sumarray : ident := 41%positive.
-Definition _t'1 : ident := 62%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 47%positive.
+Definition ___compcert_i64_dtou : ident := 48%positive.
+Definition ___compcert_i64_sar : ident := 59%positive.
+Definition ___compcert_i64_sdiv : ident := 53%positive.
+Definition ___compcert_i64_shl : ident := 57%positive.
+Definition ___compcert_i64_shr : ident := 58%positive.
+Definition ___compcert_i64_smod : ident := 55%positive.
+Definition ___compcert_i64_smulh : ident := 60%positive.
+Definition ___compcert_i64_stod : ident := 49%positive.
+Definition ___compcert_i64_stof : ident := 51%positive.
+Definition ___compcert_i64_udiv : ident := 54%positive.
+Definition ___compcert_i64_umod : ident := 56%positive.
+Definition ___compcert_i64_umulh : ident := 61%positive.
+Definition ___compcert_i64_utod : ident := 50%positive.
+Definition ___compcert_i64_utof : ident := 52%positive.
+Definition ___compcert_va_composite : ident := 46%positive.
+Definition ___compcert_va_float64 : ident := 45%positive.
+Definition ___compcert_va_int32 : ident := 43%positive.
+Definition ___compcert_va_int64 : ident := 44%positive.
+Definition _a : ident := 38%positive.
+Definition _i : ident := 40%positive.
+Definition _main : ident := 62%positive.
+Definition _n : ident := 39%positive.
+Definition _s : ident := 41%positive.
+Definition _sumarray : ident := 42%positive.
+Definition _t'1 : ident := 63%positive.
Definition f_sumarray := {|
fn_return := tuint;
@@ -121,264 +122,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_sumarray, Gfun(Internal f_sumarray)) :: nil).
@@ -395,12 +391,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/merge.v b/progs/merge.v
index 3f83b88aea..c48a91a615 100644
--- a/progs/merge.v
+++ b/progs/merge.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,76 +19,77 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 20%positive.
-Definition ___builtin_annot_intval : ident := 21%positive.
-Definition ___builtin_bswap : ident := 5%positive.
-Definition ___builtin_bswap16 : ident := 7%positive.
-Definition ___builtin_bswap32 : ident := 6%positive.
-Definition ___builtin_bswap64 : ident := 4%positive.
-Definition ___builtin_clz : ident := 8%positive.
-Definition ___builtin_clzl : ident := 9%positive.
-Definition ___builtin_clzll : ident := 10%positive.
-Definition ___builtin_ctz : ident := 11%positive.
-Definition ___builtin_ctzl : ident := 12%positive.
-Definition ___builtin_ctzll : ident := 13%positive.
-Definition ___builtin_debug : ident := 39%positive.
-Definition ___builtin_expect : ident := 28%positive.
-Definition ___builtin_fabs : ident := 14%positive.
-Definition ___builtin_fabsf : ident := 15%positive.
-Definition ___builtin_fmadd : ident := 31%positive.
-Definition ___builtin_fmax : ident := 29%positive.
-Definition ___builtin_fmin : ident := 30%positive.
-Definition ___builtin_fmsub : ident := 32%positive.
-Definition ___builtin_fnmadd : ident := 33%positive.
-Definition ___builtin_fnmsub : ident := 34%positive.
-Definition ___builtin_fsqrt : ident := 16%positive.
-Definition ___builtin_membar : ident := 22%positive.
-Definition ___builtin_memcpy_aligned : ident := 18%positive.
-Definition ___builtin_read16_reversed : ident := 35%positive.
-Definition ___builtin_read32_reversed : ident := 36%positive.
-Definition ___builtin_sel : ident := 19%positive.
-Definition ___builtin_sqrt : ident := 17%positive.
-Definition ___builtin_unreachable : ident := 27%positive.
-Definition ___builtin_va_arg : ident := 24%positive.
-Definition ___builtin_va_copy : ident := 25%positive.
-Definition ___builtin_va_end : ident := 26%positive.
-Definition ___builtin_va_start : ident := 23%positive.
-Definition ___builtin_write16_reversed : ident := 37%positive.
-Definition ___builtin_write32_reversed : ident := 38%positive.
-Definition ___compcert_i64_dtos : ident := 53%positive.
-Definition ___compcert_i64_dtou : ident := 54%positive.
-Definition ___compcert_i64_sar : ident := 65%positive.
-Definition ___compcert_i64_sdiv : ident := 59%positive.
-Definition ___compcert_i64_shl : ident := 63%positive.
-Definition ___compcert_i64_shr : ident := 64%positive.
-Definition ___compcert_i64_smod : ident := 61%positive.
-Definition ___compcert_i64_smulh : ident := 66%positive.
-Definition ___compcert_i64_stod : ident := 55%positive.
-Definition ___compcert_i64_stof : ident := 57%positive.
-Definition ___compcert_i64_udiv : ident := 60%positive.
-Definition ___compcert_i64_umod : ident := 62%positive.
-Definition ___compcert_i64_umulh : ident := 67%positive.
-Definition ___compcert_i64_utod : ident := 56%positive.
-Definition ___compcert_i64_utof : ident := 58%positive.
-Definition ___compcert_va_composite : ident := 52%positive.
-Definition ___compcert_va_float64 : ident := 51%positive.
-Definition ___compcert_va_int32 : ident := 49%positive.
-Definition ___compcert_va_int64 : ident := 50%positive.
-Definition _a : ident := 40%positive.
-Definition _b : ident := 41%positive.
-Definition _cond : ident := 47%positive.
+Definition ___builtin_ais_annot : ident := 4%positive.
+Definition ___builtin_annot : ident := 21%positive.
+Definition ___builtin_annot_intval : ident := 22%positive.
+Definition ___builtin_bswap : ident := 6%positive.
+Definition ___builtin_bswap16 : ident := 8%positive.
+Definition ___builtin_bswap32 : ident := 7%positive.
+Definition ___builtin_bswap64 : ident := 5%positive.
+Definition ___builtin_clz : ident := 9%positive.
+Definition ___builtin_clzl : ident := 10%positive.
+Definition ___builtin_clzll : ident := 11%positive.
+Definition ___builtin_ctz : ident := 12%positive.
+Definition ___builtin_ctzl : ident := 13%positive.
+Definition ___builtin_ctzll : ident := 14%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 29%positive.
+Definition ___builtin_fabs : ident := 15%positive.
+Definition ___builtin_fabsf : ident := 16%positive.
+Definition ___builtin_fmadd : ident := 32%positive.
+Definition ___builtin_fmax : ident := 30%positive.
+Definition ___builtin_fmin : ident := 31%positive.
+Definition ___builtin_fmsub : ident := 33%positive.
+Definition ___builtin_fnmadd : ident := 34%positive.
+Definition ___builtin_fnmsub : ident := 35%positive.
+Definition ___builtin_fsqrt : ident := 17%positive.
+Definition ___builtin_membar : ident := 23%positive.
+Definition ___builtin_memcpy_aligned : ident := 19%positive.
+Definition ___builtin_read16_reversed : ident := 36%positive.
+Definition ___builtin_read32_reversed : ident := 37%positive.
+Definition ___builtin_sel : ident := 20%positive.
+Definition ___builtin_sqrt : ident := 18%positive.
+Definition ___builtin_unreachable : ident := 28%positive.
+Definition ___builtin_va_arg : ident := 25%positive.
+Definition ___builtin_va_copy : ident := 26%positive.
+Definition ___builtin_va_end : ident := 27%positive.
+Definition ___builtin_va_start : ident := 24%positive.
+Definition ___builtin_write16_reversed : ident := 38%positive.
+Definition ___builtin_write32_reversed : ident := 39%positive.
+Definition ___compcert_i64_dtos : ident := 54%positive.
+Definition ___compcert_i64_dtou : ident := 55%positive.
+Definition ___compcert_i64_sar : ident := 66%positive.
+Definition ___compcert_i64_sdiv : ident := 60%positive.
+Definition ___compcert_i64_shl : ident := 64%positive.
+Definition ___compcert_i64_shr : ident := 65%positive.
+Definition ___compcert_i64_smod : ident := 62%positive.
+Definition ___compcert_i64_smulh : ident := 67%positive.
+Definition ___compcert_i64_stod : ident := 56%positive.
+Definition ___compcert_i64_stof : ident := 58%positive.
+Definition ___compcert_i64_udiv : ident := 61%positive.
+Definition ___compcert_i64_umod : ident := 63%positive.
+Definition ___compcert_i64_umulh : ident := 68%positive.
+Definition ___compcert_i64_utod : ident := 57%positive.
+Definition ___compcert_i64_utof : ident := 59%positive.
+Definition ___compcert_va_composite : ident := 53%positive.
+Definition ___compcert_va_float64 : ident := 52%positive.
+Definition ___compcert_va_int32 : ident := 50%positive.
+Definition ___compcert_va_int64 : ident := 51%positive.
+Definition _a : ident := 41%positive.
+Definition _b : ident := 42%positive.
+Definition _cond : ident := 48%positive.
Definition _head : ident := 2%positive.
Definition _list : ident := 1%positive.
-Definition _main : ident := 68%positive.
-Definition _merge : ident := 48%positive.
-Definition _ret : ident := 42%positive.
+Definition _main : ident := 69%positive.
+Definition _merge : ident := 49%positive.
+Definition _ret : ident := 43%positive.
Definition _tail : ident := 3%positive.
-Definition _temp : ident := 43%positive.
-Definition _va : ident := 45%positive.
-Definition _vb : ident := 46%positive.
-Definition _x : ident := 44%positive.
-Definition _t'1 : ident := 69%positive.
-Definition _t'2 : ident := 70%positive.
+Definition _temp : ident := 44%positive.
+Definition _va : ident := 46%positive.
+Definition _vb : ident := 47%positive.
+Definition _x : ident := 45%positive.
+Definition _t'1 : ident := 70%positive.
+Definition _t'2 : ident := 71%positive.
Definition f_merge := {|
fn_return := (tptr (Tstruct _list noattr));
@@ -209,264 +210,259 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_merge, Gfun(Internal f_merge)) :: nil).
@@ -483,12 +479,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/message.v b/progs/message.v
index 048d4a02cb..bfa8652c0a 100644
--- a/progs/message.v
+++ b/progs/message.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,80 +19,81 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 24%positive.
-Definition ___builtin_annot_intval : ident := 25%positive.
-Definition ___builtin_bswap : ident := 9%positive.
-Definition ___builtin_bswap16 : ident := 11%positive.
-Definition ___builtin_bswap32 : ident := 10%positive.
-Definition ___builtin_bswap64 : ident := 8%positive.
-Definition ___builtin_clz : ident := 12%positive.
-Definition ___builtin_clzl : ident := 13%positive.
-Definition ___builtin_clzll : ident := 14%positive.
-Definition ___builtin_ctz : ident := 15%positive.
-Definition ___builtin_ctzl : ident := 16%positive.
-Definition ___builtin_ctzll : ident := 17%positive.
-Definition ___builtin_debug : ident := 43%positive.
-Definition ___builtin_expect : ident := 32%positive.
-Definition ___builtin_fabs : ident := 18%positive.
-Definition ___builtin_fabsf : ident := 19%positive.
-Definition ___builtin_fmadd : ident := 35%positive.
-Definition ___builtin_fmax : ident := 33%positive.
-Definition ___builtin_fmin : ident := 34%positive.
-Definition ___builtin_fmsub : ident := 36%positive.
-Definition ___builtin_fnmadd : ident := 37%positive.
-Definition ___builtin_fnmsub : ident := 38%positive.
-Definition ___builtin_fsqrt : ident := 20%positive.
-Definition ___builtin_membar : ident := 26%positive.
-Definition ___builtin_memcpy_aligned : ident := 22%positive.
-Definition ___builtin_read16_reversed : ident := 39%positive.
-Definition ___builtin_read32_reversed : ident := 40%positive.
-Definition ___builtin_sel : ident := 23%positive.
-Definition ___builtin_sqrt : ident := 21%positive.
-Definition ___builtin_unreachable : ident := 31%positive.
-Definition ___builtin_va_arg : ident := 28%positive.
-Definition ___builtin_va_copy : ident := 29%positive.
-Definition ___builtin_va_end : ident := 30%positive.
-Definition ___builtin_va_start : ident := 27%positive.
-Definition ___builtin_write16_reversed : ident := 41%positive.
-Definition ___builtin_write32_reversed : ident := 42%positive.
-Definition ___compcert_i64_dtos : ident := 59%positive.
-Definition ___compcert_i64_dtou : ident := 60%positive.
-Definition ___compcert_i64_sar : ident := 71%positive.
-Definition ___compcert_i64_sdiv : ident := 65%positive.
-Definition ___compcert_i64_shl : ident := 69%positive.
-Definition ___compcert_i64_shr : ident := 70%positive.
-Definition ___compcert_i64_smod : ident := 67%positive.
-Definition ___compcert_i64_smulh : ident := 72%positive.
-Definition ___compcert_i64_stod : ident := 61%positive.
-Definition ___compcert_i64_stof : ident := 63%positive.
-Definition ___compcert_i64_udiv : ident := 66%positive.
-Definition ___compcert_i64_umod : ident := 68%positive.
-Definition ___compcert_i64_umulh : ident := 73%positive.
-Definition ___compcert_i64_utod : ident := 62%positive.
-Definition ___compcert_i64_utof : ident := 64%positive.
-Definition ___compcert_va_composite : ident := 58%positive.
-Definition ___compcert_va_float64 : ident := 57%positive.
-Definition ___compcert_va_int32 : ident := 55%positive.
-Definition ___compcert_va_int64 : ident := 56%positive.
-Definition _buf : ident := 45%positive.
+Definition ___builtin_ais_annot : ident := 8%positive.
+Definition ___builtin_annot : ident := 25%positive.
+Definition ___builtin_annot_intval : ident := 26%positive.
+Definition ___builtin_bswap : ident := 10%positive.
+Definition ___builtin_bswap16 : ident := 12%positive.
+Definition ___builtin_bswap32 : ident := 11%positive.
+Definition ___builtin_bswap64 : ident := 9%positive.
+Definition ___builtin_clz : ident := 13%positive.
+Definition ___builtin_clzl : ident := 14%positive.
+Definition ___builtin_clzll : ident := 15%positive.
+Definition ___builtin_ctz : ident := 16%positive.
+Definition ___builtin_ctzl : ident := 17%positive.
+Definition ___builtin_ctzll : ident := 18%positive.
+Definition ___builtin_debug : ident := 44%positive.
+Definition ___builtin_expect : ident := 33%positive.
+Definition ___builtin_fabs : ident := 19%positive.
+Definition ___builtin_fabsf : ident := 20%positive.
+Definition ___builtin_fmadd : ident := 36%positive.
+Definition ___builtin_fmax : ident := 34%positive.
+Definition ___builtin_fmin : ident := 35%positive.
+Definition ___builtin_fmsub : ident := 37%positive.
+Definition ___builtin_fnmadd : ident := 38%positive.
+Definition ___builtin_fnmsub : ident := 39%positive.
+Definition ___builtin_fsqrt : ident := 21%positive.
+Definition ___builtin_membar : ident := 27%positive.
+Definition ___builtin_memcpy_aligned : ident := 23%positive.
+Definition ___builtin_read16_reversed : ident := 40%positive.
+Definition ___builtin_read32_reversed : ident := 41%positive.
+Definition ___builtin_sel : ident := 24%positive.
+Definition ___builtin_sqrt : ident := 22%positive.
+Definition ___builtin_unreachable : ident := 32%positive.
+Definition ___builtin_va_arg : ident := 29%positive.
+Definition ___builtin_va_copy : ident := 30%positive.
+Definition ___builtin_va_end : ident := 31%positive.
+Definition ___builtin_va_start : ident := 28%positive.
+Definition ___builtin_write16_reversed : ident := 42%positive.
+Definition ___builtin_write32_reversed : ident := 43%positive.
+Definition ___compcert_i64_dtos : ident := 60%positive.
+Definition ___compcert_i64_dtou : ident := 61%positive.
+Definition ___compcert_i64_sar : ident := 72%positive.
+Definition ___compcert_i64_sdiv : ident := 66%positive.
+Definition ___compcert_i64_shl : ident := 70%positive.
+Definition ___compcert_i64_shr : ident := 71%positive.
+Definition ___compcert_i64_smod : ident := 68%positive.
+Definition ___compcert_i64_smulh : ident := 73%positive.
+Definition ___compcert_i64_stod : ident := 62%positive.
+Definition ___compcert_i64_stof : ident := 64%positive.
+Definition ___compcert_i64_udiv : ident := 67%positive.
+Definition ___compcert_i64_umod : ident := 69%positive.
+Definition ___compcert_i64_umulh : ident := 74%positive.
+Definition ___compcert_i64_utod : ident := 63%positive.
+Definition ___compcert_i64_utof : ident := 65%positive.
+Definition ___compcert_va_composite : ident := 59%positive.
+Definition ___compcert_va_float64 : ident := 58%positive.
+Definition ___compcert_va_int32 : ident := 56%positive.
+Definition ___compcert_va_int64 : ident := 57%positive.
+Definition _buf : ident := 46%positive.
Definition _bufsize : ident := 2%positive.
-Definition _des : ident := 53%positive.
+Definition _des : ident := 54%positive.
Definition _deserialize : ident := 4%positive.
Definition _intpair : ident := 5%positive.
-Definition _intpair_deserialize : ident := 48%positive.
-Definition _intpair_message : ident := 49%positive.
-Definition _intpair_serialize : ident := 46%positive.
-Definition _len : ident := 51%positive.
-Definition _length : ident := 47%positive.
-Definition _main : ident := 54%positive.
+Definition _intpair_deserialize : ident := 49%positive.
+Definition _intpair_message : ident := 50%positive.
+Definition _intpair_serialize : ident := 47%positive.
+Definition _len : ident := 52%positive.
+Definition _length : ident := 48%positive.
+Definition _main : ident := 55%positive.
Definition _message : ident := 1%positive.
-Definition _p : ident := 44%positive.
-Definition _q : ident := 50%positive.
-Definition _ser : ident := 52%positive.
+Definition _p : ident := 45%positive.
+Definition _q : ident := 51%positive.
+Definition _ser : ident := 53%positive.
Definition _serialize : ident := 3%positive.
Definition _x : ident := 6%positive.
Definition _y : ident := 7%positive.
-Definition _t'1 : ident := 74%positive.
+Definition _t'1 : ident := 75%positive.
Definition f_intpair_serialize := {|
fn_return := tint;
@@ -179,13 +180,11 @@ Definition f_main := {|
nil);
fn_temps := ((_len, tint) :: (_x, tint) :: (_y, tint) ::
(_ser,
- (tptr (Tfunction
- (Tcons (tptr tvoid) (Tcons (tptr tuchar) Tnil)) tint
+ (tptr (Tfunction ((tptr tvoid) :: (tptr tuchar) :: nil) tint
cc_default))) ::
(_des,
(tptr (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tuchar) (Tcons tint Tnil))) tvoid
+ ((tptr tvoid) :: (tptr tuchar) :: tint :: nil) tvoid
cc_default))) :: (_t'1, tint) :: nil);
fn_body :=
(Ssequence
@@ -199,15 +198,14 @@ Definition f_main := {|
(Sset _ser
(Efield (Evar _intpair_message (Tstruct _message noattr))
_serialize
- (tptr (Tfunction (Tcons (tptr tvoid) (Tcons (tptr tuchar) Tnil))
- tint cc_default))))
+ (tptr (Tfunction ((tptr tvoid) :: (tptr tuchar) :: nil) tint
+ cc_default))))
(Ssequence
(Ssequence
(Scall (Some _t'1)
(Etempvar _ser (tptr (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tuchar) Tnil)) tint
- cc_default)))
+ ((tptr tvoid) :: (tptr tuchar) :: nil)
+ tint cc_default)))
((Eaddrof (Evar _p (Tstruct _intpair noattr))
(tptr (Tstruct _intpair noattr))) ::
(Evar _buf (tarray tuchar 8)) :: nil))
@@ -217,16 +215,13 @@ Definition f_main := {|
(Efield (Evar _intpair_message (Tstruct _message noattr))
_deserialize
(tptr (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tuchar) (Tcons tint Tnil))) tvoid
+ ((tptr tvoid) :: (tptr tuchar) :: tint :: nil) tvoid
cc_default))))
(Ssequence
(Scall None
(Etempvar _des (tptr (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tuchar)
- (Tcons tint Tnil))) tvoid
- cc_default)))
+ ((tptr tvoid) :: (tptr tuchar) ::
+ tint :: nil) tvoid cc_default)))
((Eaddrof (Evar _q (Tstruct _intpair noattr))
(tptr (Tstruct _intpair noattr))) ::
(Evar _buf (tarray tuchar 8)) ::
@@ -246,12 +241,11 @@ Definition composites : list composite_definition :=
(Composite _message Struct
(Member_plain _bufsize tint ::
Member_plain _serialize
- (tptr (Tfunction (Tcons (tptr tvoid) (Tcons (tptr tuchar) Tnil)) tint
+ (tptr (Tfunction ((tptr tvoid) :: (tptr tuchar) :: nil) tint
cc_default)) ::
Member_plain _deserialize
- (tptr (Tfunction
- (Tcons (tptr tvoid) (Tcons (tptr tuchar) (Tcons tint Tnil)))
- tvoid cc_default)) :: nil)
+ (tptr (Tfunction ((tptr tvoid) :: (tptr tuchar) :: tint :: nil) tvoid
+ cc_default)) :: nil)
noattr ::
Composite _intpair Struct
(Member_plain _x tint :: Member_plain _y tint :: nil)
@@ -260,264 +254,259 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_intpair_serialize, Gfun(Internal f_intpair_serialize)) ::
(_intpair_deserialize, Gfun(Internal f_intpair_deserialize)) ::
@@ -538,12 +527,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/min.v b/progs/min.v
index 0d52fc908e..3b6a6959ea 100644
--- a/progs/min.v
+++ b/progs/min.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,68 +19,69 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 47%positive.
-Definition ___compcert_i64_dtou : ident := 48%positive.
-Definition ___compcert_i64_sar : ident := 59%positive.
-Definition ___compcert_i64_sdiv : ident := 53%positive.
-Definition ___compcert_i64_shl : ident := 57%positive.
-Definition ___compcert_i64_shr : ident := 58%positive.
-Definition ___compcert_i64_smod : ident := 55%positive.
-Definition ___compcert_i64_smulh : ident := 60%positive.
-Definition ___compcert_i64_stod : ident := 49%positive.
-Definition ___compcert_i64_stof : ident := 51%positive.
-Definition ___compcert_i64_udiv : ident := 54%positive.
-Definition ___compcert_i64_umod : ident := 56%positive.
-Definition ___compcert_i64_umulh : ident := 61%positive.
-Definition ___compcert_i64_utod : ident := 50%positive.
-Definition ___compcert_i64_utof : ident := 52%positive.
-Definition ___compcert_va_composite : ident := 46%positive.
-Definition ___compcert_va_float64 : ident := 45%positive.
-Definition ___compcert_va_int32 : ident := 43%positive.
-Definition ___compcert_va_int64 : ident := 44%positive.
-Definition _a : ident := 37%positive.
-Definition _i : ident := 39%positive.
-Definition _j : ident := 41%positive.
-Definition _main : ident := 62%positive.
-Definition _min : ident := 40%positive.
-Definition _minimum : ident := 42%positive.
-Definition _n : ident := 38%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 48%positive.
+Definition ___compcert_i64_dtou : ident := 49%positive.
+Definition ___compcert_i64_sar : ident := 60%positive.
+Definition ___compcert_i64_sdiv : ident := 54%positive.
+Definition ___compcert_i64_shl : ident := 58%positive.
+Definition ___compcert_i64_shr : ident := 59%positive.
+Definition ___compcert_i64_smod : ident := 56%positive.
+Definition ___compcert_i64_smulh : ident := 61%positive.
+Definition ___compcert_i64_stod : ident := 50%positive.
+Definition ___compcert_i64_stof : ident := 52%positive.
+Definition ___compcert_i64_udiv : ident := 55%positive.
+Definition ___compcert_i64_umod : ident := 57%positive.
+Definition ___compcert_i64_umulh : ident := 62%positive.
+Definition ___compcert_i64_utod : ident := 51%positive.
+Definition ___compcert_i64_utof : ident := 53%positive.
+Definition ___compcert_va_composite : ident := 47%positive.
+Definition ___compcert_va_float64 : ident := 46%positive.
+Definition ___compcert_va_int32 : ident := 44%positive.
+Definition ___compcert_va_int64 : ident := 45%positive.
+Definition _a : ident := 38%positive.
+Definition _i : ident := 40%positive.
+Definition _j : ident := 42%positive.
+Definition _main : ident := 63%positive.
+Definition _min : ident := 41%positive.
+Definition _minimum : ident := 43%positive.
+Definition _n : ident := 39%positive.
Definition f_minimum := {|
fn_return := tint;
@@ -124,264 +125,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_minimum, Gfun(Internal f_minimum)) :: nil).
@@ -398,12 +394,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/min64.v b/progs/min64.v
index fbc834eb3d..73cc08a3c7 100644
--- a/progs/min64.v
+++ b/progs/min64.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,68 +19,69 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 47%positive.
-Definition ___compcert_i64_dtou : ident := 48%positive.
-Definition ___compcert_i64_sar : ident := 59%positive.
-Definition ___compcert_i64_sdiv : ident := 53%positive.
-Definition ___compcert_i64_shl : ident := 57%positive.
-Definition ___compcert_i64_shr : ident := 58%positive.
-Definition ___compcert_i64_smod : ident := 55%positive.
-Definition ___compcert_i64_smulh : ident := 60%positive.
-Definition ___compcert_i64_stod : ident := 49%positive.
-Definition ___compcert_i64_stof : ident := 51%positive.
-Definition ___compcert_i64_udiv : ident := 54%positive.
-Definition ___compcert_i64_umod : ident := 56%positive.
-Definition ___compcert_i64_umulh : ident := 61%positive.
-Definition ___compcert_i64_utod : ident := 50%positive.
-Definition ___compcert_i64_utof : ident := 52%positive.
-Definition ___compcert_va_composite : ident := 46%positive.
-Definition ___compcert_va_float64 : ident := 45%positive.
-Definition ___compcert_va_int32 : ident := 43%positive.
-Definition ___compcert_va_int64 : ident := 44%positive.
-Definition _a : ident := 37%positive.
-Definition _i : ident := 39%positive.
-Definition _j : ident := 41%positive.
-Definition _main : ident := 62%positive.
-Definition _min : ident := 40%positive.
-Definition _minimum : ident := 42%positive.
-Definition _n : ident := 38%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 48%positive.
+Definition ___compcert_i64_dtou : ident := 49%positive.
+Definition ___compcert_i64_sar : ident := 60%positive.
+Definition ___compcert_i64_sdiv : ident := 54%positive.
+Definition ___compcert_i64_shl : ident := 58%positive.
+Definition ___compcert_i64_shr : ident := 59%positive.
+Definition ___compcert_i64_smod : ident := 56%positive.
+Definition ___compcert_i64_smulh : ident := 61%positive.
+Definition ___compcert_i64_stod : ident := 50%positive.
+Definition ___compcert_i64_stof : ident := 52%positive.
+Definition ___compcert_i64_udiv : ident := 55%positive.
+Definition ___compcert_i64_umod : ident := 57%positive.
+Definition ___compcert_i64_umulh : ident := 62%positive.
+Definition ___compcert_i64_utod : ident := 51%positive.
+Definition ___compcert_i64_utof : ident := 53%positive.
+Definition ___compcert_va_composite : ident := 47%positive.
+Definition ___compcert_va_float64 : ident := 46%positive.
+Definition ___compcert_va_int32 : ident := 44%positive.
+Definition ___compcert_va_int64 : ident := 45%positive.
+Definition _a : ident := 38%positive.
+Definition _i : ident := 40%positive.
+Definition _j : ident := 42%positive.
+Definition _main : ident := 63%positive.
+Definition _min : ident := 41%positive.
+Definition _minimum : ident := 43%positive.
+Definition _n : ident := 39%positive.
Definition f_minimum := {|
fn_return := tint;
@@ -129,264 +130,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_minimum, Gfun(Internal f_minimum)) :: nil).
@@ -403,12 +399,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/nest2.v b/progs/nest2.v
index b54dbaaa8b..d5086297ec 100644
--- a/progs/nest2.v
+++ b/progs/nest2.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,68 +19,69 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 42%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
-Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
-Definition ___builtin_fmsub : ident := 35%positive.
-Definition ___builtin_fnmadd : ident := 36%positive.
-Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 39%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 40%positive.
-Definition ___builtin_write32_reversed : ident := 41%positive.
-Definition ___compcert_i64_dtos : ident := 52%positive.
-Definition ___compcert_i64_dtou : ident := 53%positive.
-Definition ___compcert_i64_sar : ident := 64%positive.
-Definition ___compcert_i64_sdiv : ident := 58%positive.
-Definition ___compcert_i64_shl : ident := 62%positive.
-Definition ___compcert_i64_shr : ident := 63%positive.
-Definition ___compcert_i64_smod : ident := 60%positive.
-Definition ___compcert_i64_smulh : ident := 65%positive.
-Definition ___compcert_i64_stod : ident := 54%positive.
-Definition ___compcert_i64_stof : ident := 56%positive.
-Definition ___compcert_i64_udiv : ident := 59%positive.
-Definition ___compcert_i64_umod : ident := 61%positive.
-Definition ___compcert_i64_umulh : ident := 66%positive.
-Definition ___compcert_i64_utod : ident := 55%positive.
-Definition ___compcert_i64_utof : ident := 57%positive.
-Definition ___compcert_va_composite : ident := 51%positive.
-Definition ___compcert_va_float64 : ident := 50%positive.
-Definition ___compcert_va_int32 : ident := 48%positive.
-Definition ___compcert_va_int64 : ident := 49%positive.
+Definition ___builtin_ais_annot : ident := 7%positive.
+Definition ___builtin_annot : ident := 24%positive.
+Definition ___builtin_annot_intval : ident := 25%positive.
+Definition ___builtin_bswap : ident := 9%positive.
+Definition ___builtin_bswap16 : ident := 11%positive.
+Definition ___builtin_bswap32 : ident := 10%positive.
+Definition ___builtin_bswap64 : ident := 8%positive.
+Definition ___builtin_clz : ident := 12%positive.
+Definition ___builtin_clzl : ident := 13%positive.
+Definition ___builtin_clzll : ident := 14%positive.
+Definition ___builtin_ctz : ident := 15%positive.
+Definition ___builtin_ctzl : ident := 16%positive.
+Definition ___builtin_ctzll : ident := 17%positive.
+Definition ___builtin_debug : ident := 43%positive.
+Definition ___builtin_expect : ident := 32%positive.
+Definition ___builtin_fabs : ident := 18%positive.
+Definition ___builtin_fabsf : ident := 19%positive.
+Definition ___builtin_fmadd : ident := 35%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 36%positive.
+Definition ___builtin_fnmadd : ident := 37%positive.
+Definition ___builtin_fnmsub : ident := 38%positive.
+Definition ___builtin_fsqrt : ident := 20%positive.
+Definition ___builtin_membar : ident := 26%positive.
+Definition ___builtin_memcpy_aligned : ident := 22%positive.
+Definition ___builtin_read16_reversed : ident := 39%positive.
+Definition ___builtin_read32_reversed : ident := 40%positive.
+Definition ___builtin_sel : ident := 23%positive.
+Definition ___builtin_sqrt : ident := 21%positive.
+Definition ___builtin_unreachable : ident := 31%positive.
+Definition ___builtin_va_arg : ident := 28%positive.
+Definition ___builtin_va_copy : ident := 29%positive.
+Definition ___builtin_va_end : ident := 30%positive.
+Definition ___builtin_va_start : ident := 27%positive.
+Definition ___builtin_write16_reversed : ident := 41%positive.
+Definition ___builtin_write32_reversed : ident := 42%positive.
+Definition ___compcert_i64_dtos : ident := 53%positive.
+Definition ___compcert_i64_dtou : ident := 54%positive.
+Definition ___compcert_i64_sar : ident := 65%positive.
+Definition ___compcert_i64_sdiv : ident := 59%positive.
+Definition ___compcert_i64_shl : ident := 63%positive.
+Definition ___compcert_i64_shr : ident := 64%positive.
+Definition ___compcert_i64_smod : ident := 61%positive.
+Definition ___compcert_i64_smulh : ident := 66%positive.
+Definition ___compcert_i64_stod : ident := 55%positive.
+Definition ___compcert_i64_stof : ident := 57%positive.
+Definition ___compcert_i64_udiv : ident := 60%positive.
+Definition ___compcert_i64_umod : ident := 62%positive.
+Definition ___compcert_i64_umulh : ident := 67%positive.
+Definition ___compcert_i64_utod : ident := 56%positive.
+Definition ___compcert_i64_utof : ident := 58%positive.
+Definition ___compcert_va_composite : ident := 52%positive.
+Definition ___compcert_va_float64 : ident := 51%positive.
+Definition ___compcert_va_int32 : ident := 49%positive.
+Definition ___compcert_va_int64 : ident := 50%positive.
Definition _a : ident := 1%positive.
Definition _b : ident := 4%positive.
-Definition _get : ident := 45%positive.
-Definition _i : ident := 44%positive.
-Definition _main : ident := 47%positive.
-Definition _p : ident := 43%positive.
-Definition _set : ident := 46%positive.
+Definition _get : ident := 46%positive.
+Definition _i : ident := 45%positive.
+Definition _main : ident := 48%positive.
+Definition _p : ident := 44%positive.
+Definition _set : ident := 47%positive.
Definition _x1 : ident := 2%positive.
Definition _x2 : ident := 3%positive.
Definition _y1 : ident := 5%positive.
@@ -140,264 +141,259 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_p, Gvar v_p) :: (_get, Gfun(Internal f_get)) ::
(_set, Gfun(Internal f_set)) :: (_main, Gfun(Internal f_main)) :: nil).
@@ -416,13 +412,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/nest3.v b/progs/nest3.v
index 3d531cc262..259aa0c368 100644
--- a/progs/nest3.v
+++ b/progs/nest3.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,79 +19,80 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 26%positive.
-Definition ___builtin_annot_intval : ident := 27%positive.
-Definition ___builtin_bswap : ident := 11%positive.
-Definition ___builtin_bswap16 : ident := 13%positive.
-Definition ___builtin_bswap32 : ident := 12%positive.
-Definition ___builtin_bswap64 : ident := 10%positive.
-Definition ___builtin_clz : ident := 14%positive.
-Definition ___builtin_clzl : ident := 15%positive.
-Definition ___builtin_clzll : ident := 16%positive.
-Definition ___builtin_ctz : ident := 17%positive.
-Definition ___builtin_ctzl : ident := 18%positive.
-Definition ___builtin_ctzll : ident := 19%positive.
-Definition ___builtin_debug : ident := 45%positive.
-Definition ___builtin_expect : ident := 34%positive.
-Definition ___builtin_fabs : ident := 20%positive.
-Definition ___builtin_fabsf : ident := 21%positive.
-Definition ___builtin_fmadd : ident := 37%positive.
-Definition ___builtin_fmax : ident := 35%positive.
-Definition ___builtin_fmin : ident := 36%positive.
-Definition ___builtin_fmsub : ident := 38%positive.
-Definition ___builtin_fnmadd : ident := 39%positive.
-Definition ___builtin_fnmsub : ident := 40%positive.
-Definition ___builtin_fsqrt : ident := 22%positive.
-Definition ___builtin_membar : ident := 28%positive.
-Definition ___builtin_memcpy_aligned : ident := 24%positive.
-Definition ___builtin_read16_reversed : ident := 41%positive.
-Definition ___builtin_read32_reversed : ident := 42%positive.
-Definition ___builtin_sel : ident := 25%positive.
-Definition ___builtin_sqrt : ident := 23%positive.
-Definition ___builtin_unreachable : ident := 33%positive.
-Definition ___builtin_va_arg : ident := 30%positive.
-Definition ___builtin_va_copy : ident := 31%positive.
-Definition ___builtin_va_end : ident := 32%positive.
-Definition ___builtin_va_start : ident := 29%positive.
-Definition ___builtin_write16_reversed : ident := 43%positive.
-Definition ___builtin_write32_reversed : ident := 44%positive.
-Definition ___compcert_i64_dtos : ident := 64%positive.
-Definition ___compcert_i64_dtou : ident := 65%positive.
-Definition ___compcert_i64_sar : ident := 76%positive.
-Definition ___compcert_i64_sdiv : ident := 70%positive.
-Definition ___compcert_i64_shl : ident := 74%positive.
-Definition ___compcert_i64_shr : ident := 75%positive.
-Definition ___compcert_i64_smod : ident := 72%positive.
-Definition ___compcert_i64_smulh : ident := 77%positive.
-Definition ___compcert_i64_stod : ident := 66%positive.
-Definition ___compcert_i64_stof : ident := 68%positive.
-Definition ___compcert_i64_udiv : ident := 71%positive.
-Definition ___compcert_i64_umod : ident := 73%positive.
-Definition ___compcert_i64_umulh : ident := 78%positive.
-Definition ___compcert_i64_utod : ident := 67%positive.
-Definition ___compcert_i64_utof : ident := 69%positive.
-Definition ___compcert_va_composite : ident := 63%positive.
-Definition ___compcert_va_float64 : ident := 62%positive.
-Definition ___compcert_va_int32 : ident := 60%positive.
-Definition ___compcert_va_int64 : ident := 61%positive.
+Definition ___builtin_ais_annot : ident := 10%positive.
+Definition ___builtin_annot : ident := 27%positive.
+Definition ___builtin_annot_intval : ident := 28%positive.
+Definition ___builtin_bswap : ident := 12%positive.
+Definition ___builtin_bswap16 : ident := 14%positive.
+Definition ___builtin_bswap32 : ident := 13%positive.
+Definition ___builtin_bswap64 : ident := 11%positive.
+Definition ___builtin_clz : ident := 15%positive.
+Definition ___builtin_clzl : ident := 16%positive.
+Definition ___builtin_clzll : ident := 17%positive.
+Definition ___builtin_ctz : ident := 18%positive.
+Definition ___builtin_ctzl : ident := 19%positive.
+Definition ___builtin_ctzll : ident := 20%positive.
+Definition ___builtin_debug : ident := 46%positive.
+Definition ___builtin_expect : ident := 35%positive.
+Definition ___builtin_fabs : ident := 21%positive.
+Definition ___builtin_fabsf : ident := 22%positive.
+Definition ___builtin_fmadd : ident := 38%positive.
+Definition ___builtin_fmax : ident := 36%positive.
+Definition ___builtin_fmin : ident := 37%positive.
+Definition ___builtin_fmsub : ident := 39%positive.
+Definition ___builtin_fnmadd : ident := 40%positive.
+Definition ___builtin_fnmsub : ident := 41%positive.
+Definition ___builtin_fsqrt : ident := 23%positive.
+Definition ___builtin_membar : ident := 29%positive.
+Definition ___builtin_memcpy_aligned : ident := 25%positive.
+Definition ___builtin_read16_reversed : ident := 42%positive.
+Definition ___builtin_read32_reversed : ident := 43%positive.
+Definition ___builtin_sel : ident := 26%positive.
+Definition ___builtin_sqrt : ident := 24%positive.
+Definition ___builtin_unreachable : ident := 34%positive.
+Definition ___builtin_va_arg : ident := 31%positive.
+Definition ___builtin_va_copy : ident := 32%positive.
+Definition ___builtin_va_end : ident := 33%positive.
+Definition ___builtin_va_start : ident := 30%positive.
+Definition ___builtin_write16_reversed : ident := 44%positive.
+Definition ___builtin_write32_reversed : ident := 45%positive.
+Definition ___compcert_i64_dtos : ident := 65%positive.
+Definition ___compcert_i64_dtou : ident := 66%positive.
+Definition ___compcert_i64_sar : ident := 77%positive.
+Definition ___compcert_i64_sdiv : ident := 71%positive.
+Definition ___compcert_i64_shl : ident := 75%positive.
+Definition ___compcert_i64_shr : ident := 76%positive.
+Definition ___compcert_i64_smod : ident := 73%positive.
+Definition ___compcert_i64_smulh : ident := 78%positive.
+Definition ___compcert_i64_stod : ident := 67%positive.
+Definition ___compcert_i64_stof : ident := 69%positive.
+Definition ___compcert_i64_udiv : ident := 72%positive.
+Definition ___compcert_i64_umod : ident := 74%positive.
+Definition ___compcert_i64_umulh : ident := 79%positive.
+Definition ___compcert_i64_utod : ident := 68%positive.
+Definition ___compcert_i64_utof : ident := 70%positive.
+Definition ___compcert_va_composite : ident := 64%positive.
+Definition ___compcert_va_float64 : ident := 63%positive.
+Definition ___compcert_va_int32 : ident := 61%positive.
+Definition ___compcert_va_int64 : ident := 62%positive.
Definition _a : ident := 1%positive.
Definition _b : ident := 4%positive.
Definition _c : ident := 7%positive.
-Definition _get : ident := 56%positive.
-Definition _i : ident := 55%positive.
-Definition _main : ident := 79%positive.
-Definition _multi_command : ident := 58%positive.
-Definition _multi_command_s : ident := 59%positive.
-Definition _p : ident := 46%positive.
-Definition _p0 : ident := 47%positive.
-Definition _p1 : ident := 48%positive.
-Definition _p2 : ident := 49%positive.
-Definition _p3 : ident := 50%positive.
-Definition _p4 : ident := 51%positive.
-Definition _p5 : ident := 52%positive.
-Definition _p6 : ident := 53%positive.
-Definition _p7 : ident := 54%positive.
-Definition _set : ident := 57%positive.
+Definition _get : ident := 57%positive.
+Definition _i : ident := 56%positive.
+Definition _main : ident := 80%positive.
+Definition _multi_command : ident := 59%positive.
+Definition _multi_command_s : ident := 60%positive.
+Definition _p : ident := 47%positive.
+Definition _p0 : ident := 48%positive.
+Definition _p1 : ident := 49%positive.
+Definition _p2 : ident := 50%positive.
+Definition _p3 : ident := 51%positive.
+Definition _p4 : ident := 52%positive.
+Definition _p5 : ident := 53%positive.
+Definition _p6 : ident := 54%positive.
+Definition _p7 : ident := 55%positive.
+Definition _set : ident := 58%positive.
Definition _x1 : ident := 2%positive.
Definition _x2 : ident := 3%positive.
Definition _y1 : ident := 5%positive.
@@ -299,264 +300,259 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_p, Gvar v_p) :: (_p0, Gvar v_p0) :: (_p1, Gvar v_p1) ::
(_p2, Gvar v_p2) :: (_p3, Gvar v_p3) :: (_p4, Gvar v_p4) ::
@@ -580,13 +576,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/object.v b/progs/object.v
index a5b400eac6..a1c58c9585 100644
--- a/progs/object.v
+++ b/progs/object.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,83 +19,84 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 24%positive.
-Definition ___builtin_annot_intval : ident := 25%positive.
-Definition ___builtin_bswap : ident := 9%positive.
-Definition ___builtin_bswap16 : ident := 11%positive.
-Definition ___builtin_bswap32 : ident := 10%positive.
-Definition ___builtin_bswap64 : ident := 8%positive.
-Definition ___builtin_clz : ident := 12%positive.
-Definition ___builtin_clzl : ident := 13%positive.
-Definition ___builtin_clzll : ident := 14%positive.
-Definition ___builtin_ctz : ident := 15%positive.
-Definition ___builtin_ctzl : ident := 16%positive.
-Definition ___builtin_ctzll : ident := 17%positive.
-Definition ___builtin_debug : ident := 43%positive.
-Definition ___builtin_expect : ident := 32%positive.
-Definition ___builtin_fabs : ident := 18%positive.
-Definition ___builtin_fabsf : ident := 19%positive.
-Definition ___builtin_fmadd : ident := 35%positive.
-Definition ___builtin_fmax : ident := 33%positive.
-Definition ___builtin_fmin : ident := 34%positive.
-Definition ___builtin_fmsub : ident := 36%positive.
-Definition ___builtin_fnmadd : ident := 37%positive.
-Definition ___builtin_fnmsub : ident := 38%positive.
-Definition ___builtin_fsqrt : ident := 20%positive.
-Definition ___builtin_membar : ident := 26%positive.
-Definition ___builtin_memcpy_aligned : ident := 22%positive.
-Definition ___builtin_read16_reversed : ident := 39%positive.
-Definition ___builtin_read32_reversed : ident := 40%positive.
-Definition ___builtin_sel : ident := 23%positive.
-Definition ___builtin_sqrt : ident := 21%positive.
-Definition ___builtin_unreachable : ident := 31%positive.
-Definition ___builtin_va_arg : ident := 28%positive.
-Definition ___builtin_va_copy : ident := 29%positive.
-Definition ___builtin_va_end : ident := 30%positive.
-Definition ___builtin_va_start : ident := 27%positive.
-Definition ___builtin_write16_reversed : ident := 41%positive.
-Definition ___builtin_write32_reversed : ident := 42%positive.
-Definition ___compcert_i64_dtos : ident := 61%positive.
-Definition ___compcert_i64_dtou : ident := 62%positive.
-Definition ___compcert_i64_sar : ident := 73%positive.
-Definition ___compcert_i64_sdiv : ident := 67%positive.
-Definition ___compcert_i64_shl : ident := 71%positive.
-Definition ___compcert_i64_shr : ident := 72%positive.
-Definition ___compcert_i64_smod : ident := 69%positive.
-Definition ___compcert_i64_smulh : ident := 74%positive.
-Definition ___compcert_i64_stod : ident := 63%positive.
-Definition ___compcert_i64_stof : ident := 65%positive.
-Definition ___compcert_i64_udiv : ident := 68%positive.
-Definition ___compcert_i64_umod : ident := 70%positive.
-Definition ___compcert_i64_umulh : ident := 75%positive.
-Definition ___compcert_i64_utod : ident := 64%positive.
-Definition ___compcert_i64_utof : ident := 66%positive.
-Definition ___compcert_va_composite : ident := 60%positive.
-Definition ___compcert_va_float64 : ident := 59%positive.
-Definition ___compcert_va_int32 : ident := 57%positive.
-Definition ___compcert_va_int64 : ident := 58%positive.
-Definition _d : ident := 49%positive.
+Definition ___builtin_ais_annot : ident := 8%positive.
+Definition ___builtin_annot : ident := 25%positive.
+Definition ___builtin_annot_intval : ident := 26%positive.
+Definition ___builtin_bswap : ident := 10%positive.
+Definition ___builtin_bswap16 : ident := 12%positive.
+Definition ___builtin_bswap32 : ident := 11%positive.
+Definition ___builtin_bswap64 : ident := 9%positive.
+Definition ___builtin_clz : ident := 13%positive.
+Definition ___builtin_clzl : ident := 14%positive.
+Definition ___builtin_clzll : ident := 15%positive.
+Definition ___builtin_ctz : ident := 16%positive.
+Definition ___builtin_ctzl : ident := 17%positive.
+Definition ___builtin_ctzll : ident := 18%positive.
+Definition ___builtin_debug : ident := 44%positive.
+Definition ___builtin_expect : ident := 33%positive.
+Definition ___builtin_fabs : ident := 19%positive.
+Definition ___builtin_fabsf : ident := 20%positive.
+Definition ___builtin_fmadd : ident := 36%positive.
+Definition ___builtin_fmax : ident := 34%positive.
+Definition ___builtin_fmin : ident := 35%positive.
+Definition ___builtin_fmsub : ident := 37%positive.
+Definition ___builtin_fnmadd : ident := 38%positive.
+Definition ___builtin_fnmsub : ident := 39%positive.
+Definition ___builtin_fsqrt : ident := 21%positive.
+Definition ___builtin_membar : ident := 27%positive.
+Definition ___builtin_memcpy_aligned : ident := 23%positive.
+Definition ___builtin_read16_reversed : ident := 40%positive.
+Definition ___builtin_read32_reversed : ident := 41%positive.
+Definition ___builtin_sel : ident := 24%positive.
+Definition ___builtin_sqrt : ident := 22%positive.
+Definition ___builtin_unreachable : ident := 32%positive.
+Definition ___builtin_va_arg : ident := 29%positive.
+Definition ___builtin_va_copy : ident := 30%positive.
+Definition ___builtin_va_end : ident := 31%positive.
+Definition ___builtin_va_start : ident := 28%positive.
+Definition ___builtin_write16_reversed : ident := 42%positive.
+Definition ___builtin_write32_reversed : ident := 43%positive.
+Definition ___compcert_i64_dtos : ident := 62%positive.
+Definition ___compcert_i64_dtou : ident := 63%positive.
+Definition ___compcert_i64_sar : ident := 74%positive.
+Definition ___compcert_i64_sdiv : ident := 68%positive.
+Definition ___compcert_i64_shl : ident := 72%positive.
+Definition ___compcert_i64_shr : ident := 73%positive.
+Definition ___compcert_i64_smod : ident := 70%positive.
+Definition ___compcert_i64_smulh : ident := 75%positive.
+Definition ___compcert_i64_stod : ident := 64%positive.
+Definition ___compcert_i64_stof : ident := 66%positive.
+Definition ___compcert_i64_udiv : ident := 69%positive.
+Definition ___compcert_i64_umod : ident := 71%positive.
+Definition ___compcert_i64_umulh : ident := 76%positive.
+Definition ___compcert_i64_utod : ident := 65%positive.
+Definition ___compcert_i64_utof : ident := 67%positive.
+Definition ___compcert_va_composite : ident := 61%positive.
+Definition ___compcert_va_float64 : ident := 60%positive.
+Definition ___compcert_va_int32 : ident := 58%positive.
+Definition ___compcert_va_int64 : ident := 59%positive.
+Definition _d : ident := 50%positive.
Definition _data : ident := 7%positive.
-Definition _exit : ident := 45%positive.
-Definition _foo_methods : ident := 51%positive.
+Definition _exit : ident := 46%positive.
+Definition _foo_methods : ident := 52%positive.
Definition _foo_object : ident := 6%positive.
-Definition _foo_reset : ident := 47%positive.
-Definition _foo_twiddle : ident := 50%positive.
-Definition _i : ident := 48%positive.
-Definition _main : ident := 56%positive.
-Definition _make_foo : ident := 53%positive.
-Definition _malloc : ident := 44%positive.
+Definition _foo_reset : ident := 48%positive.
+Definition _foo_twiddle : ident := 51%positive.
+Definition _i : ident := 49%positive.
+Definition _main : ident := 57%positive.
+Definition _make_foo : ident := 54%positive.
+Definition _malloc : ident := 45%positive.
Definition _methods : ident := 1%positive.
Definition _mtable : ident := 5%positive.
Definition _object : ident := 3%positive.
-Definition _p : ident := 52%positive.
-Definition _p_reset : ident := 54%positive.
-Definition _p_twiddle : ident := 55%positive.
+Definition _p : ident := 53%positive.
+Definition _p_reset : ident := 55%positive.
+Definition _p_twiddle : ident := 56%positive.
Definition _reset : ident := 2%positive.
-Definition _self : ident := 46%positive.
+Definition _self : ident := 47%positive.
Definition _twiddle : ident := 4%positive.
-Definition _t'1 : ident := 76%positive.
-Definition _t'2 : ident := 77%positive.
+Definition _t'1 : ident := 77%positive.
+Definition _t'2 : ident := 78%positive.
Definition f_foo_reset := {|
fn_return := tvoid;
@@ -159,7 +160,7 @@ Definition f_make_foo := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (tuint :: nil) (tptr tvoid) cc_default))
((Esizeof (Tstruct _foo_object noattr) tuint) :: nil))
(Sset _p
(Ecast (Etempvar _t'1 (tptr tvoid))
@@ -167,7 +168,7 @@ Definition f_make_foo := {|
(Ssequence
(Sifthenelse (Eunop Onotbool
(Etempvar _p (tptr (Tstruct _foo_object noattr))) tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Ssequence
@@ -197,20 +198,19 @@ Definition f_main := {|
fn_temps := ((_p, (tptr (Tstruct _object noattr))) ::
(_mtable, (tptr (Tstruct _methods noattr))) ::
(_p_reset,
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tvoid cc_default))) ::
(_p_twiddle,
(tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- (Tcons tint Tnil)) tint cc_default))) ::
- (_i, tint) :: (_t'2, tint) ::
+ ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
+ cc_default))) :: (_i, tint) :: (_t'2, tint) ::
(_t'1, (tptr (Tstruct _object noattr))) :: nil);
fn_body :=
(Ssequence
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _make_foo (Tfunction Tnil (tptr (Tstruct _object noattr))
+ (Evar _make_foo (Tfunction nil (tptr (Tstruct _object noattr))
cc_default)) nil)
(Sset _p (Etempvar _t'1 (tptr (Tstruct _object noattr)))))
(Ssequence
@@ -224,13 +224,13 @@ Definition f_main := {|
(Efield
(Ederef (Etempvar _mtable (tptr (Tstruct _methods noattr)))
(Tstruct _methods noattr)) _reset
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
- tvoid cc_default))))
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tvoid
+ cc_default))))
(Ssequence
(Scall None
(Etempvar _p_reset (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- Tnil) tvoid cc_default)))
+ ((tptr (Tstruct _object noattr)) ::
+ nil) tvoid cc_default)))
((Etempvar _p (tptr (Tstruct _object noattr))) :: nil))
(Ssequence
(Sset _mtable
@@ -244,15 +244,14 @@ Definition f_main := {|
(Ederef (Etempvar _mtable (tptr (Tstruct _methods noattr)))
(Tstruct _methods noattr)) _twiddle
(tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- (Tcons tint Tnil)) tint cc_default))))
+ ((tptr (Tstruct _object noattr)) :: tint :: nil)
+ tint cc_default))))
(Ssequence
(Ssequence
(Scall (Some _t'2)
(Etempvar _p_twiddle (tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- (Tcons tint Tnil)) tint
+ ((tptr (Tstruct _object noattr)) ::
+ tint :: nil) tint
cc_default)))
((Etempvar _p (tptr (Tstruct _object noattr))) ::
(Econst_int (Int.repr 3) tint) :: nil))
@@ -264,11 +263,10 @@ Definition f_main := {|
Definition composites : list composite_definition :=
(Composite _methods Struct
(Member_plain _reset
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil) tvoid
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tvoid
cc_default)) ::
Member_plain _twiddle
- (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr)) (Tcons tint Tnil)) tint
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
cc_default)) :: nil)
noattr ::
Composite _object Struct
@@ -282,271 +280,265 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
- (_malloc,
- Gfun(External EF_malloc (Tcons tuint Tnil) (tptr tvoid) cc_default)) ::
+ (_malloc, Gfun(External EF_malloc (tuint :: nil) (tptr tvoid) cc_default)) ::
(_exit,
Gfun(External (EF_external "exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
(_foo_reset, Gfun(Internal f_foo_reset)) ::
(_foo_twiddle, Gfun(Internal f_foo_twiddle)) ::
(_foo_methods, Gvar v_foo_methods) ::
@@ -567,12 +559,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/objectSelf.v b/progs/objectSelf.v
index 07b7b703d0..cdb6e026bb 100644
--- a/progs/objectSelf.v
+++ b/progs/objectSelf.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,86 +19,87 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 25%positive.
-Definition ___builtin_annot_intval : ident := 26%positive.
-Definition ___builtin_bswap : ident := 10%positive.
-Definition ___builtin_bswap16 : ident := 12%positive.
-Definition ___builtin_bswap32 : ident := 11%positive.
-Definition ___builtin_bswap64 : ident := 9%positive.
-Definition ___builtin_clz : ident := 13%positive.
-Definition ___builtin_clzl : ident := 14%positive.
-Definition ___builtin_clzll : ident := 15%positive.
-Definition ___builtin_ctz : ident := 16%positive.
-Definition ___builtin_ctzl : ident := 17%positive.
-Definition ___builtin_ctzll : ident := 18%positive.
-Definition ___builtin_debug : ident := 44%positive.
-Definition ___builtin_expect : ident := 33%positive.
-Definition ___builtin_fabs : ident := 19%positive.
-Definition ___builtin_fabsf : ident := 20%positive.
-Definition ___builtin_fmadd : ident := 36%positive.
-Definition ___builtin_fmax : ident := 34%positive.
-Definition ___builtin_fmin : ident := 35%positive.
-Definition ___builtin_fmsub : ident := 37%positive.
-Definition ___builtin_fnmadd : ident := 38%positive.
-Definition ___builtin_fnmsub : ident := 39%positive.
-Definition ___builtin_fsqrt : ident := 21%positive.
-Definition ___builtin_membar : ident := 27%positive.
-Definition ___builtin_memcpy_aligned : ident := 23%positive.
-Definition ___builtin_read16_reversed : ident := 40%positive.
-Definition ___builtin_read32_reversed : ident := 41%positive.
-Definition ___builtin_sel : ident := 24%positive.
-Definition ___builtin_sqrt : ident := 22%positive.
-Definition ___builtin_unreachable : ident := 32%positive.
-Definition ___builtin_va_arg : ident := 29%positive.
-Definition ___builtin_va_copy : ident := 30%positive.
-Definition ___builtin_va_end : ident := 31%positive.
-Definition ___builtin_va_start : ident := 28%positive.
-Definition ___builtin_write16_reversed : ident := 42%positive.
-Definition ___builtin_write32_reversed : ident := 43%positive.
-Definition ___compcert_i64_dtos : ident := 64%positive.
-Definition ___compcert_i64_dtou : ident := 65%positive.
-Definition ___compcert_i64_sar : ident := 76%positive.
-Definition ___compcert_i64_sdiv : ident := 70%positive.
-Definition ___compcert_i64_shl : ident := 74%positive.
-Definition ___compcert_i64_shr : ident := 75%positive.
-Definition ___compcert_i64_smod : ident := 72%positive.
-Definition ___compcert_i64_smulh : ident := 77%positive.
-Definition ___compcert_i64_stod : ident := 66%positive.
-Definition ___compcert_i64_stof : ident := 68%positive.
-Definition ___compcert_i64_udiv : ident := 71%positive.
-Definition ___compcert_i64_umod : ident := 73%positive.
-Definition ___compcert_i64_umulh : ident := 78%positive.
-Definition ___compcert_i64_utod : ident := 67%positive.
-Definition ___compcert_i64_utof : ident := 69%positive.
-Definition ___compcert_va_composite : ident := 63%positive.
-Definition ___compcert_va_float64 : ident := 62%positive.
-Definition ___compcert_va_int32 : ident := 60%positive.
-Definition ___compcert_va_int64 : ident := 61%positive.
-Definition _d : ident := 50%positive.
+Definition ___builtin_ais_annot : ident := 9%positive.
+Definition ___builtin_annot : ident := 26%positive.
+Definition ___builtin_annot_intval : ident := 27%positive.
+Definition ___builtin_bswap : ident := 11%positive.
+Definition ___builtin_bswap16 : ident := 13%positive.
+Definition ___builtin_bswap32 : ident := 12%positive.
+Definition ___builtin_bswap64 : ident := 10%positive.
+Definition ___builtin_clz : ident := 14%positive.
+Definition ___builtin_clzl : ident := 15%positive.
+Definition ___builtin_clzll : ident := 16%positive.
+Definition ___builtin_ctz : ident := 17%positive.
+Definition ___builtin_ctzl : ident := 18%positive.
+Definition ___builtin_ctzll : ident := 19%positive.
+Definition ___builtin_debug : ident := 45%positive.
+Definition ___builtin_expect : ident := 34%positive.
+Definition ___builtin_fabs : ident := 20%positive.
+Definition ___builtin_fabsf : ident := 21%positive.
+Definition ___builtin_fmadd : ident := 37%positive.
+Definition ___builtin_fmax : ident := 35%positive.
+Definition ___builtin_fmin : ident := 36%positive.
+Definition ___builtin_fmsub : ident := 38%positive.
+Definition ___builtin_fnmadd : ident := 39%positive.
+Definition ___builtin_fnmsub : ident := 40%positive.
+Definition ___builtin_fsqrt : ident := 22%positive.
+Definition ___builtin_membar : ident := 28%positive.
+Definition ___builtin_memcpy_aligned : ident := 24%positive.
+Definition ___builtin_read16_reversed : ident := 41%positive.
+Definition ___builtin_read32_reversed : ident := 42%positive.
+Definition ___builtin_sel : ident := 25%positive.
+Definition ___builtin_sqrt : ident := 23%positive.
+Definition ___builtin_unreachable : ident := 33%positive.
+Definition ___builtin_va_arg : ident := 30%positive.
+Definition ___builtin_va_copy : ident := 31%positive.
+Definition ___builtin_va_end : ident := 32%positive.
+Definition ___builtin_va_start : ident := 29%positive.
+Definition ___builtin_write16_reversed : ident := 43%positive.
+Definition ___builtin_write32_reversed : ident := 44%positive.
+Definition ___compcert_i64_dtos : ident := 65%positive.
+Definition ___compcert_i64_dtou : ident := 66%positive.
+Definition ___compcert_i64_sar : ident := 77%positive.
+Definition ___compcert_i64_sdiv : ident := 71%positive.
+Definition ___compcert_i64_shl : ident := 75%positive.
+Definition ___compcert_i64_shr : ident := 76%positive.
+Definition ___compcert_i64_smod : ident := 73%positive.
+Definition ___compcert_i64_smulh : ident := 78%positive.
+Definition ___compcert_i64_stod : ident := 67%positive.
+Definition ___compcert_i64_stof : ident := 69%positive.
+Definition ___compcert_i64_udiv : ident := 72%positive.
+Definition ___compcert_i64_umod : ident := 74%positive.
+Definition ___compcert_i64_umulh : ident := 79%positive.
+Definition ___compcert_i64_utod : ident := 68%positive.
+Definition ___compcert_i64_utof : ident := 70%positive.
+Definition ___compcert_va_composite : ident := 64%positive.
+Definition ___compcert_va_float64 : ident := 63%positive.
+Definition ___compcert_va_int32 : ident := 61%positive.
+Definition ___compcert_va_int64 : ident := 62%positive.
+Definition _d : ident := 51%positive.
Definition _data : ident := 8%positive.
-Definition _exit : ident := 46%positive.
-Definition _foo_methods : ident := 54%positive.
+Definition _exit : ident := 47%positive.
+Definition _foo_methods : ident := 55%positive.
Definition _foo_object : ident := 7%positive.
-Definition _foo_reset : ident := 48%positive.
-Definition _foo_twiddle : ident := 51%positive.
-Definition _foo_twiddleR : ident := 53%positive.
-Definition _i : ident := 49%positive.
-Definition _main : ident := 59%positive.
-Definition _make_foo : ident := 56%positive.
-Definition _malloc : ident := 45%positive.
+Definition _foo_reset : ident := 49%positive.
+Definition _foo_twiddle : ident := 52%positive.
+Definition _foo_twiddleR : ident := 54%positive.
+Definition _i : ident := 50%positive.
+Definition _main : ident := 60%positive.
+Definition _make_foo : ident := 57%positive.
+Definition _malloc : ident := 46%positive.
Definition _methods : ident := 1%positive.
Definition _mtable : ident := 6%positive.
Definition _object : ident := 3%positive.
-Definition _p : ident := 55%positive.
-Definition _p_reset : ident := 57%positive.
-Definition _p_twiddle : ident := 58%positive.
+Definition _p : ident := 56%positive.
+Definition _p_reset : ident := 58%positive.
+Definition _p_twiddle : ident := 59%positive.
Definition _reset : ident := 2%positive.
-Definition _s_reset : ident := 52%positive.
-Definition _self : ident := 47%positive.
+Definition _s_reset : ident := 53%positive.
+Definition _self : ident := 48%positive.
Definition _twiddle : ident := 4%positive.
Definition _twiddleR : ident := 5%positive.
-Definition _t'1 : ident := 79%positive.
-Definition _t'2 : ident := 80%positive.
+Definition _t'1 : ident := 80%positive.
+Definition _t'2 : ident := 81%positive.
Definition f_foo_reset := {|
fn_return := tvoid;
@@ -151,7 +152,7 @@ Definition f_foo_twiddleR := {|
fn_vars := nil;
fn_temps := ((_mtable, (tptr (Tstruct _methods noattr))) ::
(_s_reset,
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tvoid cc_default))) :: (_d, tint) :: nil);
fn_body :=
(Ssequence
@@ -171,13 +172,13 @@ Definition f_foo_twiddleR := {|
(Efield
(Ederef (Etempvar _mtable (tptr (Tstruct _methods noattr)))
(Tstruct _methods noattr)) _reset
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil) tvoid
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tvoid
cc_default))))
(Ssequence
(Scall None
(Etempvar _s_reset (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- Tnil) tvoid cc_default)))
+ ((tptr (Tstruct _object noattr)) :: nil)
+ tvoid cc_default)))
((Etempvar _self (tptr (Tstruct _object noattr))) :: nil))
(Ssequence
(Sassign
@@ -213,7 +214,7 @@ Definition f_make_foo := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (tuint :: nil) (tptr tvoid) cc_default))
((Esizeof (Tstruct _foo_object noattr) tuint) :: nil))
(Sset _p
(Ecast (Etempvar _t'1 (tptr tvoid))
@@ -221,7 +222,7 @@ Definition f_make_foo := {|
(Ssequence
(Sifthenelse (Eunop Onotbool
(Etempvar _p (tptr (Tstruct _foo_object noattr))) tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Ssequence
@@ -251,20 +252,19 @@ Definition f_main := {|
fn_temps := ((_p, (tptr (Tstruct _object noattr))) ::
(_mtable, (tptr (Tstruct _methods noattr))) ::
(_p_reset,
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tvoid cc_default))) ::
(_p_twiddle,
(tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- (Tcons tint Tnil)) tint cc_default))) ::
- (_i, tint) :: (_t'2, tint) ::
+ ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
+ cc_default))) :: (_i, tint) :: (_t'2, tint) ::
(_t'1, (tptr (Tstruct _object noattr))) :: nil);
fn_body :=
(Ssequence
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _make_foo (Tfunction Tnil (tptr (Tstruct _object noattr))
+ (Evar _make_foo (Tfunction nil (tptr (Tstruct _object noattr))
cc_default)) nil)
(Sset _p (Etempvar _t'1 (tptr (Tstruct _object noattr)))))
(Ssequence
@@ -278,13 +278,13 @@ Definition f_main := {|
(Efield
(Ederef (Etempvar _mtable (tptr (Tstruct _methods noattr)))
(Tstruct _methods noattr)) _reset
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
- tvoid cc_default))))
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tvoid
+ cc_default))))
(Ssequence
(Scall None
(Etempvar _p_reset (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- Tnil) tvoid cc_default)))
+ ((tptr (Tstruct _object noattr)) ::
+ nil) tvoid cc_default)))
((Etempvar _p (tptr (Tstruct _object noattr))) :: nil))
(Ssequence
(Sset _mtable
@@ -298,15 +298,14 @@ Definition f_main := {|
(Ederef (Etempvar _mtable (tptr (Tstruct _methods noattr)))
(Tstruct _methods noattr)) _twiddle
(tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- (Tcons tint Tnil)) tint cc_default))))
+ ((tptr (Tstruct _object noattr)) :: tint :: nil)
+ tint cc_default))))
(Ssequence
(Ssequence
(Scall (Some _t'2)
(Etempvar _p_twiddle (tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- (Tcons tint Tnil)) tint
+ ((tptr (Tstruct _object noattr)) ::
+ tint :: nil) tint
cc_default)))
((Etempvar _p (tptr (Tstruct _object noattr))) ::
(Econst_int (Int.repr 3) tint) :: nil))
@@ -318,15 +317,13 @@ Definition f_main := {|
Definition composites : list composite_definition :=
(Composite _methods Struct
(Member_plain _reset
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil) tvoid
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tvoid
cc_default)) ::
Member_plain _twiddle
- (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr)) (Tcons tint Tnil)) tint
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
cc_default)) ::
Member_plain _twiddleR
- (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr)) (Tcons tint Tnil)) tint
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
cc_default)) :: nil)
noattr ::
Composite _object Struct
@@ -340,271 +337,265 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
- (_malloc,
- Gfun(External EF_malloc (Tcons tuint Tnil) (tptr tvoid) cc_default)) ::
+ (_malloc, Gfun(External EF_malloc (tuint :: nil) (tptr tvoid) cc_default)) ::
(_exit,
Gfun(External (EF_external "exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
(_foo_reset, Gfun(Internal f_foo_reset)) ::
(_foo_twiddle, Gfun(Internal f_foo_twiddle)) ::
(_foo_twiddleR, Gfun(Internal f_foo_twiddleR)) ::
@@ -627,13 +618,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/objectSelfFancy.v b/progs/objectSelfFancy.v
index a5d1a92eea..119debe4e1 100644
--- a/progs/objectSelfFancy.v
+++ b/progs/objectSelfFancy.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,115 +19,116 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 30%positive.
-Definition ___builtin_annot_intval : ident := 31%positive.
-Definition ___builtin_bswap : ident := 15%positive.
-Definition ___builtin_bswap16 : ident := 17%positive.
-Definition ___builtin_bswap32 : ident := 16%positive.
-Definition ___builtin_bswap64 : ident := 14%positive.
-Definition ___builtin_clz : ident := 18%positive.
-Definition ___builtin_clzl : ident := 19%positive.
-Definition ___builtin_clzll : ident := 20%positive.
-Definition ___builtin_ctz : ident := 21%positive.
-Definition ___builtin_ctzl : ident := 22%positive.
-Definition ___builtin_ctzll : ident := 23%positive.
-Definition ___builtin_debug : ident := 49%positive.
-Definition ___builtin_expect : ident := 38%positive.
-Definition ___builtin_fabs : ident := 24%positive.
-Definition ___builtin_fabsf : ident := 25%positive.
-Definition ___builtin_fmadd : ident := 41%positive.
-Definition ___builtin_fmax : ident := 39%positive.
-Definition ___builtin_fmin : ident := 40%positive.
-Definition ___builtin_fmsub : ident := 42%positive.
-Definition ___builtin_fnmadd : ident := 43%positive.
-Definition ___builtin_fnmsub : ident := 44%positive.
-Definition ___builtin_fsqrt : ident := 26%positive.
-Definition ___builtin_membar : ident := 32%positive.
-Definition ___builtin_memcpy_aligned : ident := 28%positive.
-Definition ___builtin_read16_reversed : ident := 45%positive.
-Definition ___builtin_read32_reversed : ident := 46%positive.
-Definition ___builtin_sel : ident := 29%positive.
-Definition ___builtin_sqrt : ident := 27%positive.
-Definition ___builtin_unreachable : ident := 37%positive.
-Definition ___builtin_va_arg : ident := 34%positive.
-Definition ___builtin_va_copy : ident := 35%positive.
-Definition ___builtin_va_end : ident := 36%positive.
-Definition ___builtin_va_start : ident := 33%positive.
-Definition ___builtin_write16_reversed : ident := 47%positive.
-Definition ___builtin_write32_reversed : ident := 48%positive.
-Definition ___compcert_i64_dtos : ident := 85%positive.
-Definition ___compcert_i64_dtou : ident := 86%positive.
-Definition ___compcert_i64_sar : ident := 97%positive.
-Definition ___compcert_i64_sdiv : ident := 91%positive.
-Definition ___compcert_i64_shl : ident := 95%positive.
-Definition ___compcert_i64_shr : ident := 96%positive.
-Definition ___compcert_i64_smod : ident := 93%positive.
-Definition ___compcert_i64_smulh : ident := 98%positive.
-Definition ___compcert_i64_stod : ident := 87%positive.
-Definition ___compcert_i64_stof : ident := 89%positive.
-Definition ___compcert_i64_udiv : ident := 92%positive.
-Definition ___compcert_i64_umod : ident := 94%positive.
-Definition ___compcert_i64_umulh : ident := 99%positive.
-Definition ___compcert_i64_utod : ident := 88%positive.
-Definition ___compcert_i64_utof : ident := 90%positive.
-Definition ___compcert_va_composite : ident := 84%positive.
-Definition ___compcert_va_float64 : ident := 83%positive.
-Definition ___compcert_va_int32 : ident := 81%positive.
-Definition ___compcert_va_int64 : ident := 82%positive.
-Definition _c : ident := 62%positive.
-Definition _col : ident := 74%positive.
-Definition _colU : ident := 79%positive.
+Definition ___builtin_ais_annot : ident := 14%positive.
+Definition ___builtin_annot : ident := 31%positive.
+Definition ___builtin_annot_intval : ident := 32%positive.
+Definition ___builtin_bswap : ident := 16%positive.
+Definition ___builtin_bswap16 : ident := 18%positive.
+Definition ___builtin_bswap32 : ident := 17%positive.
+Definition ___builtin_bswap64 : ident := 15%positive.
+Definition ___builtin_clz : ident := 19%positive.
+Definition ___builtin_clzl : ident := 20%positive.
+Definition ___builtin_clzll : ident := 21%positive.
+Definition ___builtin_ctz : ident := 22%positive.
+Definition ___builtin_ctzl : ident := 23%positive.
+Definition ___builtin_ctzll : ident := 24%positive.
+Definition ___builtin_debug : ident := 50%positive.
+Definition ___builtin_expect : ident := 39%positive.
+Definition ___builtin_fabs : ident := 25%positive.
+Definition ___builtin_fabsf : ident := 26%positive.
+Definition ___builtin_fmadd : ident := 42%positive.
+Definition ___builtin_fmax : ident := 40%positive.
+Definition ___builtin_fmin : ident := 41%positive.
+Definition ___builtin_fmsub : ident := 43%positive.
+Definition ___builtin_fnmadd : ident := 44%positive.
+Definition ___builtin_fnmsub : ident := 45%positive.
+Definition ___builtin_fsqrt : ident := 27%positive.
+Definition ___builtin_membar : ident := 33%positive.
+Definition ___builtin_memcpy_aligned : ident := 29%positive.
+Definition ___builtin_read16_reversed : ident := 46%positive.
+Definition ___builtin_read32_reversed : ident := 47%positive.
+Definition ___builtin_sel : ident := 30%positive.
+Definition ___builtin_sqrt : ident := 28%positive.
+Definition ___builtin_unreachable : ident := 38%positive.
+Definition ___builtin_va_arg : ident := 35%positive.
+Definition ___builtin_va_copy : ident := 36%positive.
+Definition ___builtin_va_end : ident := 37%positive.
+Definition ___builtin_va_start : ident := 34%positive.
+Definition ___builtin_write16_reversed : ident := 48%positive.
+Definition ___builtin_write32_reversed : ident := 49%positive.
+Definition ___compcert_i64_dtos : ident := 86%positive.
+Definition ___compcert_i64_dtou : ident := 87%positive.
+Definition ___compcert_i64_sar : ident := 98%positive.
+Definition ___compcert_i64_sdiv : ident := 92%positive.
+Definition ___compcert_i64_shl : ident := 96%positive.
+Definition ___compcert_i64_shr : ident := 97%positive.
+Definition ___compcert_i64_smod : ident := 94%positive.
+Definition ___compcert_i64_smulh : ident := 99%positive.
+Definition ___compcert_i64_stod : ident := 88%positive.
+Definition ___compcert_i64_stof : ident := 90%positive.
+Definition ___compcert_i64_udiv : ident := 93%positive.
+Definition ___compcert_i64_umod : ident := 95%positive.
+Definition ___compcert_i64_umulh : ident := 100%positive.
+Definition ___compcert_i64_utod : ident := 89%positive.
+Definition ___compcert_i64_utof : ident := 91%positive.
+Definition ___compcert_va_composite : ident := 85%positive.
+Definition ___compcert_va_float64 : ident := 84%positive.
+Definition ___compcert_va_int32 : ident := 82%positive.
+Definition ___compcert_va_int64 : ident := 83%positive.
+Definition _c : ident := 63%positive.
+Definition _col : ident := 75%positive.
+Definition _colU : ident := 80%positive.
Definition _color : ident := 13%positive.
-Definition _d : ident := 55%positive.
+Definition _d : ident := 56%positive.
Definition _data : ident := 8%positive.
-Definition _exit : ident := 51%positive.
-Definition _fancyfoo_methods : ident := 63%positive.
+Definition _exit : ident := 52%positive.
+Definition _fancyfoo_methods : ident := 64%positive.
Definition _fancyfoo_object : ident := 12%positive.
Definition _fancymethods : ident := 9%positive.
-Definition _foo_methods : ident := 59%positive.
+Definition _foo_methods : ident := 60%positive.
Definition _foo_object : ident := 7%positive.
-Definition _foo_reset : ident := 53%positive.
-Definition _foo_twiddle : ident := 56%positive.
-Definition _foo_twiddleR : ident := 58%positive.
+Definition _foo_reset : ident := 54%positive.
+Definition _foo_twiddle : ident := 57%positive.
+Definition _foo_twiddleR : ident := 59%positive.
Definition _getcolor : ident := 11%positive.
-Definition _i : ident := 54%positive.
-Definition _main : ident := 80%positive.
-Definition _make_fancyfoo : ident := 64%positive.
-Definition _make_fancyfooTyped : ident := 65%positive.
-Definition _make_foo : ident := 61%positive.
-Definition _malloc : ident := 50%positive.
+Definition _i : ident := 55%positive.
+Definition _main : ident := 81%positive.
+Definition _make_fancyfoo : ident := 65%positive.
+Definition _make_fancyfooTyped : ident := 66%positive.
+Definition _make_foo : ident := 62%positive.
+Definition _malloc : ident := 51%positive.
Definition _methods : ident := 1%positive.
Definition _mtable : ident := 6%positive.
Definition _object : ident := 3%positive.
-Definition _p : ident := 60%positive.
-Definition _p_reset : ident := 67%positive.
-Definition _p_twiddle : ident := 68%positive.
-Definition _pmtable : ident := 66%positive.
-Definition _q : ident := 69%positive.
-Definition _q_getcolor : ident := 73%positive.
-Definition _q_reset : ident := 71%positive.
-Definition _q_setcolor : ident := 72%positive.
-Definition _qmtable : ident := 70%positive.
+Definition _p : ident := 61%positive.
+Definition _p_reset : ident := 68%positive.
+Definition _p_twiddle : ident := 69%positive.
+Definition _pmtable : ident := 67%positive.
+Definition _q : ident := 70%positive.
+Definition _q_getcolor : ident := 74%positive.
+Definition _q_reset : ident := 72%positive.
+Definition _q_setcolor : ident := 73%positive.
+Definition _qmtable : ident := 71%positive.
Definition _reset : ident := 2%positive.
-Definition _s_reset : ident := 57%positive.
-Definition _self : ident := 52%positive.
+Definition _s_reset : ident := 58%positive.
+Definition _self : ident := 53%positive.
Definition _setcolor : ident := 10%positive.
Definition _twiddle : ident := 4%positive.
Definition _twiddleR : ident := 5%positive.
-Definition _u : ident := 75%positive.
-Definition _u_getcolor : ident := 78%positive.
-Definition _u_reset : ident := 77%positive.
-Definition _umtable : ident := 76%positive.
-Definition _t'1 : ident := 100%positive.
-Definition _t'10 : ident := 109%positive.
-Definition _t'2 : ident := 101%positive.
-Definition _t'3 : ident := 102%positive.
-Definition _t'4 : ident := 103%positive.
-Definition _t'5 : ident := 104%positive.
-Definition _t'6 : ident := 105%positive.
-Definition _t'7 : ident := 106%positive.
-Definition _t'8 : ident := 107%positive.
-Definition _t'9 : ident := 108%positive.
+Definition _u : ident := 76%positive.
+Definition _u_getcolor : ident := 79%positive.
+Definition _u_reset : ident := 78%positive.
+Definition _umtable : ident := 77%positive.
+Definition _t'1 : ident := 101%positive.
+Definition _t'10 : ident := 110%positive.
+Definition _t'2 : ident := 102%positive.
+Definition _t'3 : ident := 103%positive.
+Definition _t'4 : ident := 104%positive.
+Definition _t'5 : ident := 105%positive.
+Definition _t'6 : ident := 106%positive.
+Definition _t'7 : ident := 107%positive.
+Definition _t'8 : ident := 108%positive.
+Definition _t'9 : ident := 109%positive.
Definition f_foo_reset := {|
fn_return := tvoid;
@@ -180,7 +181,7 @@ Definition f_foo_twiddleR := {|
fn_vars := nil;
fn_temps := ((_mtable, (tptr (Tstruct _methods noattr))) ::
(_s_reset,
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tvoid cc_default))) :: (_d, tint) :: nil);
fn_body :=
(Ssequence
@@ -200,13 +201,13 @@ Definition f_foo_twiddleR := {|
(Efield
(Ederef (Etempvar _mtable (tptr (Tstruct _methods noattr)))
(Tstruct _methods noattr)) _reset
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil) tvoid
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tvoid
cc_default))))
(Ssequence
(Scall None
(Etempvar _s_reset (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- Tnil) tvoid cc_default)))
+ ((tptr (Tstruct _object noattr)) :: nil)
+ tvoid cc_default)))
((Etempvar _self (tptr (Tstruct _object noattr))) :: nil))
(Ssequence
(Sassign
@@ -242,7 +243,7 @@ Definition f_make_foo := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (tuint :: nil) (tptr tvoid) cc_default))
((Esizeof (Tstruct _foo_object noattr) tuint) :: nil))
(Sset _p
(Ecast (Etempvar _t'1 (tptr tvoid))
@@ -250,7 +251,7 @@ Definition f_make_foo := {|
(Ssequence
(Sifthenelse (Eunop Onotbool
(Etempvar _p (tptr (Tstruct _foo_object noattr))) tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Ssequence
@@ -327,7 +328,7 @@ Definition f_make_fancyfoo := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (tuint :: nil) (tptr tvoid) cc_default))
((Esizeof (Tstruct _fancyfoo_object noattr) tuint) :: nil))
(Sset _p
(Ecast (Etempvar _t'1 (tptr tvoid))
@@ -336,7 +337,7 @@ Definition f_make_fancyfoo := {|
(Sifthenelse (Eunop Onotbool
(Etempvar _p (tptr (Tstruct _fancyfoo_object noattr)))
tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Ssequence
@@ -375,7 +376,7 @@ Definition f_make_fancyfooTyped := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (tuint :: nil) (tptr tvoid) cc_default))
((Esizeof (Tstruct _fancyfoo_object noattr) tuint) :: nil))
(Sset _p
(Ecast (Etempvar _t'1 (tptr tvoid))
@@ -384,7 +385,7 @@ Definition f_make_fancyfooTyped := {|
(Sifthenelse (Eunop Onotbool
(Etempvar _p (tptr (Tstruct _fancyfoo_object noattr)))
tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Ssequence
@@ -418,31 +419,31 @@ Definition f_main := {|
fn_temps := ((_p, (tptr (Tstruct _object noattr))) ::
(_pmtable, (tptr (Tstruct _methods noattr))) ::
(_p_reset,
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tvoid cc_default))) ::
(_p_twiddle,
(tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- (Tcons tint Tnil)) tint cc_default))) ::
- (_i, tint) :: (_q, (tptr (Tstruct _object noattr))) ::
+ ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
+ cc_default))) :: (_i, tint) ::
+ (_q, (tptr (Tstruct _object noattr))) ::
(_qmtable, (tptr (Tstruct _fancymethods noattr))) ::
(_q_reset,
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tvoid cc_default))) ::
(_q_setcolor,
(tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- (Tcons tint Tnil)) tvoid cc_default))) ::
+ ((tptr (Tstruct _object noattr)) :: tint :: nil)
+ tvoid cc_default))) ::
(_q_getcolor,
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tint cc_default))) :: (_col, tint) ::
(_u, (tptr (Tstruct _fancyfoo_object noattr))) ::
(_umtable, (tptr (Tstruct _fancymethods noattr))) ::
(_u_reset,
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tvoid cc_default))) ::
(_u_getcolor,
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tint cc_default))) :: (_colU, tint) ::
(_t'6, tint) ::
(_t'5, (tptr (Tstruct _fancyfoo_object noattr))) ::
@@ -458,13 +459,13 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _make_foo (Tfunction Tnil (tptr (Tstruct _object noattr))
+ (Evar _make_foo (Tfunction nil (tptr (Tstruct _object noattr))
cc_default)) nil)
(Sset _p (Etempvar _t'1 (tptr (Tstruct _object noattr)))))
(Ssequence
(Ssequence
(Scall (Some _t'2)
- (Evar _make_fancyfoo (Tfunction (Tcons tint Tnil)
+ (Evar _make_fancyfoo (Tfunction (tint :: nil)
(tptr (Tstruct _object noattr)) cc_default))
((Econst_int (Int.repr 4) tint) :: nil))
(Sset _q (Etempvar _t'2 (tptr (Tstruct _object noattr)))))
@@ -479,14 +480,13 @@ Definition f_main := {|
(Efield
(Ederef (Etempvar _pmtable (tptr (Tstruct _methods noattr)))
(Tstruct _methods noattr)) _reset
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
- tvoid cc_default))))
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tvoid
+ cc_default))))
(Ssequence
(Scall None
(Etempvar _p_reset (tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- Tnil) tvoid cc_default)))
+ ((tptr (Tstruct _object noattr)) ::
+ nil) tvoid cc_default)))
((Etempvar _p (tptr (Tstruct _object noattr))) :: nil))
(Ssequence
(Ssequence
@@ -504,15 +504,13 @@ Definition f_main := {|
(Ederef
(Etempvar _qmtable (tptr (Tstruct _fancymethods noattr)))
(Tstruct _fancymethods noattr)) _reset
- (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tvoid cc_default))))
(Ssequence
(Scall None
(Etempvar _q_reset (tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- Tnil) tvoid cc_default)))
+ ((tptr (Tstruct _object noattr)) ::
+ nil) tvoid cc_default)))
((Etempvar _q (tptr (Tstruct _object noattr))) :: nil))
(Ssequence
(Ssequence
@@ -533,15 +531,14 @@ Definition f_main := {|
(Etempvar _qmtable (tptr (Tstruct _fancymethods noattr)))
(Tstruct _fancymethods noattr)) _getcolor
(tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- Tnil) tint cc_default))))
+ ((tptr (Tstruct _object noattr)) :: nil)
+ tint cc_default))))
(Ssequence
(Ssequence
(Scall (Some _t'3)
(Etempvar _q_getcolor (tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- Tnil) tint
+ ((tptr (Tstruct _object noattr)) ::
+ nil) tint
cc_default)))
((Etempvar _q (tptr (Tstruct _object noattr))) ::
nil))
@@ -560,17 +557,14 @@ Definition f_main := {|
(Etempvar _pmtable (tptr (Tstruct _methods noattr)))
(Tstruct _methods noattr)) _twiddleR
(tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- (Tcons tint Tnil)) tint cc_default))))
+ ((tptr (Tstruct _object noattr)) ::
+ tint :: nil) tint cc_default))))
(Ssequence
(Ssequence
(Scall (Some _t'4)
(Etempvar _p_twiddle (tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- (Tcons tint
- Tnil))
+ ((tptr (Tstruct _object noattr)) ::
+ tint :: nil)
tint
cc_default)))
((Etempvar _p (tptr (Tstruct _object noattr))) ::
@@ -580,8 +574,7 @@ Definition f_main := {|
(Ssequence
(Scall (Some _t'5)
(Evar _make_fancyfooTyped (Tfunction
- (Tcons tint
- Tnil)
+ (tint :: nil)
(tptr (Tstruct _fancyfoo_object noattr))
cc_default))
((Econst_int (Int.repr 9) tint) :: nil))
@@ -609,15 +602,13 @@ Definition f_main := {|
(Tstruct _fancymethods noattr))
_reset
(tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- Tnil) tvoid cc_default))))
+ ((tptr (Tstruct _object noattr)) ::
+ nil) tvoid cc_default))))
(Ssequence
(Scall None
(Etempvar _u_reset (tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- Tnil)
+ ((tptr (Tstruct _object noattr)) ::
+ nil)
tvoid
cc_default)))
((Ecast
@@ -647,18 +638,15 @@ Definition f_main := {|
(Tstruct _fancymethods noattr))
_getcolor
(tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- Tnil) tint
- cc_default))))
+ ((tptr (Tstruct _object noattr)) ::
+ nil) tint cc_default))))
(Ssequence
(Ssequence
(Scall (Some _t'6)
(Etempvar _u_getcolor (tptr
(Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- Tnil) tint cc_default)))
+ ((tptr (Tstruct _object noattr)) ::
+ nil) tint cc_default)))
((Ecast
(Etempvar _u (tptr (Tstruct _fancyfoo_object noattr)))
(tptr (Tstruct _object noattr))) ::
@@ -678,15 +666,13 @@ Definition f_main := {|
Definition composites : list composite_definition :=
(Composite _methods Struct
(Member_plain _reset
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil) tvoid
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tvoid
cc_default)) ::
Member_plain _twiddle
- (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr)) (Tcons tint Tnil)) tint
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
cc_default)) ::
Member_plain _twiddleR
- (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr)) (Tcons tint Tnil)) tint
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
cc_default)) :: nil)
noattr ::
Composite _object Struct
@@ -698,22 +684,19 @@ Definition composites : list composite_definition :=
noattr ::
Composite _fancymethods Struct
(Member_plain _reset
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil) tvoid
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tvoid
cc_default)) ::
Member_plain _twiddle
- (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr)) (Tcons tint Tnil)) tint
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
cc_default)) ::
Member_plain _twiddleR
- (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr)) (Tcons tint Tnil)) tint
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
cc_default)) ::
Member_plain _setcolor
- (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr)) (Tcons tint Tnil)) tvoid
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: tint :: nil) tvoid
cc_default)) ::
Member_plain _getcolor
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil) tint
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tint
cc_default)) :: nil)
noattr ::
Composite _fancyfoo_object Struct
@@ -724,271 +707,265 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
- (_malloc,
- Gfun(External EF_malloc (Tcons tuint Tnil) (tptr tvoid) cc_default)) ::
+ (_malloc, Gfun(External EF_malloc (tuint :: nil) (tptr tvoid) cc_default)) ::
(_exit,
Gfun(External (EF_external "exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
(_foo_reset, Gfun(Internal f_foo_reset)) ::
(_foo_twiddle, Gfun(Internal f_foo_twiddle)) ::
(_foo_twiddleR, Gfun(Internal f_foo_twiddleR)) ::
@@ -1017,13 +994,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/objectSelfFancyOverriding.v b/progs/objectSelfFancyOverriding.v
index a0596f72a8..13dc6cd2c6 100644
--- a/progs/objectSelfFancyOverriding.v
+++ b/progs/objectSelfFancyOverriding.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,116 +19,117 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 30%positive.
-Definition ___builtin_annot_intval : ident := 31%positive.
-Definition ___builtin_bswap : ident := 15%positive.
-Definition ___builtin_bswap16 : ident := 17%positive.
-Definition ___builtin_bswap32 : ident := 16%positive.
-Definition ___builtin_bswap64 : ident := 14%positive.
-Definition ___builtin_clz : ident := 18%positive.
-Definition ___builtin_clzl : ident := 19%positive.
-Definition ___builtin_clzll : ident := 20%positive.
-Definition ___builtin_ctz : ident := 21%positive.
-Definition ___builtin_ctzl : ident := 22%positive.
-Definition ___builtin_ctzll : ident := 23%positive.
-Definition ___builtin_debug : ident := 49%positive.
-Definition ___builtin_expect : ident := 38%positive.
-Definition ___builtin_fabs : ident := 24%positive.
-Definition ___builtin_fabsf : ident := 25%positive.
-Definition ___builtin_fmadd : ident := 41%positive.
-Definition ___builtin_fmax : ident := 39%positive.
-Definition ___builtin_fmin : ident := 40%positive.
-Definition ___builtin_fmsub : ident := 42%positive.
-Definition ___builtin_fnmadd : ident := 43%positive.
-Definition ___builtin_fnmsub : ident := 44%positive.
-Definition ___builtin_fsqrt : ident := 26%positive.
-Definition ___builtin_membar : ident := 32%positive.
-Definition ___builtin_memcpy_aligned : ident := 28%positive.
-Definition ___builtin_read16_reversed : ident := 45%positive.
-Definition ___builtin_read32_reversed : ident := 46%positive.
-Definition ___builtin_sel : ident := 29%positive.
-Definition ___builtin_sqrt : ident := 27%positive.
-Definition ___builtin_unreachable : ident := 37%positive.
-Definition ___builtin_va_arg : ident := 34%positive.
-Definition ___builtin_va_copy : ident := 35%positive.
-Definition ___builtin_va_end : ident := 36%positive.
-Definition ___builtin_va_start : ident := 33%positive.
-Definition ___builtin_write16_reversed : ident := 47%positive.
-Definition ___builtin_write32_reversed : ident := 48%positive.
-Definition ___compcert_i64_dtos : ident := 86%positive.
-Definition ___compcert_i64_dtou : ident := 87%positive.
-Definition ___compcert_i64_sar : ident := 98%positive.
-Definition ___compcert_i64_sdiv : ident := 92%positive.
-Definition ___compcert_i64_shl : ident := 96%positive.
-Definition ___compcert_i64_shr : ident := 97%positive.
-Definition ___compcert_i64_smod : ident := 94%positive.
-Definition ___compcert_i64_smulh : ident := 99%positive.
-Definition ___compcert_i64_stod : ident := 88%positive.
-Definition ___compcert_i64_stof : ident := 90%positive.
-Definition ___compcert_i64_udiv : ident := 93%positive.
-Definition ___compcert_i64_umod : ident := 95%positive.
-Definition ___compcert_i64_umulh : ident := 100%positive.
-Definition ___compcert_i64_utod : ident := 89%positive.
-Definition ___compcert_i64_utof : ident := 91%positive.
-Definition ___compcert_va_composite : ident := 85%positive.
-Definition ___compcert_va_float64 : ident := 84%positive.
-Definition ___compcert_va_int32 : ident := 82%positive.
-Definition ___compcert_va_int64 : ident := 83%positive.
-Definition _c : ident := 63%positive.
-Definition _col : ident := 75%positive.
-Definition _colU : ident := 80%positive.
+Definition ___builtin_ais_annot : ident := 14%positive.
+Definition ___builtin_annot : ident := 31%positive.
+Definition ___builtin_annot_intval : ident := 32%positive.
+Definition ___builtin_bswap : ident := 16%positive.
+Definition ___builtin_bswap16 : ident := 18%positive.
+Definition ___builtin_bswap32 : ident := 17%positive.
+Definition ___builtin_bswap64 : ident := 15%positive.
+Definition ___builtin_clz : ident := 19%positive.
+Definition ___builtin_clzl : ident := 20%positive.
+Definition ___builtin_clzll : ident := 21%positive.
+Definition ___builtin_ctz : ident := 22%positive.
+Definition ___builtin_ctzl : ident := 23%positive.
+Definition ___builtin_ctzll : ident := 24%positive.
+Definition ___builtin_debug : ident := 50%positive.
+Definition ___builtin_expect : ident := 39%positive.
+Definition ___builtin_fabs : ident := 25%positive.
+Definition ___builtin_fabsf : ident := 26%positive.
+Definition ___builtin_fmadd : ident := 42%positive.
+Definition ___builtin_fmax : ident := 40%positive.
+Definition ___builtin_fmin : ident := 41%positive.
+Definition ___builtin_fmsub : ident := 43%positive.
+Definition ___builtin_fnmadd : ident := 44%positive.
+Definition ___builtin_fnmsub : ident := 45%positive.
+Definition ___builtin_fsqrt : ident := 27%positive.
+Definition ___builtin_membar : ident := 33%positive.
+Definition ___builtin_memcpy_aligned : ident := 29%positive.
+Definition ___builtin_read16_reversed : ident := 46%positive.
+Definition ___builtin_read32_reversed : ident := 47%positive.
+Definition ___builtin_sel : ident := 30%positive.
+Definition ___builtin_sqrt : ident := 28%positive.
+Definition ___builtin_unreachable : ident := 38%positive.
+Definition ___builtin_va_arg : ident := 35%positive.
+Definition ___builtin_va_copy : ident := 36%positive.
+Definition ___builtin_va_end : ident := 37%positive.
+Definition ___builtin_va_start : ident := 34%positive.
+Definition ___builtin_write16_reversed : ident := 48%positive.
+Definition ___builtin_write32_reversed : ident := 49%positive.
+Definition ___compcert_i64_dtos : ident := 87%positive.
+Definition ___compcert_i64_dtou : ident := 88%positive.
+Definition ___compcert_i64_sar : ident := 99%positive.
+Definition ___compcert_i64_sdiv : ident := 93%positive.
+Definition ___compcert_i64_shl : ident := 97%positive.
+Definition ___compcert_i64_shr : ident := 98%positive.
+Definition ___compcert_i64_smod : ident := 95%positive.
+Definition ___compcert_i64_smulh : ident := 100%positive.
+Definition ___compcert_i64_stod : ident := 89%positive.
+Definition ___compcert_i64_stof : ident := 91%positive.
+Definition ___compcert_i64_udiv : ident := 94%positive.
+Definition ___compcert_i64_umod : ident := 96%positive.
+Definition ___compcert_i64_umulh : ident := 101%positive.
+Definition ___compcert_i64_utod : ident := 90%positive.
+Definition ___compcert_i64_utof : ident := 92%positive.
+Definition ___compcert_va_composite : ident := 86%positive.
+Definition ___compcert_va_float64 : ident := 85%positive.
+Definition ___compcert_va_int32 : ident := 83%positive.
+Definition ___compcert_va_int64 : ident := 84%positive.
+Definition _c : ident := 64%positive.
+Definition _col : ident := 76%positive.
+Definition _colU : ident := 81%positive.
Definition _color : ident := 13%positive.
-Definition _d : ident := 55%positive.
+Definition _d : ident := 56%positive.
Definition _data : ident := 8%positive.
-Definition _exit : ident := 51%positive.
-Definition _fancy_reset : ident := 62%positive.
-Definition _fancyfoo_methods : ident := 64%positive.
+Definition _exit : ident := 52%positive.
+Definition _fancy_reset : ident := 63%positive.
+Definition _fancyfoo_methods : ident := 65%positive.
Definition _fancyfoo_object : ident := 12%positive.
Definition _fancymethods : ident := 9%positive.
-Definition _foo_methods : ident := 59%positive.
+Definition _foo_methods : ident := 60%positive.
Definition _foo_object : ident := 7%positive.
-Definition _foo_reset : ident := 53%positive.
-Definition _foo_twiddle : ident := 56%positive.
-Definition _foo_twiddleR : ident := 58%positive.
+Definition _foo_reset : ident := 54%positive.
+Definition _foo_twiddle : ident := 57%positive.
+Definition _foo_twiddleR : ident := 59%positive.
Definition _getcolor : ident := 11%positive.
-Definition _i : ident := 54%positive.
-Definition _main : ident := 81%positive.
-Definition _make_fancyfoo : ident := 65%positive.
-Definition _make_fancyfooTyped : ident := 66%positive.
-Definition _make_foo : ident := 61%positive.
-Definition _malloc : ident := 50%positive.
+Definition _i : ident := 55%positive.
+Definition _main : ident := 82%positive.
+Definition _make_fancyfoo : ident := 66%positive.
+Definition _make_fancyfooTyped : ident := 67%positive.
+Definition _make_foo : ident := 62%positive.
+Definition _malloc : ident := 51%positive.
Definition _methods : ident := 1%positive.
Definition _mtable : ident := 6%positive.
Definition _object : ident := 3%positive.
-Definition _p : ident := 60%positive.
-Definition _p_reset : ident := 68%positive.
-Definition _p_twiddle : ident := 69%positive.
-Definition _pmtable : ident := 67%positive.
-Definition _q : ident := 70%positive.
-Definition _q_getcolor : ident := 74%positive.
-Definition _q_reset : ident := 72%positive.
-Definition _q_setcolor : ident := 73%positive.
-Definition _qmtable : ident := 71%positive.
+Definition _p : ident := 61%positive.
+Definition _p_reset : ident := 69%positive.
+Definition _p_twiddle : ident := 70%positive.
+Definition _pmtable : ident := 68%positive.
+Definition _q : ident := 71%positive.
+Definition _q_getcolor : ident := 75%positive.
+Definition _q_reset : ident := 73%positive.
+Definition _q_setcolor : ident := 74%positive.
+Definition _qmtable : ident := 72%positive.
Definition _reset : ident := 2%positive.
-Definition _s_reset : ident := 57%positive.
-Definition _self : ident := 52%positive.
+Definition _s_reset : ident := 58%positive.
+Definition _self : ident := 53%positive.
Definition _setcolor : ident := 10%positive.
Definition _twiddle : ident := 4%positive.
Definition _twiddleR : ident := 5%positive.
-Definition _u : ident := 76%positive.
-Definition _u_getcolor : ident := 79%positive.
-Definition _u_reset : ident := 78%positive.
-Definition _umtable : ident := 77%positive.
-Definition _t'1 : ident := 101%positive.
-Definition _t'10 : ident := 110%positive.
-Definition _t'2 : ident := 102%positive.
-Definition _t'3 : ident := 103%positive.
-Definition _t'4 : ident := 104%positive.
-Definition _t'5 : ident := 105%positive.
-Definition _t'6 : ident := 106%positive.
-Definition _t'7 : ident := 107%positive.
-Definition _t'8 : ident := 108%positive.
-Definition _t'9 : ident := 109%positive.
+Definition _u : ident := 77%positive.
+Definition _u_getcolor : ident := 80%positive.
+Definition _u_reset : ident := 79%positive.
+Definition _umtable : ident := 78%positive.
+Definition _t'1 : ident := 102%positive.
+Definition _t'10 : ident := 111%positive.
+Definition _t'2 : ident := 103%positive.
+Definition _t'3 : ident := 104%positive.
+Definition _t'4 : ident := 105%positive.
+Definition _t'5 : ident := 106%positive.
+Definition _t'6 : ident := 107%positive.
+Definition _t'7 : ident := 108%positive.
+Definition _t'8 : ident := 109%positive.
+Definition _t'9 : ident := 110%positive.
Definition f_foo_reset := {|
fn_return := tvoid;
@@ -181,7 +182,7 @@ Definition f_foo_twiddleR := {|
fn_vars := nil;
fn_temps := ((_mtable, (tptr (Tstruct _methods noattr))) ::
(_s_reset,
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tvoid cc_default))) :: (_d, tint) :: nil);
fn_body :=
(Ssequence
@@ -201,13 +202,13 @@ Definition f_foo_twiddleR := {|
(Efield
(Ederef (Etempvar _mtable (tptr (Tstruct _methods noattr)))
(Tstruct _methods noattr)) _reset
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil) tvoid
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tvoid
cc_default))))
(Ssequence
(Scall None
(Etempvar _s_reset (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- Tnil) tvoid cc_default)))
+ ((tptr (Tstruct _object noattr)) :: nil)
+ tvoid cc_default)))
((Etempvar _self (tptr (Tstruct _object noattr))) :: nil))
(Ssequence
(Sassign
@@ -243,7 +244,7 @@ Definition f_make_foo := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (tuint :: nil) (tptr tvoid) cc_default))
((Esizeof (Tstruct _foo_object noattr) tuint) :: nil))
(Sset _p
(Ecast (Etempvar _t'1 (tptr tvoid))
@@ -251,7 +252,7 @@ Definition f_make_foo := {|
(Ssequence
(Sifthenelse (Eunop Onotbool
(Etempvar _p (tptr (Tstruct _foo_object noattr))) tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Ssequence
@@ -351,7 +352,7 @@ Definition f_make_fancyfoo := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (tuint :: nil) (tptr tvoid) cc_default))
((Esizeof (Tstruct _fancyfoo_object noattr) tuint) :: nil))
(Sset _p
(Ecast (Etempvar _t'1 (tptr tvoid))
@@ -360,7 +361,7 @@ Definition f_make_fancyfoo := {|
(Sifthenelse (Eunop Onotbool
(Etempvar _p (tptr (Tstruct _fancyfoo_object noattr)))
tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Ssequence
@@ -399,7 +400,7 @@ Definition f_make_fancyfooTyped := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (tuint :: nil) (tptr tvoid) cc_default))
((Esizeof (Tstruct _fancyfoo_object noattr) tuint) :: nil))
(Sset _p
(Ecast (Etempvar _t'1 (tptr tvoid))
@@ -408,7 +409,7 @@ Definition f_make_fancyfooTyped := {|
(Sifthenelse (Eunop Onotbool
(Etempvar _p (tptr (Tstruct _fancyfoo_object noattr)))
tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Ssequence
@@ -442,31 +443,31 @@ Definition f_main := {|
fn_temps := ((_p, (tptr (Tstruct _object noattr))) ::
(_pmtable, (tptr (Tstruct _methods noattr))) ::
(_p_reset,
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tvoid cc_default))) ::
(_p_twiddle,
(tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- (Tcons tint Tnil)) tint cc_default))) ::
- (_i, tint) :: (_q, (tptr (Tstruct _object noattr))) ::
+ ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
+ cc_default))) :: (_i, tint) ::
+ (_q, (tptr (Tstruct _object noattr))) ::
(_qmtable, (tptr (Tstruct _fancymethods noattr))) ::
(_q_reset,
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tvoid cc_default))) ::
(_q_setcolor,
(tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- (Tcons tint Tnil)) tvoid cc_default))) ::
+ ((tptr (Tstruct _object noattr)) :: tint :: nil)
+ tvoid cc_default))) ::
(_q_getcolor,
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tint cc_default))) :: (_col, tint) ::
(_u, (tptr (Tstruct _fancyfoo_object noattr))) ::
(_umtable, (tptr (Tstruct _fancymethods noattr))) ::
(_u_reset,
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tvoid cc_default))) ::
(_u_getcolor,
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tint cc_default))) :: (_colU, tint) ::
(_t'6, tint) ::
(_t'5, (tptr (Tstruct _fancyfoo_object noattr))) ::
@@ -482,13 +483,13 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _make_foo (Tfunction Tnil (tptr (Tstruct _object noattr))
+ (Evar _make_foo (Tfunction nil (tptr (Tstruct _object noattr))
cc_default)) nil)
(Sset _p (Etempvar _t'1 (tptr (Tstruct _object noattr)))))
(Ssequence
(Ssequence
(Scall (Some _t'2)
- (Evar _make_fancyfoo (Tfunction (Tcons tint Tnil)
+ (Evar _make_fancyfoo (Tfunction (tint :: nil)
(tptr (Tstruct _object noattr)) cc_default))
((Econst_int (Int.repr 4) tint) :: nil))
(Sset _q (Etempvar _t'2 (tptr (Tstruct _object noattr)))))
@@ -503,14 +504,13 @@ Definition f_main := {|
(Efield
(Ederef (Etempvar _pmtable (tptr (Tstruct _methods noattr)))
(Tstruct _methods noattr)) _reset
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
- tvoid cc_default))))
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tvoid
+ cc_default))))
(Ssequence
(Scall None
(Etempvar _p_reset (tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- Tnil) tvoid cc_default)))
+ ((tptr (Tstruct _object noattr)) ::
+ nil) tvoid cc_default)))
((Etempvar _p (tptr (Tstruct _object noattr))) :: nil))
(Ssequence
(Ssequence
@@ -528,15 +528,13 @@ Definition f_main := {|
(Ederef
(Etempvar _qmtable (tptr (Tstruct _fancymethods noattr)))
(Tstruct _fancymethods noattr)) _reset
- (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tvoid cc_default))))
(Ssequence
(Scall None
(Etempvar _q_reset (tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- Tnil) tvoid cc_default)))
+ ((tptr (Tstruct _object noattr)) ::
+ nil) tvoid cc_default)))
((Etempvar _q (tptr (Tstruct _object noattr))) :: nil))
(Ssequence
(Ssequence
@@ -557,15 +555,14 @@ Definition f_main := {|
(Etempvar _qmtable (tptr (Tstruct _fancymethods noattr)))
(Tstruct _fancymethods noattr)) _getcolor
(tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- Tnil) tint cc_default))))
+ ((tptr (Tstruct _object noattr)) :: nil)
+ tint cc_default))))
(Ssequence
(Ssequence
(Scall (Some _t'3)
(Etempvar _q_getcolor (tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- Tnil) tint
+ ((tptr (Tstruct _object noattr)) ::
+ nil) tint
cc_default)))
((Etempvar _q (tptr (Tstruct _object noattr))) ::
nil))
@@ -584,17 +581,14 @@ Definition f_main := {|
(Etempvar _pmtable (tptr (Tstruct _methods noattr)))
(Tstruct _methods noattr)) _twiddleR
(tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- (Tcons tint Tnil)) tint cc_default))))
+ ((tptr (Tstruct _object noattr)) ::
+ tint :: nil) tint cc_default))))
(Ssequence
(Ssequence
(Scall (Some _t'4)
(Etempvar _p_twiddle (tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- (Tcons tint
- Tnil))
+ ((tptr (Tstruct _object noattr)) ::
+ tint :: nil)
tint
cc_default)))
((Etempvar _p (tptr (Tstruct _object noattr))) ::
@@ -604,8 +598,7 @@ Definition f_main := {|
(Ssequence
(Scall (Some _t'5)
(Evar _make_fancyfooTyped (Tfunction
- (Tcons tint
- Tnil)
+ (tint :: nil)
(tptr (Tstruct _fancyfoo_object noattr))
cc_default))
((Econst_int (Int.repr 9) tint) :: nil))
@@ -633,15 +626,13 @@ Definition f_main := {|
(Tstruct _fancymethods noattr))
_reset
(tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- Tnil) tvoid cc_default))))
+ ((tptr (Tstruct _object noattr)) ::
+ nil) tvoid cc_default))))
(Ssequence
(Scall None
(Etempvar _u_reset (tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- Tnil)
+ ((tptr (Tstruct _object noattr)) ::
+ nil)
tvoid
cc_default)))
((Ecast
@@ -671,18 +662,15 @@ Definition f_main := {|
(Tstruct _fancymethods noattr))
_getcolor
(tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- Tnil) tint
- cc_default))))
+ ((tptr (Tstruct _object noattr)) ::
+ nil) tint cc_default))))
(Ssequence
(Ssequence
(Scall (Some _t'6)
(Etempvar _u_getcolor (tptr
(Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- Tnil) tint cc_default)))
+ ((tptr (Tstruct _object noattr)) ::
+ nil) tint cc_default)))
((Ecast
(Etempvar _u (tptr (Tstruct _fancyfoo_object noattr)))
(tptr (Tstruct _object noattr))) ::
@@ -702,15 +690,13 @@ Definition f_main := {|
Definition composites : list composite_definition :=
(Composite _methods Struct
(Member_plain _reset
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil) tvoid
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tvoid
cc_default)) ::
Member_plain _twiddle
- (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr)) (Tcons tint Tnil)) tint
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
cc_default)) ::
Member_plain _twiddleR
- (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr)) (Tcons tint Tnil)) tint
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
cc_default)) :: nil)
noattr ::
Composite _object Struct
@@ -722,22 +708,19 @@ Definition composites : list composite_definition :=
noattr ::
Composite _fancymethods Struct
(Member_plain _reset
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil) tvoid
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tvoid
cc_default)) ::
Member_plain _twiddle
- (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr)) (Tcons tint Tnil)) tint
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
cc_default)) ::
Member_plain _twiddleR
- (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr)) (Tcons tint Tnil)) tint
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
cc_default)) ::
Member_plain _setcolor
- (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr)) (Tcons tint Tnil)) tvoid
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: tint :: nil) tvoid
cc_default)) ::
Member_plain _getcolor
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil) tint
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tint
cc_default)) :: nil)
noattr ::
Composite _fancyfoo_object Struct
@@ -748,271 +731,265 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
- (_malloc,
- Gfun(External EF_malloc (Tcons tuint Tnil) (tptr tvoid) cc_default)) ::
+ (_malloc, Gfun(External EF_malloc (tuint :: nil) (tptr tvoid) cc_default)) ::
(_exit,
Gfun(External (EF_external "exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
(_foo_reset, Gfun(Internal f_foo_reset)) ::
(_foo_twiddle, Gfun(Internal f_foo_twiddle)) ::
(_foo_twiddleR, Gfun(Internal f_foo_twiddleR)) ::
@@ -1042,12 +1019,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/odd.v b/progs/odd.v
index c47d6595e8..1429576885 100644
--- a/progs/odd.v
+++ b/progs/odd.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,66 +19,67 @@ Module Info.
Definition normalized := false.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 45%positive.
-Definition ___compcert_i64_dtou : ident := 46%positive.
-Definition ___compcert_i64_sar : ident := 57%positive.
-Definition ___compcert_i64_sdiv : ident := 51%positive.
-Definition ___compcert_i64_shl : ident := 55%positive.
-Definition ___compcert_i64_shr : ident := 56%positive.
-Definition ___compcert_i64_smod : ident := 53%positive.
-Definition ___compcert_i64_smulh : ident := 58%positive.
-Definition ___compcert_i64_stod : ident := 47%positive.
-Definition ___compcert_i64_stof : ident := 49%positive.
-Definition ___compcert_i64_udiv : ident := 52%positive.
-Definition ___compcert_i64_umod : ident := 54%positive.
-Definition ___compcert_i64_umulh : ident := 59%positive.
-Definition ___compcert_i64_utod : ident := 48%positive.
-Definition ___compcert_i64_utof : ident := 50%positive.
-Definition ___compcert_va_composite : ident := 44%positive.
-Definition ___compcert_va_float64 : ident := 43%positive.
-Definition ___compcert_va_int32 : ident := 41%positive.
-Definition ___compcert_va_int64 : ident := 42%positive.
-Definition _even : ident := 39%positive.
-Definition _main : ident := 40%positive.
-Definition _n : ident := 38%positive.
-Definition _odd : ident := 37%positive.
-Definition _t'1 : ident := 60%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 46%positive.
+Definition ___compcert_i64_dtou : ident := 47%positive.
+Definition ___compcert_i64_sar : ident := 58%positive.
+Definition ___compcert_i64_sdiv : ident := 52%positive.
+Definition ___compcert_i64_shl : ident := 56%positive.
+Definition ___compcert_i64_shr : ident := 57%positive.
+Definition ___compcert_i64_smod : ident := 54%positive.
+Definition ___compcert_i64_smulh : ident := 59%positive.
+Definition ___compcert_i64_stod : ident := 48%positive.
+Definition ___compcert_i64_stof : ident := 50%positive.
+Definition ___compcert_i64_udiv : ident := 53%positive.
+Definition ___compcert_i64_umod : ident := 55%positive.
+Definition ___compcert_i64_umulh : ident := 60%positive.
+Definition ___compcert_i64_utod : ident := 49%positive.
+Definition ___compcert_i64_utof : ident := 51%positive.
+Definition ___compcert_va_composite : ident := 45%positive.
+Definition ___compcert_va_float64 : ident := 44%positive.
+Definition ___compcert_va_int32 : ident := 42%positive.
+Definition ___compcert_va_int64 : ident := 43%positive.
+Definition _even : ident := 40%positive.
+Definition _main : ident := 41%positive.
+Definition _n : ident := 39%positive.
+Definition _odd : ident := 38%positive.
+Definition _t'1 : ident := 61%positive.
Definition f_odd := {|
fn_return := tint;
@@ -94,7 +95,7 @@ Definition f_odd := {|
Sskip)
(Ssequence
(Scall (Some _t'1)
- (Evar _even (Tfunction (Tcons tuint Tnil) tint cc_default))
+ (Evar _even (Tfunction (tuint :: nil) tint cc_default))
((Ebinop Osub (Etempvar _n tuint) (Econst_int (Int.repr 1) tint) tuint) ::
nil))
(Sreturn (Some (Etempvar _t'1 tint)))))
@@ -106,270 +107,264 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_even,
Gfun(External (EF_external "even"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) :: (_odd, Gfun(Internal f_odd)) ::
- nil).
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) :: (_odd, Gfun(Internal f_odd)) :: nil).
Definition public_idents : list ident :=
(_odd :: _even :: ___builtin_debug :: ___builtin_write32_reversed ::
@@ -384,12 +379,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/os_combine.v b/progs/os_combine.v
index 0292ca30a8..631f81b75e 100644
--- a/progs/os_combine.v
+++ b/progs/os_combine.v
@@ -70,7 +70,7 @@ Section ext_trace.
forall n t traces z c m e args,
cl_at_external c = Some (e,args) ->
(forall s s' ret m' t' n'
- (Hargsty : Val.has_type_list args (sig_args (ef_sig e)))
+ (Hargsty : Val.has_type_list args (map proj_xtype (sig_args (ef_sig e))))
(Hretty : Builtins0.val_opt_has_rettype ret (sig_res (ef_sig e))),
inj_mem e args m t s ->
ext_sem e args s = Some (s', ret, t') ->
@@ -81,7 +81,7 @@ Section ext_trace.
ext_safeN_trace n' (app_trace t t') traces' z' c' m' /\
(forall t'', In traces' t'' -> In traces (app_trace t' t''))) ->
(forall t1, In traces t1 ->
- exists s s' ret m' t' n', Val.has_type_list args (sig_args (ef_sig e)) /\
+ exists s s' ret m' t' n', Val.has_type_list args (map proj_xtype (sig_args (ef_sig e))) /\
Builtins0.val_opt_has_rettype ret (sig_res (ef_sig e)) /\
inj_mem e args m t s /\ ext_sem e args s = Some (s', ret, t') /\ m' = extr_mem e args m s' /\
(n' <= n)%nat /\ OS_valid s' /\ exists traces' z' c', consume_trace z z' t' /\
@@ -109,7 +109,7 @@ Section ext_trace.
induction n as [n IHn] using lt_wf_ind; intros; inversion H; subst.
- eexists; constructor.
- edestruct IHn as [traces ?]; eauto; exists traces; econstructor; eauto.
- - exists (fun t1 => exists s s' ret m' t' n', Val.has_type_list args (sig_args (ef_sig e)) /\
+ - exists (fun t1 => exists s s' ret m' t' n', Val.has_type_list args (map proj_xtype (sig_args (ef_sig e))) /\
Builtins0.val_opt_has_rettype ret (sig_res (ef_sig e)) /\
inj_mem e args m t s /\ ext_sem e args s = Some (s', ret, t') /\ m' = extr_mem e args m s' /\
(n' <= n0)%nat /\ OS_valid s' /\ exists traces' z' c', consume_trace z z' t' /\
diff --git a/progs/peel.v b/progs/peel.v
index 2ddea8a3bf..8a5e6bcc3f 100644
--- a/progs/peel.v
+++ b/progs/peel.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,66 +19,67 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 45%positive.
-Definition ___compcert_i64_dtou : ident := 46%positive.
-Definition ___compcert_i64_sar : ident := 57%positive.
-Definition ___compcert_i64_sdiv : ident := 51%positive.
-Definition ___compcert_i64_shl : ident := 55%positive.
-Definition ___compcert_i64_shr : ident := 56%positive.
-Definition ___compcert_i64_smod : ident := 53%positive.
-Definition ___compcert_i64_smulh : ident := 58%positive.
-Definition ___compcert_i64_stod : ident := 47%positive.
-Definition ___compcert_i64_stof : ident := 49%positive.
-Definition ___compcert_i64_udiv : ident := 52%positive.
-Definition ___compcert_i64_umod : ident := 54%positive.
-Definition ___compcert_i64_umulh : ident := 59%positive.
-Definition ___compcert_i64_utod : ident := 48%positive.
-Definition ___compcert_i64_utof : ident := 50%positive.
-Definition ___compcert_va_composite : ident := 44%positive.
-Definition ___compcert_va_float64 : ident := 43%positive.
-Definition ___compcert_va_int32 : ident := 41%positive.
-Definition ___compcert_va_int64 : ident := 42%positive.
-Definition _a : ident := 39%positive.
-Definition _b : ident := 37%positive.
-Definition _f : ident := 40%positive.
-Definition _i : ident := 38%positive.
-Definition _main : ident := 60%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 46%positive.
+Definition ___compcert_i64_dtou : ident := 47%positive.
+Definition ___compcert_i64_sar : ident := 58%positive.
+Definition ___compcert_i64_sdiv : ident := 52%positive.
+Definition ___compcert_i64_shl : ident := 56%positive.
+Definition ___compcert_i64_shr : ident := 57%positive.
+Definition ___compcert_i64_smod : ident := 54%positive.
+Definition ___compcert_i64_smulh : ident := 59%positive.
+Definition ___compcert_i64_stod : ident := 48%positive.
+Definition ___compcert_i64_stof : ident := 50%positive.
+Definition ___compcert_i64_udiv : ident := 53%positive.
+Definition ___compcert_i64_umod : ident := 55%positive.
+Definition ___compcert_i64_umulh : ident := 60%positive.
+Definition ___compcert_i64_utod : ident := 49%positive.
+Definition ___compcert_i64_utof : ident := 51%positive.
+Definition ___compcert_va_composite : ident := 45%positive.
+Definition ___compcert_va_float64 : ident := 44%positive.
+Definition ___compcert_va_int32 : ident := 42%positive.
+Definition ___compcert_va_int64 : ident := 43%positive.
+Definition _a : ident := 40%positive.
+Definition _b : ident := 38%positive.
+Definition _f : ident := 41%positive.
+Definition _i : ident := 39%positive.
+Definition _main : ident := 61%positive.
Definition f_f := {|
fn_return := tint;
@@ -110,264 +111,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_f, Gfun(Internal f_f)) :: nil).
@@ -384,12 +380,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/printf.v b/progs/printf.v
index 52e96ee834..39d0dc39dd 100644
--- a/progs/printf.v
+++ b/progs/printf.v
@@ -247,13 +247,13 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall None
- (Evar _printf (Tfunction (Tcons (tptr tschar) Tnil) tint
+ (Evar _printf (Tfunction (cons (tptr tschar) nil) tint
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
((Evar ___stringlit_1 (tarray tschar 15)) :: nil))
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar ___getreent (Tfunction Tnil (tptr (Tstruct __reent noattr))
+ (Evar ___getreent (Tfunction nil (tptr (Tstruct __reent noattr))
cc_default)) nil)
(Ssequence
(Sset _t'2
@@ -263,8 +263,8 @@ Definition f_main := {|
(tptr (Tstruct ___sFILE64 noattr))))
(Scall None
(Evar _fprintf (Tfunction
- (Tcons (tptr (Tstruct ___sFILE64 noattr))
- (Tcons (tptr tschar) Tnil)) tint
+ (cons (tptr (Tstruct ___sFILE64 noattr))
+ (cons (tptr tschar) nil)) tint
{|cc_vararg:=(Some 2); cc_unproto:=false; cc_structret:=false|}))
((Etempvar _t'2 (tptr (Tstruct ___sFILE64 noattr))) ::
(Evar ___stringlit_3 (tarray tschar 16)) ::
@@ -304,7 +304,7 @@ Definition composites : list composite_definition :=
Composite __atexit Struct
(Member_plain __next (tptr (Tstruct __atexit noattr)) ::
Member_plain __ind tint ::
- Member_plain __fns (tarray (tptr (Tfunction Tnil tvoid cc_default)) 32) ::
+ Member_plain __fns (tarray (tptr (Tfunction nil tvoid cc_default)) 32) ::
Member_plain __on_exit_args (Tstruct __on_exit_args noattr) :: nil)
noattr ::
Composite ___sbuf Struct
@@ -320,23 +320,23 @@ Definition composites : list composite_definition :=
Member_plain __cookie (tptr tvoid) ::
Member_plain __read
(tptr (Tfunction
- (Tcons (tptr (Tstruct __reent noattr))
- (Tcons (tptr tvoid) (Tcons (tptr tschar) (Tcons tuint Tnil))))
+ (cons (tptr (Tstruct __reent noattr))
+ (cons (tptr tvoid) (cons (tptr tschar) (cons tuint nil))))
tint cc_default)) ::
Member_plain __write
(tptr (Tfunction
- (Tcons (tptr (Tstruct __reent noattr))
- (Tcons (tptr tvoid) (Tcons (tptr tschar) (Tcons tuint Tnil))))
+ (cons (tptr (Tstruct __reent noattr))
+ (cons (tptr tvoid) (cons (tptr tschar) (cons tuint nil))))
tint cc_default)) ::
Member_plain __seek
(tptr (Tfunction
- (Tcons (tptr (Tstruct __reent noattr))
- (Tcons (tptr tvoid) (Tcons tint (Tcons tint Tnil)))) tint
+ (cons (tptr (Tstruct __reent noattr))
+ (cons (tptr tvoid) (cons tint (cons tint nil)))) tint
cc_default)) ::
Member_plain __close
(tptr (Tfunction
- (Tcons (tptr (Tstruct __reent noattr))
- (Tcons (tptr tvoid) Tnil)) tint cc_default)) ::
+ (cons (tptr (Tstruct __reent noattr))
+ (cons (tptr tvoid) nil)) tint cc_default)) ::
Member_plain __ub (Tstruct ___sbuf noattr) ::
Member_plain __up (tptr tuchar) :: Member_plain __ur tint ::
Member_plain __ubuf (tarray tuchar 3) ::
@@ -346,8 +346,8 @@ Definition composites : list composite_definition :=
Member_plain __offset tlong ::
Member_plain __seek64
(tptr (Tfunction
- (Tcons (tptr (Tstruct __reent noattr))
- (Tcons (tptr tvoid) (Tcons tlong (Tcons tint Tnil)))) tlong
+ (cons (tptr (Tstruct __reent noattr))
+ (cons (tptr tvoid) (cons tlong (cons tint nil)))) tlong
cc_default)) :: Member_plain __lock (tptr tvoid) ::
Member_plain __mbstate (Tstruct __139 noattr) :: nil)
noattr ::
@@ -399,7 +399,7 @@ Definition composites : list composite_definition :=
Member_plain __locale (tptr (Tstruct ___locale_t noattr)) ::
Member_plain ___sdidinit tint ::
Member_plain ___cleanup
- (tptr (Tfunction (Tcons (tptr (Tstruct __reent noattr)) Tnil) tvoid
+ (tptr (Tfunction (cons (tptr (Tstruct __reent noattr)) nil) tvoid
cc_default)) ::
Member_plain __result (tptr (Tstruct __Bigint noattr)) ::
Member_plain __result_k tint ::
@@ -410,7 +410,7 @@ Definition composites : list composite_definition :=
Member_plain __atexit (tptr (Tstruct __atexit noattr)) ::
Member_plain __atexit0 (Tstruct __atexit noattr) ::
Member_plain __sig_func
- (tptr (tptr (Tfunction (Tcons tint Tnil) tvoid cc_default))) ::
+ (tptr (tptr (Tfunction (cons tint nil) tvoid cc_default))) ::
Member_plain ___sglue (Tstruct __glue noattr) ::
Member_plain ___sf (tarray (Tstruct ___sFILE64 noattr) 3) :: nil)
noattr :: nil).
@@ -418,282 +418,272 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
- cc_default)) :: (___stringlit_3, Gvar v___stringlit_3) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
+ cc_default)) ::
+ (___stringlit_3, Gvar v___stringlit_3) ::
(___stringlit_2, Gvar v___stringlit_2) ::
(___stringlit_1, Gvar v___stringlit_1) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___getreent,
Gfun(External (EF_external "__getreent"
- (mksignature nil AST.Tint cc_default)) Tnil
+ (mksignature nil AST.Xptr cc_default)) nil
(tptr (Tstruct __reent noattr)) cc_default)) ::
(_fprintf,
Gfun(External (EF_external "fprintf"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xint
{|cc_vararg:=(Some 2); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr (Tstruct ___sFILE64 noattr)) (Tcons (tptr tschar) Tnil))
+ (cons (tptr (Tstruct ___sFILE64 noattr)) (cons (tptr tschar) nil))
tint {|cc_vararg:=(Some 2); cc_unproto:=false; cc_structret:=false|})) ::
(_printf,
Gfun(External (EF_external "printf"
- (mksignature (AST.Tint :: nil) AST.Tint
+ (mksignature (AST.Xptr :: nil) AST.Xint
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tint
+ (cons (tptr tschar) nil) tint
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_main, Gfun(Internal f_main)) :: nil).
diff --git a/progs/ptr_compare.v b/progs/ptr_compare.v
index 7f237a7bec..64a6f3120b 100644
--- a/progs/ptr_compare.v
+++ b/progs/ptr_compare.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,65 +19,66 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 44%positive.
-Definition ___compcert_i64_dtou : ident := 45%positive.
-Definition ___compcert_i64_sar : ident := 56%positive.
-Definition ___compcert_i64_sdiv : ident := 50%positive.
-Definition ___compcert_i64_shl : ident := 54%positive.
-Definition ___compcert_i64_shr : ident := 55%positive.
-Definition ___compcert_i64_smod : ident := 52%positive.
-Definition ___compcert_i64_smulh : ident := 57%positive.
-Definition ___compcert_i64_stod : ident := 46%positive.
-Definition ___compcert_i64_stof : ident := 48%positive.
-Definition ___compcert_i64_udiv : ident := 51%positive.
-Definition ___compcert_i64_umod : ident := 53%positive.
-Definition ___compcert_i64_umulh : ident := 58%positive.
-Definition ___compcert_i64_utod : ident := 47%positive.
-Definition ___compcert_i64_utof : ident := 49%positive.
-Definition ___compcert_va_composite : ident := 43%positive.
-Definition ___compcert_va_float64 : ident := 42%positive.
-Definition ___compcert_va_int32 : ident := 40%positive.
-Definition ___compcert_va_int64 : ident := 41%positive.
-Definition _f : ident := 39%positive.
-Definition _main : ident := 59%positive.
-Definition _p : ident := 37%positive.
-Definition _q : ident := 38%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 45%positive.
+Definition ___compcert_i64_dtou : ident := 46%positive.
+Definition ___compcert_i64_sar : ident := 57%positive.
+Definition ___compcert_i64_sdiv : ident := 51%positive.
+Definition ___compcert_i64_shl : ident := 55%positive.
+Definition ___compcert_i64_shr : ident := 56%positive.
+Definition ___compcert_i64_smod : ident := 53%positive.
+Definition ___compcert_i64_smulh : ident := 58%positive.
+Definition ___compcert_i64_stod : ident := 47%positive.
+Definition ___compcert_i64_stof : ident := 49%positive.
+Definition ___compcert_i64_udiv : ident := 52%positive.
+Definition ___compcert_i64_umod : ident := 54%positive.
+Definition ___compcert_i64_umulh : ident := 59%positive.
+Definition ___compcert_i64_utod : ident := 48%positive.
+Definition ___compcert_i64_utof : ident := 50%positive.
+Definition ___compcert_va_composite : ident := 44%positive.
+Definition ___compcert_va_float64 : ident := 43%positive.
+Definition ___compcert_va_int32 : ident := 41%positive.
+Definition ___compcert_va_int64 : ident := 42%positive.
+Definition _f : ident := 40%positive.
+Definition _main : ident := 60%positive.
+Definition _p : ident := 38%positive.
+Definition _q : ident := 39%positive.
Definition f_f := {|
fn_return := tint;
@@ -96,264 +97,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_f, Gfun(Internal f_f)) :: nil).
@@ -370,12 +366,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/queue.v b/progs/queue.v
index 9afde44b1c..c2e6b07cb0 100644
--- a/progs/queue.v
+++ b/progs/queue.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,89 +19,90 @@ Module Info.
Definition normalized := true.
End Info.
-Definition _Q : ident := 50%positive.
-Definition ___builtin_annot : ident := 24%positive.
-Definition ___builtin_annot_intval : ident := 25%positive.
-Definition ___builtin_bswap : ident := 9%positive.
-Definition ___builtin_bswap16 : ident := 11%positive.
-Definition ___builtin_bswap32 : ident := 10%positive.
-Definition ___builtin_bswap64 : ident := 8%positive.
-Definition ___builtin_clz : ident := 12%positive.
-Definition ___builtin_clzl : ident := 13%positive.
-Definition ___builtin_clzll : ident := 14%positive.
-Definition ___builtin_ctz : ident := 15%positive.
-Definition ___builtin_ctzl : ident := 16%positive.
-Definition ___builtin_ctzll : ident := 17%positive.
-Definition ___builtin_debug : ident := 43%positive.
-Definition ___builtin_expect : ident := 32%positive.
-Definition ___builtin_fabs : ident := 18%positive.
-Definition ___builtin_fabsf : ident := 19%positive.
-Definition ___builtin_fmadd : ident := 35%positive.
-Definition ___builtin_fmax : ident := 33%positive.
-Definition ___builtin_fmin : ident := 34%positive.
-Definition ___builtin_fmsub : ident := 36%positive.
-Definition ___builtin_fnmadd : ident := 37%positive.
-Definition ___builtin_fnmsub : ident := 38%positive.
-Definition ___builtin_fsqrt : ident := 20%positive.
-Definition ___builtin_membar : ident := 26%positive.
-Definition ___builtin_memcpy_aligned : ident := 22%positive.
-Definition ___builtin_read16_reversed : ident := 39%positive.
-Definition ___builtin_read32_reversed : ident := 40%positive.
-Definition ___builtin_sel : ident := 23%positive.
-Definition ___builtin_sqrt : ident := 21%positive.
-Definition ___builtin_unreachable : ident := 31%positive.
-Definition ___builtin_va_arg : ident := 28%positive.
-Definition ___builtin_va_copy : ident := 29%positive.
-Definition ___builtin_va_end : ident := 30%positive.
-Definition ___builtin_va_start : ident := 27%positive.
-Definition ___builtin_write16_reversed : ident := 41%positive.
-Definition ___builtin_write32_reversed : ident := 42%positive.
-Definition ___compcert_i64_dtos : ident := 65%positive.
-Definition ___compcert_i64_dtou : ident := 66%positive.
-Definition ___compcert_i64_sar : ident := 77%positive.
-Definition ___compcert_i64_sdiv : ident := 71%positive.
-Definition ___compcert_i64_shl : ident := 75%positive.
-Definition ___compcert_i64_shr : ident := 76%positive.
-Definition ___compcert_i64_smod : ident := 73%positive.
-Definition ___compcert_i64_smulh : ident := 78%positive.
-Definition ___compcert_i64_stod : ident := 67%positive.
-Definition ___compcert_i64_stof : ident := 69%positive.
-Definition ___compcert_i64_udiv : ident := 72%positive.
-Definition ___compcert_i64_umod : ident := 74%positive.
-Definition ___compcert_i64_umulh : ident := 79%positive.
-Definition ___compcert_i64_utod : ident := 68%positive.
-Definition ___compcert_i64_utof : ident := 70%positive.
-Definition ___compcert_va_composite : ident := 64%positive.
-Definition ___compcert_va_float64 : ident := 63%positive.
-Definition ___compcert_va_int32 : ident := 61%positive.
-Definition ___compcert_va_int64 : ident := 62%positive.
+Definition _Q : ident := 51%positive.
+Definition ___builtin_ais_annot : ident := 8%positive.
+Definition ___builtin_annot : ident := 25%positive.
+Definition ___builtin_annot_intval : ident := 26%positive.
+Definition ___builtin_bswap : ident := 10%positive.
+Definition ___builtin_bswap16 : ident := 12%positive.
+Definition ___builtin_bswap32 : ident := 11%positive.
+Definition ___builtin_bswap64 : ident := 9%positive.
+Definition ___builtin_clz : ident := 13%positive.
+Definition ___builtin_clzl : ident := 14%positive.
+Definition ___builtin_clzll : ident := 15%positive.
+Definition ___builtin_ctz : ident := 16%positive.
+Definition ___builtin_ctzl : ident := 17%positive.
+Definition ___builtin_ctzll : ident := 18%positive.
+Definition ___builtin_debug : ident := 44%positive.
+Definition ___builtin_expect : ident := 33%positive.
+Definition ___builtin_fabs : ident := 19%positive.
+Definition ___builtin_fabsf : ident := 20%positive.
+Definition ___builtin_fmadd : ident := 36%positive.
+Definition ___builtin_fmax : ident := 34%positive.
+Definition ___builtin_fmin : ident := 35%positive.
+Definition ___builtin_fmsub : ident := 37%positive.
+Definition ___builtin_fnmadd : ident := 38%positive.
+Definition ___builtin_fnmsub : ident := 39%positive.
+Definition ___builtin_fsqrt : ident := 21%positive.
+Definition ___builtin_membar : ident := 27%positive.
+Definition ___builtin_memcpy_aligned : ident := 23%positive.
+Definition ___builtin_read16_reversed : ident := 40%positive.
+Definition ___builtin_read32_reversed : ident := 41%positive.
+Definition ___builtin_sel : ident := 24%positive.
+Definition ___builtin_sqrt : ident := 22%positive.
+Definition ___builtin_unreachable : ident := 32%positive.
+Definition ___builtin_va_arg : ident := 29%positive.
+Definition ___builtin_va_copy : ident := 30%positive.
+Definition ___builtin_va_end : ident := 31%positive.
+Definition ___builtin_va_start : ident := 28%positive.
+Definition ___builtin_write16_reversed : ident := 42%positive.
+Definition ___builtin_write32_reversed : ident := 43%positive.
+Definition ___compcert_i64_dtos : ident := 66%positive.
+Definition ___compcert_i64_dtou : ident := 67%positive.
+Definition ___compcert_i64_sar : ident := 78%positive.
+Definition ___compcert_i64_sdiv : ident := 72%positive.
+Definition ___compcert_i64_shl : ident := 76%positive.
+Definition ___compcert_i64_shr : ident := 77%positive.
+Definition ___compcert_i64_smod : ident := 74%positive.
+Definition ___compcert_i64_smulh : ident := 79%positive.
+Definition ___compcert_i64_stod : ident := 68%positive.
+Definition ___compcert_i64_stof : ident := 70%positive.
+Definition ___compcert_i64_udiv : ident := 73%positive.
+Definition ___compcert_i64_umod : ident := 75%positive.
+Definition ___compcert_i64_umulh : ident := 80%positive.
+Definition ___compcert_i64_utod : ident := 69%positive.
+Definition ___compcert_i64_utof : ident := 71%positive.
+Definition ___compcert_va_composite : ident := 65%positive.
+Definition ___compcert_va_float64 : ident := 64%positive.
+Definition ___compcert_va_int32 : ident := 62%positive.
+Definition ___compcert_va_int64 : ident := 63%positive.
Definition _a : ident := 2%positive.
Definition _b : ident := 3%positive.
Definition _elem : ident := 1%positive.
-Definition _exit : ident := 46%positive.
+Definition _exit : ident := 47%positive.
Definition _fifo : ident := 5%positive.
-Definition _fifo_empty : ident := 55%positive.
-Definition _fifo_get : ident := 56%positive.
-Definition _fifo_new : ident := 51%positive.
-Definition _fifo_put : ident := 54%positive.
-Definition _free : ident := 45%positive.
-Definition _h : ident := 52%positive.
+Definition _fifo_empty : ident := 56%positive.
+Definition _fifo_get : ident := 57%positive.
+Definition _fifo_new : ident := 52%positive.
+Definition _fifo_put : ident := 55%positive.
+Definition _free : ident := 46%positive.
+Definition _h : ident := 53%positive.
Definition _head : ident := 6%positive.
-Definition _i : ident := 58%positive.
-Definition _j : ident := 59%positive.
-Definition _main : ident := 60%positive.
-Definition _make_elem : ident := 57%positive.
-Definition _malloc : ident := 44%positive.
-Definition _n : ident := 47%positive.
+Definition _i : ident := 59%positive.
+Definition _j : ident := 60%positive.
+Definition _main : ident := 61%positive.
+Definition _make_elem : ident := 58%positive.
+Definition _malloc : ident := 45%positive.
+Definition _n : ident := 48%positive.
Definition _next : ident := 4%positive.
-Definition _p : ident := 48%positive.
-Definition _surely_malloc : ident := 49%positive.
-Definition _t : ident := 53%positive.
+Definition _p : ident := 49%positive.
+Definition _surely_malloc : ident := 50%positive.
+Definition _t : ident := 54%positive.
Definition _tail : ident := 7%positive.
-Definition _t'1 : ident := 80%positive.
-Definition _t'2 : ident := 81%positive.
-Definition _t'3 : ident := 82%positive.
-Definition _t'4 : ident := 83%positive.
+Definition _t'1 : ident := 81%positive.
+Definition _t'2 : ident := 82%positive.
+Definition _t'3 : ident := 83%positive.
+Definition _t'4 : ident := 84%positive.
Definition f_surely_malloc := {|
fn_return := (tptr tvoid);
@@ -113,12 +114,12 @@ Definition f_surely_malloc := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (tuint :: nil) (tptr tvoid) cc_default))
((Etempvar _n tuint) :: nil))
(Sset _p (Etempvar _t'1 (tptr tvoid))))
(Ssequence
(Sifthenelse (Eunop Onotbool (Etempvar _p (tptr tvoid)) tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Sreturn (Some (Etempvar _p (tptr tvoid))))))
@@ -135,8 +136,7 @@ Definition f_fifo_new := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _surely_malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid)
- cc_default))
+ (Evar _surely_malloc (Tfunction (tuint :: nil) (tptr tvoid) cc_default))
((Esizeof (Tstruct _fifo noattr) tuint) :: nil))
(Sset _Q
(Ecast (Etempvar _t'1 (tptr tvoid)) (tptr (Tstruct _fifo noattr)))))
@@ -260,8 +260,7 @@ Definition f_make_elem := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _surely_malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid)
- cc_default))
+ (Evar _surely_malloc (Tfunction (tuint :: nil) (tptr tvoid) cc_default))
((Esizeof (Tstruct _elem noattr) tuint) :: nil))
(Sset _p (Etempvar _t'1 (tptr tvoid))))
(Ssequence
@@ -294,13 +293,13 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _fifo_new (Tfunction Tnil (tptr (Tstruct _fifo noattr))
+ (Evar _fifo_new (Tfunction nil (tptr (Tstruct _fifo noattr))
cc_default)) nil)
(Sset _Q (Etempvar _t'1 (tptr (Tstruct _fifo noattr)))))
(Ssequence
(Ssequence
(Scall (Some _t'2)
- (Evar _make_elem (Tfunction (Tcons tint (Tcons tint Tnil))
+ (Evar _make_elem (Tfunction (tint :: tint :: nil)
(tptr (Tstruct _elem noattr)) cc_default))
((Econst_int (Int.repr 1) tint) ::
(Econst_int (Int.repr 10) tint) :: nil))
@@ -308,15 +307,15 @@ Definition f_main := {|
(Ssequence
(Scall None
(Evar _fifo_put (Tfunction
- (Tcons (tptr (Tstruct _fifo noattr))
- (Tcons (tptr (Tstruct _elem noattr)) Tnil))
- tvoid cc_default))
+ ((tptr (Tstruct _fifo noattr)) ::
+ (tptr (Tstruct _elem noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _Q (tptr (Tstruct _fifo noattr))) ::
(Etempvar _p (tptr (Tstruct _elem noattr))) :: nil))
(Ssequence
(Ssequence
(Scall (Some _t'3)
- (Evar _make_elem (Tfunction (Tcons tint (Tcons tint Tnil))
+ (Evar _make_elem (Tfunction (tint :: tint :: nil)
(tptr (Tstruct _elem noattr)) cc_default))
((Econst_int (Int.repr 2) tint) ::
(Econst_int (Int.repr 20) tint) :: nil))
@@ -324,18 +323,17 @@ Definition f_main := {|
(Ssequence
(Scall None
(Evar _fifo_put (Tfunction
- (Tcons (tptr (Tstruct _fifo noattr))
- (Tcons (tptr (Tstruct _elem noattr)) Tnil))
- tvoid cc_default))
+ ((tptr (Tstruct _fifo noattr)) ::
+ (tptr (Tstruct _elem noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _Q (tptr (Tstruct _fifo noattr))) ::
(Etempvar _p (tptr (Tstruct _elem noattr))) :: nil))
(Ssequence
(Ssequence
(Scall (Some _t'4)
(Evar _fifo_get (Tfunction
- (Tcons (tptr (Tstruct _fifo noattr))
- Tnil) (tptr (Tstruct _elem noattr))
- cc_default))
+ ((tptr (Tstruct _fifo noattr)) :: nil)
+ (tptr (Tstruct _elem noattr)) cc_default))
((Etempvar _Q (tptr (Tstruct _fifo noattr))) :: nil))
(Sset _p (Etempvar _t'4 (tptr (Tstruct _elem noattr)))))
(Ssequence
@@ -350,7 +348,7 @@ Definition f_main := {|
(Tstruct _elem noattr)) _b tint))
(Ssequence
(Scall None
- (Evar _free (Tfunction (Tcons (tptr tvoid) Tnil) tvoid
+ (Evar _free (Tfunction ((tptr tvoid) :: nil) tvoid
cc_default))
((Etempvar _p (tptr (Tstruct _elem noattr))) :: nil))
(Sreturn (Some (Ebinop Oadd (Etempvar _i tint)
@@ -371,272 +369,266 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
- (_malloc,
- Gfun(External EF_malloc (Tcons tuint Tnil) (tptr tvoid) cc_default)) ::
- (_free, Gfun(External EF_free (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (_malloc, Gfun(External EF_malloc (tuint :: nil) (tptr tvoid) cc_default)) ::
+ (_free, Gfun(External EF_free ((tptr tvoid) :: nil) tvoid cc_default)) ::
(_exit,
Gfun(External (EF_external "exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
(_surely_malloc, Gfun(Internal f_surely_malloc)) ::
(_fifo_new, Gfun(Internal f_fifo_new)) ::
(_fifo_put, Gfun(Internal f_fifo_put)) ::
@@ -660,13 +652,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/queue2.v b/progs/queue2.v
index f0cb7e5b2f..3951479981 100644
--- a/progs/queue2.v
+++ b/progs/queue2.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,87 +19,88 @@ Module Info.
Definition normalized := true.
End Info.
-Definition _Q : ident := 49%positive.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 42%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
-Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
-Definition ___builtin_fmsub : ident := 35%positive.
-Definition ___builtin_fnmadd : ident := 36%positive.
-Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 39%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 40%positive.
-Definition ___builtin_write32_reversed : ident := 41%positive.
-Definition ___compcert_i64_dtos : ident := 63%positive.
-Definition ___compcert_i64_dtou : ident := 64%positive.
-Definition ___compcert_i64_sar : ident := 75%positive.
-Definition ___compcert_i64_sdiv : ident := 69%positive.
-Definition ___compcert_i64_shl : ident := 73%positive.
-Definition ___compcert_i64_shr : ident := 74%positive.
-Definition ___compcert_i64_smod : ident := 71%positive.
-Definition ___compcert_i64_smulh : ident := 76%positive.
-Definition ___compcert_i64_stod : ident := 65%positive.
-Definition ___compcert_i64_stof : ident := 67%positive.
-Definition ___compcert_i64_udiv : ident := 70%positive.
-Definition ___compcert_i64_umod : ident := 72%positive.
-Definition ___compcert_i64_umulh : ident := 77%positive.
-Definition ___compcert_i64_utod : ident := 66%positive.
-Definition ___compcert_i64_utof : ident := 68%positive.
-Definition ___compcert_va_composite : ident := 62%positive.
-Definition ___compcert_va_float64 : ident := 61%positive.
-Definition ___compcert_va_int32 : ident := 59%positive.
-Definition ___compcert_va_int64 : ident := 60%positive.
+Definition _Q : ident := 50%positive.
+Definition ___builtin_ais_annot : ident := 7%positive.
+Definition ___builtin_annot : ident := 24%positive.
+Definition ___builtin_annot_intval : ident := 25%positive.
+Definition ___builtin_bswap : ident := 9%positive.
+Definition ___builtin_bswap16 : ident := 11%positive.
+Definition ___builtin_bswap32 : ident := 10%positive.
+Definition ___builtin_bswap64 : ident := 8%positive.
+Definition ___builtin_clz : ident := 12%positive.
+Definition ___builtin_clzl : ident := 13%positive.
+Definition ___builtin_clzll : ident := 14%positive.
+Definition ___builtin_ctz : ident := 15%positive.
+Definition ___builtin_ctzl : ident := 16%positive.
+Definition ___builtin_ctzll : ident := 17%positive.
+Definition ___builtin_debug : ident := 43%positive.
+Definition ___builtin_expect : ident := 32%positive.
+Definition ___builtin_fabs : ident := 18%positive.
+Definition ___builtin_fabsf : ident := 19%positive.
+Definition ___builtin_fmadd : ident := 35%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 36%positive.
+Definition ___builtin_fnmadd : ident := 37%positive.
+Definition ___builtin_fnmsub : ident := 38%positive.
+Definition ___builtin_fsqrt : ident := 20%positive.
+Definition ___builtin_membar : ident := 26%positive.
+Definition ___builtin_memcpy_aligned : ident := 22%positive.
+Definition ___builtin_read16_reversed : ident := 39%positive.
+Definition ___builtin_read32_reversed : ident := 40%positive.
+Definition ___builtin_sel : ident := 23%positive.
+Definition ___builtin_sqrt : ident := 21%positive.
+Definition ___builtin_unreachable : ident := 31%positive.
+Definition ___builtin_va_arg : ident := 28%positive.
+Definition ___builtin_va_copy : ident := 29%positive.
+Definition ___builtin_va_end : ident := 30%positive.
+Definition ___builtin_va_start : ident := 27%positive.
+Definition ___builtin_write16_reversed : ident := 41%positive.
+Definition ___builtin_write32_reversed : ident := 42%positive.
+Definition ___compcert_i64_dtos : ident := 64%positive.
+Definition ___compcert_i64_dtou : ident := 65%positive.
+Definition ___compcert_i64_sar : ident := 76%positive.
+Definition ___compcert_i64_sdiv : ident := 70%positive.
+Definition ___compcert_i64_shl : ident := 74%positive.
+Definition ___compcert_i64_shr : ident := 75%positive.
+Definition ___compcert_i64_smod : ident := 72%positive.
+Definition ___compcert_i64_smulh : ident := 77%positive.
+Definition ___compcert_i64_stod : ident := 66%positive.
+Definition ___compcert_i64_stof : ident := 68%positive.
+Definition ___compcert_i64_udiv : ident := 71%positive.
+Definition ___compcert_i64_umod : ident := 73%positive.
+Definition ___compcert_i64_umulh : ident := 78%positive.
+Definition ___compcert_i64_utod : ident := 67%positive.
+Definition ___compcert_i64_utof : ident := 69%positive.
+Definition ___compcert_va_composite : ident := 63%positive.
+Definition ___compcert_va_float64 : ident := 62%positive.
+Definition ___compcert_va_int32 : ident := 60%positive.
+Definition ___compcert_va_int64 : ident := 61%positive.
Definition _data : ident := 2%positive.
Definition _elem : ident := 1%positive.
-Definition _exit : ident := 45%positive.
+Definition _exit : ident := 46%positive.
Definition _fifo : ident := 4%positive.
-Definition _fifo_empty : ident := 54%positive.
-Definition _fifo_get : ident := 55%positive.
-Definition _fifo_new : ident := 50%positive.
-Definition _fifo_put : ident := 53%positive.
-Definition _free : ident := 44%positive.
-Definition _h : ident := 51%positive.
+Definition _fifo_empty : ident := 55%positive.
+Definition _fifo_get : ident := 56%positive.
+Definition _fifo_new : ident := 51%positive.
+Definition _fifo_put : ident := 54%positive.
+Definition _free : ident := 45%positive.
+Definition _h : ident := 52%positive.
Definition _head : ident := 5%positive.
-Definition _i : ident := 57%positive.
-Definition _main : ident := 58%positive.
-Definition _make_elem : ident := 56%positive.
-Definition _malloc : ident := 43%positive.
-Definition _n : ident := 46%positive.
+Definition _i : ident := 58%positive.
+Definition _main : ident := 59%positive.
+Definition _make_elem : ident := 57%positive.
+Definition _malloc : ident := 44%positive.
+Definition _n : ident := 47%positive.
Definition _next : ident := 3%positive.
-Definition _p : ident := 47%positive.
-Definition _surely_malloc : ident := 48%positive.
-Definition _t : ident := 52%positive.
+Definition _p : ident := 48%positive.
+Definition _surely_malloc : ident := 49%positive.
+Definition _t : ident := 53%positive.
Definition _tail : ident := 6%positive.
-Definition _t'1 : ident := 78%positive.
-Definition _t'2 : ident := 79%positive.
-Definition _t'3 : ident := 80%positive.
-Definition _t'4 : ident := 81%positive.
+Definition _t'1 : ident := 79%positive.
+Definition _t'2 : ident := 80%positive.
+Definition _t'3 : ident := 81%positive.
+Definition _t'4 : ident := 82%positive.
Definition f_surely_malloc := {|
fn_return := (tptr tvoid);
@@ -111,12 +112,12 @@ Definition f_surely_malloc := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (tuint :: nil) (tptr tvoid) cc_default))
((Etempvar _n tuint) :: nil))
(Sset _p (Etempvar _t'1 (tptr tvoid))))
(Ssequence
(Sifthenelse (Eunop Onotbool (Etempvar _p (tptr tvoid)) tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Sreturn (Some (Etempvar _p (tptr tvoid))))))
@@ -133,8 +134,7 @@ Definition f_fifo_new := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _surely_malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid)
- cc_default))
+ (Evar _surely_malloc (Tfunction (tuint :: nil) (tptr tvoid) cc_default))
((Esizeof (Tstruct _fifo noattr) tuint) :: nil))
(Sset _Q
(Ecast (Etempvar _t'1 (tptr tvoid)) (tptr (Tstruct _fifo noattr)))))
@@ -258,8 +258,7 @@ Definition f_make_elem := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _surely_malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid)
- cc_default))
+ (Evar _surely_malloc (Tfunction (tuint :: nil) (tptr tvoid) cc_default))
((Esizeof (Tstruct _elem noattr) tuint) :: nil))
(Sset _p (Etempvar _t'1 (tptr tvoid))))
(Ssequence
@@ -286,46 +285,45 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _fifo_new (Tfunction Tnil (tptr (Tstruct _fifo noattr))
+ (Evar _fifo_new (Tfunction nil (tptr (Tstruct _fifo noattr))
cc_default)) nil)
(Sset _Q (Etempvar _t'1 (tptr (Tstruct _fifo noattr)))))
(Ssequence
(Ssequence
(Scall (Some _t'2)
- (Evar _make_elem (Tfunction (Tcons tint Tnil)
+ (Evar _make_elem (Tfunction (tint :: nil)
(tptr (Tstruct _elem noattr)) cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
(Sset _p (Etempvar _t'2 (tptr (Tstruct _elem noattr)))))
(Ssequence
(Scall None
(Evar _fifo_put (Tfunction
- (Tcons (tptr (Tstruct _fifo noattr))
- (Tcons (tptr (Tstruct _elem noattr)) Tnil))
- tvoid cc_default))
+ ((tptr (Tstruct _fifo noattr)) ::
+ (tptr (Tstruct _elem noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _Q (tptr (Tstruct _fifo noattr))) ::
(Etempvar _p (tptr (Tstruct _elem noattr))) :: nil))
(Ssequence
(Ssequence
(Scall (Some _t'3)
- (Evar _make_elem (Tfunction (Tcons tint Tnil)
+ (Evar _make_elem (Tfunction (tint :: nil)
(tptr (Tstruct _elem noattr)) cc_default))
((Econst_int (Int.repr 2) tint) :: nil))
(Sset _p (Etempvar _t'3 (tptr (Tstruct _elem noattr)))))
(Ssequence
(Scall None
(Evar _fifo_put (Tfunction
- (Tcons (tptr (Tstruct _fifo noattr))
- (Tcons (tptr (Tstruct _elem noattr)) Tnil))
- tvoid cc_default))
+ ((tptr (Tstruct _fifo noattr)) ::
+ (tptr (Tstruct _elem noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _Q (tptr (Tstruct _fifo noattr))) ::
(Etempvar _p (tptr (Tstruct _elem noattr))) :: nil))
(Ssequence
(Ssequence
(Scall (Some _t'4)
(Evar _fifo_get (Tfunction
- (Tcons (tptr (Tstruct _fifo noattr))
- Tnil) (tptr (Tstruct _elem noattr))
- cc_default))
+ ((tptr (Tstruct _fifo noattr)) :: nil)
+ (tptr (Tstruct _elem noattr)) cc_default))
((Etempvar _Q (tptr (Tstruct _fifo noattr))) :: nil))
(Sset _p (Etempvar _t'4 (tptr (Tstruct _elem noattr)))))
(Ssequence
@@ -335,7 +333,7 @@ Definition f_main := {|
(Tstruct _elem noattr)) _data tint))
(Ssequence
(Scall None
- (Evar _free (Tfunction (Tcons (tptr tvoid) Tnil) tvoid
+ (Evar _free (Tfunction ((tptr tvoid) :: nil) tvoid
cc_default))
((Etempvar _p (tptr (Tstruct _elem noattr))) :: nil))
(Sreturn (Some (Etempvar _i tint)))))))))))
@@ -355,272 +353,266 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
- (_malloc,
- Gfun(External EF_malloc (Tcons tuint Tnil) (tptr tvoid) cc_default)) ::
- (_free, Gfun(External EF_free (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (_malloc, Gfun(External EF_malloc (tuint :: nil) (tptr tvoid) cc_default)) ::
+ (_free, Gfun(External EF_free ((tptr tvoid) :: nil) tvoid cc_default)) ::
(_exit,
Gfun(External (EF_external "exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
(_surely_malloc, Gfun(Internal f_surely_malloc)) ::
(_fifo_new, Gfun(Internal f_fifo_new)) ::
(_fifo_put, Gfun(Internal f_fifo_put)) ::
@@ -644,13 +636,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/revarray.v b/progs/revarray.v
index ab3321a78d..b41cb2f857 100644
--- a/progs/revarray.v
+++ b/progs/revarray.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,71 +19,72 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 51%positive.
-Definition ___compcert_i64_dtou : ident := 52%positive.
-Definition ___compcert_i64_sar : ident := 63%positive.
-Definition ___compcert_i64_sdiv : ident := 57%positive.
-Definition ___compcert_i64_shl : ident := 61%positive.
-Definition ___compcert_i64_shr : ident := 62%positive.
-Definition ___compcert_i64_smod : ident := 59%positive.
-Definition ___compcert_i64_smulh : ident := 64%positive.
-Definition ___compcert_i64_stod : ident := 53%positive.
-Definition ___compcert_i64_stof : ident := 55%positive.
-Definition ___compcert_i64_udiv : ident := 58%positive.
-Definition ___compcert_i64_umod : ident := 60%positive.
-Definition ___compcert_i64_umulh : ident := 65%positive.
-Definition ___compcert_i64_utod : ident := 54%positive.
-Definition ___compcert_i64_utof : ident := 56%positive.
-Definition ___compcert_va_composite : ident := 50%positive.
-Definition ___compcert_va_float64 : ident := 49%positive.
-Definition ___compcert_va_int32 : ident := 47%positive.
-Definition ___compcert_va_int64 : ident := 48%positive.
-Definition _a : ident := 37%positive.
-Definition _four : ident := 44%positive.
-Definition _hi : ident := 40%positive.
-Definition _i : ident := 45%positive.
-Definition _lo : ident := 39%positive.
-Definition _main : ident := 46%positive.
-Definition _n : ident := 38%positive.
-Definition _reverse : ident := 43%positive.
-Definition _s : ident := 41%positive.
-Definition _t : ident := 42%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 52%positive.
+Definition ___compcert_i64_dtou : ident := 53%positive.
+Definition ___compcert_i64_sar : ident := 64%positive.
+Definition ___compcert_i64_sdiv : ident := 58%positive.
+Definition ___compcert_i64_shl : ident := 62%positive.
+Definition ___compcert_i64_shr : ident := 63%positive.
+Definition ___compcert_i64_smod : ident := 60%positive.
+Definition ___compcert_i64_smulh : ident := 65%positive.
+Definition ___compcert_i64_stod : ident := 54%positive.
+Definition ___compcert_i64_stof : ident := 56%positive.
+Definition ___compcert_i64_udiv : ident := 59%positive.
+Definition ___compcert_i64_umod : ident := 61%positive.
+Definition ___compcert_i64_umulh : ident := 66%positive.
+Definition ___compcert_i64_utod : ident := 55%positive.
+Definition ___compcert_i64_utof : ident := 57%positive.
+Definition ___compcert_va_composite : ident := 51%positive.
+Definition ___compcert_va_float64 : ident := 50%positive.
+Definition ___compcert_va_int32 : ident := 48%positive.
+Definition ___compcert_va_int64 : ident := 49%positive.
+Definition _a : ident := 38%positive.
+Definition _four : ident := 45%positive.
+Definition _hi : ident := 41%positive.
+Definition _i : ident := 46%positive.
+Definition _lo : ident := 40%positive.
+Definition _main : ident := 47%positive.
+Definition _n : ident := 39%positive.
+Definition _reverse : ident := 44%positive.
+Definition _s : ident := 42%positive.
+Definition _t : ident := 43%positive.
Definition f_reverse := {|
fn_return := tvoid;
@@ -150,12 +151,12 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall None
- (Evar _reverse (Tfunction (Tcons (tptr tint) (Tcons tint Tnil)) tvoid
+ (Evar _reverse (Tfunction ((tptr tint) :: tint :: nil) tvoid
cc_default))
((Evar _four (tarray tint 4)) :: (Econst_int (Int.repr 4) tint) :: nil))
(Ssequence
(Scall None
- (Evar _reverse (Tfunction (Tcons (tptr tint) (Tcons tint Tnil)) tvoid
+ (Evar _reverse (Tfunction ((tptr tint) :: tint :: nil) tvoid
cc_default))
((Evar _four (tarray tint 4)) :: (Econst_int (Int.repr 4) tint) ::
nil))
@@ -169,264 +170,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_reverse, Gfun(Internal f_reverse)) :: (_four, Gvar v_four) ::
(_main, Gfun(Internal f_main)) :: nil).
@@ -445,13 +441,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/reverse.v b/progs/reverse.v
index 6881535f54..97ef1b5e0e 100644
--- a/progs/reverse.v
+++ b/progs/reverse.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,77 +19,78 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 20%positive.
-Definition ___builtin_annot_intval : ident := 21%positive.
-Definition ___builtin_bswap : ident := 5%positive.
-Definition ___builtin_bswap16 : ident := 7%positive.
-Definition ___builtin_bswap32 : ident := 6%positive.
-Definition ___builtin_bswap64 : ident := 4%positive.
-Definition ___builtin_clz : ident := 8%positive.
-Definition ___builtin_clzl : ident := 9%positive.
-Definition ___builtin_clzll : ident := 10%positive.
-Definition ___builtin_ctz : ident := 11%positive.
-Definition ___builtin_ctzl : ident := 12%positive.
-Definition ___builtin_ctzll : ident := 13%positive.
-Definition ___builtin_debug : ident := 39%positive.
-Definition ___builtin_expect : ident := 28%positive.
-Definition ___builtin_fabs : ident := 14%positive.
-Definition ___builtin_fabsf : ident := 15%positive.
-Definition ___builtin_fmadd : ident := 31%positive.
-Definition ___builtin_fmax : ident := 29%positive.
-Definition ___builtin_fmin : ident := 30%positive.
-Definition ___builtin_fmsub : ident := 32%positive.
-Definition ___builtin_fnmadd : ident := 33%positive.
-Definition ___builtin_fnmsub : ident := 34%positive.
-Definition ___builtin_fsqrt : ident := 16%positive.
-Definition ___builtin_membar : ident := 22%positive.
-Definition ___builtin_memcpy_aligned : ident := 18%positive.
-Definition ___builtin_read16_reversed : ident := 35%positive.
-Definition ___builtin_read32_reversed : ident := 36%positive.
-Definition ___builtin_sel : ident := 19%positive.
-Definition ___builtin_sqrt : ident := 17%positive.
-Definition ___builtin_unreachable : ident := 27%positive.
-Definition ___builtin_va_arg : ident := 24%positive.
-Definition ___builtin_va_copy : ident := 25%positive.
-Definition ___builtin_va_end : ident := 26%positive.
-Definition ___builtin_va_start : ident := 23%positive.
-Definition ___builtin_write16_reversed : ident := 37%positive.
-Definition ___builtin_write32_reversed : ident := 38%positive.
-Definition ___compcert_i64_dtos : ident := 55%positive.
-Definition ___compcert_i64_dtou : ident := 56%positive.
-Definition ___compcert_i64_sar : ident := 67%positive.
-Definition ___compcert_i64_sdiv : ident := 61%positive.
-Definition ___compcert_i64_shl : ident := 65%positive.
-Definition ___compcert_i64_shr : ident := 66%positive.
-Definition ___compcert_i64_smod : ident := 63%positive.
-Definition ___compcert_i64_smulh : ident := 68%positive.
-Definition ___compcert_i64_stod : ident := 57%positive.
-Definition ___compcert_i64_stof : ident := 59%positive.
-Definition ___compcert_i64_udiv : ident := 62%positive.
-Definition ___compcert_i64_umod : ident := 64%positive.
-Definition ___compcert_i64_umulh : ident := 69%positive.
-Definition ___compcert_i64_utod : ident := 58%positive.
-Definition ___compcert_i64_utof : ident := 60%positive.
-Definition ___compcert_va_composite : ident := 54%positive.
-Definition ___compcert_va_float64 : ident := 53%positive.
-Definition ___compcert_va_int32 : ident := 51%positive.
-Definition ___compcert_va_int64 : ident := 52%positive.
-Definition _h : ident := 44%positive.
+Definition ___builtin_ais_annot : ident := 4%positive.
+Definition ___builtin_annot : ident := 21%positive.
+Definition ___builtin_annot_intval : ident := 22%positive.
+Definition ___builtin_bswap : ident := 6%positive.
+Definition ___builtin_bswap16 : ident := 8%positive.
+Definition ___builtin_bswap32 : ident := 7%positive.
+Definition ___builtin_bswap64 : ident := 5%positive.
+Definition ___builtin_clz : ident := 9%positive.
+Definition ___builtin_clzl : ident := 10%positive.
+Definition ___builtin_clzll : ident := 11%positive.
+Definition ___builtin_ctz : ident := 12%positive.
+Definition ___builtin_ctzl : ident := 13%positive.
+Definition ___builtin_ctzll : ident := 14%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 29%positive.
+Definition ___builtin_fabs : ident := 15%positive.
+Definition ___builtin_fabsf : ident := 16%positive.
+Definition ___builtin_fmadd : ident := 32%positive.
+Definition ___builtin_fmax : ident := 30%positive.
+Definition ___builtin_fmin : ident := 31%positive.
+Definition ___builtin_fmsub : ident := 33%positive.
+Definition ___builtin_fnmadd : ident := 34%positive.
+Definition ___builtin_fnmsub : ident := 35%positive.
+Definition ___builtin_fsqrt : ident := 17%positive.
+Definition ___builtin_membar : ident := 23%positive.
+Definition ___builtin_memcpy_aligned : ident := 19%positive.
+Definition ___builtin_read16_reversed : ident := 36%positive.
+Definition ___builtin_read32_reversed : ident := 37%positive.
+Definition ___builtin_sel : ident := 20%positive.
+Definition ___builtin_sqrt : ident := 18%positive.
+Definition ___builtin_unreachable : ident := 28%positive.
+Definition ___builtin_va_arg : ident := 25%positive.
+Definition ___builtin_va_copy : ident := 26%positive.
+Definition ___builtin_va_end : ident := 27%positive.
+Definition ___builtin_va_start : ident := 24%positive.
+Definition ___builtin_write16_reversed : ident := 38%positive.
+Definition ___builtin_write32_reversed : ident := 39%positive.
+Definition ___compcert_i64_dtos : ident := 56%positive.
+Definition ___compcert_i64_dtou : ident := 57%positive.
+Definition ___compcert_i64_sar : ident := 68%positive.
+Definition ___compcert_i64_sdiv : ident := 62%positive.
+Definition ___compcert_i64_shl : ident := 66%positive.
+Definition ___compcert_i64_shr : ident := 67%positive.
+Definition ___compcert_i64_smod : ident := 64%positive.
+Definition ___compcert_i64_smulh : ident := 69%positive.
+Definition ___compcert_i64_stod : ident := 58%positive.
+Definition ___compcert_i64_stof : ident := 60%positive.
+Definition ___compcert_i64_udiv : ident := 63%positive.
+Definition ___compcert_i64_umod : ident := 65%positive.
+Definition ___compcert_i64_umulh : ident := 70%positive.
+Definition ___compcert_i64_utod : ident := 59%positive.
+Definition ___compcert_i64_utof : ident := 61%positive.
+Definition ___compcert_va_composite : ident := 55%positive.
+Definition ___compcert_va_float64 : ident := 54%positive.
+Definition ___compcert_va_int32 : ident := 52%positive.
+Definition ___compcert_va_int64 : ident := 53%positive.
+Definition _h : ident := 45%positive.
Definition _head : ident := 2%positive.
Definition _list : ident := 1%positive.
-Definition _main : ident := 50%positive.
-Definition _p : ident := 41%positive.
-Definition _r : ident := 49%positive.
-Definition _reverse : ident := 48%positive.
-Definition _s : ident := 42%positive.
-Definition _sumlist : ident := 45%positive.
-Definition _t : ident := 43%positive.
+Definition _main : ident := 51%positive.
+Definition _p : ident := 42%positive.
+Definition _r : ident := 50%positive.
+Definition _reverse : ident := 49%positive.
+Definition _s : ident := 43%positive.
+Definition _sumlist : ident := 46%positive.
+Definition _t : ident := 44%positive.
Definition _tail : ident := 3%positive.
-Definition _three : ident := 40%positive.
-Definition _v : ident := 47%positive.
-Definition _w : ident := 46%positive.
-Definition _t'1 : ident := 70%positive.
-Definition _t'2 : ident := 71%positive.
+Definition _three : ident := 41%positive.
+Definition _v : ident := 48%positive.
+Definition _w : ident := 47%positive.
+Definition _t'1 : ident := 71%positive.
+Definition _t'2 : ident := 72%positive.
Definition v_three := {|
gvar_info := (tarray (Tstruct _list noattr) 3);
@@ -179,16 +180,15 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _reverse (Tfunction (Tcons (tptr (Tstruct _list noattr)) Tnil)
+ (Evar _reverse (Tfunction ((tptr (Tstruct _list noattr)) :: nil)
(tptr (Tstruct _list noattr)) cc_default))
((Evar _three (tarray (Tstruct _list noattr) 3)) :: nil))
(Sset _r (Etempvar _t'1 (tptr (Tstruct _list noattr)))))
(Ssequence
(Ssequence
(Scall (Some _t'2)
- (Evar _sumlist (Tfunction
- (Tcons (tptr (Tstruct _list noattr)) Tnil) tuint
- cc_default))
+ (Evar _sumlist (Tfunction ((tptr (Tstruct _list noattr)) :: nil)
+ tuint cc_default))
((Etempvar _r (tptr (Tstruct _list noattr))) :: nil))
(Sset _s (Etempvar _t'2 tuint)))
(Sreturn (Some (Ecast (Etempvar _s tuint) tint)))))
@@ -204,264 +204,259 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_three, Gvar v_three) :: (_sumlist, Gfun(Internal f_sumlist)) ::
(_reverse, Gfun(Internal f_reverse)) :: (_main, Gfun(Internal f_main)) ::
@@ -481,13 +476,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/reverse_client.v b/progs/reverse_client.v
index e56d2a32ba..bf2ef0e178 100644
--- a/progs/reverse_client.v
+++ b/progs/reverse_client.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,70 +19,71 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 20%positive.
-Definition ___builtin_annot_intval : ident := 21%positive.
-Definition ___builtin_bswap : ident := 5%positive.
-Definition ___builtin_bswap16 : ident := 7%positive.
-Definition ___builtin_bswap32 : ident := 6%positive.
-Definition ___builtin_bswap64 : ident := 4%positive.
-Definition ___builtin_clz : ident := 8%positive.
-Definition ___builtin_clzl : ident := 9%positive.
-Definition ___builtin_clzll : ident := 10%positive.
-Definition ___builtin_ctz : ident := 11%positive.
-Definition ___builtin_ctzl : ident := 12%positive.
-Definition ___builtin_ctzll : ident := 13%positive.
-Definition ___builtin_debug : ident := 39%positive.
-Definition ___builtin_expect : ident := 28%positive.
-Definition ___builtin_fabs : ident := 14%positive.
-Definition ___builtin_fabsf : ident := 15%positive.
-Definition ___builtin_fmadd : ident := 31%positive.
-Definition ___builtin_fmax : ident := 29%positive.
-Definition ___builtin_fmin : ident := 30%positive.
-Definition ___builtin_fmsub : ident := 32%positive.
-Definition ___builtin_fnmadd : ident := 33%positive.
-Definition ___builtin_fnmsub : ident := 34%positive.
-Definition ___builtin_fsqrt : ident := 16%positive.
-Definition ___builtin_membar : ident := 22%positive.
-Definition ___builtin_memcpy_aligned : ident := 18%positive.
-Definition ___builtin_read16_reversed : ident := 35%positive.
-Definition ___builtin_read32_reversed : ident := 36%positive.
-Definition ___builtin_sel : ident := 19%positive.
-Definition ___builtin_sqrt : ident := 17%positive.
-Definition ___builtin_unreachable : ident := 27%positive.
-Definition ___builtin_va_arg : ident := 24%positive.
-Definition ___builtin_va_copy : ident := 25%positive.
-Definition ___builtin_va_end : ident := 26%positive.
-Definition ___builtin_va_start : ident := 23%positive.
-Definition ___builtin_write16_reversed : ident := 37%positive.
-Definition ___builtin_write32_reversed : ident := 38%positive.
-Definition ___compcert_i64_dtos : ident := 49%positive.
-Definition ___compcert_i64_dtou : ident := 50%positive.
-Definition ___compcert_i64_sar : ident := 61%positive.
-Definition ___compcert_i64_sdiv : ident := 55%positive.
-Definition ___compcert_i64_shl : ident := 59%positive.
-Definition ___compcert_i64_shr : ident := 60%positive.
-Definition ___compcert_i64_smod : ident := 57%positive.
-Definition ___compcert_i64_smulh : ident := 62%positive.
-Definition ___compcert_i64_stod : ident := 51%positive.
-Definition ___compcert_i64_stof : ident := 53%positive.
-Definition ___compcert_i64_udiv : ident := 56%positive.
-Definition ___compcert_i64_umod : ident := 58%positive.
-Definition ___compcert_i64_umulh : ident := 63%positive.
-Definition ___compcert_i64_utod : ident := 52%positive.
-Definition ___compcert_i64_utof : ident := 54%positive.
-Definition ___compcert_va_composite : ident := 48%positive.
-Definition ___compcert_va_float64 : ident := 47%positive.
-Definition ___compcert_va_int32 : ident := 45%positive.
-Definition ___compcert_va_int64 : ident := 46%positive.
+Definition ___builtin_ais_annot : ident := 4%positive.
+Definition ___builtin_annot : ident := 21%positive.
+Definition ___builtin_annot_intval : ident := 22%positive.
+Definition ___builtin_bswap : ident := 6%positive.
+Definition ___builtin_bswap16 : ident := 8%positive.
+Definition ___builtin_bswap32 : ident := 7%positive.
+Definition ___builtin_bswap64 : ident := 5%positive.
+Definition ___builtin_clz : ident := 9%positive.
+Definition ___builtin_clzl : ident := 10%positive.
+Definition ___builtin_clzll : ident := 11%positive.
+Definition ___builtin_ctz : ident := 12%positive.
+Definition ___builtin_ctzl : ident := 13%positive.
+Definition ___builtin_ctzll : ident := 14%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 29%positive.
+Definition ___builtin_fabs : ident := 15%positive.
+Definition ___builtin_fabsf : ident := 16%positive.
+Definition ___builtin_fmadd : ident := 32%positive.
+Definition ___builtin_fmax : ident := 30%positive.
+Definition ___builtin_fmin : ident := 31%positive.
+Definition ___builtin_fmsub : ident := 33%positive.
+Definition ___builtin_fnmadd : ident := 34%positive.
+Definition ___builtin_fnmsub : ident := 35%positive.
+Definition ___builtin_fsqrt : ident := 17%positive.
+Definition ___builtin_membar : ident := 23%positive.
+Definition ___builtin_memcpy_aligned : ident := 19%positive.
+Definition ___builtin_read16_reversed : ident := 36%positive.
+Definition ___builtin_read32_reversed : ident := 37%positive.
+Definition ___builtin_sel : ident := 20%positive.
+Definition ___builtin_sqrt : ident := 18%positive.
+Definition ___builtin_unreachable : ident := 28%positive.
+Definition ___builtin_va_arg : ident := 25%positive.
+Definition ___builtin_va_copy : ident := 26%positive.
+Definition ___builtin_va_end : ident := 27%positive.
+Definition ___builtin_va_start : ident := 24%positive.
+Definition ___builtin_write16_reversed : ident := 38%positive.
+Definition ___builtin_write32_reversed : ident := 39%positive.
+Definition ___compcert_i64_dtos : ident := 50%positive.
+Definition ___compcert_i64_dtou : ident := 51%positive.
+Definition ___compcert_i64_sar : ident := 62%positive.
+Definition ___compcert_i64_sdiv : ident := 56%positive.
+Definition ___compcert_i64_shl : ident := 60%positive.
+Definition ___compcert_i64_shr : ident := 61%positive.
+Definition ___compcert_i64_smod : ident := 58%positive.
+Definition ___compcert_i64_smulh : ident := 63%positive.
+Definition ___compcert_i64_stod : ident := 52%positive.
+Definition ___compcert_i64_stof : ident := 54%positive.
+Definition ___compcert_i64_udiv : ident := 57%positive.
+Definition ___compcert_i64_umod : ident := 59%positive.
+Definition ___compcert_i64_umulh : ident := 64%positive.
+Definition ___compcert_i64_utod : ident := 53%positive.
+Definition ___compcert_i64_utof : ident := 55%positive.
+Definition ___compcert_va_composite : ident := 49%positive.
+Definition ___compcert_va_float64 : ident := 48%positive.
+Definition ___compcert_va_int32 : ident := 46%positive.
+Definition ___compcert_va_int64 : ident := 47%positive.
Definition _head : ident := 2%positive.
-Definition _last_foo : ident := 43%positive.
+Definition _last_foo : ident := 44%positive.
Definition _list : ident := 1%positive.
-Definition _main : ident := 44%positive.
-Definition _p : ident := 41%positive.
-Definition _res : ident := 42%positive.
-Definition _reverse : ident := 40%positive.
+Definition _main : ident := 45%positive.
+Definition _p : ident := 42%positive.
+Definition _res : ident := 43%positive.
+Definition _reverse : ident := 41%positive.
Definition _tail : ident := 3%positive.
-Definition _t'1 : ident := 64%positive.
+Definition _t'1 : ident := 65%positive.
Definition f_last_foo := {|
fn_return := tuint;
@@ -94,7 +95,7 @@ Definition f_last_foo := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _reverse (Tfunction (Tcons (tptr (Tstruct _list noattr)) Tnil)
+ (Evar _reverse (Tfunction ((tptr (Tstruct _list noattr)) :: nil)
(tptr (Tstruct _list noattr)) cc_default))
((Etempvar _p (tptr (Tstruct _list noattr))) :: nil))
(Sset _p (Etempvar _t'1 (tptr (Tstruct _list noattr)))))
@@ -125,269 +126,264 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_reverse,
Gfun(External (EF_external "reverse"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr (Tstruct _list noattr)) Tnil) (tptr (Tstruct _list noattr))
+ (mksignature (AST.Xptr :: nil) AST.Xptr cc_default))
+ ((tptr (Tstruct _list noattr)) :: nil) (tptr (Tstruct _list noattr))
cc_default)) :: (_last_foo, Gfun(Internal f_last_foo)) ::
(_main, Gfun(Internal f_main)) :: nil).
@@ -405,13 +401,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/rotate.v b/progs/rotate.v
index 28fdb1bf29..c8c4a3f28d 100644
--- a/progs/rotate.v
+++ b/progs/rotate.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,79 +19,80 @@ Module Info.
Definition normalized := true.
End Info.
-Definition _N : ident := 48%positive.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 54%positive.
-Definition ___compcert_i64_dtou : ident := 55%positive.
-Definition ___compcert_i64_sar : ident := 66%positive.
-Definition ___compcert_i64_sdiv : ident := 60%positive.
-Definition ___compcert_i64_shl : ident := 64%positive.
-Definition ___compcert_i64_shr : ident := 65%positive.
-Definition ___compcert_i64_smod : ident := 62%positive.
-Definition ___compcert_i64_smulh : ident := 67%positive.
-Definition ___compcert_i64_stod : ident := 56%positive.
-Definition ___compcert_i64_stof : ident := 58%positive.
-Definition ___compcert_i64_udiv : ident := 61%positive.
-Definition ___compcert_i64_umod : ident := 63%positive.
-Definition ___compcert_i64_umulh : ident := 68%positive.
-Definition ___compcert_i64_utod : ident := 57%positive.
-Definition ___compcert_i64_utof : ident := 59%positive.
-Definition ___compcert_va_composite : ident := 53%positive.
-Definition ___compcert_va_float64 : ident := 52%positive.
-Definition ___compcert_va_int32 : ident := 50%positive.
-Definition ___compcert_va_int64 : ident := 51%positive.
-Definition _a : ident := 40%positive.
-Definition _b : ident := 43%positive.
-Definition _exit : ident := 39%positive.
-Definition _free : ident := 38%positive.
-Definition _i : ident := 44%positive.
-Definition _i__1 : ident := 45%positive.
-Definition _i__2 : ident := 46%positive.
-Definition _k : ident := 42%positive.
-Definition _main : ident := 69%positive.
-Definition _malloc : ident := 37%positive.
-Definition _n : ident := 41%positive.
-Definition _rotate : ident := 47%positive.
-Definition _sorted_rotate : ident := 49%positive.
-Definition _t'1 : ident := 70%positive.
-Definition _t'2 : ident := 71%positive.
-Definition _t'3 : ident := 72%positive.
-Definition _t'4 : ident := 73%positive.
+Definition _N : ident := 49%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 55%positive.
+Definition ___compcert_i64_dtou : ident := 56%positive.
+Definition ___compcert_i64_sar : ident := 67%positive.
+Definition ___compcert_i64_sdiv : ident := 61%positive.
+Definition ___compcert_i64_shl : ident := 65%positive.
+Definition ___compcert_i64_shr : ident := 66%positive.
+Definition ___compcert_i64_smod : ident := 63%positive.
+Definition ___compcert_i64_smulh : ident := 68%positive.
+Definition ___compcert_i64_stod : ident := 57%positive.
+Definition ___compcert_i64_stof : ident := 59%positive.
+Definition ___compcert_i64_udiv : ident := 62%positive.
+Definition ___compcert_i64_umod : ident := 64%positive.
+Definition ___compcert_i64_umulh : ident := 69%positive.
+Definition ___compcert_i64_utod : ident := 58%positive.
+Definition ___compcert_i64_utof : ident := 60%positive.
+Definition ___compcert_va_composite : ident := 54%positive.
+Definition ___compcert_va_float64 : ident := 53%positive.
+Definition ___compcert_va_int32 : ident := 51%positive.
+Definition ___compcert_va_int64 : ident := 52%positive.
+Definition _a : ident := 41%positive.
+Definition _b : ident := 44%positive.
+Definition _exit : ident := 40%positive.
+Definition _free : ident := 39%positive.
+Definition _i : ident := 45%positive.
+Definition _i__1 : ident := 46%positive.
+Definition _i__2 : ident := 47%positive.
+Definition _k : ident := 43%positive.
+Definition _main : ident := 70%positive.
+Definition _malloc : ident := 38%positive.
+Definition _n : ident := 42%positive.
+Definition _rotate : ident := 48%positive.
+Definition _sorted_rotate : ident := 50%positive.
+Definition _t'1 : ident := 71%positive.
+Definition _t'2 : ident := 72%positive.
+Definition _t'3 : ident := 73%positive.
+Definition _t'4 : ident := 74%positive.
Definition f_rotate := {|
fn_return := tvoid;
@@ -105,12 +106,12 @@ Definition f_rotate := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tuint Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (tuint :: nil) (tptr tvoid) cc_default))
((Ebinop Omul (Esizeof tint tuint) (Etempvar _n tint) tuint) :: nil))
(Sset _b (Etempvar _t'1 (tptr tvoid))))
(Ssequence
(Sifthenelse (Eunop Onotbool (Etempvar _b (tptr tint)) tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Eunop Oneg (Econst_int (Int.repr 1) tint) tint) :: nil))
Sskip)
(Ssequence
@@ -184,8 +185,8 @@ Definition f_rotate := {|
(Ebinop Oadd (Etempvar _i__2 tint)
(Econst_int (Int.repr 1) tint) tint))))
(Scall None
- (Evar _free (Tfunction (Tcons (tptr tvoid) Tnil) tvoid
- cc_default)) ((Etempvar _b (tptr tint)) :: nil)))))))
+ (Evar _free (Tfunction ((tptr tvoid) :: nil) tvoid cc_default))
+ ((Etempvar _b (tptr tint)) :: nil)))))))
|}.
Definition f_sorted_rotate := {|
@@ -198,8 +199,7 @@ Definition f_sorted_rotate := {|
fn_body :=
(Ssequence
(Scall None
- (Evar _rotate (Tfunction
- (Tcons (tptr tint) (Tcons tint (Tcons tint Tnil))) tvoid
+ (Evar _rotate (Tfunction ((tptr tint) :: tint :: tint :: nil) tvoid
cc_default))
((Etempvar _a (tptr tint)) :: (Etempvar _n tint) :: (Etempvar _k tint) ::
nil))
@@ -230,272 +230,266 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
- (_malloc,
- Gfun(External EF_malloc (Tcons tuint Tnil) (tptr tvoid) cc_default)) ::
- (_free, Gfun(External EF_free (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (_malloc, Gfun(External EF_malloc (tuint :: nil) (tptr tvoid) cc_default)) ::
+ (_free, Gfun(External EF_free ((tptr tvoid) :: nil) tvoid cc_default)) ::
(_exit,
Gfun(External (EF_external "exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
(_rotate, Gfun(Internal f_rotate)) ::
(_sorted_rotate, Gfun(Internal f_sorted_rotate)) :: nil).
@@ -513,12 +507,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/stackframe_demo.v b/progs/stackframe_demo.v
index f5e1e30439..207bf577ce 100644
--- a/progs/stackframe_demo.v
+++ b/progs/stackframe_demo.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,67 +19,68 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 46%positive.
-Definition ___compcert_i64_dtou : ident := 47%positive.
-Definition ___compcert_i64_sar : ident := 58%positive.
-Definition ___compcert_i64_sdiv : ident := 52%positive.
-Definition ___compcert_i64_shl : ident := 56%positive.
-Definition ___compcert_i64_shr : ident := 57%positive.
-Definition ___compcert_i64_smod : ident := 54%positive.
-Definition ___compcert_i64_smulh : ident := 59%positive.
-Definition ___compcert_i64_stod : ident := 48%positive.
-Definition ___compcert_i64_stof : ident := 50%positive.
-Definition ___compcert_i64_udiv : ident := 53%positive.
-Definition ___compcert_i64_umod : ident := 55%positive.
-Definition ___compcert_i64_umulh : ident := 60%positive.
-Definition ___compcert_i64_utod : ident := 49%positive.
-Definition ___compcert_i64_utof : ident := 51%positive.
-Definition ___compcert_va_composite : ident := 45%positive.
-Definition ___compcert_va_float64 : ident := 44%positive.
-Definition ___compcert_va_int32 : ident := 42%positive.
-Definition ___compcert_va_int64 : ident := 43%positive.
-Definition _iden : ident := 40%positive.
-Definition _main : ident := 41%positive.
-Definition _p : ident := 39%positive.
-Definition _x : ident := 37%positive.
-Definition _y : ident := 38%positive.
-Definition _t'1 : ident := 61%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 47%positive.
+Definition ___compcert_i64_dtou : ident := 48%positive.
+Definition ___compcert_i64_sar : ident := 59%positive.
+Definition ___compcert_i64_sdiv : ident := 53%positive.
+Definition ___compcert_i64_shl : ident := 57%positive.
+Definition ___compcert_i64_shr : ident := 58%positive.
+Definition ___compcert_i64_smod : ident := 55%positive.
+Definition ___compcert_i64_smulh : ident := 60%positive.
+Definition ___compcert_i64_stod : ident := 49%positive.
+Definition ___compcert_i64_stof : ident := 51%positive.
+Definition ___compcert_i64_udiv : ident := 54%positive.
+Definition ___compcert_i64_umod : ident := 56%positive.
+Definition ___compcert_i64_umulh : ident := 61%positive.
+Definition ___compcert_i64_utod : ident := 50%positive.
+Definition ___compcert_i64_utof : ident := 52%positive.
+Definition ___compcert_va_composite : ident := 46%positive.
+Definition ___compcert_va_float64 : ident := 45%positive.
+Definition ___compcert_va_int32 : ident := 43%positive.
+Definition ___compcert_va_int64 : ident := 44%positive.
+Definition _iden : ident := 41%positive.
+Definition _main : ident := 42%positive.
+Definition _p : ident := 40%positive.
+Definition _x : ident := 38%positive.
+Definition _y : ident := 39%positive.
+Definition _t'1 : ident := 62%positive.
Definition f_iden := {|
fn_return := tint;
@@ -113,264 +114,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_iden, Gfun(Internal f_iden)) :: (_main, Gfun(Internal f_main)) :: nil).
@@ -387,12 +383,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/store_demo.v b/progs/store_demo.v
index 06a7c596c4..4a8b56acbb 100644
--- a/progs/store_demo.v
+++ b/progs/store_demo.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,80 +19,81 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 42%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
-Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
-Definition ___builtin_fmsub : ident := 35%positive.
-Definition ___builtin_fnmadd : ident := 36%positive.
-Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 39%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 40%positive.
-Definition ___builtin_write32_reversed : ident := 41%positive.
-Definition ___compcert_i64_dtos : ident := 60%positive.
-Definition ___compcert_i64_dtou : ident := 61%positive.
-Definition ___compcert_i64_sar : ident := 72%positive.
-Definition ___compcert_i64_sdiv : ident := 66%positive.
-Definition ___compcert_i64_shl : ident := 70%positive.
-Definition ___compcert_i64_shr : ident := 71%positive.
-Definition ___compcert_i64_smod : ident := 68%positive.
-Definition ___compcert_i64_smulh : ident := 73%positive.
-Definition ___compcert_i64_stod : ident := 62%positive.
-Definition ___compcert_i64_stof : ident := 64%positive.
-Definition ___compcert_i64_udiv : ident := 67%positive.
-Definition ___compcert_i64_umod : ident := 69%positive.
-Definition ___compcert_i64_umulh : ident := 74%positive.
-Definition ___compcert_i64_utod : ident := 63%positive.
-Definition ___compcert_i64_utof : ident := 65%positive.
-Definition ___compcert_va_composite : ident := 59%positive.
-Definition ___compcert_va_float64 : ident := 58%positive.
-Definition ___compcert_va_int32 : ident := 56%positive.
-Definition ___compcert_va_int64 : ident := 57%positive.
-Definition _fiddle : ident := 48%positive.
+Definition ___builtin_ais_annot : ident := 7%positive.
+Definition ___builtin_annot : ident := 24%positive.
+Definition ___builtin_annot_intval : ident := 25%positive.
+Definition ___builtin_bswap : ident := 9%positive.
+Definition ___builtin_bswap16 : ident := 11%positive.
+Definition ___builtin_bswap32 : ident := 10%positive.
+Definition ___builtin_bswap64 : ident := 8%positive.
+Definition ___builtin_clz : ident := 12%positive.
+Definition ___builtin_clzl : ident := 13%positive.
+Definition ___builtin_clzll : ident := 14%positive.
+Definition ___builtin_ctz : ident := 15%positive.
+Definition ___builtin_ctzl : ident := 16%positive.
+Definition ___builtin_ctzll : ident := 17%positive.
+Definition ___builtin_debug : ident := 43%positive.
+Definition ___builtin_expect : ident := 32%positive.
+Definition ___builtin_fabs : ident := 18%positive.
+Definition ___builtin_fabsf : ident := 19%positive.
+Definition ___builtin_fmadd : ident := 35%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 36%positive.
+Definition ___builtin_fnmadd : ident := 37%positive.
+Definition ___builtin_fnmsub : ident := 38%positive.
+Definition ___builtin_fsqrt : ident := 20%positive.
+Definition ___builtin_membar : ident := 26%positive.
+Definition ___builtin_memcpy_aligned : ident := 22%positive.
+Definition ___builtin_read16_reversed : ident := 39%positive.
+Definition ___builtin_read32_reversed : ident := 40%positive.
+Definition ___builtin_sel : ident := 23%positive.
+Definition ___builtin_sqrt : ident := 21%positive.
+Definition ___builtin_unreachable : ident := 31%positive.
+Definition ___builtin_va_arg : ident := 28%positive.
+Definition ___builtin_va_copy : ident := 29%positive.
+Definition ___builtin_va_end : ident := 30%positive.
+Definition ___builtin_va_start : ident := 27%positive.
+Definition ___builtin_write16_reversed : ident := 41%positive.
+Definition ___builtin_write32_reversed : ident := 42%positive.
+Definition ___compcert_i64_dtos : ident := 61%positive.
+Definition ___compcert_i64_dtou : ident := 62%positive.
+Definition ___compcert_i64_sar : ident := 73%positive.
+Definition ___compcert_i64_sdiv : ident := 67%positive.
+Definition ___compcert_i64_shl : ident := 71%positive.
+Definition ___compcert_i64_shr : ident := 72%positive.
+Definition ___compcert_i64_smod : ident := 69%positive.
+Definition ___compcert_i64_smulh : ident := 74%positive.
+Definition ___compcert_i64_stod : ident := 63%positive.
+Definition ___compcert_i64_stof : ident := 65%positive.
+Definition ___compcert_i64_udiv : ident := 68%positive.
+Definition ___compcert_i64_umod : ident := 70%positive.
+Definition ___compcert_i64_umulh : ident := 75%positive.
+Definition ___compcert_i64_utod : ident := 64%positive.
+Definition ___compcert_i64_utof : ident := 66%positive.
+Definition ___compcert_va_composite : ident := 60%positive.
+Definition ___compcert_va_float64 : ident := 59%positive.
+Definition ___compcert_va_int32 : ident := 57%positive.
+Definition ___compcert_va_int64 : ident := 58%positive.
+Definition _fiddle : ident := 49%positive.
Definition _fst : ident := 2%positive.
-Definition _i : ident := 44%positive.
+Definition _i : ident := 45%positive.
Definition _int_pair : ident := 1%positive.
Definition _left : ident := 5%positive.
-Definition _main : ident := 55%positive.
-Definition _obj : ident := 52%positive.
-Definition _onetwo : ident := 49%positive.
-Definition _p : ident := 46%positive.
+Definition _main : ident := 56%positive.
+Definition _obj : ident := 53%positive.
+Definition _onetwo : ident := 50%positive.
+Definition _p : ident := 47%positive.
Definition _pair_pair : ident := 4%positive.
-Definition _pp : ident := 51%positive.
-Definition _pps : ident := 43%positive.
-Definition _res1 : ident := 53%positive.
-Definition _res2 : ident := 54%positive.
+Definition _pp : ident := 52%positive.
+Definition _pps : ident := 44%positive.
+Definition _res1 : ident := 54%positive.
+Definition _res2 : ident := 55%positive.
Definition _right : ident := 6%positive.
-Definition _set22 : ident := 47%positive.
+Definition _set22 : ident := 48%positive.
Definition _snd : ident := 3%positive.
-Definition _threefour : ident := 50%positive.
-Definition _v : ident := 45%positive.
+Definition _threefour : ident := 51%positive.
+Definition _v : ident := 46%positive.
Definition f_set22 := {|
fn_return := tvoid;
@@ -211,18 +212,16 @@ Definition f_main := {|
(Ssequence
(Scall None
(Evar _set22 (Tfunction
- (Tcons
- (tptr (Tstruct _pair_pair noattr))
- (Tcons tint (Tcons tint Tnil)))
- tvoid cc_default))
+ ((tptr (Tstruct _pair_pair noattr)) ::
+ tint :: tint :: nil) tvoid
+ cc_default))
((Evar _pps (tarray (Tstruct _pair_pair noattr) 1)) ::
(Econst_int (Int.repr 0) tint) ::
(Econst_int (Int.repr 4) tint) :: nil))
(Ssequence
(Scall None
- (Evar _fiddle (Tfunction
- (Tcons (tptr tuint) Tnil) tvoid
- cc_default))
+ (Evar _fiddle (Tfunction ((tptr tuint) :: nil)
+ tvoid cc_default))
((Etempvar _p (tptr tuint)) :: nil))
(Ssequence
(Sset _res1
@@ -259,264 +258,259 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_set22, Gfun(Internal f_set22)) :: (_fiddle, Gfun(Internal f_fiddle)) ::
(_main, Gfun(Internal f_main)) :: nil).
@@ -535,13 +529,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/string.v b/progs/string.v
index 94389ce07e..e95dfaee40 100644
--- a/progs/string.v
+++ b/progs/string.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,76 +19,77 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 50%positive.
-Definition ___compcert_i64_dtou : ident := 51%positive.
-Definition ___compcert_i64_sar : ident := 62%positive.
-Definition ___compcert_i64_sdiv : ident := 56%positive.
-Definition ___compcert_i64_shl : ident := 60%positive.
-Definition ___compcert_i64_shr : ident := 61%positive.
-Definition ___compcert_i64_smod : ident := 58%positive.
-Definition ___compcert_i64_smulh : ident := 63%positive.
-Definition ___compcert_i64_stod : ident := 52%positive.
-Definition ___compcert_i64_stof : ident := 54%positive.
-Definition ___compcert_i64_udiv : ident := 57%positive.
-Definition ___compcert_i64_umod : ident := 59%positive.
-Definition ___compcert_i64_umulh : ident := 64%positive.
-Definition ___compcert_i64_utod : ident := 53%positive.
-Definition ___compcert_i64_utof : ident := 55%positive.
-Definition ___compcert_va_composite : ident := 49%positive.
-Definition ___compcert_va_float64 : ident := 48%positive.
-Definition ___compcert_va_int32 : ident := 46%positive.
-Definition ___compcert_va_int64 : ident := 47%positive.
-Definition _i : ident := 42%positive.
-Definition _j : ident := 43%positive.
-Definition _main : ident := 65%positive.
-Definition _mallocN : ident := 37%positive.
-Definition _n1 : ident := 40%positive.
-Definition _n2 : ident := 41%positive.
-Definition _next : ident := 44%positive.
-Definition _s1 : ident := 38%positive.
-Definition _s2 : ident := 39%positive.
-Definition _strcspn_kmp : ident := 45%positive.
-Definition _t'1 : ident := 66%positive.
-Definition _t'2 : ident := 67%positive.
-Definition _t'3 : ident := 68%positive.
-Definition _t'4 : ident := 69%positive.
-Definition _t'5 : ident := 70%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 51%positive.
+Definition ___compcert_i64_dtou : ident := 52%positive.
+Definition ___compcert_i64_sar : ident := 63%positive.
+Definition ___compcert_i64_sdiv : ident := 57%positive.
+Definition ___compcert_i64_shl : ident := 61%positive.
+Definition ___compcert_i64_shr : ident := 62%positive.
+Definition ___compcert_i64_smod : ident := 59%positive.
+Definition ___compcert_i64_smulh : ident := 64%positive.
+Definition ___compcert_i64_stod : ident := 53%positive.
+Definition ___compcert_i64_stof : ident := 55%positive.
+Definition ___compcert_i64_udiv : ident := 58%positive.
+Definition ___compcert_i64_umod : ident := 60%positive.
+Definition ___compcert_i64_umulh : ident := 65%positive.
+Definition ___compcert_i64_utod : ident := 54%positive.
+Definition ___compcert_i64_utof : ident := 56%positive.
+Definition ___compcert_va_composite : ident := 50%positive.
+Definition ___compcert_va_float64 : ident := 49%positive.
+Definition ___compcert_va_int32 : ident := 47%positive.
+Definition ___compcert_va_int64 : ident := 48%positive.
+Definition _i : ident := 43%positive.
+Definition _j : ident := 44%positive.
+Definition _main : ident := 66%positive.
+Definition _mallocN : ident := 38%positive.
+Definition _n1 : ident := 41%positive.
+Definition _n2 : ident := 42%positive.
+Definition _next : ident := 45%positive.
+Definition _s1 : ident := 39%positive.
+Definition _s2 : ident := 40%positive.
+Definition _strcspn_kmp : ident := 46%positive.
+Definition _t'1 : ident := 67%positive.
+Definition _t'2 : ident := 68%positive.
+Definition _t'3 : ident := 69%positive.
+Definition _t'4 : ident := 70%positive.
+Definition _t'5 : ident := 71%positive.
Definition f_strcspn_kmp := {|
fn_return := tint;
@@ -103,7 +104,7 @@ Definition f_strcspn_kmp := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _mallocN (Tfunction (Tcons tint Tnil) (tptr tvoid) cc_default))
+ (Evar _mallocN (Tfunction (tint :: nil) (tptr tvoid) cc_default))
((Ebinop Omul (Etempvar _n2 tint) (Esizeof tint tuint) tuint) :: nil))
(Sset _next (Ecast (Etempvar _t'1 (tptr tvoid)) (tptr tint))))
(Ssequence
@@ -227,269 +228,264 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_mallocN,
Gfun(External (EF_external "mallocN"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tint Tnil) (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xptr cc_default))
+ (tint :: nil) (tptr tvoid) cc_default)) ::
(_strcspn_kmp, Gfun(Internal f_strcspn_kmp)) :: nil).
Definition public_idents : list ident :=
@@ -506,13 +502,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/strlib.v b/progs/strlib.v
index a4946be4e0..2301f44ccf 100644
--- a/progs/strlib.v
+++ b/progs/strlib.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,81 +19,82 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 57%positive.
-Definition ___compcert_i64_dtou : ident := 58%positive.
-Definition ___compcert_i64_sar : ident := 69%positive.
-Definition ___compcert_i64_sdiv : ident := 63%positive.
-Definition ___compcert_i64_shl : ident := 67%positive.
-Definition ___compcert_i64_shr : ident := 68%positive.
-Definition ___compcert_i64_smod : ident := 65%positive.
-Definition ___compcert_i64_smulh : ident := 70%positive.
-Definition ___compcert_i64_stod : ident := 59%positive.
-Definition ___compcert_i64_stof : ident := 61%positive.
-Definition ___compcert_i64_udiv : ident := 64%positive.
-Definition ___compcert_i64_umod : ident := 66%positive.
-Definition ___compcert_i64_umulh : ident := 71%positive.
-Definition ___compcert_i64_utod : ident := 60%positive.
-Definition ___compcert_i64_utof : ident := 62%positive.
-Definition ___compcert_va_composite : ident := 56%positive.
-Definition ___compcert_va_float64 : ident := 55%positive.
-Definition ___compcert_va_int32 : ident := 53%positive.
-Definition ___compcert_va_int64 : ident := 54%positive.
-Definition _c : ident := 38%positive.
-Definition _d : ident := 40%positive.
-Definition _d1 : ident := 49%positive.
-Definition _d2 : ident := 50%positive.
-Definition _dest : ident := 42%positive.
-Definition _i : ident := 39%positive.
-Definition _j : ident := 45%positive.
-Definition _main : ident := 72%positive.
-Definition _src : ident := 43%positive.
-Definition _str : ident := 37%positive.
-Definition _str1 : ident := 47%positive.
-Definition _str2 : ident := 48%positive.
-Definition _strcat : ident := 46%positive.
-Definition _strchr : ident := 41%positive.
-Definition _strcmp : ident := 51%positive.
-Definition _strcpy : ident := 44%positive.
-Definition _strlen : ident := 52%positive.
-Definition _t'1 : ident := 73%positive.
-Definition _t'2 : ident := 74%positive.
-Definition _t'3 : ident := 75%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 58%positive.
+Definition ___compcert_i64_dtou : ident := 59%positive.
+Definition ___compcert_i64_sar : ident := 70%positive.
+Definition ___compcert_i64_sdiv : ident := 64%positive.
+Definition ___compcert_i64_shl : ident := 68%positive.
+Definition ___compcert_i64_shr : ident := 69%positive.
+Definition ___compcert_i64_smod : ident := 66%positive.
+Definition ___compcert_i64_smulh : ident := 71%positive.
+Definition ___compcert_i64_stod : ident := 60%positive.
+Definition ___compcert_i64_stof : ident := 62%positive.
+Definition ___compcert_i64_udiv : ident := 65%positive.
+Definition ___compcert_i64_umod : ident := 67%positive.
+Definition ___compcert_i64_umulh : ident := 72%positive.
+Definition ___compcert_i64_utod : ident := 61%positive.
+Definition ___compcert_i64_utof : ident := 63%positive.
+Definition ___compcert_va_composite : ident := 57%positive.
+Definition ___compcert_va_float64 : ident := 56%positive.
+Definition ___compcert_va_int32 : ident := 54%positive.
+Definition ___compcert_va_int64 : ident := 55%positive.
+Definition _c : ident := 39%positive.
+Definition _d : ident := 41%positive.
+Definition _d1 : ident := 50%positive.
+Definition _d2 : ident := 51%positive.
+Definition _dest : ident := 43%positive.
+Definition _i : ident := 40%positive.
+Definition _j : ident := 46%positive.
+Definition _main : ident := 73%positive.
+Definition _src : ident := 44%positive.
+Definition _str : ident := 38%positive.
+Definition _str1 : ident := 48%positive.
+Definition _str2 : ident := 49%positive.
+Definition _strcat : ident := 47%positive.
+Definition _strchr : ident := 42%positive.
+Definition _strcmp : ident := 52%positive.
+Definition _strcpy : ident := 45%positive.
+Definition _strlen : ident := 53%positive.
+Definition _t'1 : ident := 74%positive.
+Definition _t'2 : ident := 75%positive.
+Definition _t'3 : ident := 76%positive.
Definition f_strchr := {|
fn_return := (tptr tschar);
@@ -295,264 +296,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_strchr, Gfun(Internal f_strchr)) :: (_strcpy, Gfun(Internal f_strcpy)) ::
(_strcat, Gfun(Internal f_strcat)) :: (_strcmp, Gfun(Internal f_strcmp)) ::
@@ -572,13 +568,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/structcopy.v b/progs/structcopy.v
index bb5ab63305..6db2b92d2a 100644
--- a/progs/structcopy.v
+++ b/progs/structcopy.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,70 +19,71 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 20%positive.
-Definition ___builtin_annot_intval : ident := 21%positive.
-Definition ___builtin_bswap : ident := 5%positive.
-Definition ___builtin_bswap16 : ident := 7%positive.
-Definition ___builtin_bswap32 : ident := 6%positive.
-Definition ___builtin_bswap64 : ident := 4%positive.
-Definition ___builtin_clz : ident := 8%positive.
-Definition ___builtin_clzl : ident := 9%positive.
-Definition ___builtin_clzll : ident := 10%positive.
-Definition ___builtin_ctz : ident := 11%positive.
-Definition ___builtin_ctzl : ident := 12%positive.
-Definition ___builtin_ctzll : ident := 13%positive.
-Definition ___builtin_debug : ident := 39%positive.
-Definition ___builtin_expect : ident := 28%positive.
-Definition ___builtin_fabs : ident := 14%positive.
-Definition ___builtin_fabsf : ident := 15%positive.
-Definition ___builtin_fmadd : ident := 31%positive.
-Definition ___builtin_fmax : ident := 29%positive.
-Definition ___builtin_fmin : ident := 30%positive.
-Definition ___builtin_fmsub : ident := 32%positive.
-Definition ___builtin_fnmadd : ident := 33%positive.
-Definition ___builtin_fnmsub : ident := 34%positive.
-Definition ___builtin_fsqrt : ident := 16%positive.
-Definition ___builtin_membar : ident := 22%positive.
-Definition ___builtin_memcpy_aligned : ident := 18%positive.
-Definition ___builtin_read16_reversed : ident := 35%positive.
-Definition ___builtin_read32_reversed : ident := 36%positive.
-Definition ___builtin_sel : ident := 19%positive.
-Definition ___builtin_sqrt : ident := 17%positive.
-Definition ___builtin_unreachable : ident := 27%positive.
-Definition ___builtin_va_arg : ident := 24%positive.
-Definition ___builtin_va_copy : ident := 25%positive.
-Definition ___builtin_va_end : ident := 26%positive.
-Definition ___builtin_va_start : ident := 23%positive.
-Definition ___builtin_write16_reversed : ident := 37%positive.
-Definition ___builtin_write32_reversed : ident := 38%positive.
-Definition ___compcert_i64_dtos : ident := 47%positive.
-Definition ___compcert_i64_dtou : ident := 48%positive.
-Definition ___compcert_i64_sar : ident := 59%positive.
-Definition ___compcert_i64_sdiv : ident := 53%positive.
-Definition ___compcert_i64_shl : ident := 57%positive.
-Definition ___compcert_i64_shr : ident := 58%positive.
-Definition ___compcert_i64_smod : ident := 55%positive.
-Definition ___compcert_i64_smulh : ident := 60%positive.
-Definition ___compcert_i64_stod : ident := 49%positive.
-Definition ___compcert_i64_stof : ident := 51%positive.
-Definition ___compcert_i64_udiv : ident := 54%positive.
-Definition ___compcert_i64_umod : ident := 56%positive.
-Definition ___compcert_i64_umulh : ident := 61%positive.
-Definition ___compcert_i64_utod : ident := 50%positive.
-Definition ___compcert_i64_utof : ident := 52%positive.
-Definition ___compcert_va_composite : ident := 46%positive.
-Definition ___compcert_va_float64 : ident := 45%positive.
-Definition ___compcert_va_int32 : ident := 43%positive.
-Definition ___compcert_va_int64 : ident := 44%positive.
+Definition ___builtin_ais_annot : ident := 4%positive.
+Definition ___builtin_annot : ident := 21%positive.
+Definition ___builtin_annot_intval : ident := 22%positive.
+Definition ___builtin_bswap : ident := 6%positive.
+Definition ___builtin_bswap16 : ident := 8%positive.
+Definition ___builtin_bswap32 : ident := 7%positive.
+Definition ___builtin_bswap64 : ident := 5%positive.
+Definition ___builtin_clz : ident := 9%positive.
+Definition ___builtin_clzl : ident := 10%positive.
+Definition ___builtin_clzll : ident := 11%positive.
+Definition ___builtin_ctz : ident := 12%positive.
+Definition ___builtin_ctzl : ident := 13%positive.
+Definition ___builtin_ctzll : ident := 14%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 29%positive.
+Definition ___builtin_fabs : ident := 15%positive.
+Definition ___builtin_fabsf : ident := 16%positive.
+Definition ___builtin_fmadd : ident := 32%positive.
+Definition ___builtin_fmax : ident := 30%positive.
+Definition ___builtin_fmin : ident := 31%positive.
+Definition ___builtin_fmsub : ident := 33%positive.
+Definition ___builtin_fnmadd : ident := 34%positive.
+Definition ___builtin_fnmsub : ident := 35%positive.
+Definition ___builtin_fsqrt : ident := 17%positive.
+Definition ___builtin_membar : ident := 23%positive.
+Definition ___builtin_memcpy_aligned : ident := 19%positive.
+Definition ___builtin_read16_reversed : ident := 36%positive.
+Definition ___builtin_read32_reversed : ident := 37%positive.
+Definition ___builtin_sel : ident := 20%positive.
+Definition ___builtin_sqrt : ident := 18%positive.
+Definition ___builtin_unreachable : ident := 28%positive.
+Definition ___builtin_va_arg : ident := 25%positive.
+Definition ___builtin_va_copy : ident := 26%positive.
+Definition ___builtin_va_end : ident := 27%positive.
+Definition ___builtin_va_start : ident := 24%positive.
+Definition ___builtin_write16_reversed : ident := 38%positive.
+Definition ___builtin_write32_reversed : ident := 39%positive.
+Definition ___compcert_i64_dtos : ident := 48%positive.
+Definition ___compcert_i64_dtou : ident := 49%positive.
+Definition ___compcert_i64_sar : ident := 60%positive.
+Definition ___compcert_i64_sdiv : ident := 54%positive.
+Definition ___compcert_i64_shl : ident := 58%positive.
+Definition ___compcert_i64_shr : ident := 59%positive.
+Definition ___compcert_i64_smod : ident := 56%positive.
+Definition ___compcert_i64_smulh : ident := 61%positive.
+Definition ___compcert_i64_stod : ident := 50%positive.
+Definition ___compcert_i64_stof : ident := 52%positive.
+Definition ___compcert_i64_udiv : ident := 55%positive.
+Definition ___compcert_i64_umod : ident := 57%positive.
+Definition ___compcert_i64_umulh : ident := 62%positive.
+Definition ___compcert_i64_utod : ident := 51%positive.
+Definition ___compcert_i64_utof : ident := 53%positive.
+Definition ___compcert_va_composite : ident := 47%positive.
+Definition ___compcert_va_float64 : ident := 46%positive.
+Definition ___compcert_va_int32 : ident := 44%positive.
+Definition ___compcert_va_int64 : ident := 45%positive.
Definition _a : ident := 2%positive.
Definition _b : ident := 3%positive.
-Definition _f : ident := 42%positive.
+Definition _f : ident := 43%positive.
Definition _foo : ident := 1%positive.
-Definition _main : ident := 62%positive.
-Definition _p : ident := 40%positive.
-Definition _q : ident := 41%positive.
-Definition _t'1 : ident := 63%positive.
-Definition _t'2 : ident := 64%positive.
+Definition _main : ident := 63%positive.
+Definition _p : ident := 41%positive.
+Definition _q : ident := 42%positive.
+Definition _t'1 : ident := 64%positive.
+Definition _t'2 : ident := 65%positive.
Definition f_f := {|
fn_return := tuint;
@@ -110,264 +111,259 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_f, Gfun(Internal f_f)) :: nil).
@@ -384,12 +380,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/sumarray.v b/progs/sumarray.v
index 47099321d6..826a8f9aaa 100644
--- a/progs/sumarray.v
+++ b/progs/sumarray.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,69 +19,70 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 48%positive.
-Definition ___compcert_i64_dtou : ident := 49%positive.
-Definition ___compcert_i64_sar : ident := 60%positive.
-Definition ___compcert_i64_sdiv : ident := 54%positive.
-Definition ___compcert_i64_shl : ident := 58%positive.
-Definition ___compcert_i64_shr : ident := 59%positive.
-Definition ___compcert_i64_smod : ident := 56%positive.
-Definition ___compcert_i64_smulh : ident := 61%positive.
-Definition ___compcert_i64_stod : ident := 50%positive.
-Definition ___compcert_i64_stof : ident := 52%positive.
-Definition ___compcert_i64_udiv : ident := 55%positive.
-Definition ___compcert_i64_umod : ident := 57%positive.
-Definition ___compcert_i64_umulh : ident := 62%positive.
-Definition ___compcert_i64_utod : ident := 51%positive.
-Definition ___compcert_i64_utof : ident := 53%positive.
-Definition ___compcert_va_composite : ident := 47%positive.
-Definition ___compcert_va_float64 : ident := 46%positive.
-Definition ___compcert_va_int32 : ident := 44%positive.
-Definition ___compcert_va_int64 : ident := 45%positive.
-Definition _a : ident := 37%positive.
-Definition _four : ident := 42%positive.
-Definition _i : ident := 39%positive.
-Definition _main : ident := 43%positive.
-Definition _n : ident := 38%positive.
-Definition _s : ident := 40%positive.
-Definition _sumarray : ident := 41%positive.
-Definition _t'1 : ident := 63%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 49%positive.
+Definition ___compcert_i64_dtou : ident := 50%positive.
+Definition ___compcert_i64_sar : ident := 61%positive.
+Definition ___compcert_i64_sdiv : ident := 55%positive.
+Definition ___compcert_i64_shl : ident := 59%positive.
+Definition ___compcert_i64_shr : ident := 60%positive.
+Definition ___compcert_i64_smod : ident := 57%positive.
+Definition ___compcert_i64_smulh : ident := 62%positive.
+Definition ___compcert_i64_stod : ident := 51%positive.
+Definition ___compcert_i64_stof : ident := 53%positive.
+Definition ___compcert_i64_udiv : ident := 56%positive.
+Definition ___compcert_i64_umod : ident := 58%positive.
+Definition ___compcert_i64_umulh : ident := 63%positive.
+Definition ___compcert_i64_utod : ident := 52%positive.
+Definition ___compcert_i64_utof : ident := 54%positive.
+Definition ___compcert_va_composite : ident := 48%positive.
+Definition ___compcert_va_float64 : ident := 47%positive.
+Definition ___compcert_va_int32 : ident := 45%positive.
+Definition ___compcert_va_int64 : ident := 46%positive.
+Definition _a : ident := 38%positive.
+Definition _four : ident := 43%positive.
+Definition _i : ident := 40%positive.
+Definition _main : ident := 44%positive.
+Definition _n : ident := 39%positive.
+Definition _s : ident := 41%positive.
+Definition _sumarray : ident := 42%positive.
+Definition _t'1 : ident := 64%positive.
Definition f_sumarray := {|
fn_return := tuint;
@@ -130,8 +131,8 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _sumarray (Tfunction (Tcons (tptr tuint) (Tcons tint Tnil))
- tuint cc_default))
+ (Evar _sumarray (Tfunction ((tptr tuint) :: tint :: nil) tuint
+ cc_default))
((Evar _four (tarray tuint 4)) :: (Econst_int (Int.repr 4) tint) ::
nil))
(Sset _s (Etempvar _t'1 tuint)))
@@ -145,264 +146,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_sumarray, Gfun(Internal f_sumarray)) :: (_four, Gvar v_four) ::
(_main, Gfun(Internal f_main)) :: nil).
@@ -421,13 +417,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/sumarray2.v b/progs/sumarray2.v
index bbad52f14a..206a322669 100644
--- a/progs/sumarray2.v
+++ b/progs/sumarray2.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,69 +19,70 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 48%positive.
-Definition ___compcert_i64_dtou : ident := 49%positive.
-Definition ___compcert_i64_sar : ident := 60%positive.
-Definition ___compcert_i64_sdiv : ident := 54%positive.
-Definition ___compcert_i64_shl : ident := 58%positive.
-Definition ___compcert_i64_shr : ident := 59%positive.
-Definition ___compcert_i64_smod : ident := 56%positive.
-Definition ___compcert_i64_smulh : ident := 61%positive.
-Definition ___compcert_i64_stod : ident := 50%positive.
-Definition ___compcert_i64_stof : ident := 52%positive.
-Definition ___compcert_i64_udiv : ident := 55%positive.
-Definition ___compcert_i64_umod : ident := 57%positive.
-Definition ___compcert_i64_umulh : ident := 62%positive.
-Definition ___compcert_i64_utod : ident := 51%positive.
-Definition ___compcert_i64_utof : ident := 53%positive.
-Definition ___compcert_va_composite : ident := 47%positive.
-Definition ___compcert_va_float64 : ident := 46%positive.
-Definition ___compcert_va_int32 : ident := 44%positive.
-Definition ___compcert_va_int64 : ident := 45%positive.
-Definition _a : ident := 37%positive.
-Definition _four : ident := 42%positive.
-Definition _i : ident := 39%positive.
-Definition _main : ident := 43%positive.
-Definition _n : ident := 38%positive.
-Definition _s : ident := 40%positive.
-Definition _sumarray : ident := 41%positive.
-Definition _t'1 : ident := 63%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 49%positive.
+Definition ___compcert_i64_dtou : ident := 50%positive.
+Definition ___compcert_i64_sar : ident := 61%positive.
+Definition ___compcert_i64_sdiv : ident := 55%positive.
+Definition ___compcert_i64_shl : ident := 59%positive.
+Definition ___compcert_i64_shr : ident := 60%positive.
+Definition ___compcert_i64_smod : ident := 57%positive.
+Definition ___compcert_i64_smulh : ident := 62%positive.
+Definition ___compcert_i64_stod : ident := 51%positive.
+Definition ___compcert_i64_stof : ident := 53%positive.
+Definition ___compcert_i64_udiv : ident := 56%positive.
+Definition ___compcert_i64_umod : ident := 58%positive.
+Definition ___compcert_i64_umulh : ident := 63%positive.
+Definition ___compcert_i64_utod : ident := 52%positive.
+Definition ___compcert_i64_utof : ident := 54%positive.
+Definition ___compcert_va_composite : ident := 48%positive.
+Definition ___compcert_va_float64 : ident := 47%positive.
+Definition ___compcert_va_int32 : ident := 45%positive.
+Definition ___compcert_va_int64 : ident := 46%positive.
+Definition _a : ident := 38%positive.
+Definition _four : ident := 43%positive.
+Definition _i : ident := 40%positive.
+Definition _main : ident := 44%positive.
+Definition _n : ident := 39%positive.
+Definition _s : ident := 41%positive.
+Definition _sumarray : ident := 42%positive.
+Definition _t'1 : ident := 64%positive.
Definition f_sumarray := {|
fn_return := tuint;
@@ -133,8 +134,8 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _sumarray (Tfunction (Tcons (tptr tuint) (Tcons tint Tnil))
- tuint cc_default))
+ (Evar _sumarray (Tfunction ((tptr tuint) :: tint :: nil) tuint
+ cc_default))
((Ebinop Oadd (Evar _four (tarray tuint 4))
(Econst_int (Int.repr 2) tint) (tptr tuint)) ::
(Econst_int (Int.repr 2) tint) :: nil))
@@ -149,264 +150,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_sumarray, Gfun(Internal f_sumarray)) :: (_four, Gvar v_four) ::
(_main, Gfun(Internal f_main)) :: nil).
@@ -425,13 +421,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/switch.v b/progs/switch.v
index d6da797d9f..de184d453e 100644
--- a/progs/switch.v
+++ b/progs/switch.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,66 +19,67 @@ Module Info.
Definition normalized := true.
End Info.
-Definition ___builtin_annot : ident := 17%positive.
-Definition ___builtin_annot_intval : ident := 18%positive.
-Definition ___builtin_bswap : ident := 2%positive.
-Definition ___builtin_bswap16 : ident := 4%positive.
-Definition ___builtin_bswap32 : ident := 3%positive.
-Definition ___builtin_bswap64 : ident := 1%positive.
-Definition ___builtin_clz : ident := 5%positive.
-Definition ___builtin_clzl : ident := 6%positive.
-Definition ___builtin_clzll : ident := 7%positive.
-Definition ___builtin_ctz : ident := 8%positive.
-Definition ___builtin_ctzl : ident := 9%positive.
-Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
-Definition ___builtin_expect : ident := 25%positive.
-Definition ___builtin_fabs : ident := 11%positive.
-Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
-Definition ___builtin_fsqrt : ident := 13%positive.
-Definition ___builtin_membar : ident := 19%positive.
-Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
-Definition ___builtin_sel : ident := 16%positive.
-Definition ___builtin_sqrt : ident := 14%positive.
-Definition ___builtin_unreachable : ident := 24%positive.
-Definition ___builtin_va_arg : ident := 21%positive.
-Definition ___builtin_va_copy : ident := 22%positive.
-Definition ___builtin_va_end : ident := 23%positive.
-Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 45%positive.
-Definition ___compcert_i64_dtou : ident := 46%positive.
-Definition ___compcert_i64_sar : ident := 57%positive.
-Definition ___compcert_i64_sdiv : ident := 51%positive.
-Definition ___compcert_i64_shl : ident := 55%positive.
-Definition ___compcert_i64_shr : ident := 56%positive.
-Definition ___compcert_i64_smod : ident := 53%positive.
-Definition ___compcert_i64_smulh : ident := 58%positive.
-Definition ___compcert_i64_stod : ident := 47%positive.
-Definition ___compcert_i64_stof : ident := 49%positive.
-Definition ___compcert_i64_udiv : ident := 52%positive.
-Definition ___compcert_i64_umod : ident := 54%positive.
-Definition ___compcert_i64_umulh : ident := 59%positive.
-Definition ___compcert_i64_utod : ident := 48%positive.
-Definition ___compcert_i64_utof : ident := 50%positive.
-Definition ___compcert_va_composite : ident := 44%positive.
-Definition ___compcert_va_float64 : ident := 43%positive.
-Definition ___compcert_va_int32 : ident := 41%positive.
-Definition ___compcert_va_int64 : ident := 42%positive.
-Definition _f : ident := 40%positive.
-Definition _main : ident := 60%positive.
-Definition _n : ident := 37%positive.
-Definition _twice : ident := 38%positive.
-Definition _x : ident := 39%positive.
+Definition ___builtin_ais_annot : ident := 1%positive.
+Definition ___builtin_annot : ident := 18%positive.
+Definition ___builtin_annot_intval : ident := 19%positive.
+Definition ___builtin_bswap : ident := 3%positive.
+Definition ___builtin_bswap16 : ident := 5%positive.
+Definition ___builtin_bswap32 : ident := 4%positive.
+Definition ___builtin_bswap64 : ident := 2%positive.
+Definition ___builtin_clz : ident := 6%positive.
+Definition ___builtin_clzl : ident := 7%positive.
+Definition ___builtin_clzll : ident := 8%positive.
+Definition ___builtin_ctz : ident := 9%positive.
+Definition ___builtin_ctzl : ident := 10%positive.
+Definition ___builtin_ctzll : ident := 11%positive.
+Definition ___builtin_debug : ident := 37%positive.
+Definition ___builtin_expect : ident := 26%positive.
+Definition ___builtin_fabs : ident := 12%positive.
+Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 27%positive.
+Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
+Definition ___builtin_fsqrt : ident := 14%positive.
+Definition ___builtin_membar : ident := 20%positive.
+Definition ___builtin_memcpy_aligned : ident := 16%positive.
+Definition ___builtin_read16_reversed : ident := 33%positive.
+Definition ___builtin_read32_reversed : ident := 34%positive.
+Definition ___builtin_sel : ident := 17%positive.
+Definition ___builtin_sqrt : ident := 15%positive.
+Definition ___builtin_unreachable : ident := 25%positive.
+Definition ___builtin_va_arg : ident := 22%positive.
+Definition ___builtin_va_copy : ident := 23%positive.
+Definition ___builtin_va_end : ident := 24%positive.
+Definition ___builtin_va_start : ident := 21%positive.
+Definition ___builtin_write16_reversed : ident := 35%positive.
+Definition ___builtin_write32_reversed : ident := 36%positive.
+Definition ___compcert_i64_dtos : ident := 46%positive.
+Definition ___compcert_i64_dtou : ident := 47%positive.
+Definition ___compcert_i64_sar : ident := 58%positive.
+Definition ___compcert_i64_sdiv : ident := 52%positive.
+Definition ___compcert_i64_shl : ident := 56%positive.
+Definition ___compcert_i64_shr : ident := 57%positive.
+Definition ___compcert_i64_smod : ident := 54%positive.
+Definition ___compcert_i64_smulh : ident := 59%positive.
+Definition ___compcert_i64_stod : ident := 48%positive.
+Definition ___compcert_i64_stof : ident := 50%positive.
+Definition ___compcert_i64_udiv : ident := 53%positive.
+Definition ___compcert_i64_umod : ident := 55%positive.
+Definition ___compcert_i64_umulh : ident := 60%positive.
+Definition ___compcert_i64_utod : ident := 49%positive.
+Definition ___compcert_i64_utof : ident := 51%positive.
+Definition ___compcert_va_composite : ident := 45%positive.
+Definition ___compcert_va_float64 : ident := 44%positive.
+Definition ___compcert_va_int32 : ident := 42%positive.
+Definition ___compcert_va_int64 : ident := 43%positive.
+Definition _f : ident := 41%positive.
+Definition _main : ident := 61%positive.
+Definition _n : ident := 38%positive.
+Definition _twice : ident := 39%positive.
+Definition _x : ident := 40%positive.
Definition f_twice := {|
fn_return := tint;
@@ -135,264 +136,259 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_twice, Gfun(Internal f_twice)) :: (_f, Gfun(Internal f_f)) :: nil).
@@ -409,12 +405,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/tree.v b/progs/tree.v
index fe91a2b534..dbda269e98 100644
--- a/progs/tree.v
+++ b/progs/tree.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -21,83 +21,84 @@ End Info.
Definition _BinaryTree : ident := 10%positive.
Definition _XList : ident := 3%positive.
-Definition _Xfoo : ident := 55%positive.
+Definition _Xfoo : ident := 56%positive.
Definition _Xnode : ident := 1%positive.
-Definition _Xnode_add : ident := 51%positive.
+Definition _Xnode_add : ident := 52%positive.
Definition _YList : ident := 8%positive.
-Definition _YList_add : ident := 52%positive.
-Definition _YTree_add : ident := 54%positive.
+Definition _YList_add : ident := 53%positive.
+Definition _YTree_add : ident := 55%positive.
Definition _Ynode : ident := 7%positive.
-Definition _Ynode_add : ident := 53%positive.
-Definition ___builtin_annot : ident := 29%positive.
-Definition ___builtin_annot_intval : ident := 30%positive.
-Definition ___builtin_bswap : ident := 14%positive.
-Definition ___builtin_bswap16 : ident := 16%positive.
-Definition ___builtin_bswap32 : ident := 15%positive.
-Definition ___builtin_bswap64 : ident := 13%positive.
-Definition ___builtin_clz : ident := 17%positive.
-Definition ___builtin_clzl : ident := 18%positive.
-Definition ___builtin_clzll : ident := 19%positive.
-Definition ___builtin_ctz : ident := 20%positive.
-Definition ___builtin_ctzl : ident := 21%positive.
-Definition ___builtin_ctzll : ident := 22%positive.
-Definition ___builtin_debug : ident := 48%positive.
-Definition ___builtin_expect : ident := 37%positive.
-Definition ___builtin_fabs : ident := 23%positive.
-Definition ___builtin_fabsf : ident := 24%positive.
-Definition ___builtin_fmadd : ident := 40%positive.
-Definition ___builtin_fmax : ident := 38%positive.
-Definition ___builtin_fmin : ident := 39%positive.
-Definition ___builtin_fmsub : ident := 41%positive.
-Definition ___builtin_fnmadd : ident := 42%positive.
-Definition ___builtin_fnmsub : ident := 43%positive.
-Definition ___builtin_fsqrt : ident := 25%positive.
-Definition ___builtin_membar : ident := 31%positive.
-Definition ___builtin_memcpy_aligned : ident := 27%positive.
-Definition ___builtin_read16_reversed : ident := 44%positive.
-Definition ___builtin_read32_reversed : ident := 45%positive.
-Definition ___builtin_sel : ident := 28%positive.
-Definition ___builtin_sqrt : ident := 26%positive.
-Definition ___builtin_unreachable : ident := 36%positive.
-Definition ___builtin_va_arg : ident := 33%positive.
-Definition ___builtin_va_copy : ident := 34%positive.
-Definition ___builtin_va_end : ident := 35%positive.
-Definition ___builtin_va_start : ident := 32%positive.
-Definition ___builtin_write16_reversed : ident := 46%positive.
-Definition ___builtin_write32_reversed : ident := 47%positive.
-Definition ___compcert_i64_dtos : ident := 61%positive.
-Definition ___compcert_i64_dtou : ident := 62%positive.
-Definition ___compcert_i64_sar : ident := 73%positive.
-Definition ___compcert_i64_sdiv : ident := 67%positive.
-Definition ___compcert_i64_shl : ident := 71%positive.
-Definition ___compcert_i64_shr : ident := 72%positive.
-Definition ___compcert_i64_smod : ident := 69%positive.
-Definition ___compcert_i64_smulh : ident := 74%positive.
-Definition ___compcert_i64_stod : ident := 63%positive.
-Definition ___compcert_i64_stof : ident := 65%positive.
-Definition ___compcert_i64_udiv : ident := 68%positive.
-Definition ___compcert_i64_umod : ident := 70%positive.
-Definition ___compcert_i64_umulh : ident := 75%positive.
-Definition ___compcert_i64_utod : ident := 64%positive.
-Definition ___compcert_i64_utof : ident := 66%positive.
-Definition ___compcert_va_composite : ident := 60%positive.
-Definition ___compcert_va_float64 : ident := 59%positive.
-Definition ___compcert_va_int32 : ident := 57%positive.
-Definition ___compcert_va_int64 : ident := 58%positive.
+Definition _Ynode_add : ident := 54%positive.
+Definition ___builtin_ais_annot : ident := 13%positive.
+Definition ___builtin_annot : ident := 30%positive.
+Definition ___builtin_annot_intval : ident := 31%positive.
+Definition ___builtin_bswap : ident := 15%positive.
+Definition ___builtin_bswap16 : ident := 17%positive.
+Definition ___builtin_bswap32 : ident := 16%positive.
+Definition ___builtin_bswap64 : ident := 14%positive.
+Definition ___builtin_clz : ident := 18%positive.
+Definition ___builtin_clzl : ident := 19%positive.
+Definition ___builtin_clzll : ident := 20%positive.
+Definition ___builtin_ctz : ident := 21%positive.
+Definition ___builtin_ctzl : ident := 22%positive.
+Definition ___builtin_ctzll : ident := 23%positive.
+Definition ___builtin_debug : ident := 49%positive.
+Definition ___builtin_expect : ident := 38%positive.
+Definition ___builtin_fabs : ident := 24%positive.
+Definition ___builtin_fabsf : ident := 25%positive.
+Definition ___builtin_fmadd : ident := 41%positive.
+Definition ___builtin_fmax : ident := 39%positive.
+Definition ___builtin_fmin : ident := 40%positive.
+Definition ___builtin_fmsub : ident := 42%positive.
+Definition ___builtin_fnmadd : ident := 43%positive.
+Definition ___builtin_fnmsub : ident := 44%positive.
+Definition ___builtin_fsqrt : ident := 26%positive.
+Definition ___builtin_membar : ident := 32%positive.
+Definition ___builtin_memcpy_aligned : ident := 28%positive.
+Definition ___builtin_read16_reversed : ident := 45%positive.
+Definition ___builtin_read32_reversed : ident := 46%positive.
+Definition ___builtin_sel : ident := 29%positive.
+Definition ___builtin_sqrt : ident := 27%positive.
+Definition ___builtin_unreachable : ident := 37%positive.
+Definition ___builtin_va_arg : ident := 34%positive.
+Definition ___builtin_va_copy : ident := 35%positive.
+Definition ___builtin_va_end : ident := 36%positive.
+Definition ___builtin_va_start : ident := 33%positive.
+Definition ___builtin_write16_reversed : ident := 47%positive.
+Definition ___builtin_write32_reversed : ident := 48%positive.
+Definition ___compcert_i64_dtos : ident := 62%positive.
+Definition ___compcert_i64_dtou : ident := 63%positive.
+Definition ___compcert_i64_sar : ident := 74%positive.
+Definition ___compcert_i64_sdiv : ident := 68%positive.
+Definition ___compcert_i64_shl : ident := 72%positive.
+Definition ___compcert_i64_shr : ident := 73%positive.
+Definition ___compcert_i64_smod : ident := 70%positive.
+Definition ___compcert_i64_smulh : ident := 75%positive.
+Definition ___compcert_i64_stod : ident := 64%positive.
+Definition ___compcert_i64_stof : ident := 66%positive.
+Definition ___compcert_i64_udiv : ident := 69%positive.
+Definition ___compcert_i64_umod : ident := 71%positive.
+Definition ___compcert_i64_umulh : ident := 76%positive.
+Definition ___compcert_i64_utod : ident := 65%positive.
+Definition ___compcert_i64_utof : ident := 67%positive.
+Definition ___compcert_va_composite : ident := 61%positive.
+Definition ___compcert_va_float64 : ident := 60%positive.
+Definition ___compcert_va_int32 : ident := 58%positive.
+Definition ___compcert_va_int64 : ident := 59%positive.
Definition _left : ident := 11%positive.
Definition _list : ident := 2%positive.
-Definition _main : ident := 56%positive.
+Definition _main : ident := 57%positive.
Definition _next : ident := 6%positive.
Definition _node : ident := 5%positive.
-Definition _p : ident := 49%positive.
-Definition _q : ident := 50%positive.
+Definition _p : ident := 50%positive.
+Definition _q : ident := 51%positive.
Definition _right : ident := 12%positive.
Definition _tree : ident := 9%positive.
Definition _v : ident := 4%positive.
-Definition _t'1 : ident := 76%positive.
-Definition _t'2 : ident := 77%positive.
-Definition _t'3 : ident := 78%positive.
-Definition _t'4 : ident := 79%positive.
+Definition _t'1 : ident := 77%positive.
+Definition _t'2 : ident := 78%positive.
+Definition _t'3 : ident := 79%positive.
+Definition _t'4 : ident := 80%positive.
Definition f_Xnode_add := {|
fn_return := tvoid;
@@ -145,7 +146,7 @@ Definition f_Xnode_add := {|
(tptr (Tstruct _Xnode noattr))))
(Scall None
(Evar _Xnode_add (Tfunction
- (Tcons (tptr (Tstruct _Xnode noattr)) Tnil)
+ ((tptr (Tstruct _Xnode noattr)) :: nil)
tvoid cc_default))
((Etempvar _t'1 (tptr (Tstruct _Xnode noattr))) :: nil))))
(Sset _q
@@ -185,9 +186,8 @@ Definition f_Ynode_add := {|
(Ederef (Etempvar _p (tptr (Tstruct _Ynode noattr)))
(Tstruct _Ynode noattr)) _list (tptr (Tstruct _YList noattr))))
(Scall None
- (Evar _YList_add (Tfunction
- (Tcons (tptr (Tstruct _YList noattr)) Tnil) tvoid
- cc_default))
+ (Evar _YList_add (Tfunction ((tptr (Tstruct _YList noattr)) :: nil)
+ tvoid cc_default))
((Etempvar _t'1 (tptr (Tstruct _YList noattr))) :: nil)))))
|}.
@@ -213,8 +213,8 @@ Definition f_YList_add := {|
(tptr (Tstruct _BinaryTree noattr))))
(Scall None
(Evar _YTree_add (Tfunction
- (Tcons (tptr (Tstruct _BinaryTree noattr)) Tnil)
- tvoid cc_default))
+ ((tptr (Tstruct _BinaryTree noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _t'2 (tptr (Tstruct _BinaryTree noattr))) :: nil)))
(Ssequence
(Sset _t'1
@@ -222,9 +222,8 @@ Definition f_YList_add := {|
(Ederef (Etempvar _p (tptr (Tstruct _YList noattr)))
(Tstruct _YList noattr)) _next (tptr (Tstruct _YList noattr))))
(Scall None
- (Evar _YList_add (Tfunction
- (Tcons (tptr (Tstruct _YList noattr)) Tnil) tvoid
- cc_default))
+ (Evar _YList_add (Tfunction ((tptr (Tstruct _YList noattr)) :: nil)
+ tvoid cc_default))
((Etempvar _t'1 (tptr (Tstruct _YList noattr))) :: nil)))))
|}.
@@ -250,9 +249,8 @@ Definition f_YTree_add := {|
(Tstruct _BinaryTree noattr)) _node
(tptr (Tstruct _Ynode noattr))))
(Scall None
- (Evar _Ynode_add (Tfunction
- (Tcons (tptr (Tstruct _Ynode noattr)) Tnil) tvoid
- cc_default))
+ (Evar _Ynode_add (Tfunction ((tptr (Tstruct _Ynode noattr)) :: nil)
+ tvoid cc_default))
((Etempvar _t'3 (tptr (Tstruct _Ynode noattr))) :: nil)))
(Ssequence
(Ssequence
@@ -263,7 +261,7 @@ Definition f_YTree_add := {|
(tptr (Tstruct _BinaryTree noattr))))
(Scall None
(Evar _YTree_add (Tfunction
- (Tcons (tptr (Tstruct _BinaryTree noattr)) Tnil)
+ ((tptr (Tstruct _BinaryTree noattr)) :: nil)
tvoid cc_default))
((Etempvar _t'2 (tptr (Tstruct _BinaryTree noattr))) :: nil)))
(Ssequence
@@ -274,7 +272,7 @@ Definition f_YTree_add := {|
(tptr (Tstruct _BinaryTree noattr))))
(Scall None
(Evar _YTree_add (Tfunction
- (Tcons (tptr (Tstruct _BinaryTree noattr)) Tnil)
+ ((tptr (Tstruct _BinaryTree noattr)) :: nil)
tvoid cc_default))
((Etempvar _t'1 (tptr (Tstruct _BinaryTree noattr))) :: nil))))))
|}.
@@ -313,8 +311,7 @@ Definition f_Xfoo := {|
(Etempvar _t'3 tuint)))
(Ssequence
(Scall None
- (Evar _Xnode_add (Tfunction
- (Tcons (tptr (Tstruct _Xnode noattr)) Tnil)
+ (Evar _Xnode_add (Tfunction ((tptr (Tstruct _Xnode noattr)) :: nil)
tvoid cc_default))
((Eaddrof (Evar _q (Tstruct _Xnode noattr))
(tptr (Tstruct _Xnode noattr))) :: nil))
@@ -373,264 +370,259 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_Xnode_add, Gfun(Internal f_Xnode_add)) ::
(_Ynode_add, Gfun(Internal f_Ynode_add)) ::
@@ -652,12 +644,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs/union.v b/progs/union.v
index f83ac2ea44..9deb123669 100644
--- a/progs/union.v
+++ b/progs/union.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -19,81 +19,82 @@ Module Info.
Definition normalized := true.
End Info.
-Definition __111 : ident := 7%positive.
-Definition ___builtin_annot : ident := 26%positive.
-Definition ___builtin_annot_intval : ident := 27%positive.
-Definition ___builtin_bswap : ident := 11%positive.
-Definition ___builtin_bswap16 : ident := 13%positive.
-Definition ___builtin_bswap32 : ident := 12%positive.
-Definition ___builtin_bswap64 : ident := 10%positive.
-Definition ___builtin_clz : ident := 14%positive.
-Definition ___builtin_clzl : ident := 15%positive.
-Definition ___builtin_clzll : ident := 16%positive.
-Definition ___builtin_ctz : ident := 17%positive.
-Definition ___builtin_ctzl : ident := 18%positive.
-Definition ___builtin_ctzll : ident := 19%positive.
-Definition ___builtin_debug : ident := 45%positive.
-Definition ___builtin_expect : ident := 34%positive.
-Definition ___builtin_fabs : ident := 20%positive.
-Definition ___builtin_fabsf : ident := 21%positive.
-Definition ___builtin_fmadd : ident := 37%positive.
-Definition ___builtin_fmax : ident := 35%positive.
-Definition ___builtin_fmin : ident := 36%positive.
-Definition ___builtin_fmsub : ident := 38%positive.
-Definition ___builtin_fnmadd : ident := 39%positive.
-Definition ___builtin_fnmsub : ident := 40%positive.
-Definition ___builtin_fsqrt : ident := 22%positive.
-Definition ___builtin_membar : ident := 28%positive.
-Definition ___builtin_memcpy_aligned : ident := 24%positive.
-Definition ___builtin_read16_reversed : ident := 41%positive.
-Definition ___builtin_read32_reversed : ident := 42%positive.
-Definition ___builtin_sel : ident := 25%positive.
-Definition ___builtin_sqrt : ident := 23%positive.
-Definition ___builtin_unreachable : ident := 33%positive.
-Definition ___builtin_va_arg : ident := 30%positive.
-Definition ___builtin_va_copy : ident := 31%positive.
-Definition ___builtin_va_end : ident := 32%positive.
-Definition ___builtin_va_start : ident := 29%positive.
-Definition ___builtin_write16_reversed : ident := 43%positive.
-Definition ___builtin_write32_reversed : ident := 44%positive.
-Definition ___compcert_i64_dtos : ident := 58%positive.
-Definition ___compcert_i64_dtou : ident := 59%positive.
-Definition ___compcert_i64_sar : ident := 70%positive.
-Definition ___compcert_i64_sdiv : ident := 64%positive.
-Definition ___compcert_i64_shl : ident := 68%positive.
-Definition ___compcert_i64_shr : ident := 69%positive.
-Definition ___compcert_i64_smod : ident := 66%positive.
-Definition ___compcert_i64_smulh : ident := 71%positive.
-Definition ___compcert_i64_stod : ident := 60%positive.
-Definition ___compcert_i64_stof : ident := 62%positive.
-Definition ___compcert_i64_udiv : ident := 65%positive.
-Definition ___compcert_i64_umod : ident := 67%positive.
-Definition ___compcert_i64_umulh : ident := 72%positive.
-Definition ___compcert_i64_utod : ident := 61%positive.
-Definition ___compcert_i64_utof : ident := 63%positive.
-Definition ___compcert_va_composite : ident := 57%positive.
-Definition ___compcert_va_float64 : ident := 56%positive.
-Definition ___compcert_va_int32 : ident := 54%positive.
-Definition ___compcert_va_int64 : ident := 55%positive.
+Definition __113 : ident := 7%positive.
+Definition ___builtin_ais_annot : ident := 10%positive.
+Definition ___builtin_annot : ident := 27%positive.
+Definition ___builtin_annot_intval : ident := 28%positive.
+Definition ___builtin_bswap : ident := 12%positive.
+Definition ___builtin_bswap16 : ident := 14%positive.
+Definition ___builtin_bswap32 : ident := 13%positive.
+Definition ___builtin_bswap64 : ident := 11%positive.
+Definition ___builtin_clz : ident := 15%positive.
+Definition ___builtin_clzl : ident := 16%positive.
+Definition ___builtin_clzll : ident := 17%positive.
+Definition ___builtin_ctz : ident := 18%positive.
+Definition ___builtin_ctzl : ident := 19%positive.
+Definition ___builtin_ctzll : ident := 20%positive.
+Definition ___builtin_debug : ident := 46%positive.
+Definition ___builtin_expect : ident := 35%positive.
+Definition ___builtin_fabs : ident := 21%positive.
+Definition ___builtin_fabsf : ident := 22%positive.
+Definition ___builtin_fmadd : ident := 38%positive.
+Definition ___builtin_fmax : ident := 36%positive.
+Definition ___builtin_fmin : ident := 37%positive.
+Definition ___builtin_fmsub : ident := 39%positive.
+Definition ___builtin_fnmadd : ident := 40%positive.
+Definition ___builtin_fnmsub : ident := 41%positive.
+Definition ___builtin_fsqrt : ident := 23%positive.
+Definition ___builtin_membar : ident := 29%positive.
+Definition ___builtin_memcpy_aligned : ident := 25%positive.
+Definition ___builtin_read16_reversed : ident := 42%positive.
+Definition ___builtin_read32_reversed : ident := 43%positive.
+Definition ___builtin_sel : ident := 26%positive.
+Definition ___builtin_sqrt : ident := 24%positive.
+Definition ___builtin_unreachable : ident := 34%positive.
+Definition ___builtin_va_arg : ident := 31%positive.
+Definition ___builtin_va_copy : ident := 32%positive.
+Definition ___builtin_va_end : ident := 33%positive.
+Definition ___builtin_va_start : ident := 30%positive.
+Definition ___builtin_write16_reversed : ident := 44%positive.
+Definition ___builtin_write32_reversed : ident := 45%positive.
+Definition ___compcert_i64_dtos : ident := 59%positive.
+Definition ___compcert_i64_dtou : ident := 60%positive.
+Definition ___compcert_i64_sar : ident := 71%positive.
+Definition ___compcert_i64_sdiv : ident := 65%positive.
+Definition ___compcert_i64_shl : ident := 69%positive.
+Definition ___compcert_i64_shr : ident := 70%positive.
+Definition ___compcert_i64_smod : ident := 67%positive.
+Definition ___compcert_i64_smulh : ident := 72%positive.
+Definition ___compcert_i64_stod : ident := 61%positive.
+Definition ___compcert_i64_stof : ident := 63%positive.
+Definition ___compcert_i64_udiv : ident := 66%positive.
+Definition ___compcert_i64_umod : ident := 68%positive.
+Definition ___compcert_i64_umulh : ident := 73%positive.
+Definition ___compcert_i64_utod : ident := 62%positive.
+Definition ___compcert_i64_utof : ident := 64%positive.
+Definition ___compcert_va_composite : ident := 58%positive.
+Definition ___compcert_va_float64 : ident := 57%positive.
+Definition ___compcert_va_int32 : ident := 55%positive.
+Definition ___compcert_va_int64 : ident := 56%positive.
Definition _c : ident := 5%positive.
Definition _choice_i : ident := 2%positive.
Definition _choice_p : ident := 3%positive.
Definition _const_or_not : ident := 4%positive.
Definition _f : ident := 8%positive.
-Definition _fabs_single : ident := 53%positive.
-Definition _g : ident := 47%positive.
-Definition _h : ident := 49%positive.
+Definition _fabs_single : ident := 54%positive.
+Definition _g : ident := 48%positive.
+Definition _h : ident := 50%positive.
Definition _i : ident := 9%positive.
-Definition _main : ident := 73%positive.
+Definition _main : ident := 74%positive.
Definition _n : ident := 6%positive.
-Definition _p : ident := 48%positive.
+Definition _p : ident := 49%positive.
Definition _p_or_i : ident := 1%positive.
-Definition _t : ident := 50%positive.
-Definition _u : ident := 52%positive.
-Definition _unconst : ident := 51%positive.
-Definition _x : ident := 46%positive.
-Definition _t'1 : ident := 74%positive.
-Definition _t'2 : ident := 75%positive.
+Definition _t : ident := 51%positive.
+Definition _u : ident := 53%positive.
+Definition _unconst : ident := 52%positive.
+Definition _x : ident := 47%positive.
+Definition _t'1 : ident := 75%positive.
+Definition _t'2 : ident := 76%positive.
Definition f_g := {|
fn_return := tuint;
@@ -146,20 +147,20 @@ Definition f_fabs_single := {|
fn_return := tfloat;
fn_callconv := cc_default;
fn_params := ((_x, tfloat) :: nil);
- fn_vars := ((_u, (Tunion __111 noattr)) :: nil);
+ fn_vars := ((_u, (Tunion __113 noattr)) :: nil);
fn_temps := ((_t'2, tuint) :: (_t'1, tfloat) :: nil);
fn_body :=
(Ssequence
- (Sassign (Efield (Evar _u (Tunion __111 noattr)) _f tfloat)
+ (Sassign (Efield (Evar _u (Tunion __113 noattr)) _f tfloat)
(Etempvar _x tfloat))
(Ssequence
(Ssequence
- (Sset _t'2 (Efield (Evar _u (Tunion __111 noattr)) _i tuint))
- (Sassign (Efield (Evar _u (Tunion __111 noattr)) _i tuint)
+ (Sset _t'2 (Efield (Evar _u (Tunion __113 noattr)) _i tuint))
+ (Sassign (Efield (Evar _u (Tunion __113 noattr)) _i tuint)
(Ebinop Oand (Etempvar _t'2 tuint)
(Econst_int (Int.repr 2147483647) tint) tuint)))
(Ssequence
- (Sset _t'1 (Efield (Evar _u (Tunion __111 noattr)) _f tfloat))
+ (Sset _t'1 (Efield (Evar _u (Tunion __113 noattr)) _f tfloat))
(Sreturn (Some (Etempvar _t'1 tfloat))))))
|}.
@@ -171,271 +172,266 @@ Definition composites : list composite_definition :=
Composite _const_or_not Union
(Member_plain _c (tptr tschar) :: Member_plain _n (tptr tschar) :: nil)
noattr ::
- Composite __111 Union
+ Composite __113 Union
(Member_plain _f tfloat :: Member_plain _i tuint :: nil)
noattr :: nil).
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_g, Gfun(Internal f_g)) :: (_h, Gfun(Internal f_h)) ::
(_unconst, Gfun(Internal f_unconst)) ::
@@ -455,13 +451,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs/verif_io.v b/progs/verif_io.v
index a3beac7295..a28445ba14 100644
--- a/progs/verif_io.v
+++ b/progs/verif_io.v
@@ -353,10 +353,10 @@ Proof.
prove_semax_prog.
semax_func_cons_ext.
{ simpl; Intro i.
- apply typecheck_return_value with (t := Tint16signed); auto. }
+ apply typecheck_return_value with (t := Xint16signed); auto. }
semax_func_cons_ext.
{ simpl; Intro i'.
- apply typecheck_return_value with (t := Tint16signed); auto. }
+ apply typecheck_return_value with (t := Xint16signed); auto. }
semax_func_cons body_getchar_blocking.
semax_func_cons body_putchar_blocking.
semax_func_cons body_print_intr.
@@ -367,6 +367,11 @@ Qed.
Require Import VST.veric.SequentialClight.
Require Import VST.progs.io_dry.
+Definition countfuns (prog: Clight.program) : nat :=
+ length
+ (filter (fun d => match snd d with Gfun _ => true | _ => false end)
+ (AST.prog_defs prog)).
+
Lemma init_mem_exists : { m | Genv.init_mem prog = Some m }.
Proof.
unfold Genv.init_mem; simpl.
@@ -375,17 +380,13 @@ Ltac alloc_block m n := match n with
| S ?n' => let m' := fresh "m" in let Hm' := fresh "Hm" in
destruct (dry_mem_lemmas.drop_alloc m) as [m' Hm']; alloc_block m' n'
end.
-try first [
- (* This version works in Coq 8.15, CompCert 3.10 *)
- alloc_block Mem.empty 62%nat;
- eexists; repeat match goal with H : ?a = _ |- match ?a with Some m' => _ | None => None end = _ => rewrite H end;
- reflexivity
- |
- (* This version worked in Coq 8.13, CompCert 3.9 *)
- alloc_block Mem.empty 60%nat;
- eexists; repeat match goal with H : ?a = _ |- match ?a with Some m' => _ | None => None end = _ => rewrite H end;
- reflexivity
-].
+ let n := constr:(countfuns prog) in let n := eval compute in n in
+ alloc_block Mem.empty n.
+ eexists;
+ repeat match goal with
+ | H : ?a = _ |- match ?a with Some m' => _ | None => None end = _ =>
+ rewrite H; clear H end;
+ reflexivity.
Qed.
Definition init_mem := proj1_sig init_mem_exists.
diff --git a/progs/verif_io_mem.v b/progs/verif_io_mem.v
index 768f0047f3..e64dfba385 100644
--- a/progs/verif_io_mem.v
+++ b/progs/verif_io_mem.v
@@ -533,7 +533,7 @@ semax_func_cons body_free.
semax_func_cons body_malloc. apply semax_func_cons_malloc_aux.
semax_func_cons_ext.
{ simpl; Intro msg.
- apply typecheck_return_value with (t := Tint16signed); auto. }
+ apply typecheck_return_value with (t := Xint16signed); auto. }
semax_func_cons_ext.
semax_func_cons body_print_intr.
semax_func_cons body_print_int.
diff --git a/progs64/VSUpile/apile.v b/progs64/VSUpile/apile.v
index f6d35c50e5..a641414fa2 100644
--- a/progs64/VSUpile/apile.v
+++ b/progs64/VSUpile/apile.v
@@ -6,87 +6,99 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.13".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "apile.c".
Definition normalized := true.
End Info.
-Definition _Apile_add : ident := 46%positive.
-Definition _Apile_count : ident := 47%positive.
-Definition _Pile_add : ident := 43%positive.
-Definition _Pile_count : ident := 44%positive.
-Definition ___builtin_ais_annot : ident := 6%positive.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 42%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
+Definition _Apile_add : ident := 78%positive.
+Definition _Apile_count : ident := 79%positive.
+Definition _Onepile_add : ident := 75%positive.
+Definition _Onepile_count : ident := 76%positive.
+Definition _Onepile_init : ident := 74%positive.
+Definition _Pile_add : ident := 47%positive.
+Definition _Pile_count : ident := 50%positive.
+Definition _Pile_free : ident := 52%positive.
+Definition _Pile_new : ident := 46%positive.
+Definition ___builtin_annot : ident := 22%positive.
+Definition ___builtin_annot_intval : ident := 23%positive.
+Definition ___builtin_bswap : ident := 7%positive.
+Definition ___builtin_bswap16 : ident := 9%positive.
+Definition ___builtin_bswap32 : ident := 8%positive.
+Definition ___builtin_bswap64 : ident := 6%positive.
+Definition ___builtin_cls : ident := 31%positive.
+Definition ___builtin_clsl : ident := 32%positive.
+Definition ___builtin_clsll : ident := 33%positive.
+Definition ___builtin_clz : ident := 10%positive.
+Definition ___builtin_clzl : ident := 11%positive.
+Definition ___builtin_clzll : ident := 12%positive.
+Definition ___builtin_ctz : ident := 13%positive.
+Definition ___builtin_ctzl : ident := 14%positive.
+Definition ___builtin_ctzll : ident := 15%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 30%positive.
+Definition ___builtin_fabs : ident := 16%positive.
+Definition ___builtin_fabsf : ident := 17%positive.
Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
+Definition ___builtin_fmax : ident := 38%positive.
+Definition ___builtin_fmin : ident := 39%positive.
Definition ___builtin_fmsub : ident := 35%positive.
Definition ___builtin_fnmadd : ident := 36%positive.
Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 39%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 40%positive.
-Definition ___builtin_write32_reversed : ident := 41%positive.
-Definition ___compcert_i64_dtos : ident := 52%positive.
-Definition ___compcert_i64_dtou : ident := 53%positive.
-Definition ___compcert_i64_sar : ident := 64%positive.
-Definition ___compcert_i64_sdiv : ident := 58%positive.
-Definition ___compcert_i64_shl : ident := 62%positive.
-Definition ___compcert_i64_shr : ident := 63%positive.
-Definition ___compcert_i64_smod : ident := 60%positive.
-Definition ___compcert_i64_smulh : ident := 65%positive.
-Definition ___compcert_i64_stod : ident := 54%positive.
-Definition ___compcert_i64_stof : ident := 56%positive.
-Definition ___compcert_i64_udiv : ident := 59%positive.
-Definition ___compcert_i64_umod : ident := 61%positive.
-Definition ___compcert_i64_umulh : ident := 66%positive.
-Definition ___compcert_i64_utod : ident := 55%positive.
-Definition ___compcert_i64_utof : ident := 57%positive.
-Definition ___compcert_va_composite : ident := 51%positive.
-Definition ___compcert_va_float64 : ident := 50%positive.
-Definition ___compcert_va_int32 : ident := 48%positive.
-Definition ___compcert_va_int64 : ident := 49%positive.
-Definition _a_pile : ident := 45%positive.
+Definition ___builtin_fsqrt : ident := 18%positive.
+Definition ___builtin_membar : ident := 24%positive.
+Definition ___builtin_memcpy_aligned : ident := 20%positive.
+Definition ___builtin_sel : ident := 21%positive.
+Definition ___builtin_sqrt : ident := 19%positive.
+Definition ___builtin_unreachable : ident := 29%positive.
+Definition ___builtin_va_arg : ident := 26%positive.
+Definition ___builtin_va_copy : ident := 27%positive.
+Definition ___builtin_va_end : ident := 28%positive.
+Definition ___builtin_va_start : ident := 25%positive.
+Definition ___compcert_i64_dtos : ident := 57%positive.
+Definition ___compcert_i64_dtou : ident := 58%positive.
+Definition ___compcert_i64_sar : ident := 69%positive.
+Definition ___compcert_i64_sdiv : ident := 63%positive.
+Definition ___compcert_i64_shl : ident := 67%positive.
+Definition ___compcert_i64_shr : ident := 68%positive.
+Definition ___compcert_i64_smod : ident := 65%positive.
+Definition ___compcert_i64_smulh : ident := 70%positive.
+Definition ___compcert_i64_stod : ident := 59%positive.
+Definition ___compcert_i64_stof : ident := 61%positive.
+Definition ___compcert_i64_udiv : ident := 64%positive.
+Definition ___compcert_i64_umod : ident := 66%positive.
+Definition ___compcert_i64_umulh : ident := 71%positive.
+Definition ___compcert_i64_utod : ident := 60%positive.
+Definition ___compcert_i64_utof : ident := 62%positive.
+Definition ___compcert_va_composite : ident := 56%positive.
+Definition ___compcert_va_float64 : ident := 55%positive.
+Definition ___compcert_va_int32 : ident := 53%positive.
+Definition ___compcert_va_int64 : ident := 54%positive.
+Definition _a_pile : ident := 77%positive.
+Definition _c : ident := 49%positive.
+Definition _exit : ident := 43%positive.
+Definition _free : ident := 42%positive.
Definition _head : ident := 5%positive.
Definition _list : ident := 1%positive.
-Definition _main : ident := 67%positive.
+Definition _main : ident := 72%positive.
+Definition _malloc : ident := 41%positive.
Definition _n : ident := 2%positive.
Definition _next : ident := 3%positive.
+Definition _p : ident := 44%positive.
Definition _pile : ident := 4%positive.
-Definition _t'1 : ident := 68%positive.
+Definition _q : ident := 48%positive.
+Definition _r : ident := 51%positive.
+Definition _surely_malloc : ident := 45%positive.
+Definition _the_pile : ident := 73%positive.
+Definition _t'1 : ident := 80%positive.
Definition v_a_pile := {|
gvar_info := (Tstruct _pile noattr);
@@ -103,8 +115,7 @@ Definition f_Apile_add := {|
fn_temps := nil;
fn_body :=
(Scall None
- (Evar _Pile_add (Tfunction
- (Tcons (tptr (Tstruct _pile noattr)) (Tcons tint Tnil))
+ (Evar _Pile_add (Tfunction ((tptr (Tstruct _pile noattr)) :: tint :: nil)
tvoid cc_default))
((Eaddrof (Evar _a_pile (Tstruct _pile noattr))
(tptr (Tstruct _pile noattr))) :: (Etempvar _n tint) :: nil))
@@ -119,8 +130,8 @@ Definition f_Apile_count := {|
fn_body :=
(Ssequence
(Scall (Some _t'1)
- (Evar _Pile_count (Tfunction (Tcons (tptr (Tstruct _pile noattr)) Tnil)
- tint cc_default))
+ (Evar _Pile_count (Tfunction ((tptr (Tstruct _pile noattr)) :: nil) tint
+ cc_default))
((Eaddrof (Evar _a_pile (Tstruct _pile noattr))
(tptr (Tstruct _pile noattr))) :: nil))
(Sreturn (Some (Etempvar _t'1 tint))))
@@ -138,306 +149,279 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
- (___builtin_ais_annot,
- Gfun(External (EF_builtin "__builtin_ais_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_Pile_add,
Gfun(External (EF_external "Pile_add"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
cc_default))
- (Tcons (tptr (Tstruct _pile noattr)) (Tcons tint Tnil)) tvoid
- cc_default)) ::
+ ((tptr (Tstruct _pile noattr)) :: tint :: nil) tvoid cc_default)) ::
(_Pile_count,
Gfun(External (EF_external "Pile_count"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr (Tstruct _pile noattr)) Tnil) tint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr (Tstruct _pile noattr)) :: nil) tint cc_default)) ::
(_a_pile, Gvar v_a_pile) :: (_Apile_add, Gfun(Internal f_Apile_add)) ::
(_Apile_count, Gfun(Internal f_Apile_count)) :: nil).
Definition public_idents : list ident :=
(_Apile_count :: _Apile_add :: _a_pile :: _Pile_count :: _Pile_add ::
- ___builtin_debug :: ___builtin_write32_reversed ::
- ___builtin_write16_reversed :: ___builtin_read32_reversed ::
- ___builtin_read16_reversed :: ___builtin_fnmsub :: ___builtin_fnmadd ::
- ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_fmin ::
- ___builtin_fmax :: ___builtin_expect :: ___builtin_unreachable ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_sel :: ___builtin_memcpy_aligned ::
- ___builtin_sqrt :: ___builtin_fsqrt :: ___builtin_fabsf ::
- ___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
- ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
- ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
- ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
- ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
- ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
- ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
- nil).
+ ___builtin_debug :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
+ ___builtin_fmadd :: ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
+ ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
+ ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
+ ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
+ ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
+ ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
+ ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
+ ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
+ ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
+ ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
+ ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
+ ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
+ ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
+ ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
+ ___compcert_va_composite :: ___compcert_va_float64 ::
+ ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/VSUpile/fast/fastapile.v b/progs64/VSUpile/fast/fastapile.v
index 02a9f01619..5e6062991d 100644
--- a/progs64/VSUpile/fast/fastapile.v
+++ b/progs64/VSUpile/fast/fastapile.v
@@ -6,107 +6,107 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.13".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "fast/fastapile.c".
Definition normalized := true.
End Info.
-Definition _Apile_add : ident := 46%positive.
-Definition _Apile_count : ident := 47%positive.
-Definition _Onepile_add : ident := 69%positive.
-Definition _Onepile_count : ident := 70%positive.
-Definition _Onepile_init : ident := 68%positive.
-Definition _Pile_add : ident := 43%positive.
-Definition _Pile_count : ident := 44%positive.
-Definition _Pile_free : ident := 86%positive.
-Definition _Pile_new : ident := 76%positive.
-Definition _Triang_nth : ident := 71%positive.
-Definition ___builtin_ais_annot : ident := 6%positive.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 42%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
+Definition _Apile_add : ident := 78%positive.
+Definition _Apile_count : ident := 79%positive.
+Definition _Onepile_add : ident := 75%positive.
+Definition _Onepile_count : ident := 76%positive.
+Definition _Onepile_init : ident := 74%positive.
+Definition _Pile_add : ident := 47%positive.
+Definition _Pile_count : ident := 50%positive.
+Definition _Pile_free : ident := 52%positive.
+Definition _Pile_new : ident := 46%positive.
+Definition _Triang_nth : ident := 81%positive.
+Definition ___builtin_annot : ident := 22%positive.
+Definition ___builtin_annot_intval : ident := 23%positive.
+Definition ___builtin_bswap : ident := 7%positive.
+Definition ___builtin_bswap16 : ident := 9%positive.
+Definition ___builtin_bswap32 : ident := 8%positive.
+Definition ___builtin_bswap64 : ident := 6%positive.
+Definition ___builtin_cls : ident := 31%positive.
+Definition ___builtin_clsl : ident := 32%positive.
+Definition ___builtin_clsll : ident := 33%positive.
+Definition ___builtin_clz : ident := 10%positive.
+Definition ___builtin_clzl : ident := 11%positive.
+Definition ___builtin_clzll : ident := 12%positive.
+Definition ___builtin_ctz : ident := 13%positive.
+Definition ___builtin_ctzl : ident := 14%positive.
+Definition ___builtin_ctzll : ident := 15%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 30%positive.
+Definition ___builtin_fabs : ident := 16%positive.
+Definition ___builtin_fabsf : ident := 17%positive.
Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
+Definition ___builtin_fmax : ident := 38%positive.
+Definition ___builtin_fmin : ident := 39%positive.
Definition ___builtin_fmsub : ident := 35%positive.
Definition ___builtin_fnmadd : ident := 36%positive.
Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 39%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 40%positive.
-Definition ___builtin_write32_reversed : ident := 41%positive.
-Definition ___compcert_i64_dtos : ident := 52%positive.
-Definition ___compcert_i64_dtou : ident := 53%positive.
-Definition ___compcert_i64_sar : ident := 64%positive.
-Definition ___compcert_i64_sdiv : ident := 58%positive.
-Definition ___compcert_i64_shl : ident := 62%positive.
-Definition ___compcert_i64_shr : ident := 63%positive.
-Definition ___compcert_i64_smod : ident := 60%positive.
-Definition ___compcert_i64_smulh : ident := 65%positive.
-Definition ___compcert_i64_stod : ident := 54%positive.
-Definition ___compcert_i64_stof : ident := 56%positive.
-Definition ___compcert_i64_udiv : ident := 59%positive.
-Definition ___compcert_i64_umod : ident := 61%positive.
-Definition ___compcert_i64_umulh : ident := 66%positive.
-Definition ___compcert_i64_utod : ident := 55%positive.
-Definition ___compcert_i64_utof : ident := 57%positive.
-Definition ___compcert_va_composite : ident := 51%positive.
-Definition ___compcert_va_float64 : ident := 50%positive.
-Definition ___compcert_va_int32 : ident := 48%positive.
-Definition ___compcert_va_int64 : ident := 49%positive.
-Definition _a_pile : ident := 45%positive.
-Definition _c : ident := 84%positive.
-Definition _c1 : ident := 73%positive.
-Definition _c2 : ident := 74%positive.
-Definition _c3 : ident := 75%positive.
-Definition _exit : ident := 80%positive.
-Definition _free : ident := 79%positive.
+Definition ___builtin_fsqrt : ident := 18%positive.
+Definition ___builtin_membar : ident := 24%positive.
+Definition ___builtin_memcpy_aligned : ident := 20%positive.
+Definition ___builtin_sel : ident := 21%positive.
+Definition ___builtin_sqrt : ident := 19%positive.
+Definition ___builtin_unreachable : ident := 29%positive.
+Definition ___builtin_va_arg : ident := 26%positive.
+Definition ___builtin_va_copy : ident := 27%positive.
+Definition ___builtin_va_end : ident := 28%positive.
+Definition ___builtin_va_start : ident := 25%positive.
+Definition ___compcert_i64_dtos : ident := 57%positive.
+Definition ___compcert_i64_dtou : ident := 58%positive.
+Definition ___compcert_i64_sar : ident := 69%positive.
+Definition ___compcert_i64_sdiv : ident := 63%positive.
+Definition ___compcert_i64_shl : ident := 67%positive.
+Definition ___compcert_i64_shr : ident := 68%positive.
+Definition ___compcert_i64_smod : ident := 65%positive.
+Definition ___compcert_i64_smulh : ident := 70%positive.
+Definition ___compcert_i64_stod : ident := 59%positive.
+Definition ___compcert_i64_stof : ident := 61%positive.
+Definition ___compcert_i64_udiv : ident := 64%positive.
+Definition ___compcert_i64_umod : ident := 66%positive.
+Definition ___compcert_i64_umulh : ident := 71%positive.
+Definition ___compcert_i64_utod : ident := 60%positive.
+Definition ___compcert_i64_utof : ident := 62%positive.
+Definition ___compcert_va_composite : ident := 56%positive.
+Definition ___compcert_va_float64 : ident := 55%positive.
+Definition ___compcert_va_int32 : ident := 53%positive.
+Definition ___compcert_va_int64 : ident := 54%positive.
+Definition _a_pile : ident := 77%positive.
+Definition _c : ident := 49%positive.
+Definition _c1 : ident := 82%positive.
+Definition _c2 : ident := 83%positive.
+Definition _c3 : ident := 84%positive.
+Definition _exit : ident := 43%positive.
+Definition _free : ident := 42%positive.
Definition _head : ident := 5%positive.
-Definition _i : ident := 72%positive.
+Definition _i : ident := 80%positive.
Definition _list : ident := 1%positive.
-Definition _main : ident := 67%positive.
-Definition _malloc : ident := 78%positive.
+Definition _main : ident := 72%positive.
+Definition _malloc : ident := 41%positive.
Definition _n : ident := 2%positive.
Definition _next : ident := 3%positive.
-Definition _p : ident := 81%positive.
+Definition _p : ident := 44%positive.
Definition _pile : ident := 4%positive.
-Definition _placeholder : ident := 87%positive.
-Definition _q : ident := 83%positive.
-Definition _r : ident := 85%positive.
-Definition _sum : ident := 88%positive.
-Definition _surely_malloc : ident := 82%positive.
-Definition _the_pile : ident := 77%positive.
+Definition _placeholder : ident := 85%positive.
+Definition _pp : ident := 87%positive.
+Definition _q : ident := 48%positive.
+Definition _r : ident := 51%positive.
+Definition _s : ident := 88%positive.
+Definition _sum : ident := 86%positive.
+Definition _surely_malloc : ident := 45%positive.
+Definition _the_pile : ident := 73%positive.
Definition _t'1 : ident := 89%positive.
Definition v_a_pile := {|
@@ -124,8 +124,7 @@ Definition f_Apile_add := {|
fn_temps := nil;
fn_body :=
(Scall None
- (Evar _Pile_add (Tfunction
- (Tcons (tptr (Tstruct _pile noattr)) (Tcons tint Tnil))
+ (Evar _Pile_add (Tfunction ((tptr (Tstruct _pile noattr)) :: tint :: nil)
tvoid cc_default))
((Eaddrof (Evar _a_pile (Tstruct _pile noattr))
(tptr (Tstruct _pile noattr))) :: (Etempvar _n tint) :: nil))
@@ -140,8 +139,8 @@ Definition f_Apile_count := {|
fn_body :=
(Ssequence
(Scall (Some _t'1)
- (Evar _Pile_count (Tfunction (Tcons (tptr (Tstruct _pile noattr)) Tnil)
- tint cc_default))
+ (Evar _Pile_count (Tfunction ((tptr (Tstruct _pile noattr)) :: nil) tint
+ cc_default))
((Eaddrof (Evar _a_pile (Tstruct _pile noattr))
(tptr (Tstruct _pile noattr))) :: nil))
(Sreturn (Some (Etempvar _t'1 tint))))
@@ -153,306 +152,279 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
- (___builtin_ais_annot,
- Gfun(External (EF_builtin "__builtin_ais_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_Pile_add,
Gfun(External (EF_external "Pile_add"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
cc_default))
- (Tcons (tptr (Tstruct _pile noattr)) (Tcons tint Tnil)) tvoid
- cc_default)) ::
+ ((tptr (Tstruct _pile noattr)) :: tint :: nil) tvoid cc_default)) ::
(_Pile_count,
Gfun(External (EF_external "Pile_count"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr (Tstruct _pile noattr)) Tnil) tint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr (Tstruct _pile noattr)) :: nil) tint cc_default)) ::
(_a_pile, Gvar v_a_pile) :: (_Apile_add, Gfun(Internal f_Apile_add)) ::
(_Apile_count, Gfun(Internal f_Apile_count)) :: nil).
Definition public_idents : list ident :=
(_Apile_count :: _Apile_add :: _a_pile :: _Pile_count :: _Pile_add ::
- ___builtin_debug :: ___builtin_write32_reversed ::
- ___builtin_write16_reversed :: ___builtin_read32_reversed ::
- ___builtin_read16_reversed :: ___builtin_fnmsub :: ___builtin_fnmadd ::
- ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_fmin ::
- ___builtin_fmax :: ___builtin_expect :: ___builtin_unreachable ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_sel :: ___builtin_memcpy_aligned ::
- ___builtin_sqrt :: ___builtin_fsqrt :: ___builtin_fabsf ::
- ___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
- ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
- ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
- ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
- ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
- ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
- ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
- nil).
+ ___builtin_debug :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
+ ___builtin_fmadd :: ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
+ ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
+ ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
+ ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
+ ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
+ ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
+ ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
+ ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
+ ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
+ ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
+ ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
+ ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
+ ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
+ ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
+ ___compcert_va_composite :: ___compcert_va_float64 ::
+ ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/VSUpile/fast/fastpile.v b/progs64/VSUpile/fast/fastpile.v
index 4a5ecebdc3..33c0b48544 100644
--- a/progs64/VSUpile/fast/fastpile.v
+++ b/progs64/VSUpile/fast/fastpile.v
@@ -6,110 +6,108 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.13".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "fast/fastpile.c".
Definition normalized := true.
End Info.
-Definition _Apile_add : ident := 46%positive.
-Definition _Apile_count : ident := 47%positive.
-Definition _Onepile_add : ident := 69%positive.
-Definition _Onepile_count : ident := 70%positive.
-Definition _Onepile_init : ident := 68%positive.
-Definition _Pile_add : ident := 43%positive.
-Definition _Pile_count : ident := 44%positive.
-Definition _Pile_free : ident := 86%positive.
-Definition _Pile_new : ident := 76%positive.
-Definition _Triang_nth : ident := 71%positive.
-Definition ___builtin_ais_annot : ident := 6%positive.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 42%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
+Definition _Apile_add : ident := 78%positive.
+Definition _Apile_count : ident := 79%positive.
+Definition _Onepile_add : ident := 75%positive.
+Definition _Onepile_count : ident := 76%positive.
+Definition _Onepile_init : ident := 74%positive.
+Definition _Pile_add : ident := 47%positive.
+Definition _Pile_count : ident := 50%positive.
+Definition _Pile_free : ident := 52%positive.
+Definition _Pile_new : ident := 46%positive.
+Definition _Triang_nth : ident := 81%positive.
+Definition ___builtin_annot : ident := 22%positive.
+Definition ___builtin_annot_intval : ident := 23%positive.
+Definition ___builtin_bswap : ident := 7%positive.
+Definition ___builtin_bswap16 : ident := 9%positive.
+Definition ___builtin_bswap32 : ident := 8%positive.
+Definition ___builtin_bswap64 : ident := 6%positive.
+Definition ___builtin_cls : ident := 31%positive.
+Definition ___builtin_clsl : ident := 32%positive.
+Definition ___builtin_clsll : ident := 33%positive.
+Definition ___builtin_clz : ident := 10%positive.
+Definition ___builtin_clzl : ident := 11%positive.
+Definition ___builtin_clzll : ident := 12%positive.
+Definition ___builtin_ctz : ident := 13%positive.
+Definition ___builtin_ctzl : ident := 14%positive.
+Definition ___builtin_ctzll : ident := 15%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 30%positive.
+Definition ___builtin_fabs : ident := 16%positive.
+Definition ___builtin_fabsf : ident := 17%positive.
Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
+Definition ___builtin_fmax : ident := 38%positive.
+Definition ___builtin_fmin : ident := 39%positive.
Definition ___builtin_fmsub : ident := 35%positive.
Definition ___builtin_fnmadd : ident := 36%positive.
Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 39%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 40%positive.
-Definition ___builtin_write32_reversed : ident := 41%positive.
-Definition ___compcert_i64_dtos : ident := 52%positive.
-Definition ___compcert_i64_dtou : ident := 53%positive.
-Definition ___compcert_i64_sar : ident := 64%positive.
-Definition ___compcert_i64_sdiv : ident := 58%positive.
-Definition ___compcert_i64_shl : ident := 62%positive.
-Definition ___compcert_i64_shr : ident := 63%positive.
-Definition ___compcert_i64_smod : ident := 60%positive.
-Definition ___compcert_i64_smulh : ident := 65%positive.
-Definition ___compcert_i64_stod : ident := 54%positive.
-Definition ___compcert_i64_stof : ident := 56%positive.
-Definition ___compcert_i64_udiv : ident := 59%positive.
-Definition ___compcert_i64_umod : ident := 61%positive.
-Definition ___compcert_i64_umulh : ident := 66%positive.
-Definition ___compcert_i64_utod : ident := 55%positive.
-Definition ___compcert_i64_utof : ident := 57%positive.
-Definition ___compcert_va_composite : ident := 51%positive.
-Definition ___compcert_va_float64 : ident := 50%positive.
-Definition ___compcert_va_int32 : ident := 48%positive.
-Definition ___compcert_va_int64 : ident := 49%positive.
-Definition _a_pile : ident := 45%positive.
-Definition _c : ident := 84%positive.
-Definition _c1 : ident := 73%positive.
-Definition _c2 : ident := 74%positive.
-Definition _c3 : ident := 75%positive.
-Definition _exit : ident := 80%positive.
-Definition _free : ident := 79%positive.
+Definition ___builtin_fsqrt : ident := 18%positive.
+Definition ___builtin_membar : ident := 24%positive.
+Definition ___builtin_memcpy_aligned : ident := 20%positive.
+Definition ___builtin_sel : ident := 21%positive.
+Definition ___builtin_sqrt : ident := 19%positive.
+Definition ___builtin_unreachable : ident := 29%positive.
+Definition ___builtin_va_arg : ident := 26%positive.
+Definition ___builtin_va_copy : ident := 27%positive.
+Definition ___builtin_va_end : ident := 28%positive.
+Definition ___builtin_va_start : ident := 25%positive.
+Definition ___compcert_i64_dtos : ident := 57%positive.
+Definition ___compcert_i64_dtou : ident := 58%positive.
+Definition ___compcert_i64_sar : ident := 69%positive.
+Definition ___compcert_i64_sdiv : ident := 63%positive.
+Definition ___compcert_i64_shl : ident := 67%positive.
+Definition ___compcert_i64_shr : ident := 68%positive.
+Definition ___compcert_i64_smod : ident := 65%positive.
+Definition ___compcert_i64_smulh : ident := 70%positive.
+Definition ___compcert_i64_stod : ident := 59%positive.
+Definition ___compcert_i64_stof : ident := 61%positive.
+Definition ___compcert_i64_udiv : ident := 64%positive.
+Definition ___compcert_i64_umod : ident := 66%positive.
+Definition ___compcert_i64_umulh : ident := 71%positive.
+Definition ___compcert_i64_utod : ident := 60%positive.
+Definition ___compcert_i64_utof : ident := 62%positive.
+Definition ___compcert_va_composite : ident := 56%positive.
+Definition ___compcert_va_float64 : ident := 55%positive.
+Definition ___compcert_va_int32 : ident := 53%positive.
+Definition ___compcert_va_int64 : ident := 54%positive.
+Definition _a_pile : ident := 77%positive.
+Definition _c : ident := 49%positive.
+Definition _c1 : ident := 82%positive.
+Definition _c2 : ident := 83%positive.
+Definition _c3 : ident := 84%positive.
+Definition _exit : ident := 43%positive.
+Definition _free : ident := 42%positive.
Definition _head : ident := 5%positive.
-Definition _i : ident := 72%positive.
+Definition _i : ident := 80%positive.
Definition _list : ident := 1%positive.
-Definition _main : ident := 67%positive.
-Definition _malloc : ident := 78%positive.
+Definition _main : ident := 72%positive.
+Definition _malloc : ident := 41%positive.
Definition _n : ident := 2%positive.
Definition _next : ident := 3%positive.
-Definition _p : ident := 81%positive.
+Definition _p : ident := 44%positive.
Definition _pile : ident := 4%positive.
-Definition _placeholder : ident := 87%positive.
-Definition _pp : ident := 89%positive.
-Definition _q : ident := 83%positive.
-Definition _r : ident := 85%positive.
-Definition _s : ident := 90%positive.
-Definition _sum : ident := 88%positive.
-Definition _surely_malloc : ident := 82%positive.
-Definition _the_pile : ident := 77%positive.
-Definition _t'1 : ident := 91%positive.
+Definition _placeholder : ident := 85%positive.
+Definition _pp : ident := 87%positive.
+Definition _q : ident := 48%positive.
+Definition _r : ident := 51%positive.
+Definition _s : ident := 88%positive.
+Definition _sum : ident := 86%positive.
+Definition _surely_malloc : ident := 45%positive.
+Definition _the_pile : ident := 73%positive.
+Definition _t'1 : ident := 89%positive.
Definition f_surely_malloc := {|
fn_return := (tptr tvoid);
@@ -121,12 +119,12 @@ Definition f_surely_malloc := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tulong Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (tulong :: nil) (tptr tvoid) cc_default))
((Etempvar _n tulong) :: nil))
(Sset _p (Etempvar _t'1 (tptr tvoid))))
(Ssequence
(Sifthenelse (Eunop Onotbool (Etempvar _p (tptr tvoid)) tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Sreturn (Some (Etempvar _p (tptr tvoid))))))
@@ -143,7 +141,7 @@ Definition f_Pile_new := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _surely_malloc (Tfunction (Tcons tulong Tnil) (tptr tvoid)
+ (Evar _surely_malloc (Tfunction (tulong :: nil) (tptr tvoid)
cc_default))
((Esizeof (Tstruct _pile noattr) tulong) :: nil))
(Sset _p
@@ -208,8 +206,7 @@ Definition f_Pile_free := {|
fn_vars := nil;
fn_temps := nil;
fn_body :=
-(Scall None
- (Evar _free (Tfunction (Tcons (tptr tvoid) Tnil) tvoid cc_default))
+(Scall None (Evar _free (Tfunction ((tptr tvoid) :: nil) tvoid cc_default))
((Etempvar _pp (tptr (Tstruct _pile noattr))) :: nil))
|}.
@@ -219,278 +216,253 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
- (___builtin_ais_annot,
- Gfun(External (EF_builtin "__builtin_ais_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
- (_malloc,
- Gfun(External EF_malloc (Tcons tulong Tnil) (tptr tvoid) cc_default)) ::
- (_free, Gfun(External EF_free (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (_malloc, Gfun(External EF_malloc (tulong :: nil) (tptr tvoid) cc_default)) ::
+ (_free, Gfun(External EF_free ((tptr tvoid) :: nil) tvoid cc_default)) ::
(_exit,
Gfun(External (EF_external "exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
(_surely_malloc, Gfun(Internal f_surely_malloc)) ::
(_Pile_new, Gfun(Internal f_Pile_new)) ::
(_Pile_add, Gfun(Internal f_Pile_add)) ::
@@ -499,25 +471,23 @@ Definition global_definitions : list (ident * globdef fundef type) :=
Definition public_idents : list ident :=
(_Pile_free :: _Pile_count :: _Pile_add :: _Pile_new :: _surely_malloc ::
- _exit :: _free :: _malloc :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
- ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
- ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
- ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
- ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
- ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
- ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
- ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
- ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ _exit :: _free :: _malloc :: ___builtin_debug :: ___builtin_fmin ::
+ ___builtin_fmax :: ___builtin_fnmsub :: ___builtin_fnmadd ::
+ ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_clsll ::
+ ___builtin_clsl :: ___builtin_cls :: ___builtin_expect ::
+ ___builtin_unreachable :: ___builtin_va_end :: ___builtin_va_copy ::
+ ___builtin_va_arg :: ___builtin_va_start :: ___builtin_membar ::
+ ___builtin_annot_intval :: ___builtin_annot :: ___builtin_sel ::
+ ___builtin_memcpy_aligned :: ___builtin_sqrt :: ___builtin_fsqrt ::
+ ___builtin_fabsf :: ___builtin_fabs :: ___builtin_ctzll ::
+ ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll :: ___builtin_clzl ::
+ ___builtin_clz :: ___builtin_bswap16 :: ___builtin_bswap32 ::
+ ___builtin_bswap :: ___builtin_bswap64 :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs64/VSUpile/main.v b/progs64/VSUpile/main.v
index e14077c85c..dc8b61edbf 100644
--- a/progs64/VSUpile/main.v
+++ b/progs64/VSUpile/main.v
@@ -6,97 +6,106 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.13".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "main.c".
Definition normalized := true.
End Info.
-Definition _Apile_add : ident := 46%positive.
-Definition _Apile_count : ident := 47%positive.
-Definition _Onepile_add : ident := 69%positive.
-Definition _Onepile_count : ident := 70%positive.
-Definition _Onepile_init : ident := 68%positive.
-Definition _Pile_add : ident := 43%positive.
-Definition _Pile_count : ident := 44%positive.
-Definition _Triang_nth : ident := 71%positive.
-Definition ___builtin_ais_annot : ident := 6%positive.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 42%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
+Definition _Apile_add : ident := 78%positive.
+Definition _Apile_count : ident := 79%positive.
+Definition _Onepile_add : ident := 75%positive.
+Definition _Onepile_count : ident := 76%positive.
+Definition _Onepile_init : ident := 74%positive.
+Definition _Pile_add : ident := 47%positive.
+Definition _Pile_count : ident := 50%positive.
+Definition _Pile_free : ident := 52%positive.
+Definition _Pile_new : ident := 46%positive.
+Definition _Triang_nth : ident := 81%positive.
+Definition ___builtin_annot : ident := 22%positive.
+Definition ___builtin_annot_intval : ident := 23%positive.
+Definition ___builtin_bswap : ident := 7%positive.
+Definition ___builtin_bswap16 : ident := 9%positive.
+Definition ___builtin_bswap32 : ident := 8%positive.
+Definition ___builtin_bswap64 : ident := 6%positive.
+Definition ___builtin_cls : ident := 31%positive.
+Definition ___builtin_clsl : ident := 32%positive.
+Definition ___builtin_clsll : ident := 33%positive.
+Definition ___builtin_clz : ident := 10%positive.
+Definition ___builtin_clzl : ident := 11%positive.
+Definition ___builtin_clzll : ident := 12%positive.
+Definition ___builtin_ctz : ident := 13%positive.
+Definition ___builtin_ctzl : ident := 14%positive.
+Definition ___builtin_ctzll : ident := 15%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 30%positive.
+Definition ___builtin_fabs : ident := 16%positive.
+Definition ___builtin_fabsf : ident := 17%positive.
Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
+Definition ___builtin_fmax : ident := 38%positive.
+Definition ___builtin_fmin : ident := 39%positive.
Definition ___builtin_fmsub : ident := 35%positive.
Definition ___builtin_fnmadd : ident := 36%positive.
Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 39%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 40%positive.
-Definition ___builtin_write32_reversed : ident := 41%positive.
-Definition ___compcert_i64_dtos : ident := 52%positive.
-Definition ___compcert_i64_dtou : ident := 53%positive.
-Definition ___compcert_i64_sar : ident := 64%positive.
-Definition ___compcert_i64_sdiv : ident := 58%positive.
-Definition ___compcert_i64_shl : ident := 62%positive.
-Definition ___compcert_i64_shr : ident := 63%positive.
-Definition ___compcert_i64_smod : ident := 60%positive.
-Definition ___compcert_i64_smulh : ident := 65%positive.
-Definition ___compcert_i64_stod : ident := 54%positive.
-Definition ___compcert_i64_stof : ident := 56%positive.
-Definition ___compcert_i64_udiv : ident := 59%positive.
-Definition ___compcert_i64_umod : ident := 61%positive.
-Definition ___compcert_i64_umulh : ident := 66%positive.
-Definition ___compcert_i64_utod : ident := 55%positive.
-Definition ___compcert_i64_utof : ident := 57%positive.
-Definition ___compcert_va_composite : ident := 51%positive.
-Definition ___compcert_va_float64 : ident := 50%positive.
-Definition ___compcert_va_int32 : ident := 48%positive.
-Definition ___compcert_va_int64 : ident := 49%positive.
-Definition _a_pile : ident := 45%positive.
-Definition _c1 : ident := 73%positive.
-Definition _c2 : ident := 74%positive.
-Definition _c3 : ident := 75%positive.
+Definition ___builtin_fsqrt : ident := 18%positive.
+Definition ___builtin_membar : ident := 24%positive.
+Definition ___builtin_memcpy_aligned : ident := 20%positive.
+Definition ___builtin_sel : ident := 21%positive.
+Definition ___builtin_sqrt : ident := 19%positive.
+Definition ___builtin_unreachable : ident := 29%positive.
+Definition ___builtin_va_arg : ident := 26%positive.
+Definition ___builtin_va_copy : ident := 27%positive.
+Definition ___builtin_va_end : ident := 28%positive.
+Definition ___builtin_va_start : ident := 25%positive.
+Definition ___compcert_i64_dtos : ident := 57%positive.
+Definition ___compcert_i64_dtou : ident := 58%positive.
+Definition ___compcert_i64_sar : ident := 69%positive.
+Definition ___compcert_i64_sdiv : ident := 63%positive.
+Definition ___compcert_i64_shl : ident := 67%positive.
+Definition ___compcert_i64_shr : ident := 68%positive.
+Definition ___compcert_i64_smod : ident := 65%positive.
+Definition ___compcert_i64_smulh : ident := 70%positive.
+Definition ___compcert_i64_stod : ident := 59%positive.
+Definition ___compcert_i64_stof : ident := 61%positive.
+Definition ___compcert_i64_udiv : ident := 64%positive.
+Definition ___compcert_i64_umod : ident := 66%positive.
+Definition ___compcert_i64_umulh : ident := 71%positive.
+Definition ___compcert_i64_utod : ident := 60%positive.
+Definition ___compcert_i64_utof : ident := 62%positive.
+Definition ___compcert_va_composite : ident := 56%positive.
+Definition ___compcert_va_float64 : ident := 55%positive.
+Definition ___compcert_va_int32 : ident := 53%positive.
+Definition ___compcert_va_int64 : ident := 54%positive.
+Definition _a_pile : ident := 77%positive.
+Definition _c : ident := 49%positive.
+Definition _c1 : ident := 82%positive.
+Definition _c2 : ident := 83%positive.
+Definition _c3 : ident := 84%positive.
+Definition _exit : ident := 43%positive.
+Definition _free : ident := 42%positive.
Definition _head : ident := 5%positive.
-Definition _i : ident := 72%positive.
+Definition _i : ident := 80%positive.
Definition _list : ident := 1%positive.
-Definition _main : ident := 67%positive.
+Definition _main : ident := 72%positive.
+Definition _malloc : ident := 41%positive.
Definition _n : ident := 2%positive.
Definition _next : ident := 3%positive.
+Definition _p : ident := 44%positive.
Definition _pile : ident := 4%positive.
-Definition _t'1 : ident := 76%positive.
-Definition _t'2 : ident := 77%positive.
-Definition _t'3 : ident := 78%positive.
+Definition _q : ident := 48%positive.
+Definition _r : ident := 51%positive.
+Definition _surely_malloc : ident := 45%positive.
+Definition _the_pile : ident := 73%positive.
+Definition _t'1 : ident := 85%positive.
+Definition _t'2 : ident := 86%positive.
+Definition _t'3 : ident := 87%positive.
Definition f_main := {|
fn_return := tint;
@@ -108,7 +117,7 @@ Definition f_main := {|
fn_body :=
(Ssequence
(Ssequence
- (Scall None (Evar _Onepile_init (Tfunction Tnil tvoid cc_default)) nil)
+ (Scall None (Evar _Onepile_init (Tfunction nil tvoid cc_default)) nil)
(Ssequence
(Ssequence
(Sset _i (Econst_int (Int.repr 0) tint))
@@ -120,13 +129,11 @@ Definition f_main := {|
Sbreak)
(Ssequence
(Scall None
- (Evar _Onepile_add (Tfunction (Tcons tint Tnil) tvoid
- cc_default))
+ (Evar _Onepile_add (Tfunction (tint :: nil) tvoid cc_default))
((Ebinop Oadd (Etempvar _i tint)
(Econst_int (Int.repr 1) tint) tint) :: nil))
(Scall None
- (Evar _Apile_add (Tfunction (Tcons tint Tnil) tvoid
- cc_default))
+ (Evar _Apile_add (Tfunction (tint :: nil) tvoid cc_default))
((Ebinop Oadd (Etempvar _i tint)
(Econst_int (Int.repr 1) tint) tint) :: nil))))
(Sset _i
@@ -135,18 +142,17 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _Onepile_count (Tfunction Tnil tint cc_default)) nil)
+ (Evar _Onepile_count (Tfunction nil tint cc_default)) nil)
(Sset _c1 (Etempvar _t'1 tint)))
(Ssequence
(Ssequence
(Scall (Some _t'2)
- (Evar _Apile_count (Tfunction Tnil tint cc_default)) nil)
+ (Evar _Apile_count (Tfunction nil tint cc_default)) nil)
(Sset _c2 (Etempvar _t'2 tint)))
(Ssequence
(Ssequence
(Scall (Some _t'3)
- (Evar _Triang_nth (Tfunction (Tcons tint Tnil) tint
- cc_default))
+ (Evar _Triang_nth (Tfunction (tint :: nil) tint cc_default))
((Econst_int (Int.repr 10) tint) :: nil))
(Sset _c3 (Etempvar _t'3 tint)))
(Sreturn (Some (Ebinop Osub
@@ -163,318 +169,292 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
- (___builtin_ais_annot,
- Gfun(External (EF_builtin "__builtin_ais_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_Apile_add,
Gfun(External (EF_external "Apile_add"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
(_Apile_count,
Gfun(External (EF_external "Apile_count"
- (mksignature nil AST.Tint cc_default)) Tnil tint
+ (mksignature nil AST.Xint cc_default)) nil tint
cc_default)) ::
(_Onepile_init,
Gfun(External (EF_external "Onepile_init"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(_Onepile_add,
Gfun(External (EF_external "Onepile_add"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
(_Onepile_count,
Gfun(External (EF_external "Onepile_count"
- (mksignature nil AST.Tint cc_default)) Tnil tint
+ (mksignature nil AST.Xint cc_default)) nil tint
cc_default)) ::
(_Triang_nth,
Gfun(External (EF_external "Triang_nth"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tint Tnil) tint cc_default)) :: (_main, Gfun(Internal f_main)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) :: (_main, Gfun(Internal f_main)) ::
nil).
Definition public_idents : list ident :=
(_main :: _Triang_nth :: _Onepile_count :: _Onepile_add :: _Onepile_init ::
- _Apile_count :: _Apile_add :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
- ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
- ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
- ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
- ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
- ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
- ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
- ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
- ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ _Apile_count :: _Apile_add :: ___builtin_debug :: ___builtin_fmin ::
+ ___builtin_fmax :: ___builtin_fnmsub :: ___builtin_fnmadd ::
+ ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_clsll ::
+ ___builtin_clsl :: ___builtin_cls :: ___builtin_expect ::
+ ___builtin_unreachable :: ___builtin_va_end :: ___builtin_va_copy ::
+ ___builtin_va_arg :: ___builtin_va_start :: ___builtin_membar ::
+ ___builtin_annot_intval :: ___builtin_annot :: ___builtin_sel ::
+ ___builtin_memcpy_aligned :: ___builtin_sqrt :: ___builtin_fsqrt ::
+ ___builtin_fabsf :: ___builtin_fabs :: ___builtin_ctzll ::
+ ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll :: ___builtin_clzl ::
+ ___builtin_clz :: ___builtin_bswap16 :: ___builtin_bswap32 ::
+ ___builtin_bswap :: ___builtin_bswap64 :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs64/VSUpile/onepile.v b/progs64/VSUpile/onepile.v
index 2c7a1d0816..aa7d3d8bc7 100644
--- a/progs64/VSUpile/onepile.v
+++ b/progs64/VSUpile/onepile.v
@@ -6,98 +6,97 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.13".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "onepile.c".
Definition normalized := true.
End Info.
-Definition _Apile_add : ident := 46%positive.
-Definition _Apile_count : ident := 47%positive.
-Definition _Onepile_add : ident := 69%positive.
-Definition _Onepile_count : ident := 70%positive.
-Definition _Onepile_init : ident := 68%positive.
-Definition _Pile_add : ident := 43%positive.
-Definition _Pile_count : ident := 44%positive.
-Definition _Pile_new : ident := 76%positive.
-Definition _Triang_nth : ident := 71%positive.
-Definition ___builtin_ais_annot : ident := 6%positive.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 42%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
+Definition _Onepile_add : ident := 75%positive.
+Definition _Onepile_count : ident := 76%positive.
+Definition _Onepile_init : ident := 74%positive.
+Definition _Pile_add : ident := 47%positive.
+Definition _Pile_count : ident := 50%positive.
+Definition _Pile_free : ident := 52%positive.
+Definition _Pile_new : ident := 46%positive.
+Definition ___builtin_annot : ident := 22%positive.
+Definition ___builtin_annot_intval : ident := 23%positive.
+Definition ___builtin_bswap : ident := 7%positive.
+Definition ___builtin_bswap16 : ident := 9%positive.
+Definition ___builtin_bswap32 : ident := 8%positive.
+Definition ___builtin_bswap64 : ident := 6%positive.
+Definition ___builtin_cls : ident := 31%positive.
+Definition ___builtin_clsl : ident := 32%positive.
+Definition ___builtin_clsll : ident := 33%positive.
+Definition ___builtin_clz : ident := 10%positive.
+Definition ___builtin_clzl : ident := 11%positive.
+Definition ___builtin_clzll : ident := 12%positive.
+Definition ___builtin_ctz : ident := 13%positive.
+Definition ___builtin_ctzl : ident := 14%positive.
+Definition ___builtin_ctzll : ident := 15%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 30%positive.
+Definition ___builtin_fabs : ident := 16%positive.
+Definition ___builtin_fabsf : ident := 17%positive.
Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
+Definition ___builtin_fmax : ident := 38%positive.
+Definition ___builtin_fmin : ident := 39%positive.
Definition ___builtin_fmsub : ident := 35%positive.
Definition ___builtin_fnmadd : ident := 36%positive.
Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 39%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 40%positive.
-Definition ___builtin_write32_reversed : ident := 41%positive.
-Definition ___compcert_i64_dtos : ident := 52%positive.
-Definition ___compcert_i64_dtou : ident := 53%positive.
-Definition ___compcert_i64_sar : ident := 64%positive.
-Definition ___compcert_i64_sdiv : ident := 58%positive.
-Definition ___compcert_i64_shl : ident := 62%positive.
-Definition ___compcert_i64_shr : ident := 63%positive.
-Definition ___compcert_i64_smod : ident := 60%positive.
-Definition ___compcert_i64_smulh : ident := 65%positive.
-Definition ___compcert_i64_stod : ident := 54%positive.
-Definition ___compcert_i64_stof : ident := 56%positive.
-Definition ___compcert_i64_udiv : ident := 59%positive.
-Definition ___compcert_i64_umod : ident := 61%positive.
-Definition ___compcert_i64_umulh : ident := 66%positive.
-Definition ___compcert_i64_utod : ident := 55%positive.
-Definition ___compcert_i64_utof : ident := 57%positive.
-Definition ___compcert_va_composite : ident := 51%positive.
-Definition ___compcert_va_float64 : ident := 50%positive.
-Definition ___compcert_va_int32 : ident := 48%positive.
-Definition ___compcert_va_int64 : ident := 49%positive.
-Definition _a_pile : ident := 45%positive.
-Definition _c1 : ident := 73%positive.
-Definition _c2 : ident := 74%positive.
-Definition _c3 : ident := 75%positive.
+Definition ___builtin_fsqrt : ident := 18%positive.
+Definition ___builtin_membar : ident := 24%positive.
+Definition ___builtin_memcpy_aligned : ident := 20%positive.
+Definition ___builtin_sel : ident := 21%positive.
+Definition ___builtin_sqrt : ident := 19%positive.
+Definition ___builtin_unreachable : ident := 29%positive.
+Definition ___builtin_va_arg : ident := 26%positive.
+Definition ___builtin_va_copy : ident := 27%positive.
+Definition ___builtin_va_end : ident := 28%positive.
+Definition ___builtin_va_start : ident := 25%positive.
+Definition ___compcert_i64_dtos : ident := 57%positive.
+Definition ___compcert_i64_dtou : ident := 58%positive.
+Definition ___compcert_i64_sar : ident := 69%positive.
+Definition ___compcert_i64_sdiv : ident := 63%positive.
+Definition ___compcert_i64_shl : ident := 67%positive.
+Definition ___compcert_i64_shr : ident := 68%positive.
+Definition ___compcert_i64_smod : ident := 65%positive.
+Definition ___compcert_i64_smulh : ident := 70%positive.
+Definition ___compcert_i64_stod : ident := 59%positive.
+Definition ___compcert_i64_stof : ident := 61%positive.
+Definition ___compcert_i64_udiv : ident := 64%positive.
+Definition ___compcert_i64_umod : ident := 66%positive.
+Definition ___compcert_i64_umulh : ident := 71%positive.
+Definition ___compcert_i64_utod : ident := 60%positive.
+Definition ___compcert_i64_utof : ident := 62%positive.
+Definition ___compcert_va_composite : ident := 56%positive.
+Definition ___compcert_va_float64 : ident := 55%positive.
+Definition ___compcert_va_int32 : ident := 53%positive.
+Definition ___compcert_va_int64 : ident := 54%positive.
+Definition _c : ident := 49%positive.
+Definition _exit : ident := 43%positive.
+Definition _free : ident := 42%positive.
Definition _head : ident := 5%positive.
-Definition _i : ident := 72%positive.
Definition _list : ident := 1%positive.
-Definition _main : ident := 67%positive.
+Definition _main : ident := 72%positive.
+Definition _malloc : ident := 41%positive.
Definition _n : ident := 2%positive.
Definition _next : ident := 3%positive.
+Definition _p : ident := 44%positive.
Definition _pile : ident := 4%positive.
-Definition _the_pile : ident := 77%positive.
-Definition _t'1 : ident := 78%positive.
-Definition _t'2 : ident := 79%positive.
+Definition _q : ident := 48%positive.
+Definition _r : ident := 51%positive.
+Definition _surely_malloc : ident := 45%positive.
+Definition _the_pile : ident := 73%positive.
+Definition _t'1 : ident := 77%positive.
+Definition _t'2 : ident := 78%positive.
Definition v_the_pile := {|
gvar_info := (tptr (Tstruct _pile noattr));
@@ -115,7 +114,7 @@ Definition f_Onepile_init := {|
fn_body :=
(Ssequence
(Scall (Some _t'1)
- (Evar _Pile_new (Tfunction Tnil (tptr (Tstruct _pile noattr)) cc_default))
+ (Evar _Pile_new (Tfunction nil (tptr (Tstruct _pile noattr)) cc_default))
nil)
(Sassign (Evar _the_pile (tptr (Tstruct _pile noattr)))
(Etempvar _t'1 (tptr (Tstruct _pile noattr)))))
@@ -131,8 +130,7 @@ Definition f_Onepile_add := {|
(Ssequence
(Sset _t'1 (Evar _the_pile (tptr (Tstruct _pile noattr))))
(Scall None
- (Evar _Pile_add (Tfunction
- (Tcons (tptr (Tstruct _pile noattr)) (Tcons tint Tnil))
+ (Evar _Pile_add (Tfunction ((tptr (Tstruct _pile noattr)) :: tint :: nil)
tvoid cc_default))
((Etempvar _t'1 (tptr (Tstruct _pile noattr))) :: (Etempvar _n tint) ::
nil)))
@@ -149,7 +147,7 @@ Definition f_Onepile_count := {|
(Ssequence
(Sset _t'2 (Evar _the_pile (tptr (Tstruct _pile noattr))))
(Scall (Some _t'1)
- (Evar _Pile_count (Tfunction (Tcons (tptr (Tstruct _pile noattr)) Tnil)
+ (Evar _Pile_count (Tfunction ((tptr (Tstruct _pile noattr)) :: nil)
tint cc_default))
((Etempvar _t'2 (tptr (Tstruct _pile noattr))) :: nil)))
(Sreturn (Some (Etempvar _t'1 tint))))
@@ -161,285 +159,260 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
- (___builtin_ais_annot,
- Gfun(External (EF_builtin "__builtin_ais_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_Pile_new,
Gfun(External (EF_external "Pile_new"
- (mksignature nil AST.Tlong cc_default)) Tnil
+ (mksignature nil AST.Xptr cc_default)) nil
(tptr (Tstruct _pile noattr)) cc_default)) ::
(_Pile_add,
Gfun(External (EF_external "Pile_add"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
cc_default))
- (Tcons (tptr (Tstruct _pile noattr)) (Tcons tint Tnil)) tvoid
- cc_default)) ::
+ ((tptr (Tstruct _pile noattr)) :: tint :: nil) tvoid cc_default)) ::
(_Pile_count,
Gfun(External (EF_external "Pile_count"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr (Tstruct _pile noattr)) Tnil) tint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr (Tstruct _pile noattr)) :: nil) tint cc_default)) ::
(_the_pile, Gvar v_the_pile) ::
(_Onepile_init, Gfun(Internal f_Onepile_init)) ::
(_Onepile_add, Gfun(Internal f_Onepile_add)) ::
@@ -448,10 +421,9 @@ Definition global_definitions : list (ident * globdef fundef type) :=
Definition public_idents : list ident :=
(_Onepile_count :: _Onepile_add :: _Onepile_init :: _the_pile ::
_Pile_count :: _Pile_add :: _Pile_new :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fmin :: ___builtin_fmax :: ___builtin_fnmsub ::
+ ___builtin_fnmadd :: ___builtin_fmsub :: ___builtin_fmadd ::
+ ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
@@ -460,14 +432,13 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
- ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
- nil).
+ ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
+ ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
+ ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
+ ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
+ ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
+ ___compcert_va_composite :: ___compcert_va_float64 ::
+ ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/VSUpile/pile.v b/progs64/VSUpile/pile.v
index dbc9759406..1ba742e28a 100644
--- a/progs64/VSUpile/pile.v
+++ b/progs64/VSUpile/pile.v
@@ -6,107 +6,93 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.13".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "pile.c".
Definition normalized := true.
End Info.
-Definition _Apile_add : ident := 46%positive.
-Definition _Apile_count : ident := 47%positive.
-Definition _Onepile_add : ident := 69%positive.
-Definition _Onepile_count : ident := 70%positive.
-Definition _Onepile_init : ident := 68%positive.
-Definition _Pile_add : ident := 43%positive.
-Definition _Pile_count : ident := 44%positive.
-Definition _Pile_free : ident := 86%positive.
-Definition _Pile_new : ident := 76%positive.
-Definition _Triang_nth : ident := 71%positive.
-Definition ___builtin_ais_annot : ident := 6%positive.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 42%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
+Definition _Pile_add : ident := 47%positive.
+Definition _Pile_count : ident := 50%positive.
+Definition _Pile_free : ident := 52%positive.
+Definition _Pile_new : ident := 46%positive.
+Definition ___builtin_annot : ident := 22%positive.
+Definition ___builtin_annot_intval : ident := 23%positive.
+Definition ___builtin_bswap : ident := 7%positive.
+Definition ___builtin_bswap16 : ident := 9%positive.
+Definition ___builtin_bswap32 : ident := 8%positive.
+Definition ___builtin_bswap64 : ident := 6%positive.
+Definition ___builtin_cls : ident := 31%positive.
+Definition ___builtin_clsl : ident := 32%positive.
+Definition ___builtin_clsll : ident := 33%positive.
+Definition ___builtin_clz : ident := 10%positive.
+Definition ___builtin_clzl : ident := 11%positive.
+Definition ___builtin_clzll : ident := 12%positive.
+Definition ___builtin_ctz : ident := 13%positive.
+Definition ___builtin_ctzl : ident := 14%positive.
+Definition ___builtin_ctzll : ident := 15%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 30%positive.
+Definition ___builtin_fabs : ident := 16%positive.
+Definition ___builtin_fabsf : ident := 17%positive.
Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
+Definition ___builtin_fmax : ident := 38%positive.
+Definition ___builtin_fmin : ident := 39%positive.
Definition ___builtin_fmsub : ident := 35%positive.
Definition ___builtin_fnmadd : ident := 36%positive.
Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 39%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 40%positive.
-Definition ___builtin_write32_reversed : ident := 41%positive.
-Definition ___compcert_i64_dtos : ident := 52%positive.
-Definition ___compcert_i64_dtou : ident := 53%positive.
-Definition ___compcert_i64_sar : ident := 64%positive.
-Definition ___compcert_i64_sdiv : ident := 58%positive.
-Definition ___compcert_i64_shl : ident := 62%positive.
-Definition ___compcert_i64_shr : ident := 63%positive.
-Definition ___compcert_i64_smod : ident := 60%positive.
-Definition ___compcert_i64_smulh : ident := 65%positive.
-Definition ___compcert_i64_stod : ident := 54%positive.
-Definition ___compcert_i64_stof : ident := 56%positive.
-Definition ___compcert_i64_udiv : ident := 59%positive.
-Definition ___compcert_i64_umod : ident := 61%positive.
-Definition ___compcert_i64_umulh : ident := 66%positive.
-Definition ___compcert_i64_utod : ident := 55%positive.
-Definition ___compcert_i64_utof : ident := 57%positive.
-Definition ___compcert_va_composite : ident := 51%positive.
-Definition ___compcert_va_float64 : ident := 50%positive.
-Definition ___compcert_va_int32 : ident := 48%positive.
-Definition ___compcert_va_int64 : ident := 49%positive.
-Definition _a_pile : ident := 45%positive.
-Definition _c : ident := 84%positive.
-Definition _c1 : ident := 73%positive.
-Definition _c2 : ident := 74%positive.
-Definition _c3 : ident := 75%positive.
-Definition _exit : ident := 80%positive.
-Definition _free : ident := 79%positive.
+Definition ___builtin_fsqrt : ident := 18%positive.
+Definition ___builtin_membar : ident := 24%positive.
+Definition ___builtin_memcpy_aligned : ident := 20%positive.
+Definition ___builtin_sel : ident := 21%positive.
+Definition ___builtin_sqrt : ident := 19%positive.
+Definition ___builtin_unreachable : ident := 29%positive.
+Definition ___builtin_va_arg : ident := 26%positive.
+Definition ___builtin_va_copy : ident := 27%positive.
+Definition ___builtin_va_end : ident := 28%positive.
+Definition ___builtin_va_start : ident := 25%positive.
+Definition ___compcert_i64_dtos : ident := 57%positive.
+Definition ___compcert_i64_dtou : ident := 58%positive.
+Definition ___compcert_i64_sar : ident := 69%positive.
+Definition ___compcert_i64_sdiv : ident := 63%positive.
+Definition ___compcert_i64_shl : ident := 67%positive.
+Definition ___compcert_i64_shr : ident := 68%positive.
+Definition ___compcert_i64_smod : ident := 65%positive.
+Definition ___compcert_i64_smulh : ident := 70%positive.
+Definition ___compcert_i64_stod : ident := 59%positive.
+Definition ___compcert_i64_stof : ident := 61%positive.
+Definition ___compcert_i64_udiv : ident := 64%positive.
+Definition ___compcert_i64_umod : ident := 66%positive.
+Definition ___compcert_i64_umulh : ident := 71%positive.
+Definition ___compcert_i64_utod : ident := 60%positive.
+Definition ___compcert_i64_utof : ident := 62%positive.
+Definition ___compcert_va_composite : ident := 56%positive.
+Definition ___compcert_va_float64 : ident := 55%positive.
+Definition ___compcert_va_int32 : ident := 53%positive.
+Definition ___compcert_va_int64 : ident := 54%positive.
+Definition _c : ident := 49%positive.
+Definition _exit : ident := 43%positive.
+Definition _free : ident := 42%positive.
Definition _head : ident := 5%positive.
-Definition _i : ident := 72%positive.
Definition _list : ident := 1%positive.
-Definition _main : ident := 67%positive.
-Definition _malloc : ident := 78%positive.
+Definition _main : ident := 72%positive.
+Definition _malloc : ident := 41%positive.
Definition _n : ident := 2%positive.
Definition _next : ident := 3%positive.
-Definition _p : ident := 81%positive.
+Definition _p : ident := 44%positive.
Definition _pile : ident := 4%positive.
-Definition _q : ident := 83%positive.
-Definition _r : ident := 85%positive.
-Definition _surely_malloc : ident := 82%positive.
-Definition _the_pile : ident := 77%positive.
-Definition _t'1 : ident := 87%positive.
-Definition _t'2 : ident := 88%positive.
+Definition _q : ident := 48%positive.
+Definition _r : ident := 51%positive.
+Definition _surely_malloc : ident := 45%positive.
+Definition _t'1 : ident := 73%positive.
+Definition _t'2 : ident := 74%positive.
Definition f_surely_malloc := {|
fn_return := (tptr tvoid);
@@ -118,12 +104,12 @@ Definition f_surely_malloc := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tulong Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (tulong :: nil) (tptr tvoid) cc_default))
((Etempvar _n tulong) :: nil))
(Sset _p (Etempvar _t'1 (tptr tvoid))))
(Ssequence
(Sifthenelse (Eunop Onotbool (Etempvar _p (tptr tvoid)) tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Sreturn (Some (Etempvar _p (tptr tvoid))))))
@@ -140,7 +126,7 @@ Definition f_Pile_new := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _surely_malloc (Tfunction (Tcons tulong Tnil) (tptr tvoid)
+ (Evar _surely_malloc (Tfunction (tulong :: nil) (tptr tvoid)
cc_default))
((Esizeof (Tstruct _pile noattr) tulong) :: nil))
(Sset _p
@@ -166,7 +152,7 @@ Definition f_Pile_add := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _surely_malloc (Tfunction (Tcons tulong Tnil) (tptr tvoid)
+ (Evar _surely_malloc (Tfunction (tulong :: nil) (tptr tvoid)
cc_default))
((Esizeof (Tstruct _list noattr) tulong) :: nil))
(Sset _head
@@ -252,12 +238,11 @@ Definition f_Pile_free := {|
(Tstruct _list noattr)) _next (tptr (Tstruct _list noattr))))
(Ssequence
(Scall None
- (Evar _free (Tfunction (Tcons (tptr tvoid) Tnil) tvoid
- cc_default))
+ (Evar _free (Tfunction ((tptr tvoid) :: nil) tvoid cc_default))
((Etempvar _q (tptr (Tstruct _list noattr))) :: nil))
(Sset _q (Etempvar _r (tptr (Tstruct _list noattr)))))))
(Scall None
- (Evar _free (Tfunction (Tcons (tptr tvoid) Tnil) tvoid cc_default))
+ (Evar _free (Tfunction ((tptr tvoid) :: nil) tvoid cc_default))
((Etempvar _p (tptr (Tstruct _pile noattr))) :: nil))))
|}.
@@ -273,278 +258,253 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
- (___builtin_ais_annot,
- Gfun(External (EF_builtin "__builtin_ais_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
- (_malloc,
- Gfun(External EF_malloc (Tcons tulong Tnil) (tptr tvoid) cc_default)) ::
- (_free, Gfun(External EF_free (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (_malloc, Gfun(External EF_malloc (tulong :: nil) (tptr tvoid) cc_default)) ::
+ (_free, Gfun(External EF_free ((tptr tvoid) :: nil) tvoid cc_default)) ::
(_exit,
Gfun(External (EF_external "exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
(_surely_malloc, Gfun(Internal f_surely_malloc)) ::
(_Pile_new, Gfun(Internal f_Pile_new)) ::
(_Pile_add, Gfun(Internal f_Pile_add)) ::
@@ -553,25 +513,23 @@ Definition global_definitions : list (ident * globdef fundef type) :=
Definition public_idents : list ident :=
(_Pile_free :: _Pile_count :: _Pile_add :: _Pile_new :: _surely_malloc ::
- _exit :: _free :: _malloc :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
- ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
- ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
- ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
- ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
- ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
- ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
- ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
- ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ _exit :: _free :: _malloc :: ___builtin_debug :: ___builtin_fmin ::
+ ___builtin_fmax :: ___builtin_fnmsub :: ___builtin_fnmadd ::
+ ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_clsll ::
+ ___builtin_clsl :: ___builtin_cls :: ___builtin_expect ::
+ ___builtin_unreachable :: ___builtin_va_end :: ___builtin_va_copy ::
+ ___builtin_va_arg :: ___builtin_va_start :: ___builtin_membar ::
+ ___builtin_annot_intval :: ___builtin_annot :: ___builtin_sel ::
+ ___builtin_memcpy_aligned :: ___builtin_sqrt :: ___builtin_fsqrt ::
+ ___builtin_fabsf :: ___builtin_fabs :: ___builtin_ctzll ::
+ ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll :: ___builtin_clzl ::
+ ___builtin_clz :: ___builtin_bswap16 :: ___builtin_bswap32 ::
+ ___builtin_bswap :: ___builtin_bswap64 :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs64/VSUpile/simple_verif_stdlib.v b/progs64/VSUpile/simple_verif_stdlib.v
index 4b6cc459fd..142f161947 100644
--- a/progs64/VSUpile/simple_verif_stdlib.v
+++ b/progs64/VSUpile/simple_verif_stdlib.v
@@ -19,7 +19,7 @@ Parameter body_free:
Parameter body_exit:
forall {Espec: OracleKind},
VST.floyd.library.body_lemma_of_funspec
- (EF_external "exit" (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
+ (EF_external "exit" (mksignature (Xint :: nil) Xvoid cc_default))
(snd (exit_spec)).
Definition placeholder_spec :=
diff --git a/progs64/VSUpile/stdlib.v b/progs64/VSUpile/stdlib.v
index b4ac44ec41..50b22a9bab 100644
--- a/progs64/VSUpile/stdlib.v
+++ b/progs64/VSUpile/stdlib.v
@@ -6,106 +6,104 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.13".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "stdlib.c".
Definition normalized := true.
End Info.
-Definition _Apile_add : ident := 46%positive.
-Definition _Apile_count : ident := 47%positive.
-Definition _Onepile_add : ident := 69%positive.
-Definition _Onepile_count : ident := 70%positive.
-Definition _Onepile_init : ident := 68%positive.
-Definition _Pile_add : ident := 43%positive.
-Definition _Pile_count : ident := 44%positive.
-Definition _Pile_free : ident := 86%positive.
-Definition _Pile_new : ident := 76%positive.
-Definition _Triang_nth : ident := 71%positive.
-Definition ___builtin_ais_annot : ident := 6%positive.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 42%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
+Definition _Apile_add : ident := 78%positive.
+Definition _Apile_count : ident := 79%positive.
+Definition _Onepile_add : ident := 75%positive.
+Definition _Onepile_count : ident := 76%positive.
+Definition _Onepile_init : ident := 74%positive.
+Definition _Pile_add : ident := 47%positive.
+Definition _Pile_count : ident := 50%positive.
+Definition _Pile_free : ident := 52%positive.
+Definition _Pile_new : ident := 46%positive.
+Definition _Triang_nth : ident := 81%positive.
+Definition ___builtin_annot : ident := 22%positive.
+Definition ___builtin_annot_intval : ident := 23%positive.
+Definition ___builtin_bswap : ident := 7%positive.
+Definition ___builtin_bswap16 : ident := 9%positive.
+Definition ___builtin_bswap32 : ident := 8%positive.
+Definition ___builtin_bswap64 : ident := 6%positive.
+Definition ___builtin_cls : ident := 31%positive.
+Definition ___builtin_clsl : ident := 32%positive.
+Definition ___builtin_clsll : ident := 33%positive.
+Definition ___builtin_clz : ident := 10%positive.
+Definition ___builtin_clzl : ident := 11%positive.
+Definition ___builtin_clzll : ident := 12%positive.
+Definition ___builtin_ctz : ident := 13%positive.
+Definition ___builtin_ctzl : ident := 14%positive.
+Definition ___builtin_ctzll : ident := 15%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 30%positive.
+Definition ___builtin_fabs : ident := 16%positive.
+Definition ___builtin_fabsf : ident := 17%positive.
Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
+Definition ___builtin_fmax : ident := 38%positive.
+Definition ___builtin_fmin : ident := 39%positive.
Definition ___builtin_fmsub : ident := 35%positive.
Definition ___builtin_fnmadd : ident := 36%positive.
Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 39%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 40%positive.
-Definition ___builtin_write32_reversed : ident := 41%positive.
-Definition ___compcert_i64_dtos : ident := 52%positive.
-Definition ___compcert_i64_dtou : ident := 53%positive.
-Definition ___compcert_i64_sar : ident := 64%positive.
-Definition ___compcert_i64_sdiv : ident := 58%positive.
-Definition ___compcert_i64_shl : ident := 62%positive.
-Definition ___compcert_i64_shr : ident := 63%positive.
-Definition ___compcert_i64_smod : ident := 60%positive.
-Definition ___compcert_i64_smulh : ident := 65%positive.
-Definition ___compcert_i64_stod : ident := 54%positive.
-Definition ___compcert_i64_stof : ident := 56%positive.
-Definition ___compcert_i64_udiv : ident := 59%positive.
-Definition ___compcert_i64_umod : ident := 61%positive.
-Definition ___compcert_i64_umulh : ident := 66%positive.
-Definition ___compcert_i64_utod : ident := 55%positive.
-Definition ___compcert_i64_utof : ident := 57%positive.
-Definition ___compcert_va_composite : ident := 51%positive.
-Definition ___compcert_va_float64 : ident := 50%positive.
-Definition ___compcert_va_int32 : ident := 48%positive.
-Definition ___compcert_va_int64 : ident := 49%positive.
-Definition _a_pile : ident := 45%positive.
-Definition _c : ident := 84%positive.
-Definition _c1 : ident := 73%positive.
-Definition _c2 : ident := 74%positive.
-Definition _c3 : ident := 75%positive.
-Definition _exit : ident := 80%positive.
-Definition _free : ident := 79%positive.
+Definition ___builtin_fsqrt : ident := 18%positive.
+Definition ___builtin_membar : ident := 24%positive.
+Definition ___builtin_memcpy_aligned : ident := 20%positive.
+Definition ___builtin_sel : ident := 21%positive.
+Definition ___builtin_sqrt : ident := 19%positive.
+Definition ___builtin_unreachable : ident := 29%positive.
+Definition ___builtin_va_arg : ident := 26%positive.
+Definition ___builtin_va_copy : ident := 27%positive.
+Definition ___builtin_va_end : ident := 28%positive.
+Definition ___builtin_va_start : ident := 25%positive.
+Definition ___compcert_i64_dtos : ident := 57%positive.
+Definition ___compcert_i64_dtou : ident := 58%positive.
+Definition ___compcert_i64_sar : ident := 69%positive.
+Definition ___compcert_i64_sdiv : ident := 63%positive.
+Definition ___compcert_i64_shl : ident := 67%positive.
+Definition ___compcert_i64_shr : ident := 68%positive.
+Definition ___compcert_i64_smod : ident := 65%positive.
+Definition ___compcert_i64_smulh : ident := 70%positive.
+Definition ___compcert_i64_stod : ident := 59%positive.
+Definition ___compcert_i64_stof : ident := 61%positive.
+Definition ___compcert_i64_udiv : ident := 64%positive.
+Definition ___compcert_i64_umod : ident := 66%positive.
+Definition ___compcert_i64_umulh : ident := 71%positive.
+Definition ___compcert_i64_utod : ident := 60%positive.
+Definition ___compcert_i64_utof : ident := 62%positive.
+Definition ___compcert_va_composite : ident := 56%positive.
+Definition ___compcert_va_float64 : ident := 55%positive.
+Definition ___compcert_va_int32 : ident := 53%positive.
+Definition ___compcert_va_int64 : ident := 54%positive.
+Definition _a_pile : ident := 77%positive.
+Definition _c : ident := 49%positive.
+Definition _c1 : ident := 82%positive.
+Definition _c2 : ident := 83%positive.
+Definition _c3 : ident := 84%positive.
+Definition _exit : ident := 43%positive.
+Definition _free : ident := 42%positive.
Definition _head : ident := 5%positive.
-Definition _i : ident := 72%positive.
+Definition _i : ident := 80%positive.
Definition _list : ident := 1%positive.
-Definition _main : ident := 67%positive.
-Definition _malloc : ident := 78%positive.
+Definition _main : ident := 72%positive.
+Definition _malloc : ident := 41%positive.
Definition _n : ident := 2%positive.
Definition _next : ident := 3%positive.
-Definition _p : ident := 81%positive.
+Definition _p : ident := 44%positive.
Definition _pile : ident := 4%positive.
-Definition _placeholder : ident := 87%positive.
-Definition _q : ident := 83%positive.
-Definition _r : ident := 85%positive.
-Definition _surely_malloc : ident := 82%positive.
-Definition _the_pile : ident := 77%positive.
+Definition _placeholder : ident := 85%positive.
+Definition _q : ident := 48%positive.
+Definition _r : ident := 51%positive.
+Definition _surely_malloc : ident := 45%positive.
+Definition _the_pile : ident := 73%positive.
Definition f_placeholder := {|
fn_return := tint;
@@ -123,286 +121,260 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
- (___builtin_ais_annot,
- Gfun(External (EF_builtin "__builtin_ais_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
- (_malloc,
- Gfun(External EF_malloc (Tcons tulong Tnil) (tptr tvoid) cc_default)) ::
- (_free, Gfun(External EF_free (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (_malloc, Gfun(External EF_malloc (tulong :: nil) (tptr tvoid) cc_default)) ::
+ (_free, Gfun(External EF_free ((tptr tvoid) :: nil) tvoid cc_default)) ::
(_exit,
Gfun(External (EF_external "exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
(_placeholder, Gfun(Internal f_placeholder)) :: nil).
Definition public_idents : list ident :=
(_placeholder :: _exit :: _free :: _malloc :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fmin :: ___builtin_fmax :: ___builtin_fnmsub ::
+ ___builtin_fnmadd :: ___builtin_fmsub :: ___builtin_fmadd ::
+ ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
@@ -411,14 +383,13 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
- ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
- nil).
+ ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
+ ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
+ ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
+ ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
+ ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
+ ___compcert_va_composite :: ___compcert_va_float64 ::
+ ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/VSUpile/triang.v b/progs64/VSUpile/triang.v
index 473ea7ce18..fb1664d585 100644
--- a/progs64/VSUpile/triang.v
+++ b/progs64/VSUpile/triang.v
@@ -6,108 +6,102 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.13".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "triang.c".
Definition normalized := true.
End Info.
-Definition _Apile_add : ident := 46%positive.
-Definition _Apile_count : ident := 47%positive.
-Definition _Onepile_add : ident := 69%positive.
-Definition _Onepile_count : ident := 70%positive.
-Definition _Onepile_init : ident := 68%positive.
-Definition _Pile_add : ident := 43%positive.
-Definition _Pile_count : ident := 44%positive.
-Definition _Pile_free : ident := 86%positive.
-Definition _Pile_new : ident := 76%positive.
-Definition _Triang_nth : ident := 71%positive.
-Definition ___builtin_ais_annot : ident := 6%positive.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 42%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
+Definition _Apile_add : ident := 78%positive.
+Definition _Apile_count : ident := 79%positive.
+Definition _Onepile_add : ident := 75%positive.
+Definition _Onepile_count : ident := 76%positive.
+Definition _Onepile_init : ident := 74%positive.
+Definition _Pile_add : ident := 47%positive.
+Definition _Pile_count : ident := 50%positive.
+Definition _Pile_free : ident := 52%positive.
+Definition _Pile_new : ident := 46%positive.
+Definition _Triang_nth : ident := 81%positive.
+Definition ___builtin_annot : ident := 22%positive.
+Definition ___builtin_annot_intval : ident := 23%positive.
+Definition ___builtin_bswap : ident := 7%positive.
+Definition ___builtin_bswap16 : ident := 9%positive.
+Definition ___builtin_bswap32 : ident := 8%positive.
+Definition ___builtin_bswap64 : ident := 6%positive.
+Definition ___builtin_cls : ident := 31%positive.
+Definition ___builtin_clsl : ident := 32%positive.
+Definition ___builtin_clsll : ident := 33%positive.
+Definition ___builtin_clz : ident := 10%positive.
+Definition ___builtin_clzl : ident := 11%positive.
+Definition ___builtin_clzll : ident := 12%positive.
+Definition ___builtin_ctz : ident := 13%positive.
+Definition ___builtin_ctzl : ident := 14%positive.
+Definition ___builtin_ctzll : ident := 15%positive.
+Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_expect : ident := 30%positive.
+Definition ___builtin_fabs : ident := 16%positive.
+Definition ___builtin_fabsf : ident := 17%positive.
Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
+Definition ___builtin_fmax : ident := 38%positive.
+Definition ___builtin_fmin : ident := 39%positive.
Definition ___builtin_fmsub : ident := 35%positive.
Definition ___builtin_fnmadd : ident := 36%positive.
Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 39%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 40%positive.
-Definition ___builtin_write32_reversed : ident := 41%positive.
-Definition ___compcert_i64_dtos : ident := 52%positive.
-Definition ___compcert_i64_dtou : ident := 53%positive.
-Definition ___compcert_i64_sar : ident := 64%positive.
-Definition ___compcert_i64_sdiv : ident := 58%positive.
-Definition ___compcert_i64_shl : ident := 62%positive.
-Definition ___compcert_i64_shr : ident := 63%positive.
-Definition ___compcert_i64_smod : ident := 60%positive.
-Definition ___compcert_i64_smulh : ident := 65%positive.
-Definition ___compcert_i64_stod : ident := 54%positive.
-Definition ___compcert_i64_stof : ident := 56%positive.
-Definition ___compcert_i64_udiv : ident := 59%positive.
-Definition ___compcert_i64_umod : ident := 61%positive.
-Definition ___compcert_i64_umulh : ident := 66%positive.
-Definition ___compcert_i64_utod : ident := 55%positive.
-Definition ___compcert_i64_utof : ident := 57%positive.
-Definition ___compcert_va_composite : ident := 51%positive.
-Definition ___compcert_va_float64 : ident := 50%positive.
-Definition ___compcert_va_int32 : ident := 48%positive.
-Definition ___compcert_va_int64 : ident := 49%positive.
-Definition _a_pile : ident := 45%positive.
-Definition _c : ident := 84%positive.
-Definition _c1 : ident := 73%positive.
-Definition _c2 : ident := 74%positive.
-Definition _c3 : ident := 75%positive.
-Definition _exit : ident := 80%positive.
-Definition _free : ident := 79%positive.
+Definition ___builtin_fsqrt : ident := 18%positive.
+Definition ___builtin_membar : ident := 24%positive.
+Definition ___builtin_memcpy_aligned : ident := 20%positive.
+Definition ___builtin_sel : ident := 21%positive.
+Definition ___builtin_sqrt : ident := 19%positive.
+Definition ___builtin_unreachable : ident := 29%positive.
+Definition ___builtin_va_arg : ident := 26%positive.
+Definition ___builtin_va_copy : ident := 27%positive.
+Definition ___builtin_va_end : ident := 28%positive.
+Definition ___builtin_va_start : ident := 25%positive.
+Definition ___compcert_i64_dtos : ident := 57%positive.
+Definition ___compcert_i64_dtou : ident := 58%positive.
+Definition ___compcert_i64_sar : ident := 69%positive.
+Definition ___compcert_i64_sdiv : ident := 63%positive.
+Definition ___compcert_i64_shl : ident := 67%positive.
+Definition ___compcert_i64_shr : ident := 68%positive.
+Definition ___compcert_i64_smod : ident := 65%positive.
+Definition ___compcert_i64_smulh : ident := 70%positive.
+Definition ___compcert_i64_stod : ident := 59%positive.
+Definition ___compcert_i64_stof : ident := 61%positive.
+Definition ___compcert_i64_udiv : ident := 64%positive.
+Definition ___compcert_i64_umod : ident := 66%positive.
+Definition ___compcert_i64_umulh : ident := 71%positive.
+Definition ___compcert_i64_utod : ident := 60%positive.
+Definition ___compcert_i64_utof : ident := 62%positive.
+Definition ___compcert_va_composite : ident := 56%positive.
+Definition ___compcert_va_float64 : ident := 55%positive.
+Definition ___compcert_va_int32 : ident := 53%positive.
+Definition ___compcert_va_int64 : ident := 54%positive.
+Definition _a_pile : ident := 77%positive.
+Definition _c : ident := 49%positive.
+Definition _exit : ident := 43%positive.
+Definition _free : ident := 42%positive.
Definition _head : ident := 5%positive.
-Definition _i : ident := 72%positive.
+Definition _i : ident := 80%positive.
Definition _list : ident := 1%positive.
-Definition _main : ident := 67%positive.
-Definition _malloc : ident := 78%positive.
+Definition _main : ident := 72%positive.
+Definition _malloc : ident := 41%positive.
Definition _n : ident := 2%positive.
Definition _next : ident := 3%positive.
-Definition _p : ident := 81%positive.
+Definition _p : ident := 44%positive.
Definition _pile : ident := 4%positive.
-Definition _placeholder : ident := 87%positive.
-Definition _q : ident := 83%positive.
-Definition _r : ident := 85%positive.
-Definition _surely_malloc : ident := 82%positive.
-Definition _the_pile : ident := 77%positive.
-Definition _t'1 : ident := 88%positive.
-Definition _t'2 : ident := 89%positive.
+Definition _q : ident := 48%positive.
+Definition _r : ident := 51%positive.
+Definition _surely_malloc : ident := 45%positive.
+Definition _the_pile : ident := 73%positive.
+Definition _t'1 : ident := 82%positive.
+Definition _t'2 : ident := 83%positive.
Definition f_Triang_nth := {|
fn_return := tint;
@@ -121,7 +115,7 @@ Definition f_Triang_nth := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _Pile_new (Tfunction Tnil (tptr (Tstruct _pile noattr))
+ (Evar _Pile_new (Tfunction nil (tptr (Tstruct _pile noattr))
cc_default)) nil)
(Sset _p (Etempvar _t'1 (tptr (Tstruct _pile noattr)))))
(Ssequence
@@ -135,8 +129,8 @@ Definition f_Triang_nth := {|
Sbreak)
(Scall None
(Evar _Pile_add (Tfunction
- (Tcons (tptr (Tstruct _pile noattr))
- (Tcons tint Tnil)) tvoid cc_default))
+ ((tptr (Tstruct _pile noattr)) :: tint :: nil)
+ tvoid cc_default))
((Etempvar _p (tptr (Tstruct _pile noattr))) ::
(Ebinop Oadd (Etempvar _i tint) (Econst_int (Int.repr 1) tint)
tint) :: nil)))
@@ -146,16 +140,14 @@ Definition f_Triang_nth := {|
(Ssequence
(Ssequence
(Scall (Some _t'2)
- (Evar _Pile_count (Tfunction
- (Tcons (tptr (Tstruct _pile noattr)) Tnil) tint
- cc_default))
+ (Evar _Pile_count (Tfunction ((tptr (Tstruct _pile noattr)) :: nil)
+ tint cc_default))
((Etempvar _p (tptr (Tstruct _pile noattr))) :: nil))
(Sset _c (Etempvar _t'2 tint)))
(Ssequence
(Scall None
- (Evar _Pile_free (Tfunction
- (Tcons (tptr (Tstruct _pile noattr)) Tnil) tvoid
- cc_default))
+ (Evar _Pile_free (Tfunction ((tptr (Tstruct _pile noattr)) :: nil)
+ tvoid cc_default))
((Etempvar _p (tptr (Tstruct _pile noattr))) :: nil))
(Sreturn (Some (Etempvar _c tint)))))))
|}.
@@ -166,313 +158,286 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
- (___builtin_ais_annot,
- Gfun(External (EF_builtin "__builtin_ais_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_Pile_new,
Gfun(External (EF_external "Pile_new"
- (mksignature nil AST.Tlong cc_default)) Tnil
+ (mksignature nil AST.Xptr cc_default)) nil
(tptr (Tstruct _pile noattr)) cc_default)) ::
(_Pile_add,
Gfun(External (EF_external "Pile_add"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
cc_default))
- (Tcons (tptr (Tstruct _pile noattr)) (Tcons tint Tnil)) tvoid
- cc_default)) ::
+ ((tptr (Tstruct _pile noattr)) :: tint :: nil) tvoid cc_default)) ::
(_Pile_count,
Gfun(External (EF_external "Pile_count"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr (Tstruct _pile noattr)) Tnil) tint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr (Tstruct _pile noattr)) :: nil) tint cc_default)) ::
(_Pile_free,
Gfun(External (EF_external "Pile_free"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _pile noattr)) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr (Tstruct _pile noattr)) :: nil) tvoid cc_default)) ::
(_Triang_nth, Gfun(Internal f_Triang_nth)) :: nil).
Definition public_idents : list ident :=
(_Triang_nth :: _Pile_free :: _Pile_count :: _Pile_add :: _Pile_new ::
- ___builtin_debug :: ___builtin_write32_reversed ::
- ___builtin_write16_reversed :: ___builtin_read32_reversed ::
- ___builtin_read16_reversed :: ___builtin_fnmsub :: ___builtin_fnmadd ::
- ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_fmin ::
- ___builtin_fmax :: ___builtin_expect :: ___builtin_unreachable ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_sel :: ___builtin_memcpy_aligned ::
- ___builtin_sqrt :: ___builtin_fsqrt :: ___builtin_fabsf ::
- ___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
- ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
- ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
- ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
- ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
- ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
- ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
- nil).
+ ___builtin_debug :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
+ ___builtin_fmadd :: ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
+ ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
+ ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
+ ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
+ ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
+ ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
+ ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
+ ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
+ ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
+ ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
+ ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
+ ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
+ ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
+ ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
+ ___compcert_va_composite :: ___compcert_va_float64 ::
+ ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/VSUpile/verif_stdlib.v b/progs64/VSUpile/verif_stdlib.v
index c29b7acc66..8969abeea2 100644
--- a/progs64/VSUpile/verif_stdlib.v
+++ b/progs64/VSUpile/verif_stdlib.v
@@ -21,7 +21,7 @@ Parameter body_free:
Parameter body_exit:
forall {Espec: OracleKind},
VST.floyd.library.body_lemma_of_funspec
- (EF_external "exit" (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
+ (EF_external "exit" (mksignature (Xint :: nil) Xvoid cc_default))
(snd (exit_spec)).
Definition placeholder_spec :=
diff --git a/progs64/append.v b/progs64/append.v
index 2bf6420e7f..b3d0556dea 100644
--- a/progs64/append.v
+++ b/progs64/append.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/append.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 5%positive.
Definition ___builtin_bswap16 : ident := 7%positive.
Definition ___builtin_bswap32 : ident := 6%positive.
Definition ___builtin_bswap64 : ident := 4%positive.
+Definition ___builtin_cls : ident := 29%positive.
+Definition ___builtin_clsl : ident := 30%positive.
+Definition ___builtin_clsll : ident := 31%positive.
Definition ___builtin_clz : ident := 8%positive.
Definition ___builtin_clzl : ident := 9%positive.
Definition ___builtin_clzll : ident := 10%positive.
Definition ___builtin_ctz : ident := 11%positive.
Definition ___builtin_ctzl : ident := 12%positive.
Definition ___builtin_ctzll : ident := 13%positive.
-Definition ___builtin_debug : ident := 39%positive.
+Definition ___builtin_debug : ident := 38%positive.
Definition ___builtin_expect : ident := 28%positive.
Definition ___builtin_fabs : ident := 14%positive.
Definition ___builtin_fabsf : ident := 15%positive.
-Definition ___builtin_fmadd : ident := 31%positive.
-Definition ___builtin_fmax : ident := 29%positive.
-Definition ___builtin_fmin : ident := 30%positive.
-Definition ___builtin_fmsub : ident := 32%positive.
-Definition ___builtin_fnmadd : ident := 33%positive.
-Definition ___builtin_fnmsub : ident := 34%positive.
+Definition ___builtin_fmadd : ident := 32%positive.
+Definition ___builtin_fmax : ident := 36%positive.
+Definition ___builtin_fmin : ident := 37%positive.
+Definition ___builtin_fmsub : ident := 33%positive.
+Definition ___builtin_fnmadd : ident := 34%positive.
+Definition ___builtin_fnmsub : ident := 35%positive.
Definition ___builtin_fsqrt : ident := 16%positive.
Definition ___builtin_membar : ident := 22%positive.
Definition ___builtin_memcpy_aligned : ident := 18%positive.
-Definition ___builtin_read16_reversed : ident := 35%positive.
-Definition ___builtin_read32_reversed : ident := 36%positive.
Definition ___builtin_sel : ident := 19%positive.
Definition ___builtin_sqrt : ident := 17%positive.
Definition ___builtin_unreachable : ident := 27%positive.
@@ -53,36 +54,34 @@ Definition ___builtin_va_arg : ident := 24%positive.
Definition ___builtin_va_copy : ident := 25%positive.
Definition ___builtin_va_end : ident := 26%positive.
Definition ___builtin_va_start : ident := 23%positive.
-Definition ___builtin_write16_reversed : ident := 37%positive.
-Definition ___builtin_write32_reversed : ident := 38%positive.
-Definition ___compcert_i64_dtos : ident := 49%positive.
-Definition ___compcert_i64_dtou : ident := 50%positive.
-Definition ___compcert_i64_sar : ident := 61%positive.
-Definition ___compcert_i64_sdiv : ident := 55%positive.
-Definition ___compcert_i64_shl : ident := 59%positive.
-Definition ___compcert_i64_shr : ident := 60%positive.
-Definition ___compcert_i64_smod : ident := 57%positive.
-Definition ___compcert_i64_smulh : ident := 62%positive.
-Definition ___compcert_i64_stod : ident := 51%positive.
-Definition ___compcert_i64_stof : ident := 53%positive.
-Definition ___compcert_i64_udiv : ident := 56%positive.
-Definition ___compcert_i64_umod : ident := 58%positive.
-Definition ___compcert_i64_umulh : ident := 63%positive.
-Definition ___compcert_i64_utod : ident := 52%positive.
-Definition ___compcert_i64_utof : ident := 54%positive.
-Definition ___compcert_va_composite : ident := 48%positive.
-Definition ___compcert_va_float64 : ident := 47%positive.
-Definition ___compcert_va_int32 : ident := 45%positive.
-Definition ___compcert_va_int64 : ident := 46%positive.
-Definition _append : ident := 44%positive.
+Definition ___compcert_i64_dtos : ident := 48%positive.
+Definition ___compcert_i64_dtou : ident := 49%positive.
+Definition ___compcert_i64_sar : ident := 60%positive.
+Definition ___compcert_i64_sdiv : ident := 54%positive.
+Definition ___compcert_i64_shl : ident := 58%positive.
+Definition ___compcert_i64_shr : ident := 59%positive.
+Definition ___compcert_i64_smod : ident := 56%positive.
+Definition ___compcert_i64_smulh : ident := 61%positive.
+Definition ___compcert_i64_stod : ident := 50%positive.
+Definition ___compcert_i64_stof : ident := 52%positive.
+Definition ___compcert_i64_udiv : ident := 55%positive.
+Definition ___compcert_i64_umod : ident := 57%positive.
+Definition ___compcert_i64_umulh : ident := 62%positive.
+Definition ___compcert_i64_utod : ident := 51%positive.
+Definition ___compcert_i64_utof : ident := 53%positive.
+Definition ___compcert_va_composite : ident := 47%positive.
+Definition ___compcert_va_float64 : ident := 46%positive.
+Definition ___compcert_va_int32 : ident := 44%positive.
+Definition ___compcert_va_int64 : ident := 45%positive.
+Definition _append : ident := 43%positive.
Definition _head : ident := 2%positive.
Definition _list : ident := 1%positive.
-Definition _main : ident := 64%positive.
-Definition _t : ident := 42%positive.
+Definition _main : ident := 63%positive.
+Definition _t : ident := 41%positive.
Definition _tail : ident := 3%positive.
-Definition _u : ident := 43%positive.
-Definition _x : ident := 40%positive.
-Definition _y : ident := 41%positive.
+Definition _u : ident := 42%positive.
+Definition _x : ident := 39%positive.
+Definition _y : ident := 40%positive.
Definition f_append := {|
fn_return := (tptr (Tstruct _list noattr));
@@ -132,288 +131,268 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_append, Gfun(Internal f_append)) :: nil).
Definition public_idents : list ident :=
-(_append :: ___builtin_debug :: ___builtin_write32_reversed ::
- ___builtin_write16_reversed :: ___builtin_read32_reversed ::
- ___builtin_read16_reversed :: ___builtin_fnmsub :: ___builtin_fnmadd ::
- ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_fmin ::
- ___builtin_fmax :: ___builtin_expect :: ___builtin_unreachable ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_sel :: ___builtin_memcpy_aligned ::
- ___builtin_sqrt :: ___builtin_fsqrt :: ___builtin_fabsf ::
- ___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
- ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
- nil).
+(_append :: ___builtin_debug :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
+ ___builtin_fmadd :: ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
+ ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
+ ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
+ ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
+ ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
+ ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
+ ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
+ ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
+ ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
+ ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
+ ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
+ ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
+ ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
+ ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
+ ___compcert_va_composite :: ___compcert_va_float64 ::
+ ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/bin_search.v b/progs64/bin_search.v
index 1ea876c531..a97f63aeb2 100644
--- a/progs64/bin_search.v
+++ b/progs64/bin_search.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/bin_search.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 2%positive.
Definition ___builtin_bswap16 : ident := 4%positive.
Definition ___builtin_bswap32 : ident := 3%positive.
Definition ___builtin_bswap64 : ident := 1%positive.
+Definition ___builtin_cls : ident := 26%positive.
+Definition ___builtin_clsl : ident := 27%positive.
+Definition ___builtin_clsll : ident := 28%positive.
Definition ___builtin_clz : ident := 5%positive.
Definition ___builtin_clzl : ident := 6%positive.
Definition ___builtin_clzll : ident := 7%positive.
Definition ___builtin_ctz : ident := 8%positive.
Definition ___builtin_ctzl : ident := 9%positive.
Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
+Definition ___builtin_debug : ident := 35%positive.
Definition ___builtin_expect : ident := 25%positive.
Definition ___builtin_fabs : ident := 11%positive.
Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
Definition ___builtin_fsqrt : ident := 13%positive.
Definition ___builtin_membar : ident := 19%positive.
Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
Definition ___builtin_sel : ident := 16%positive.
Definition ___builtin_sqrt : ident := 14%positive.
Definition ___builtin_unreachable : ident := 24%positive.
@@ -53,38 +54,36 @@ Definition ___builtin_va_arg : ident := 21%positive.
Definition ___builtin_va_copy : ident := 22%positive.
Definition ___builtin_va_end : ident := 23%positive.
Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 51%positive.
-Definition ___compcert_i64_dtou : ident := 52%positive.
-Definition ___compcert_i64_sar : ident := 63%positive.
-Definition ___compcert_i64_sdiv : ident := 57%positive.
-Definition ___compcert_i64_shl : ident := 61%positive.
-Definition ___compcert_i64_shr : ident := 62%positive.
-Definition ___compcert_i64_smod : ident := 59%positive.
-Definition ___compcert_i64_smulh : ident := 64%positive.
-Definition ___compcert_i64_stod : ident := 53%positive.
-Definition ___compcert_i64_stof : ident := 55%positive.
-Definition ___compcert_i64_udiv : ident := 58%positive.
-Definition ___compcert_i64_umod : ident := 60%positive.
-Definition ___compcert_i64_umulh : ident := 65%positive.
-Definition ___compcert_i64_utod : ident := 54%positive.
-Definition ___compcert_i64_utof : ident := 56%positive.
-Definition ___compcert_va_composite : ident := 50%positive.
-Definition ___compcert_va_float64 : ident := 49%positive.
-Definition ___compcert_va_int32 : ident := 47%positive.
-Definition ___compcert_va_int64 : ident := 48%positive.
-Definition _a : ident := 37%positive.
-Definition _four : ident := 44%positive.
-Definition _hi : ident := 40%positive.
-Definition _lo : ident := 39%positive.
-Definition _main : ident := 46%positive.
-Definition _mid : ident := 41%positive.
-Definition _s : ident := 45%positive.
-Definition _search : ident := 43%positive.
-Definition _tgt : ident := 38%positive.
-Definition _val : ident := 42%positive.
-Definition _t'1 : ident := 66%positive.
+Definition ___compcert_i64_dtos : ident := 50%positive.
+Definition ___compcert_i64_dtou : ident := 51%positive.
+Definition ___compcert_i64_sar : ident := 62%positive.
+Definition ___compcert_i64_sdiv : ident := 56%positive.
+Definition ___compcert_i64_shl : ident := 60%positive.
+Definition ___compcert_i64_shr : ident := 61%positive.
+Definition ___compcert_i64_smod : ident := 58%positive.
+Definition ___compcert_i64_smulh : ident := 63%positive.
+Definition ___compcert_i64_stod : ident := 52%positive.
+Definition ___compcert_i64_stof : ident := 54%positive.
+Definition ___compcert_i64_udiv : ident := 57%positive.
+Definition ___compcert_i64_umod : ident := 59%positive.
+Definition ___compcert_i64_umulh : ident := 64%positive.
+Definition ___compcert_i64_utod : ident := 53%positive.
+Definition ___compcert_i64_utof : ident := 55%positive.
+Definition ___compcert_va_composite : ident := 49%positive.
+Definition ___compcert_va_float64 : ident := 48%positive.
+Definition ___compcert_va_int32 : ident := 46%positive.
+Definition ___compcert_va_int64 : ident := 47%positive.
+Definition _a : ident := 36%positive.
+Definition _four : ident := 43%positive.
+Definition _hi : ident := 39%positive.
+Definition _lo : ident := 38%positive.
+Definition _main : ident := 45%positive.
+Definition _mid : ident := 40%positive.
+Definition _s : ident := 44%positive.
+Definition _search : ident := 42%positive.
+Definition _tgt : ident := 37%positive.
+Definition _val : ident := 41%positive.
+Definition _t'1 : ident := 65%positive.
Definition f_search := {|
fn_return := tint;
@@ -138,10 +137,8 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _search (Tfunction
- (Tcons (tptr tint)
- (Tcons tint (Tcons tint (Tcons tint Tnil)))) tint
- cc_default))
+ (Evar _search (Tfunction ((tptr tint) :: tint :: tint :: tint :: nil)
+ tint cc_default))
((Evar _four (tarray tint 4)) :: (Econst_int (Int.repr 3) tint) ::
(Econst_int (Int.repr 0) tint) :: (Econst_int (Int.repr 4) tint) ::
nil))
@@ -156,289 +153,270 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_search, Gfun(Internal f_search)) :: (_four, Gvar v_four) ::
(_main, Gfun(Internal f_main)) :: nil).
Definition public_idents : list ident :=
-(_main :: _four :: _search :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
- ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
- ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
- ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
- ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
- ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
- ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
- ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
- ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+(_main :: _four :: _search :: ___builtin_debug :: ___builtin_fmin ::
+ ___builtin_fmax :: ___builtin_fnmsub :: ___builtin_fnmadd ::
+ ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_clsll ::
+ ___builtin_clsl :: ___builtin_cls :: ___builtin_expect ::
+ ___builtin_unreachable :: ___builtin_va_end :: ___builtin_va_copy ::
+ ___builtin_va_arg :: ___builtin_va_start :: ___builtin_membar ::
+ ___builtin_annot_intval :: ___builtin_annot :: ___builtin_sel ::
+ ___builtin_memcpy_aligned :: ___builtin_sqrt :: ___builtin_fsqrt ::
+ ___builtin_fabsf :: ___builtin_fabs :: ___builtin_ctzll ::
+ ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll :: ___builtin_clzl ::
+ ___builtin_clz :: ___builtin_bswap16 :: ___builtin_bswap32 ::
+ ___builtin_bswap :: ___builtin_bswap64 :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/bst.v b/progs64/bst.v
index b92cd7540f..35b24d59cf 100644
--- a/progs64/bst.v
+++ b/progs64/bst.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/bst.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 7%positive.
Definition ___builtin_bswap16 : ident := 9%positive.
Definition ___builtin_bswap32 : ident := 8%positive.
Definition ___builtin_bswap64 : ident := 6%positive.
+Definition ___builtin_cls : ident := 31%positive.
+Definition ___builtin_clsl : ident := 32%positive.
+Definition ___builtin_clsll : ident := 33%positive.
Definition ___builtin_clz : ident := 10%positive.
Definition ___builtin_clzl : ident := 11%positive.
Definition ___builtin_clzll : ident := 12%positive.
Definition ___builtin_ctz : ident := 13%positive.
Definition ___builtin_ctzl : ident := 14%positive.
Definition ___builtin_ctzll : ident := 15%positive.
-Definition ___builtin_debug : ident := 41%positive.
+Definition ___builtin_debug : ident := 40%positive.
Definition ___builtin_expect : ident := 30%positive.
Definition ___builtin_fabs : ident := 16%positive.
Definition ___builtin_fabsf : ident := 17%positive.
-Definition ___builtin_fmadd : ident := 33%positive.
-Definition ___builtin_fmax : ident := 31%positive.
-Definition ___builtin_fmin : ident := 32%positive.
-Definition ___builtin_fmsub : ident := 34%positive.
-Definition ___builtin_fnmadd : ident := 35%positive.
-Definition ___builtin_fnmsub : ident := 36%positive.
+Definition ___builtin_fmadd : ident := 34%positive.
+Definition ___builtin_fmax : ident := 38%positive.
+Definition ___builtin_fmin : ident := 39%positive.
+Definition ___builtin_fmsub : ident := 35%positive.
+Definition ___builtin_fnmadd : ident := 36%positive.
+Definition ___builtin_fnmsub : ident := 37%positive.
Definition ___builtin_fsqrt : ident := 18%positive.
Definition ___builtin_membar : ident := 24%positive.
Definition ___builtin_memcpy_aligned : ident := 20%positive.
-Definition ___builtin_read16_reversed : ident := 37%positive.
-Definition ___builtin_read32_reversed : ident := 38%positive.
Definition ___builtin_sel : ident := 21%positive.
Definition ___builtin_sqrt : ident := 19%positive.
Definition ___builtin_unreachable : ident := 29%positive.
@@ -53,61 +54,59 @@ Definition ___builtin_va_arg : ident := 26%positive.
Definition ___builtin_va_copy : ident := 27%positive.
Definition ___builtin_va_end : ident := 28%positive.
Definition ___builtin_va_start : ident := 25%positive.
-Definition ___builtin_write16_reversed : ident := 39%positive.
-Definition ___builtin_write32_reversed : ident := 40%positive.
-Definition ___compcert_i64_dtos : ident := 74%positive.
-Definition ___compcert_i64_dtou : ident := 75%positive.
-Definition ___compcert_i64_sar : ident := 86%positive.
-Definition ___compcert_i64_sdiv : ident := 80%positive.
-Definition ___compcert_i64_shl : ident := 84%positive.
-Definition ___compcert_i64_shr : ident := 85%positive.
-Definition ___compcert_i64_smod : ident := 82%positive.
-Definition ___compcert_i64_smulh : ident := 87%positive.
-Definition ___compcert_i64_stod : ident := 76%positive.
-Definition ___compcert_i64_stof : ident := 78%positive.
-Definition ___compcert_i64_udiv : ident := 81%positive.
-Definition ___compcert_i64_umod : ident := 83%positive.
-Definition ___compcert_i64_umulh : ident := 88%positive.
-Definition ___compcert_i64_utod : ident := 77%positive.
-Definition ___compcert_i64_utof : ident := 79%positive.
-Definition ___compcert_va_composite : ident := 73%positive.
-Definition ___compcert_va_float64 : ident := 72%positive.
-Definition ___compcert_va_int32 : ident := 70%positive.
-Definition ___compcert_va_int64 : ident := 71%positive.
-Definition ___stringlit_1 : ident := 65%positive.
-Definition ___stringlit_2 : ident := 66%positive.
-Definition ___stringlit_3 : ident := 67%positive.
-Definition ___stringlit_4 : ident := 68%positive.
-Definition __l : ident := 55%positive.
-Definition _b : ident := 49%positive.
-Definition _delete : ident := 62%positive.
-Definition _freeN : ident := 43%positive.
-Definition _insert : ident := 54%positive.
+Definition ___compcert_i64_dtos : ident := 73%positive.
+Definition ___compcert_i64_dtou : ident := 74%positive.
+Definition ___compcert_i64_sar : ident := 85%positive.
+Definition ___compcert_i64_sdiv : ident := 79%positive.
+Definition ___compcert_i64_shl : ident := 83%positive.
+Definition ___compcert_i64_shr : ident := 84%positive.
+Definition ___compcert_i64_smod : ident := 81%positive.
+Definition ___compcert_i64_smulh : ident := 86%positive.
+Definition ___compcert_i64_stod : ident := 75%positive.
+Definition ___compcert_i64_stof : ident := 77%positive.
+Definition ___compcert_i64_udiv : ident := 80%positive.
+Definition ___compcert_i64_umod : ident := 82%positive.
+Definition ___compcert_i64_umulh : ident := 87%positive.
+Definition ___compcert_i64_utod : ident := 76%positive.
+Definition ___compcert_i64_utof : ident := 78%positive.
+Definition ___compcert_va_composite : ident := 72%positive.
+Definition ___compcert_va_float64 : ident := 71%positive.
+Definition ___compcert_va_int32 : ident := 69%positive.
+Definition ___compcert_va_int64 : ident := 70%positive.
+Definition ___stringlit_1 : ident := 64%positive.
+Definition ___stringlit_2 : ident := 65%positive.
+Definition ___stringlit_3 : ident := 66%positive.
+Definition ___stringlit_4 : ident := 67%positive.
+Definition __l : ident := 54%positive.
+Definition _b : ident := 48%positive.
+Definition _delete : ident := 61%positive.
+Definition _freeN : ident := 42%positive.
+Definition _insert : ident := 53%positive.
Definition _key : ident := 2%positive.
-Definition _l : ident := 56%positive.
+Definition _l : ident := 55%positive.
Definition _left : ident := 4%positive.
-Definition _lookup : ident := 64%positive.
-Definition _main : ident := 69%positive.
-Definition _mallocN : ident := 42%positive.
-Definition _mid : ident := 58%positive.
-Definition _p : ident := 44%positive.
-Definition _pa : ident := 46%positive.
-Definition _pb : ident := 47%positive.
-Definition _pushdown_left : ident := 61%positive.
-Definition _q : ident := 60%positive.
-Definition _r : ident := 57%positive.
+Definition _lookup : ident := 63%positive.
+Definition _main : ident := 68%positive.
+Definition _mallocN : ident := 41%positive.
+Definition _mid : ident := 57%positive.
+Definition _p : ident := 43%positive.
+Definition _pa : ident := 45%positive.
+Definition _pb : ident := 46%positive.
+Definition _pushdown_left : ident := 60%positive.
+Definition _q : ident := 59%positive.
+Definition _r : ident := 56%positive.
Definition _right : ident := 5%positive.
-Definition _t : ident := 50%positive.
+Definition _t : ident := 49%positive.
Definition _tree : ident := 1%positive.
-Definition _tree_free : ident := 48%positive.
-Definition _treebox_free : ident := 51%positive.
-Definition _treebox_new : ident := 45%positive.
-Definition _turn_left : ident := 59%positive.
-Definition _v : ident := 63%positive.
+Definition _tree_free : ident := 47%positive.
+Definition _treebox_free : ident := 50%positive.
+Definition _treebox_new : ident := 44%positive.
+Definition _turn_left : ident := 58%positive.
+Definition _v : ident := 62%positive.
Definition _value : ident := 3%positive.
-Definition _x : ident := 52%positive.
-Definition _y : ident := 53%positive.
-Definition _t'1 : ident := 89%positive.
+Definition _x : ident := 51%positive.
+Definition _y : ident := 52%positive.
+Definition _t'1 : ident := 88%positive.
Definition v___stringlit_3 := {|
gvar_info := (tarray tschar 5);
@@ -154,7 +153,7 @@ Definition f_treebox_new := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _mallocN (Tfunction (Tcons tint Tnil) (tptr tvoid) cc_default))
+ (Evar _mallocN (Tfunction (tint :: nil) (tptr tvoid) cc_default))
((Esizeof (tptr (Tstruct _tree noattr)) tulong) :: nil))
(Sset _p
(Ecast (Etempvar _t'1 (tptr tvoid))
@@ -189,20 +188,20 @@ Definition f_tree_free := {|
(Tstruct _tree noattr)) _right (tptr (Tstruct _tree noattr))))
(Ssequence
(Scall None
- (Evar _freeN (Tfunction (Tcons (tptr tvoid) (Tcons tint Tnil))
- tvoid cc_default))
+ (Evar _freeN (Tfunction ((tptr tvoid) :: tint :: nil) tvoid
+ cc_default))
((Etempvar _p (tptr (Tstruct _tree noattr))) ::
(Esizeof (Tstruct _tree noattr) tulong) :: nil))
(Ssequence
(Scall None
(Evar _tree_free (Tfunction
- (Tcons (tptr (Tstruct _tree noattr)) Tnil)
- tvoid cc_default))
+ ((tptr (Tstruct _tree noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _pa (tptr (Tstruct _tree noattr))) :: nil))
(Scall None
(Evar _tree_free (Tfunction
- (Tcons (tptr (Tstruct _tree noattr)) Tnil)
- tvoid cc_default))
+ ((tptr (Tstruct _tree noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _pb (tptr (Tstruct _tree noattr))) :: nil))))))
Sskip)
|}.
@@ -220,12 +219,11 @@ Definition f_treebox_free := {|
(tptr (Tstruct _tree noattr))))
(Ssequence
(Scall None
- (Evar _tree_free (Tfunction (Tcons (tptr (Tstruct _tree noattr)) Tnil)
+ (Evar _tree_free (Tfunction ((tptr (Tstruct _tree noattr)) :: nil)
tvoid cc_default))
((Etempvar _t (tptr (Tstruct _tree noattr))) :: nil))
(Scall None
- (Evar _freeN (Tfunction (Tcons (tptr tvoid) (Tcons tint Tnil)) tvoid
- cc_default))
+ (Evar _freeN (Tfunction ((tptr tvoid) :: tint :: nil) tvoid cc_default))
((Etempvar _b (tptr (tptr (Tstruct _tree noattr)))) ::
(Esizeof (tptr (Tstruct _tree noattr)) tulong) :: nil))))
|}.
@@ -252,7 +250,7 @@ Definition f_insert := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _mallocN (Tfunction (Tcons tint Tnil) (tptr tvoid)
+ (Evar _mallocN (Tfunction (tint :: nil) (tptr tvoid)
cc_default))
((Esizeof (Tstruct _tree noattr) tulong) :: nil))
(Sset _p
@@ -391,8 +389,7 @@ Definition f_pushdown_left := {|
(Etempvar _q (tptr (Tstruct _tree noattr))))
(Ssequence
(Scall None
- (Evar _freeN (Tfunction
- (Tcons (tptr tvoid) (Tcons tint Tnil)) tvoid
+ (Evar _freeN (Tfunction ((tptr tvoid) :: tint :: nil) tvoid
cc_default))
((Etempvar _p (tptr (Tstruct _tree noattr))) ::
(Esizeof (Tstruct _tree noattr) tulong) :: nil))
@@ -400,10 +397,10 @@ Definition f_pushdown_left := {|
(Ssequence
(Scall None
(Evar _turn_left (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons (tptr (Tstruct _tree noattr))
- (Tcons (tptr (Tstruct _tree noattr))
- Tnil))) tvoid cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) ::
+ (tptr (Tstruct _tree noattr)) ::
+ (tptr (Tstruct _tree noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _t (tptr (tptr (Tstruct _tree noattr)))) ::
(Etempvar _p (tptr (Tstruct _tree noattr))) ::
(Etempvar _q (tptr (Tstruct _tree noattr))) :: nil))
@@ -462,9 +459,8 @@ Definition f_delete := {|
(Ssequence
(Scall None
(Evar _pushdown_left (Tfunction
- (Tcons
- (tptr (tptr (Tstruct _tree noattr)))
- Tnil) tvoid cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) ::
+ nil) tvoid cc_default))
((Etempvar _t (tptr (tptr (Tstruct _tree noattr)))) :: nil))
(Sreturn None))))))))
Sskip)
@@ -525,52 +521,47 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _treebox_new (Tfunction Tnil
+ (Evar _treebox_new (Tfunction nil
(tptr (tptr (Tstruct _tree noattr))) cc_default))
nil)
(Sset _p (Etempvar _t'1 (tptr (tptr (Tstruct _tree noattr))))))
(Ssequence
(Scall None
(Evar _insert (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons tint (Tcons (tptr tvoid) Tnil))) tvoid
- cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) :: tint ::
+ (tptr tvoid) :: nil) tvoid cc_default))
((Etempvar _p (tptr (tptr (Tstruct _tree noattr)))) ::
(Econst_int (Int.repr 3) tint) ::
(Evar ___stringlit_1 (tarray tschar 6)) :: nil))
(Ssequence
(Scall None
(Evar _insert (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons tint (Tcons (tptr tvoid) Tnil))) tvoid
- cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) :: tint ::
+ (tptr tvoid) :: nil) tvoid cc_default))
((Etempvar _p (tptr (tptr (Tstruct _tree noattr)))) ::
(Econst_int (Int.repr 1) tint) ::
(Evar ___stringlit_2 (tarray tschar 4)) :: nil))
(Ssequence
(Scall None
(Evar _insert (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons tint (Tcons (tptr tvoid) Tnil))) tvoid
- cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) :: tint ::
+ (tptr tvoid) :: nil) tvoid cc_default))
((Etempvar _p (tptr (tptr (Tstruct _tree noattr)))) ::
(Econst_int (Int.repr 4) tint) ::
(Evar ___stringlit_3 (tarray tschar 5)) :: nil))
(Ssequence
(Scall None
(Evar _insert (Tfunction
- (Tcons (tptr (tptr (Tstruct _tree noattr)))
- (Tcons tint (Tcons (tptr tvoid) Tnil))) tvoid
- cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) ::
+ tint :: (tptr tvoid) :: nil) tvoid cc_default))
((Etempvar _p (tptr (tptr (Tstruct _tree noattr)))) ::
(Econst_int (Int.repr 1) tint) ::
(Evar ___stringlit_4 (tarray tschar 4)) :: nil))
(Ssequence
(Scall None
(Evar _treebox_free (Tfunction
- (Tcons
- (tptr (tptr (Tstruct _tree noattr)))
- Tnil) tvoid cc_default))
+ ((tptr (tptr (Tstruct _tree noattr))) ::
+ nil) tvoid cc_default))
((Etempvar _p (tptr (tptr (Tstruct _tree noattr)))) :: nil))
(Sreturn (Some (Econst_int (Int.repr 0) tint)))))))))
(Sreturn (Some (Econst_int (Int.repr 0) tint))))
@@ -586,277 +577,259 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) :: (___stringlit_3, Gvar v___stringlit_3) ::
(___stringlit_1, Gvar v___stringlit_1) ::
(___stringlit_4, Gvar v___stringlit_4) ::
(___stringlit_2, Gvar v___stringlit_2) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_mallocN,
Gfun(External (EF_external "mallocN"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons tint Tnil) (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xptr cc_default))
+ (tint :: nil) (tptr tvoid) cc_default)) ::
(_freeN,
Gfun(External (EF_external "freeN"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tint Tnil))
- tvoid cc_default)) :: (_treebox_new, Gfun(Internal f_treebox_new)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tint :: nil) tvoid
+ cc_default)) :: (_treebox_new, Gfun(Internal f_treebox_new)) ::
(_tree_free, Gfun(Internal f_tree_free)) ::
(_treebox_free, Gfun(Internal f_treebox_free)) ::
(_insert, Gfun(Internal f_insert)) ::
@@ -868,26 +841,24 @@ Definition global_definitions : list (ident * globdef fundef type) :=
Definition public_idents : list ident :=
(_main :: _lookup :: _delete :: _pushdown_left :: _turn_left :: _insert ::
_treebox_free :: _tree_free :: _treebox_new :: _freeN :: _mallocN ::
- ___builtin_debug :: ___builtin_write32_reversed ::
- ___builtin_write16_reversed :: ___builtin_read32_reversed ::
- ___builtin_read16_reversed :: ___builtin_fnmsub :: ___builtin_fnmadd ::
- ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_fmin ::
- ___builtin_fmax :: ___builtin_expect :: ___builtin_unreachable ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_sel :: ___builtin_memcpy_aligned ::
- ___builtin_sqrt :: ___builtin_fsqrt :: ___builtin_fabsf ::
- ___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
- ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
- nil).
+ ___builtin_debug :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
+ ___builtin_fmadd :: ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
+ ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
+ ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
+ ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
+ ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
+ ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
+ ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
+ ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
+ ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
+ ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
+ ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
+ ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
+ ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
+ ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
+ ___compcert_va_composite :: ___compcert_va_float64 ::
+ ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/dry_mem_lemmas.v b/progs64/dry_mem_lemmas.v
index 5ec757400b..1e7219d928 100644
--- a/progs64/dry_mem_lemmas.v
+++ b/progs64/dry_mem_lemmas.v
@@ -866,15 +866,15 @@ Definition main_pre_juicy {Z} prog (ora : Z) gv (x' : rmap * {ts : list Type & u
(m_phi m) (*phi0 /\
necR (fst x') phi1*) /\ joins (ghost_of (m_phi m)) [Some (ext_ref z, NoneP)]).
-Definition rettype_of_option_typ (t: option typ) : rettype :=
-match t with Some t => AST.Tret t | None => AST.Tvoid end.
+Definition xtype_of_option_typ (t: option typ) : xtype :=
+match t with Some t => inj_type t | None => Xvoid end.
Definition main_post_juicy {Z} prog (ora : Z) gv (x' : rmap * {ts : list Type & unit})
(ge_s: extspec.injective_PTree block) (tret : option typ) ret (z : Z) (m : juicy_mem) :=
(*exists phi0 phi1 : rmap,
join phi0 phi1 (m_phi m) /\*)
(app_pred (main_post prog gv
- (semax.make_ext_rval (filter_genv (semax_ext.symb2genv ge_s)) (rettype_of_option_typ tret) ret))
+ (semax.make_ext_rval (filter_genv (semax_ext.symb2genv ge_s)) (xtype_of_option_typ tret) ret))
(m_phi m)(*phi0 /\
necR (fst x') phi1*) /\ joins (ghost_of (m_phi m)) [Some (ext_ref z, NoneP)]).
diff --git a/progs64/field_loadstore.v b/progs64/field_loadstore.v
index 7265a41beb..ce5cc315a1 100644
--- a/progs64/field_loadstore.v
+++ b/progs64/field_loadstore.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/field_loadstore.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 8%positive.
Definition ___builtin_bswap16 : ident := 10%positive.
Definition ___builtin_bswap32 : ident := 9%positive.
Definition ___builtin_bswap64 : ident := 7%positive.
+Definition ___builtin_cls : ident := 32%positive.
+Definition ___builtin_clsl : ident := 33%positive.
+Definition ___builtin_clsll : ident := 34%positive.
Definition ___builtin_clz : ident := 11%positive.
Definition ___builtin_clzl : ident := 12%positive.
Definition ___builtin_clzll : ident := 13%positive.
Definition ___builtin_ctz : ident := 14%positive.
Definition ___builtin_ctzl : ident := 15%positive.
Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 42%positive.
+Definition ___builtin_debug : ident := 41%positive.
Definition ___builtin_expect : ident := 31%positive.
Definition ___builtin_fabs : ident := 17%positive.
Definition ___builtin_fabsf : ident := 18%positive.
-Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
-Definition ___builtin_fmsub : ident := 35%positive.
-Definition ___builtin_fnmadd : ident := 36%positive.
-Definition ___builtin_fnmsub : ident := 37%positive.
+Definition ___builtin_fmadd : ident := 35%positive.
+Definition ___builtin_fmax : ident := 39%positive.
+Definition ___builtin_fmin : ident := 40%positive.
+Definition ___builtin_fmsub : ident := 36%positive.
+Definition ___builtin_fnmadd : ident := 37%positive.
+Definition ___builtin_fnmsub : ident := 38%positive.
Definition ___builtin_fsqrt : ident := 19%positive.
Definition ___builtin_membar : ident := 25%positive.
Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 39%positive.
Definition ___builtin_sel : ident := 22%positive.
Definition ___builtin_sqrt : ident := 20%positive.
Definition ___builtin_unreachable : ident := 30%positive.
@@ -53,41 +54,39 @@ Definition ___builtin_va_arg : ident := 27%positive.
Definition ___builtin_va_copy : ident := 28%positive.
Definition ___builtin_va_end : ident := 29%positive.
Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 40%positive.
-Definition ___builtin_write32_reversed : ident := 41%positive.
-Definition ___compcert_i64_dtos : ident := 54%positive.
-Definition ___compcert_i64_dtou : ident := 55%positive.
-Definition ___compcert_i64_sar : ident := 66%positive.
-Definition ___compcert_i64_sdiv : ident := 60%positive.
-Definition ___compcert_i64_shl : ident := 64%positive.
-Definition ___compcert_i64_shr : ident := 65%positive.
-Definition ___compcert_i64_smod : ident := 62%positive.
-Definition ___compcert_i64_smulh : ident := 67%positive.
-Definition ___compcert_i64_stod : ident := 56%positive.
-Definition ___compcert_i64_stof : ident := 58%positive.
-Definition ___compcert_i64_udiv : ident := 61%positive.
-Definition ___compcert_i64_umod : ident := 63%positive.
-Definition ___compcert_i64_umulh : ident := 68%positive.
-Definition ___compcert_i64_utod : ident := 57%positive.
-Definition ___compcert_i64_utof : ident := 59%positive.
-Definition ___compcert_va_composite : ident := 53%positive.
-Definition ___compcert_va_float64 : ident := 52%positive.
-Definition ___compcert_va_int32 : ident := 50%positive.
-Definition ___compcert_va_int64 : ident := 51%positive.
+Definition ___compcert_i64_dtos : ident := 53%positive.
+Definition ___compcert_i64_dtou : ident := 54%positive.
+Definition ___compcert_i64_sar : ident := 65%positive.
+Definition ___compcert_i64_sdiv : ident := 59%positive.
+Definition ___compcert_i64_shl : ident := 63%positive.
+Definition ___compcert_i64_shr : ident := 64%positive.
+Definition ___compcert_i64_smod : ident := 61%positive.
+Definition ___compcert_i64_smulh : ident := 66%positive.
+Definition ___compcert_i64_stod : ident := 55%positive.
+Definition ___compcert_i64_stof : ident := 57%positive.
+Definition ___compcert_i64_udiv : ident := 60%positive.
+Definition ___compcert_i64_umod : ident := 62%positive.
+Definition ___compcert_i64_umulh : ident := 67%positive.
+Definition ___compcert_i64_utod : ident := 56%positive.
+Definition ___compcert_i64_utof : ident := 58%positive.
+Definition ___compcert_va_composite : ident := 52%positive.
+Definition ___compcert_va_float64 : ident := 51%positive.
+Definition ___compcert_va_int32 : ident := 49%positive.
+Definition ___compcert_va_int64 : ident := 50%positive.
Definition _a : ident := 1%positive.
Definition _b : ident := 4%positive.
-Definition _i : ident := 44%positive.
-Definition _j : ident := 47%positive.
-Definition _main : ident := 49%positive.
-Definition _p : ident := 43%positive.
-Definition _sub1 : ident := 45%positive.
-Definition _sub2 : ident := 46%positive.
-Definition _sub3 : ident := 48%positive.
+Definition _i : ident := 43%positive.
+Definition _j : ident := 46%positive.
+Definition _main : ident := 48%positive.
+Definition _p : ident := 42%positive.
+Definition _sub1 : ident := 44%positive.
+Definition _sub2 : ident := 45%positive.
+Definition _sub3 : ident := 47%positive.
Definition _x1 : ident := 2%positive.
Definition _x2 : ident := 3%positive.
Definition _y1 : ident := 5%positive.
Definition _y2 : ident := 6%positive.
-Definition _t'1 : ident := 69%positive.
+Definition _t'1 : ident := 68%positive.
Definition v_p := {|
gvar_info := (Tstruct _b noattr);
@@ -181,264 +180,246 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_p, Gvar v_p) :: (_sub1, Gfun(Internal f_sub1)) ::
(_sub2, Gfun(Internal f_sub2)) :: (_sub3, Gfun(Internal f_sub3)) ::
@@ -446,10 +427,9 @@ Definition global_definitions : list (ident * globdef fundef type) :=
Definition public_idents : list ident :=
(_main :: _sub3 :: _sub2 :: _sub1 :: _p :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fmin :: ___builtin_fmax :: ___builtin_fnmsub ::
+ ___builtin_fnmadd :: ___builtin_fmsub :: ___builtin_fmadd ::
+ ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
diff --git a/progs64/float.v b/progs64/float.v
index 8e096f6ccd..681dc0068b 100644
--- a/progs64/float.v
+++ b/progs64/float.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/float.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 6%positive.
Definition ___builtin_bswap16 : ident := 8%positive.
Definition ___builtin_bswap32 : ident := 7%positive.
Definition ___builtin_bswap64 : ident := 5%positive.
+Definition ___builtin_cls : ident := 30%positive.
+Definition ___builtin_clsl : ident := 31%positive.
+Definition ___builtin_clsll : ident := 32%positive.
Definition ___builtin_clz : ident := 9%positive.
Definition ___builtin_clzl : ident := 10%positive.
Definition ___builtin_clzll : ident := 11%positive.
Definition ___builtin_ctz : ident := 12%positive.
Definition ___builtin_ctzl : ident := 13%positive.
Definition ___builtin_ctzll : ident := 14%positive.
-Definition ___builtin_debug : ident := 40%positive.
+Definition ___builtin_debug : ident := 39%positive.
Definition ___builtin_expect : ident := 29%positive.
Definition ___builtin_fabs : ident := 15%positive.
Definition ___builtin_fabsf : ident := 16%positive.
-Definition ___builtin_fmadd : ident := 32%positive.
-Definition ___builtin_fmax : ident := 30%positive.
-Definition ___builtin_fmin : ident := 31%positive.
-Definition ___builtin_fmsub : ident := 33%positive.
-Definition ___builtin_fnmadd : ident := 34%positive.
-Definition ___builtin_fnmsub : ident := 35%positive.
+Definition ___builtin_fmadd : ident := 33%positive.
+Definition ___builtin_fmax : ident := 37%positive.
+Definition ___builtin_fmin : ident := 38%positive.
+Definition ___builtin_fmsub : ident := 34%positive.
+Definition ___builtin_fnmadd : ident := 35%positive.
+Definition ___builtin_fnmsub : ident := 36%positive.
Definition ___builtin_fsqrt : ident := 17%positive.
Definition ___builtin_membar : ident := 23%positive.
Definition ___builtin_memcpy_aligned : ident := 19%positive.
-Definition ___builtin_read16_reversed : ident := 36%positive.
-Definition ___builtin_read32_reversed : ident := 37%positive.
Definition ___builtin_sel : ident := 20%positive.
Definition ___builtin_sqrt : ident := 18%positive.
Definition ___builtin_unreachable : ident := 28%positive.
@@ -53,40 +54,38 @@ Definition ___builtin_va_arg : ident := 25%positive.
Definition ___builtin_va_copy : ident := 26%positive.
Definition ___builtin_va_end : ident := 27%positive.
Definition ___builtin_va_start : ident := 24%positive.
-Definition ___builtin_write16_reversed : ident := 38%positive.
-Definition ___builtin_write32_reversed : ident := 39%positive.
-Definition ___compcert_i64_dtos : ident := 51%positive.
-Definition ___compcert_i64_dtou : ident := 52%positive.
-Definition ___compcert_i64_sar : ident := 63%positive.
-Definition ___compcert_i64_sdiv : ident := 57%positive.
-Definition ___compcert_i64_shl : ident := 61%positive.
-Definition ___compcert_i64_shr : ident := 62%positive.
-Definition ___compcert_i64_smod : ident := 59%positive.
-Definition ___compcert_i64_smulh : ident := 64%positive.
-Definition ___compcert_i64_stod : ident := 53%positive.
-Definition ___compcert_i64_stof : ident := 55%positive.
-Definition ___compcert_i64_udiv : ident := 58%positive.
-Definition ___compcert_i64_umod : ident := 60%positive.
-Definition ___compcert_i64_umulh : ident := 65%positive.
-Definition ___compcert_i64_utod : ident := 54%positive.
-Definition ___compcert_i64_utof : ident := 56%positive.
-Definition ___compcert_va_composite : ident := 50%positive.
-Definition ___compcert_va_float64 : ident := 49%positive.
-Definition ___compcert_va_int32 : ident := 47%positive.
-Definition ___compcert_va_int64 : ident := 48%positive.
-Definition _a : ident := 42%positive.
+Definition ___compcert_i64_dtos : ident := 50%positive.
+Definition ___compcert_i64_dtou : ident := 51%positive.
+Definition ___compcert_i64_sar : ident := 62%positive.
+Definition ___compcert_i64_sdiv : ident := 56%positive.
+Definition ___compcert_i64_shl : ident := 60%positive.
+Definition ___compcert_i64_shr : ident := 61%positive.
+Definition ___compcert_i64_smod : ident := 58%positive.
+Definition ___compcert_i64_smulh : ident := 63%positive.
+Definition ___compcert_i64_stod : ident := 52%positive.
+Definition ___compcert_i64_stof : ident := 54%positive.
+Definition ___compcert_i64_udiv : ident := 57%positive.
+Definition ___compcert_i64_umod : ident := 59%positive.
+Definition ___compcert_i64_umulh : ident := 64%positive.
+Definition ___compcert_i64_utod : ident := 53%positive.
+Definition ___compcert_i64_utof : ident := 55%positive.
+Definition ___compcert_va_composite : ident := 49%positive.
+Definition ___compcert_va_float64 : ident := 48%positive.
+Definition ___compcert_va_int32 : ident := 46%positive.
+Definition ___compcert_va_int64 : ident := 47%positive.
+Definition _a : ident := 41%positive.
Definition _foo : ident := 1%positive.
-Definition _main : ident := 46%positive.
-Definition _s : ident := 41%positive.
+Definition _main : ident := 45%positive.
+Definition _s : ident := 40%positive.
Definition _x : ident := 2%positive.
-Definition _x1 : ident := 44%positive.
+Definition _x1 : ident := 43%positive.
Definition _y : ident := 3%positive.
-Definition _y1 : ident := 43%positive.
-Definition _y2 : ident := 45%positive.
+Definition _y1 : ident := 42%positive.
+Definition _y2 : ident := 44%positive.
Definition _z : ident := 4%positive.
-Definition _t'1 : ident := 66%positive.
-Definition _t'2 : ident := 67%positive.
-Definition _t'3 : ident := 68%positive.
+Definition _t'1 : ident := 65%positive.
+Definition _t'2 : ident := 66%positive.
+Definition _t'3 : ident := 67%positive.
Definition v_s := {|
gvar_info := (Tstruct _foo noattr);
@@ -151,286 +150,267 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_s, Gvar v_s) :: (_a, Gvar v_a) :: (_main, Gfun(Internal f_main)) :: nil).
Definition public_idents : list ident :=
-(_main :: _a :: _s :: ___builtin_debug :: ___builtin_write32_reversed ::
- ___builtin_write16_reversed :: ___builtin_read32_reversed ::
- ___builtin_read16_reversed :: ___builtin_fnmsub :: ___builtin_fnmadd ::
- ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_fmin ::
- ___builtin_fmax :: ___builtin_expect :: ___builtin_unreachable ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_sel :: ___builtin_memcpy_aligned ::
- ___builtin_sqrt :: ___builtin_fsqrt :: ___builtin_fabsf ::
- ___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+(_main :: _a :: _s :: ___builtin_debug :: ___builtin_fmin ::
+ ___builtin_fmax :: ___builtin_fnmsub :: ___builtin_fnmadd ::
+ ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_clsll ::
+ ___builtin_clsl :: ___builtin_cls :: ___builtin_expect ::
+ ___builtin_unreachable :: ___builtin_va_end :: ___builtin_va_copy ::
+ ___builtin_va_arg :: ___builtin_va_start :: ___builtin_membar ::
+ ___builtin_annot_intval :: ___builtin_annot :: ___builtin_sel ::
+ ___builtin_memcpy_aligned :: ___builtin_sqrt :: ___builtin_fsqrt ::
+ ___builtin_fabsf :: ___builtin_fabs :: ___builtin_ctzll ::
+ ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll :: ___builtin_clzl ::
+ ___builtin_clz :: ___builtin_bswap16 :: ___builtin_bswap32 ::
+ ___builtin_bswap :: ___builtin_bswap64 :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs64/fptr_cmp.v b/progs64/fptr_cmp.v
index 6e641e2c4f..c369925a4b 100644
--- a/progs64/fptr_cmp.v
+++ b/progs64/fptr_cmp.v
@@ -6,86 +6,84 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.13".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/fptr_cmp.c".
Definition normalized := true.
End Info.
-Definition ___builtin_ais_annot : ident := 1%positive.
-Definition ___builtin_annot : ident := 18%positive.
-Definition ___builtin_annot_intval : ident := 19%positive.
-Definition ___builtin_bswap : ident := 3%positive.
-Definition ___builtin_bswap16 : ident := 5%positive.
-Definition ___builtin_bswap32 : ident := 4%positive.
-Definition ___builtin_bswap64 : ident := 2%positive.
-Definition ___builtin_clz : ident := 6%positive.
-Definition ___builtin_clzl : ident := 7%positive.
-Definition ___builtin_clzll : ident := 8%positive.
-Definition ___builtin_ctz : ident := 9%positive.
-Definition ___builtin_ctzl : ident := 10%positive.
-Definition ___builtin_ctzll : ident := 11%positive.
-Definition ___builtin_debug : ident := 37%positive.
-Definition ___builtin_expect : ident := 26%positive.
-Definition ___builtin_fabs : ident := 12%positive.
-Definition ___builtin_fabsf : ident := 13%positive.
+Definition ___builtin_annot : ident := 17%positive.
+Definition ___builtin_annot_intval : ident := 18%positive.
+Definition ___builtin_bswap : ident := 2%positive.
+Definition ___builtin_bswap16 : ident := 4%positive.
+Definition ___builtin_bswap32 : ident := 3%positive.
+Definition ___builtin_bswap64 : ident := 1%positive.
+Definition ___builtin_cls : ident := 26%positive.
+Definition ___builtin_clsl : ident := 27%positive.
+Definition ___builtin_clsll : ident := 28%positive.
+Definition ___builtin_clz : ident := 5%positive.
+Definition ___builtin_clzl : ident := 6%positive.
+Definition ___builtin_clzll : ident := 7%positive.
+Definition ___builtin_ctz : ident := 8%positive.
+Definition ___builtin_ctzl : ident := 9%positive.
+Definition ___builtin_ctzll : ident := 10%positive.
+Definition ___builtin_debug : ident := 35%positive.
+Definition ___builtin_expect : ident := 25%positive.
+Definition ___builtin_fabs : ident := 11%positive.
+Definition ___builtin_fabsf : ident := 12%positive.
Definition ___builtin_fmadd : ident := 29%positive.
-Definition ___builtin_fmax : ident := 27%positive.
-Definition ___builtin_fmin : ident := 28%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
Definition ___builtin_fmsub : ident := 30%positive.
Definition ___builtin_fnmadd : ident := 31%positive.
Definition ___builtin_fnmsub : ident := 32%positive.
-Definition ___builtin_fsqrt : ident := 14%positive.
-Definition ___builtin_membar : ident := 20%positive.
-Definition ___builtin_memcpy_aligned : ident := 16%positive.
-Definition ___builtin_read16_reversed : ident := 33%positive.
-Definition ___builtin_read32_reversed : ident := 34%positive.
-Definition ___builtin_sel : ident := 17%positive.
-Definition ___builtin_sqrt : ident := 15%positive.
-Definition ___builtin_unreachable : ident := 25%positive.
-Definition ___builtin_va_arg : ident := 22%positive.
-Definition ___builtin_va_copy : ident := 23%positive.
-Definition ___builtin_va_end : ident := 24%positive.
-Definition ___builtin_va_start : ident := 21%positive.
-Definition ___builtin_write16_reversed : ident := 35%positive.
-Definition ___builtin_write32_reversed : ident := 36%positive.
-Definition ___compcert_i64_dtos : ident := 50%positive.
-Definition ___compcert_i64_dtou : ident := 51%positive.
-Definition ___compcert_i64_sar : ident := 62%positive.
-Definition ___compcert_i64_sdiv : ident := 56%positive.
-Definition ___compcert_i64_shl : ident := 60%positive.
-Definition ___compcert_i64_shr : ident := 61%positive.
-Definition ___compcert_i64_smod : ident := 58%positive.
-Definition ___compcert_i64_smulh : ident := 63%positive.
-Definition ___compcert_i64_stod : ident := 52%positive.
-Definition ___compcert_i64_stof : ident := 54%positive.
-Definition ___compcert_i64_udiv : ident := 57%positive.
-Definition ___compcert_i64_umod : ident := 59%positive.
-Definition ___compcert_i64_umulh : ident := 64%positive.
-Definition ___compcert_i64_utod : ident := 53%positive.
-Definition ___compcert_i64_utof : ident := 55%positive.
-Definition ___compcert_va_composite : ident := 49%positive.
-Definition ___compcert_va_float64 : ident := 48%positive.
-Definition ___compcert_va_int32 : ident := 46%positive.
-Definition ___compcert_va_int64 : ident := 47%positive.
-Definition _f : ident := 41%positive.
-Definition _id : ident := 39%positive.
-Definition _main : ident := 45%positive.
-Definition _test_fptr : ident := 42%positive.
-Definition _test_fptr_fptr : ident := 44%positive.
-Definition _test_id1 : ident := 40%positive.
-Definition _test_id2 : ident := 43%positive.
-Definition _x : ident := 38%positive.
-Definition _t'1 : ident := 65%positive.
-Definition _t'2 : ident := 66%positive.
-Definition _t'3 : ident := 67%positive.
+Definition ___builtin_fsqrt : ident := 13%positive.
+Definition ___builtin_membar : ident := 19%positive.
+Definition ___builtin_memcpy_aligned : ident := 15%positive.
+Definition ___builtin_sel : ident := 16%positive.
+Definition ___builtin_sqrt : ident := 14%positive.
+Definition ___builtin_unreachable : ident := 24%positive.
+Definition ___builtin_va_arg : ident := 21%positive.
+Definition ___builtin_va_copy : ident := 22%positive.
+Definition ___builtin_va_end : ident := 23%positive.
+Definition ___builtin_va_start : ident := 20%positive.
+Definition ___compcert_i64_dtos : ident := 48%positive.
+Definition ___compcert_i64_dtou : ident := 49%positive.
+Definition ___compcert_i64_sar : ident := 60%positive.
+Definition ___compcert_i64_sdiv : ident := 54%positive.
+Definition ___compcert_i64_shl : ident := 58%positive.
+Definition ___compcert_i64_shr : ident := 59%positive.
+Definition ___compcert_i64_smod : ident := 56%positive.
+Definition ___compcert_i64_smulh : ident := 61%positive.
+Definition ___compcert_i64_stod : ident := 50%positive.
+Definition ___compcert_i64_stof : ident := 52%positive.
+Definition ___compcert_i64_udiv : ident := 55%positive.
+Definition ___compcert_i64_umod : ident := 57%positive.
+Definition ___compcert_i64_umulh : ident := 62%positive.
+Definition ___compcert_i64_utod : ident := 51%positive.
+Definition ___compcert_i64_utof : ident := 53%positive.
+Definition ___compcert_va_composite : ident := 47%positive.
+Definition ___compcert_va_float64 : ident := 46%positive.
+Definition ___compcert_va_int32 : ident := 44%positive.
+Definition ___compcert_va_int64 : ident := 45%positive.
+Definition _f : ident := 39%positive.
+Definition _id : ident := 37%positive.
+Definition _main : ident := 43%positive.
+Definition _test_fptr : ident := 40%positive.
+Definition _test_fptr_fptr : ident := 42%positive.
+Definition _test_id1 : ident := 38%positive.
+Definition _test_id2 : ident := 41%positive.
+Definition _x : ident := 36%positive.
+Definition _t'1 : ident := 63%positive.
+Definition _t'2 : ident := 64%positive.
+Definition _t'3 : ident := 65%positive.
Definition f_id := {|
fn_return := tint;
@@ -104,9 +102,8 @@ Definition f_test_id1 := {|
fn_vars := nil;
fn_temps := nil;
fn_body :=
-(Sifthenelse (Eaddrof
- (Evar _id (Tfunction (Tcons tint Tnil) tint cc_default))
- (tptr (Tfunction (Tcons tint Tnil) tint cc_default)))
+(Sifthenelse (Eaddrof (Evar _id (Tfunction (tint :: nil) tint cc_default))
+ (tptr (Tfunction (tint :: nil) tint cc_default)))
(Sreturn (Some (Econst_int (Int.repr 1) tint)))
(Sreturn (Some (Econst_int (Int.repr 0) tint))))
|}.
@@ -114,12 +111,12 @@ Definition f_test_id1 := {|
Definition f_test_fptr := {|
fn_return := tint;
fn_callconv := cc_default;
- fn_params := ((_f, (tptr (Tfunction (Tcons tint Tnil) tint cc_default))) ::
+ fn_params := ((_f, (tptr (Tfunction (tint :: nil) tint cc_default))) ::
nil);
fn_vars := nil;
fn_temps := nil;
fn_body :=
-(Sifthenelse (Etempvar _f (tptr (Tfunction (Tcons tint Tnil) tint cc_default)))
+(Sifthenelse (Etempvar _f (tptr (Tfunction (tint :: nil) tint cc_default)))
(Sreturn (Some (Econst_int (Int.repr 1) tint)))
(Sreturn (Some (Econst_int (Int.repr 0) tint))))
|}.
@@ -134,11 +131,10 @@ Definition f_test_id2 := {|
(Ssequence
(Scall (Some _t'1)
(Evar _test_fptr (Tfunction
- (Tcons
- (tptr (Tfunction (Tcons tint Tnil) tint cc_default))
- Tnil) tint cc_default))
- ((Eaddrof (Evar _id (Tfunction (Tcons tint Tnil) tint cc_default))
- (tptr (Tfunction (Tcons tint Tnil) tint cc_default))) :: nil))
+ ((tptr (Tfunction (tint :: nil) tint cc_default)) ::
+ nil) tint cc_default))
+ ((Eaddrof (Evar _id (Tfunction (tint :: nil) tint cc_default))
+ (tptr (Tfunction (tint :: nil) tint cc_default))) :: nil))
(Sreturn (Some (Etempvar _t'1 tint))))
|}.
@@ -150,10 +146,10 @@ Definition f_test_fptr_fptr := {|
fn_temps := nil;
fn_body :=
(Sreturn (Some (Ebinop Oeq
- (Eaddrof (Evar _test_id1 (Tfunction Tnil tint cc_default))
- (tptr (Tfunction Tnil tint cc_default)))
- (Eaddrof (Evar _test_id2 (Tfunction Tnil tint cc_default))
- (tptr (Tfunction Tnil tint cc_default))) tint)))
+ (Eaddrof (Evar _test_id1 (Tfunction nil tint cc_default))
+ (tptr (Tfunction nil tint cc_default)))
+ (Eaddrof (Evar _test_id2 (Tfunction nil tint cc_default))
+ (tptr (Tfunction nil tint cc_default))) tint)))
|}.
Definition f_main := {|
@@ -167,12 +163,12 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Ssequence
- (Scall (Some _t'1) (Evar _test_id1 (Tfunction Tnil tint cc_default))
+ (Scall (Some _t'1) (Evar _test_id1 (Tfunction nil tint cc_default))
nil)
- (Scall (Some _t'2) (Evar _test_id2 (Tfunction Tnil tint cc_default))
+ (Scall (Some _t'2) (Evar _test_id2 (Tfunction nil tint cc_default))
nil))
(Scall (Some _t'3)
- (Evar _test_fptr_fptr (Tfunction Tnil tint cc_default)) nil))
+ (Evar _test_fptr_fptr (Tfunction nil tint cc_default)) nil))
(Sreturn (Some (Ebinop Oadd
(Ebinop Oadd (Etempvar _t'1 tint) (Etempvar _t'2 tint)
tint) (Etempvar _t'3 tint) tint))))
@@ -185,270 +181,246 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
- (___builtin_ais_annot,
- Gfun(External (EF_builtin "__builtin_ais_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
- {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_id, Gfun(Internal f_id)) :: (_test_id1, Gfun(Internal f_test_id1)) ::
(_test_fptr, Gfun(Internal f_test_fptr)) ::
@@ -458,26 +430,24 @@ Definition global_definitions : list (ident * globdef fundef type) :=
Definition public_idents : list ident :=
(_main :: _test_fptr_fptr :: _test_id2 :: _test_fptr :: _test_id1 :: _id ::
- ___builtin_debug :: ___builtin_write32_reversed ::
- ___builtin_write16_reversed :: ___builtin_read32_reversed ::
- ___builtin_read16_reversed :: ___builtin_fnmsub :: ___builtin_fnmadd ::
- ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_fmin ::
- ___builtin_fmax :: ___builtin_expect :: ___builtin_unreachable ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_sel :: ___builtin_memcpy_aligned ::
- ___builtin_sqrt :: ___builtin_fsqrt :: ___builtin_fabsf ::
- ___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
- ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
- ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
- ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
- ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
- ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
- ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
- nil).
+ ___builtin_debug :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
+ ___builtin_fmadd :: ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
+ ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
+ ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
+ ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
+ ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
+ ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
+ ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
+ ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
+ ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
+ ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
+ ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
+ ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
+ ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
+ ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
+ ___compcert_va_composite :: ___compcert_va_float64 ::
+ ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/global.v b/progs64/global.v
index 8be8e8ed84..46eb30193a 100644
--- a/progs64/global.v
+++ b/progs64/global.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/global.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 5%positive.
Definition ___builtin_bswap16 : ident := 7%positive.
Definition ___builtin_bswap32 : ident := 6%positive.
Definition ___builtin_bswap64 : ident := 4%positive.
+Definition ___builtin_cls : ident := 29%positive.
+Definition ___builtin_clsl : ident := 30%positive.
+Definition ___builtin_clsll : ident := 31%positive.
Definition ___builtin_clz : ident := 8%positive.
Definition ___builtin_clzl : ident := 9%positive.
Definition ___builtin_clzll : ident := 10%positive.
Definition ___builtin_ctz : ident := 11%positive.
Definition ___builtin_ctzl : ident := 12%positive.
Definition ___builtin_ctzll : ident := 13%positive.
-Definition ___builtin_debug : ident := 39%positive.
+Definition ___builtin_debug : ident := 38%positive.
Definition ___builtin_expect : ident := 28%positive.
Definition ___builtin_fabs : ident := 14%positive.
Definition ___builtin_fabsf : ident := 15%positive.
-Definition ___builtin_fmadd : ident := 31%positive.
-Definition ___builtin_fmax : ident := 29%positive.
-Definition ___builtin_fmin : ident := 30%positive.
-Definition ___builtin_fmsub : ident := 32%positive.
-Definition ___builtin_fnmadd : ident := 33%positive.
-Definition ___builtin_fnmsub : ident := 34%positive.
+Definition ___builtin_fmadd : ident := 32%positive.
+Definition ___builtin_fmax : ident := 36%positive.
+Definition ___builtin_fmin : ident := 37%positive.
+Definition ___builtin_fmsub : ident := 33%positive.
+Definition ___builtin_fnmadd : ident := 34%positive.
+Definition ___builtin_fnmsub : ident := 35%positive.
Definition ___builtin_fsqrt : ident := 16%positive.
Definition ___builtin_membar : ident := 22%positive.
Definition ___builtin_memcpy_aligned : ident := 18%positive.
-Definition ___builtin_read16_reversed : ident := 35%positive.
-Definition ___builtin_read32_reversed : ident := 36%positive.
Definition ___builtin_sel : ident := 19%positive.
Definition ___builtin_sqrt : ident := 17%positive.
Definition ___builtin_unreachable : ident := 27%positive.
@@ -53,41 +54,39 @@ Definition ___builtin_va_arg : ident := 24%positive.
Definition ___builtin_va_copy : ident := 25%positive.
Definition ___builtin_va_end : ident := 26%positive.
Definition ___builtin_va_start : ident := 23%positive.
-Definition ___builtin_write16_reversed : ident := 37%positive.
-Definition ___builtin_write32_reversed : ident := 38%positive.
-Definition ___compcert_i64_dtos : ident := 54%positive.
-Definition ___compcert_i64_dtou : ident := 55%positive.
-Definition ___compcert_i64_sar : ident := 66%positive.
-Definition ___compcert_i64_sdiv : ident := 60%positive.
-Definition ___compcert_i64_shl : ident := 64%positive.
-Definition ___compcert_i64_shr : ident := 65%positive.
-Definition ___compcert_i64_smod : ident := 62%positive.
-Definition ___compcert_i64_smulh : ident := 67%positive.
-Definition ___compcert_i64_stod : ident := 56%positive.
-Definition ___compcert_i64_stof : ident := 58%positive.
-Definition ___compcert_i64_udiv : ident := 61%positive.
-Definition ___compcert_i64_umod : ident := 63%positive.
-Definition ___compcert_i64_umulh : ident := 68%positive.
-Definition ___compcert_i64_utod : ident := 57%positive.
-Definition ___compcert_i64_utof : ident := 59%positive.
-Definition ___compcert_va_composite : ident := 53%positive.
-Definition ___compcert_va_float64 : ident := 52%positive.
-Definition ___compcert_va_int32 : ident := 50%positive.
-Definition ___compcert_va_int64 : ident := 51%positive.
+Definition ___compcert_i64_dtos : ident := 53%positive.
+Definition ___compcert_i64_dtou : ident := 54%positive.
+Definition ___compcert_i64_sar : ident := 65%positive.
+Definition ___compcert_i64_sdiv : ident := 59%positive.
+Definition ___compcert_i64_shl : ident := 63%positive.
+Definition ___compcert_i64_shr : ident := 64%positive.
+Definition ___compcert_i64_smod : ident := 61%positive.
+Definition ___compcert_i64_smulh : ident := 66%positive.
+Definition ___compcert_i64_stod : ident := 55%positive.
+Definition ___compcert_i64_stof : ident := 57%positive.
+Definition ___compcert_i64_udiv : ident := 60%positive.
+Definition ___compcert_i64_umod : ident := 62%positive.
+Definition ___compcert_i64_umulh : ident := 67%positive.
+Definition ___compcert_i64_utod : ident := 56%positive.
+Definition ___compcert_i64_utof : ident := 58%positive.
+Definition ___compcert_va_composite : ident := 52%positive.
+Definition ___compcert_va_float64 : ident := 51%positive.
+Definition ___compcert_va_int32 : ident := 49%positive.
+Definition ___compcert_va_int64 : ident := 50%positive.
Definition _a : ident := 3%positive.
-Definition _b : ident := 41%positive.
-Definition _c : ident := 42%positive.
-Definition _d : ident := 43%positive.
-Definition _e : ident := 44%positive.
-Definition _f : ident := 45%positive.
+Definition _b : ident := 40%positive.
+Definition _c : ident := 41%positive.
+Definition _d : ident := 42%positive.
+Definition _e : ident := 43%positive.
+Definition _f : ident := 44%positive.
Definition _foo : ident := 1%positive.
-Definition _g : ident := 46%positive.
-Definition _h : ident := 47%positive.
-Definition _main : ident := 49%positive.
-Definition _p : ident := 40%positive.
+Definition _g : ident := 45%positive.
+Definition _h : ident := 46%positive.
+Definition _main : ident := 48%positive.
+Definition _p : ident := 39%positive.
Definition _x : ident := 2%positive.
-Definition _y : ident := 48%positive.
-Definition _t'1 : ident := 69%positive.
+Definition _y : ident := 47%positive.
+Definition _t'1 : ident := 68%positive.
Definition v_p := {|
gvar_info := (tptr (Tstruct _foo noattr));
@@ -172,7 +171,7 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Ssequence
- (Scall (Some _t'1) (Evar _h (Tfunction Tnil tint cc_default)) nil)
+ (Scall (Some _t'1) (Evar _h (Tfunction nil tint cc_default)) nil)
(Sset _y (Etempvar _t'1 tint)))
(Sreturn (Some (Etempvar _y tint))))
(Sreturn (Some (Econst_int (Int.repr 0) tint))))
@@ -186,264 +185,246 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_p, Gvar v_p) :: (_a, Gvar v_a) :: (_b, Gvar v_b) :: (_c, Gvar v_c) ::
(_d, Gvar v_d) :: (_e, Gvar v_e) :: (_f, Gvar v_f) :: (_g, Gvar v_g) ::
@@ -451,26 +432,24 @@ Definition global_definitions : list (ident * globdef fundef type) :=
Definition public_idents : list ident :=
(_main :: _h :: _g :: _f :: _e :: _d :: _c :: _b :: _a :: _p ::
- ___builtin_debug :: ___builtin_write32_reversed ::
- ___builtin_write16_reversed :: ___builtin_read32_reversed ::
- ___builtin_read16_reversed :: ___builtin_fnmsub :: ___builtin_fnmadd ::
- ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_fmin ::
- ___builtin_fmax :: ___builtin_expect :: ___builtin_unreachable ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_sel :: ___builtin_memcpy_aligned ::
- ___builtin_sqrt :: ___builtin_fsqrt :: ___builtin_fabsf ::
- ___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
- ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
- nil).
+ ___builtin_debug :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
+ ___builtin_fmadd :: ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
+ ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
+ ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
+ ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
+ ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
+ ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
+ ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
+ ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
+ ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
+ ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
+ ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
+ ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
+ ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
+ ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
+ ___compcert_va_composite :: ___compcert_va_float64 ::
+ ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/incr.v b/progs64/incr.v
index 37614718d8..0c72755d8f 100644
--- a/progs64/incr.v
+++ b/progs64/incr.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/incr.c".
@@ -25,6 +25,9 @@ Definition ___builtin_bswap : ident := $"__builtin_bswap".
Definition ___builtin_bswap16 : ident := $"__builtin_bswap16".
Definition ___builtin_bswap32 : ident := $"__builtin_bswap32".
Definition ___builtin_bswap64 : ident := $"__builtin_bswap64".
+Definition ___builtin_cls : ident := $"__builtin_cls".
+Definition ___builtin_clsl : ident := $"__builtin_clsl".
+Definition ___builtin_clsll : ident := $"__builtin_clsll".
Definition ___builtin_clz : ident := $"__builtin_clz".
Definition ___builtin_clzl : ident := $"__builtin_clzl".
Definition ___builtin_clzll : ident := $"__builtin_clzll".
@@ -44,8 +47,6 @@ Definition ___builtin_fnmsub : ident := $"__builtin_fnmsub".
Definition ___builtin_fsqrt : ident := $"__builtin_fsqrt".
Definition ___builtin_membar : ident := $"__builtin_membar".
Definition ___builtin_memcpy_aligned : ident := $"__builtin_memcpy_aligned".
-Definition ___builtin_read16_reversed : ident := $"__builtin_read16_reversed".
-Definition ___builtin_read32_reversed : ident := $"__builtin_read32_reversed".
Definition ___builtin_sel : ident := $"__builtin_sel".
Definition ___builtin_sqrt : ident := $"__builtin_sqrt".
Definition ___builtin_unreachable : ident := $"__builtin_unreachable".
@@ -53,8 +54,6 @@ Definition ___builtin_va_arg : ident := $"__builtin_va_arg".
Definition ___builtin_va_copy : ident := $"__builtin_va_copy".
Definition ___builtin_va_end : ident := $"__builtin_va_end".
Definition ___builtin_va_start : ident := $"__builtin_va_start".
-Definition ___builtin_write16_reversed : ident := $"__builtin_write16_reversed".
-Definition ___builtin_write32_reversed : ident := $"__builtin_write32_reversed".
Definition ___compcert_i64_dtos : ident := $"__compcert_i64_dtos".
Definition ___compcert_i64_dtou : ident := $"__compcert_i64_dtou".
Definition ___compcert_i64_sar : ident := $"__compcert_i64_sar".
@@ -119,9 +118,8 @@ Definition f_incr := {|
(Efield (Evar _c (Tstruct _counter noattr)) _lock
(tptr (tptr (Tstruct _atom_int noattr)))))
(Scall None
- (Evar _acquire (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid
- cc_default))
+ (Evar _acquire (Tfunction ((tptr (Tstruct _atom_int noattr)) :: nil)
+ tvoid cc_default))
((Etempvar _t'3 (tptr (tptr (Tstruct _atom_int noattr)))) :: nil)))
(Ssequence
(Ssequence
@@ -134,9 +132,8 @@ Definition f_incr := {|
(Efield (Evar _c (Tstruct _counter noattr)) _lock
(tptr (tptr (Tstruct _atom_int noattr)))))
(Scall None
- (Evar _release (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid
- cc_default))
+ (Evar _release (Tfunction ((tptr (Tstruct _atom_int noattr)) :: nil)
+ tvoid cc_default))
((Etempvar _t'1 (tptr (tptr (Tstruct _atom_int noattr)))) :: nil)))))
|}.
@@ -155,9 +152,8 @@ Definition f_read := {|
(Efield (Evar _c (Tstruct _counter noattr)) _lock
(tptr (tptr (Tstruct _atom_int noattr)))))
(Scall None
- (Evar _acquire (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid
- cc_default))
+ (Evar _acquire (Tfunction ((tptr (Tstruct _atom_int noattr)) :: nil)
+ tvoid cc_default))
((Etempvar _t'2 (tptr (tptr (Tstruct _atom_int noattr)))) :: nil)))
(Ssequence
(Sset _t (Efield (Evar _c (Tstruct _counter noattr)) _ctr tuint))
@@ -168,8 +164,8 @@ Definition f_read := {|
(tptr (tptr (Tstruct _atom_int noattr)))))
(Scall None
(Evar _release (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil)
- tvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _t'1 (tptr (tptr (Tstruct _atom_int noattr)))) :: nil)))
(Sreturn (Some (Etempvar _t tuint))))))
|}.
@@ -182,12 +178,11 @@ Definition f_thread_func := {|
fn_temps := nil;
fn_body :=
(Ssequence
- (Scall None (Evar _incr (Tfunction Tnil tvoid cc_default)) nil)
+ (Scall None (Evar _incr (Tfunction nil tvoid cc_default)) nil)
(Ssequence
(Scall None
- (Evar _release (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid
- cc_default))
+ (Evar _release (Tfunction ((tptr (Tstruct _atom_int noattr)) :: nil)
+ tvoid cc_default))
((Ecast (Etempvar _thread_lock (tptr tvoid))
(tptr (tptr (Tstruct _atom_int noattr)))) :: nil))
(Sreturn (Some (Econst_int (Int.repr 0) tint)))))
@@ -213,7 +208,7 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _makelock (Tfunction Tnil (tptr (Tstruct _atom_int noattr))
+ (Evar _makelock (Tfunction nil (tptr (Tstruct _atom_int noattr))
cc_default)) nil)
(Sassign
(Efield (Evar _c (Tstruct _counter noattr)) _lock
@@ -226,13 +221,13 @@ Definition f_main := {|
(tptr (tptr (Tstruct _atom_int noattr)))))
(Scall None
(Evar _release (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil)
- tvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil) tvoid
+ cc_default))
((Etempvar _t'6 (tptr (tptr (Tstruct _atom_int noattr)))) :: nil)))
(Ssequence
(Ssequence
(Scall (Some _t'2)
- (Evar _makelock (Tfunction Tnil
+ (Evar _makelock (Tfunction nil
(tptr (Tstruct _atom_int noattr)) cc_default))
nil)
(Sset _thread_lock
@@ -240,32 +235,31 @@ Definition f_main := {|
(Ssequence
(Scall None
(Evar _spawn (Tfunction
- (Tcons
- (tptr (Tfunction (Tcons (tptr tvoid) Tnil)
- tint cc_default))
- (Tcons (tptr tvoid) Tnil)) tvoid cc_default))
+ ((tptr (Tfunction ((tptr tvoid) :: nil) tint
+ cc_default)) :: (tptr tvoid) :: nil)
+ tvoid cc_default))
((Ecast
(Eaddrof
- (Evar _thread_func (Tfunction (Tcons (tptr tvoid) Tnil)
- tint cc_default))
- (tptr (Tfunction (Tcons (tptr tvoid) Tnil) tint
- cc_default))) (tptr tvoid)) ::
+ (Evar _thread_func (Tfunction ((tptr tvoid) :: nil) tint
+ cc_default))
+ (tptr (Tfunction ((tptr tvoid) :: nil) tint cc_default)))
+ (tptr tvoid)) ::
(Ecast
(Etempvar _thread_lock (tptr (tptr (Tstruct _atom_int noattr))))
(tptr tvoid)) :: nil))
(Ssequence
- (Scall None (Evar _incr (Tfunction Tnil tvoid cc_default)) nil)
+ (Scall None (Evar _incr (Tfunction nil tvoid cc_default)) nil)
(Ssequence
(Scall None
(Evar _acquire (Tfunction
- (Tcons (tptr (Tstruct _atom_int noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil)
+ tvoid cc_default))
((Etempvar _thread_lock (tptr (tptr (Tstruct _atom_int noattr)))) ::
nil))
(Ssequence
(Ssequence
(Scall (Some _t'3)
- (Evar _read (Tfunction Tnil tuint cc_default)) nil)
+ (Evar _read (Tfunction nil tuint cc_default)) nil)
(Sset _t (Etempvar _t'3 tuint)))
(Ssequence
(Ssequence
@@ -274,17 +268,15 @@ Definition f_main := {|
(tptr (tptr (Tstruct _atom_int noattr)))))
(Scall None
(Evar _acquire (Tfunction
- (Tcons
- (tptr (Tstruct _atom_int noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) ::
+ nil) tvoid cc_default))
((Etempvar _t'5 (tptr (tptr (Tstruct _atom_int noattr)))) ::
nil)))
(Ssequence
(Scall None
(Evar _freelock (Tfunction
- (Tcons
- (tptr (Tstruct _atom_int noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) ::
+ nil) tvoid cc_default))
((Etempvar _thread_lock (tptr (tptr (Tstruct _atom_int noattr)))) ::
nil))
(Ssequence
@@ -294,9 +286,8 @@ Definition f_main := {|
(tptr (tptr (Tstruct _atom_int noattr)))))
(Scall None
(Evar _freelock (Tfunction
- (Tcons
- (tptr (Tstruct _atom_int noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) ::
+ nil) tvoid cc_default))
((Etempvar _t'4 (tptr (tptr (Tstruct _atom_int noattr)))) ::
nil)))
(Sreturn (Some (Etempvar _t tuint))))))))))))))
@@ -312,313 +303,294 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_makelock,
Gfun(External (EF_external "makelock"
- (mksignature nil AST.Tlong cc_default)) Tnil
+ (mksignature nil AST.Xptr cc_default)) nil
(tptr (Tstruct _atom_int noattr)) cc_default)) ::
(_freelock,
Gfun(External (EF_external "freelock"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil) tvoid cc_default)) ::
(_acquire,
Gfun(External (EF_external "acquire"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil) tvoid cc_default)) ::
(_release,
Gfun(External (EF_external "release"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _atom_int noattr)) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr (Tstruct _atom_int noattr)) :: nil) tvoid cc_default)) ::
(_spawn,
Gfun(External (EF_external "spawn"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
cc_default))
- (Tcons (tptr (Tfunction (Tcons (tptr tvoid) Tnil) tint cc_default))
- (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) :: (_c, Gvar v_c) ::
+ ((tptr (Tfunction ((tptr tvoid) :: nil) tint cc_default)) ::
+ (tptr tvoid) :: nil) tvoid cc_default)) :: (_c, Gvar v_c) ::
(_incr, Gfun(Internal f_incr)) :: (_read, Gfun(Internal f_read)) ::
(_thread_func, Gfun(Internal f_thread_func)) ::
(_main, Gfun(Internal f_main)) :: nil).
Definition public_idents : list ident :=
(_main :: _thread_func :: _read :: _incr :: _c :: _spawn :: _release ::
- _acquire :: _freelock :: _makelock :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
- ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
- ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
- ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
- ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
- ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
- ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
- ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
- ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ _acquire :: _freelock :: _makelock :: ___builtin_debug :: ___builtin_fmin ::
+ ___builtin_fmax :: ___builtin_fnmsub :: ___builtin_fnmadd ::
+ ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_clsll ::
+ ___builtin_clsl :: ___builtin_cls :: ___builtin_expect ::
+ ___builtin_unreachable :: ___builtin_va_end :: ___builtin_va_copy ::
+ ___builtin_va_arg :: ___builtin_va_start :: ___builtin_membar ::
+ ___builtin_annot_intval :: ___builtin_annot :: ___builtin_sel ::
+ ___builtin_memcpy_aligned :: ___builtin_sqrt :: ___builtin_fsqrt ::
+ ___builtin_fabsf :: ___builtin_fabs :: ___builtin_ctzll ::
+ ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll :: ___builtin_clzl ::
+ ___builtin_clz :: ___builtin_bswap16 :: ___builtin_bswap32 ::
+ ___builtin_bswap :: ___builtin_bswap64 :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/io.v b/progs64/io.v
index f60fa19272..50f7621aad 100644
--- a/progs64/io.v
+++ b/progs64/io.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.9".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/io.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 2%positive.
Definition ___builtin_bswap16 : ident := 4%positive.
Definition ___builtin_bswap32 : ident := 3%positive.
Definition ___builtin_bswap64 : ident := 1%positive.
+Definition ___builtin_cls : ident := 26%positive.
+Definition ___builtin_clsl : ident := 27%positive.
+Definition ___builtin_clsll : ident := 28%positive.
Definition ___builtin_clz : ident := 5%positive.
Definition ___builtin_clzl : ident := 6%positive.
Definition ___builtin_clzll : ident := 7%positive.
Definition ___builtin_ctz : ident := 8%positive.
Definition ___builtin_ctzl : ident := 9%positive.
Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
+Definition ___builtin_debug : ident := 35%positive.
Definition ___builtin_expect : ident := 25%positive.
Definition ___builtin_fabs : ident := 11%positive.
Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
Definition ___builtin_fsqrt : ident := 13%positive.
Definition ___builtin_membar : ident := 19%positive.
Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
Definition ___builtin_sel : ident := 16%positive.
Definition ___builtin_sqrt : ident := 14%positive.
Definition ___builtin_unreachable : ident := 24%positive.
@@ -53,42 +54,40 @@ Definition ___builtin_va_arg : ident := 21%positive.
Definition ___builtin_va_copy : ident := 22%positive.
Definition ___builtin_va_end : ident := 23%positive.
Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 54%positive.
-Definition ___compcert_i64_dtou : ident := 55%positive.
-Definition ___compcert_i64_sar : ident := 66%positive.
-Definition ___compcert_i64_sdiv : ident := 60%positive.
-Definition ___compcert_i64_shl : ident := 64%positive.
-Definition ___compcert_i64_shr : ident := 65%positive.
-Definition ___compcert_i64_smod : ident := 62%positive.
-Definition ___compcert_i64_smulh : ident := 67%positive.
-Definition ___compcert_i64_stod : ident := 56%positive.
-Definition ___compcert_i64_stof : ident := 58%positive.
-Definition ___compcert_i64_udiv : ident := 61%positive.
-Definition ___compcert_i64_umod : ident := 63%positive.
-Definition ___compcert_i64_umulh : ident := 68%positive.
-Definition ___compcert_i64_utod : ident := 57%positive.
-Definition ___compcert_i64_utof : ident := 59%positive.
-Definition ___compcert_va_composite : ident := 53%positive.
-Definition ___compcert_va_float64 : ident := 52%positive.
-Definition ___compcert_va_int32 : ident := 50%positive.
-Definition ___compcert_va_int64 : ident := 51%positive.
-Definition _c : ident := 41%positive.
-Definition _d : ident := 48%positive.
-Definition _getchar : ident := 37%positive.
-Definition _getchar_blocking : ident := 40%positive.
-Definition _i : ident := 43%positive.
-Definition _main : ident := 49%positive.
-Definition _n : ident := 47%positive.
-Definition _print_int : ident := 46%positive.
-Definition _print_intr : ident := 45%positive.
-Definition _putchar : ident := 38%positive.
-Definition _putchar_blocking : ident := 42%positive.
-Definition _q : ident := 44%positive.
-Definition _r : ident := 39%positive.
-Definition _t'1 : ident := 69%positive.
-Definition _t'2 : ident := 70%positive.
+Definition ___compcert_i64_dtos : ident := 53%positive.
+Definition ___compcert_i64_dtou : ident := 54%positive.
+Definition ___compcert_i64_sar : ident := 65%positive.
+Definition ___compcert_i64_sdiv : ident := 59%positive.
+Definition ___compcert_i64_shl : ident := 63%positive.
+Definition ___compcert_i64_shr : ident := 64%positive.
+Definition ___compcert_i64_smod : ident := 61%positive.
+Definition ___compcert_i64_smulh : ident := 66%positive.
+Definition ___compcert_i64_stod : ident := 55%positive.
+Definition ___compcert_i64_stof : ident := 57%positive.
+Definition ___compcert_i64_udiv : ident := 60%positive.
+Definition ___compcert_i64_umod : ident := 62%positive.
+Definition ___compcert_i64_umulh : ident := 67%positive.
+Definition ___compcert_i64_utod : ident := 56%positive.
+Definition ___compcert_i64_utof : ident := 58%positive.
+Definition ___compcert_va_composite : ident := 52%positive.
+Definition ___compcert_va_float64 : ident := 51%positive.
+Definition ___compcert_va_int32 : ident := 49%positive.
+Definition ___compcert_va_int64 : ident := 50%positive.
+Definition _c : ident := 40%positive.
+Definition _d : ident := 47%positive.
+Definition _getchar : ident := 36%positive.
+Definition _getchar_blocking : ident := 39%positive.
+Definition _i : ident := 42%positive.
+Definition _main : ident := 48%positive.
+Definition _n : ident := 46%positive.
+Definition _print_int : ident := 45%positive.
+Definition _print_intr : ident := 44%positive.
+Definition _putchar : ident := 37%positive.
+Definition _putchar_blocking : ident := 41%positive.
+Definition _q : ident := 43%positive.
+Definition _r : ident := 38%positive.
+Definition _t'1 : ident := 68%positive.
+Definition _t'2 : ident := 69%positive.
Definition f_getchar_blocking := {|
fn_return := tint;
@@ -104,7 +103,7 @@ Definition f_getchar_blocking := {|
(Ebinop Oeq (Etempvar _r tint)
(Eunop Oneg (Econst_int (Int.repr 1) tint) tint) tint)
(Ssequence
- (Scall (Some _t'1) (Evar _getchar (Tfunction Tnil tint cc_default))
+ (Scall (Some _t'1) (Evar _getchar (Tfunction nil tint cc_default))
nil)
(Sset _r (Etempvar _t'1 tint))))
(Sreturn (Some (Etempvar _r tint)))))
@@ -125,7 +124,7 @@ Definition f_putchar_blocking := {|
(Eunop Oneg (Econst_int (Int.repr 1) tint) tint) tint)
(Ssequence
(Scall (Some _t'1)
- (Evar _putchar (Tfunction (Tcons tint Tnil) tint cc_default))
+ (Evar _putchar (Tfunction (tint :: nil) tint cc_default))
((Etempvar _c tint) :: nil))
(Sset _r (Etempvar _t'1 tint))))
(Sreturn (Some (Etempvar _r tint)))))
@@ -150,11 +149,10 @@ Definition f_print_intr := {|
tuint))
(Ssequence
(Scall None
- (Evar _print_intr (Tfunction (Tcons tuint Tnil) tvoid cc_default))
+ (Evar _print_intr (Tfunction (tuint :: nil) tvoid cc_default))
((Etempvar _q tuint) :: nil))
(Scall None
- (Evar _putchar_blocking (Tfunction (Tcons tint Tnil) tint
- cc_default))
+ (Evar _putchar_blocking (Tfunction (tint :: nil) tint cc_default))
((Ebinop Oadd (Etempvar _r tuint) (Econst_int (Int.repr 48) tint)
tuint) :: nil)))))
Sskip)
@@ -170,10 +168,9 @@ Definition f_print_int := {|
(Sifthenelse (Ebinop Oeq (Etempvar _i tuint) (Econst_int (Int.repr 0) tint)
tint)
(Scall None
- (Evar _putchar_blocking (Tfunction (Tcons tint Tnil) tint cc_default))
+ (Evar _putchar_blocking (Tfunction (tint :: nil) tint cc_default))
((Econst_int (Int.repr 48) tint) :: nil))
- (Scall None
- (Evar _print_intr (Tfunction (Tcons tuint Tnil) tvoid cc_default))
+ (Scall None (Evar _print_intr (Tfunction (tuint :: nil) tvoid cc_default))
((Etempvar _i tuint) :: nil)))
|}.
@@ -191,7 +188,7 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _getchar_blocking (Tfunction Tnil tint cc_default)) nil)
+ (Evar _getchar_blocking (Tfunction nil tint cc_default)) nil)
(Sset _c (Ecast (Etempvar _t'1 tint) tuchar)))
(Ssequence
(Swhile
@@ -211,17 +208,17 @@ Definition f_main := {|
(Ebinop Oadd (Etempvar _n tuint) (Etempvar _d tuint) tuint))
(Ssequence
(Scall None
- (Evar _print_int (Tfunction (Tcons tuint Tnil) tvoid
+ (Evar _print_int (Tfunction (tuint :: nil) tvoid
cc_default))
((Etempvar _n tuint) :: nil))
(Ssequence
(Scall None
- (Evar _putchar_blocking (Tfunction (Tcons tint Tnil)
- tint cc_default))
+ (Evar _putchar_blocking (Tfunction (tint :: nil) tint
+ cc_default))
((Econst_int (Int.repr 10) tint) :: nil))
(Ssequence
(Scall (Some _t'2)
- (Evar _getchar_blocking (Tfunction Tnil tint
+ (Evar _getchar_blocking (Tfunction nil tint
cc_default)) nil)
(Sset _c (Ecast (Etempvar _t'2 tint) tuchar)))))))))
(Sreturn (Some (Econst_int (Int.repr 0) tint))))))
@@ -234,273 +231,255 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_getchar,
Gfun(External (EF_external "getchar"
- (mksignature nil AST.Tint cc_default)) Tnil tint
+ (mksignature nil AST.Xint cc_default)) nil tint
cc_default)) ::
(_putchar,
Gfun(External (EF_external "putchar"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
(_getchar_blocking, Gfun(Internal f_getchar_blocking)) ::
(_putchar_blocking, Gfun(Internal f_putchar_blocking)) ::
(_print_intr, Gfun(Internal f_print_intr)) ::
@@ -510,10 +489,9 @@ Definition global_definitions : list (ident * globdef fundef type) :=
Definition public_idents : list ident :=
(_main :: _print_int :: _print_intr :: _putchar_blocking ::
_getchar_blocking :: _putchar :: _getchar :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fmin :: ___builtin_fmax :: ___builtin_fnmsub ::
+ ___builtin_fnmadd :: ___builtin_fmsub :: ___builtin_fmadd ::
+ ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
diff --git a/progs64/io_combine.v b/progs64/io_combine.v
index 40fc53c488..b6a3664486 100644
--- a/progs64/io_combine.v
+++ b/progs64/io_combine.v
@@ -119,7 +119,7 @@ Proof.
destruct (get_sys_arg1 _) eqn:Harg; try discriminate.
destruct (eq_dec _ _); subst; try discriminate.
destruct (sys_putc_spec _) eqn:Hspec; inv H3.
- assert (sig_res (ef_sig e) <> AST.Tvoid).
+ assert (sig_res (ef_sig e) <> Xvoid).
{ destruct e; inv H2; discriminate. }
eapply sys_putc_correct in Hspec as (? & -> & [? Hpost ?]); eauto.
+ destruct w as (? & _ & ?).
@@ -129,7 +129,7 @@ Proof.
rewrite if_true in H3 by auto.
unfold sys_getc_wrap_spec in *.
destruct (sys_getc_spec) eqn:Hspec; inv H3.
- assert (sig_res (ef_sig e) <> AST.Tvoid).
+ assert (sig_res (ef_sig e) <> Xvoid).
{ destruct e; inv H4; discriminate. }
eapply (sys_getc_correct _ _ m) in Hspec as (? & -> & [? Hpost ? ?]); eauto.
* split; auto; do 2 eexists; eauto.
@@ -164,7 +164,7 @@ Definition trace_set := @trace (@io_events.IO_event nat) unit * RData -> Prop.
forall n t (traces : trace_set) z s0 c m e args,
cl_at_external c = Some (e,args) ->
(forall s s' ret m' t' n'
- (Hargsty : Val.has_type_list args (sig_args (ef_sig e)))
+ (Hargsty : Val.has_type_list args (map proj_xtype (sig_args (ef_sig e))))
(Hretty : Builtins0.val_opt_has_rettype ret (sig_res (ef_sig e))),
IO_inj_mem e args m t s ->
IO_ext_sem e args s = Some (s', ret, t') ->
@@ -175,7 +175,7 @@ Definition trace_set := @trace (@io_events.IO_event nat) unit * RData -> Prop.
OS_safeN_trace n' (app_trace t t') traces' z' s' c' m' /\
(forall t'' sf, traces' (t'', sf) -> traces (app_trace t' t'', sf))) ->
(forall t1, traces t1 ->
- exists s s' ret m' t' n', Val.has_type_list args (sig_args (ef_sig e)) /\
+ exists s s' ret m' t' n', Val.has_type_list args (map proj_xtype (sig_args (ef_sig e))) /\
Builtins0.val_opt_has_rettype ret (sig_res (ef_sig e)) /\
IO_inj_mem e args m t s /\ IO_ext_sem e args s = Some (s', ret, t') /\ m' = OS_mem e args m s' /\
(n' <= n)%nat /\ valid_trace s' /\ exists traces' z' c', consume_trace z z' t' /\
@@ -339,7 +339,7 @@ Local Ltac destruct_spec Hspec :=
- edestruct IHn as (traces' & ? & ?); eauto.
do 2 eexists; eauto.
eapply OS_safeN_trace_step; eauto.
- - exists (fun t1 => exists s s' ret m' t' n', Val.has_type_list args (sig_args (ef_sig e)) /\
+ - exists (fun t1 => exists s s' ret m' t' n', Val.has_type_list args (map proj_xtype (sig_args (ef_sig e))) /\
Builtins0.val_opt_has_rettype ret (sig_res (ef_sig e)) /\
IO_inj_mem e args m t s /\ IO_ext_sem e args s = Some (s', ret, t') /\ m' = OS_mem e args m s' /\
(n' <= n0)%nat /\ valid_trace s' /\ exists traces' z' c', consume_trace z z' t' /\
diff --git a/progs64/io_dry.v b/progs64/io_dry.v
index d4c0c42309..bb0eff3e26 100644
--- a/progs64/io_dry.v
+++ b/progs64/io_dry.v
@@ -54,11 +54,11 @@ Proof.
+ destruct X as (m0 & _ & w).
destruct X1; [|exact False].
destruct v; [exact False | | exact False | exact False | exact False | exact False].
- exact (ot <> AST.Tvoid /\ putchar_post m0 X3 i w X2).
+ exact (ot <> Xvoid /\ putchar_post m0 X3 i w X2).
+ destruct X as (m0 & _ & w).
destruct X1; [|exact False].
destruct v; [exact False | | exact False | exact False | exact False | exact False].
- exact (ot <> AST.Tvoid /\ getchar_post m0 X3 i w X2).
+ exact (ot <> Xvoid /\ getchar_post m0 X3 i w X2).
- intros; exact True.
Defined.
diff --git a/progs64/io_mem.v b/progs64/io_mem.v
index 5c7957df2a..a182b61945 100644
--- a/progs64/io_mem.v
+++ b/progs64/io_mem.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.9".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/io_mem.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 2%positive.
Definition ___builtin_bswap16 : ident := 4%positive.
Definition ___builtin_bswap32 : ident := 3%positive.
Definition ___builtin_bswap64 : ident := 1%positive.
+Definition ___builtin_cls : ident := 26%positive.
+Definition ___builtin_clsl : ident := 27%positive.
+Definition ___builtin_clsll : ident := 28%positive.
Definition ___builtin_clz : ident := 5%positive.
Definition ___builtin_clzl : ident := 6%positive.
Definition ___builtin_clzll : ident := 7%positive.
Definition ___builtin_ctz : ident := 8%positive.
Definition ___builtin_ctzl : ident := 9%positive.
Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
+Definition ___builtin_debug : ident := 35%positive.
Definition ___builtin_expect : ident := 25%positive.
Definition ___builtin_fabs : ident := 11%positive.
Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
Definition ___builtin_fsqrt : ident := 13%positive.
Definition ___builtin_membar : ident := 19%positive.
Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
Definition ___builtin_sel : ident := 16%positive.
Definition ___builtin_sqrt : ident := 14%positive.
Definition ___builtin_unreachable : ident := 24%positive.
@@ -53,48 +54,46 @@ Definition ___builtin_va_arg : ident := 21%positive.
Definition ___builtin_va_copy : ident := 22%positive.
Definition ___builtin_va_end : ident := 23%positive.
Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 58%positive.
-Definition ___compcert_i64_dtou : ident := 59%positive.
-Definition ___compcert_i64_sar : ident := 70%positive.
-Definition ___compcert_i64_sdiv : ident := 64%positive.
-Definition ___compcert_i64_shl : ident := 68%positive.
-Definition ___compcert_i64_shr : ident := 69%positive.
-Definition ___compcert_i64_smod : ident := 66%positive.
-Definition ___compcert_i64_smulh : ident := 71%positive.
-Definition ___compcert_i64_stod : ident := 60%positive.
-Definition ___compcert_i64_stof : ident := 62%positive.
-Definition ___compcert_i64_udiv : ident := 65%positive.
-Definition ___compcert_i64_umod : ident := 67%positive.
-Definition ___compcert_i64_umulh : ident := 72%positive.
-Definition ___compcert_i64_utod : ident := 61%positive.
-Definition ___compcert_i64_utof : ident := 63%positive.
-Definition ___compcert_va_composite : ident := 57%positive.
-Definition ___compcert_va_float64 : ident := 56%positive.
-Definition ___compcert_va_int32 : ident := 54%positive.
-Definition ___compcert_va_int64 : ident := 55%positive.
-Definition _buf : ident := 43%positive.
-Definition _c : ident := 51%positive.
-Definition _d : ident := 50%positive.
-Definition _exit : ident := 37%positive.
-Definition _free : ident := 38%positive.
-Definition _getchars : ident := 40%positive.
-Definition _i : ident := 42%positive.
-Definition _j : ident := 52%positive.
-Definition _k : ident := 46%positive.
-Definition _main : ident := 53%positive.
-Definition _malloc : ident := 39%positive.
-Definition _n : ident := 49%positive.
-Definition _print_int : ident := 48%positive.
-Definition _print_intr : ident := 47%positive.
-Definition _putchars : ident := 41%positive.
-Definition _q : ident := 44%positive.
-Definition _r : ident := 45%positive.
-Definition _t'1 : ident := 73%positive.
-Definition _t'2 : ident := 74%positive.
-Definition _t'3 : ident := 75%positive.
-Definition _t'4 : ident := 76%positive.
+Definition ___compcert_i64_dtos : ident := 57%positive.
+Definition ___compcert_i64_dtou : ident := 58%positive.
+Definition ___compcert_i64_sar : ident := 69%positive.
+Definition ___compcert_i64_sdiv : ident := 63%positive.
+Definition ___compcert_i64_shl : ident := 67%positive.
+Definition ___compcert_i64_shr : ident := 68%positive.
+Definition ___compcert_i64_smod : ident := 65%positive.
+Definition ___compcert_i64_smulh : ident := 70%positive.
+Definition ___compcert_i64_stod : ident := 59%positive.
+Definition ___compcert_i64_stof : ident := 61%positive.
+Definition ___compcert_i64_udiv : ident := 64%positive.
+Definition ___compcert_i64_umod : ident := 66%positive.
+Definition ___compcert_i64_umulh : ident := 71%positive.
+Definition ___compcert_i64_utod : ident := 60%positive.
+Definition ___compcert_i64_utof : ident := 62%positive.
+Definition ___compcert_va_composite : ident := 56%positive.
+Definition ___compcert_va_float64 : ident := 55%positive.
+Definition ___compcert_va_int32 : ident := 53%positive.
+Definition ___compcert_va_int64 : ident := 54%positive.
+Definition _buf : ident := 42%positive.
+Definition _c : ident := 50%positive.
+Definition _d : ident := 49%positive.
+Definition _exit : ident := 38%positive.
+Definition _free : ident := 37%positive.
+Definition _getchars : ident := 39%positive.
+Definition _i : ident := 41%positive.
+Definition _j : ident := 51%positive.
+Definition _k : ident := 45%positive.
+Definition _main : ident := 52%positive.
+Definition _malloc : ident := 36%positive.
+Definition _n : ident := 48%positive.
+Definition _print_int : ident := 47%positive.
+Definition _print_intr : ident := 46%positive.
+Definition _putchars : ident := 40%positive.
+Definition _q : ident := 43%positive.
+Definition _r : ident := 44%positive.
+Definition _t'1 : ident := 72%positive.
+Definition _t'2 : ident := 73%positive.
+Definition _t'3 : ident := 74%positive.
+Definition _t'4 : ident := 75%positive.
Definition f_print_intr := {|
fn_return := tint;
@@ -121,8 +120,7 @@ Definition f_print_intr := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _print_intr (Tfunction
- (Tcons tuint (Tcons (tptr tuchar) Tnil))
+ (Evar _print_intr (Tfunction (tuint :: (tptr tuchar) :: nil)
tint cc_default))
((Etempvar _q tuint) :: (Etempvar _buf (tptr tuchar)) :: nil))
(Sset _k (Etempvar _t'1 tint)))
@@ -148,12 +146,12 @@ Definition f_print_int := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tulong Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (tulong :: nil) (tptr tvoid) cc_default))
((Econst_int (Int.repr 5) tint) :: nil))
(Sset _buf (Etempvar _t'1 (tptr tvoid))))
(Ssequence
(Sifthenelse (Eunop Onotbool (Etempvar _buf (tptr tuchar)) tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Ssequence
@@ -175,8 +173,7 @@ Definition f_print_int := {|
(Ssequence
(Ssequence
(Scall (Some _t'2)
- (Evar _print_intr (Tfunction
- (Tcons tuint (Tcons (tptr tuchar) Tnil))
+ (Evar _print_intr (Tfunction (tuint :: (tptr tuchar) :: nil)
tint cc_default))
((Etempvar _i tuint) :: (Etempvar _buf (tptr tuchar)) :: nil))
(Sset _k (Etempvar _t'2 tint)))
@@ -190,11 +187,11 @@ Definition f_print_int := {|
tint)))))
(Ssequence
(Scall None
- (Evar _putchars (Tfunction (Tcons (tptr tuchar) (Tcons tint Tnil))
- tint cc_default))
+ (Evar _putchars (Tfunction ((tptr tuchar) :: tint :: nil) tint
+ cc_default))
((Etempvar _buf (tptr tuchar)) :: (Etempvar _k tint) :: nil))
(Scall None
- (Evar _free (Tfunction (Tcons (tptr tvoid) Tnil) tvoid cc_default))
+ (Evar _free (Tfunction ((tptr tvoid) :: nil) tvoid cc_default))
((Etempvar _buf (tptr tuchar)) :: nil))))))
|}.
@@ -214,21 +211,18 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tulong Tnil) (tptr tvoid)
- cc_default))
+ (Evar _malloc (Tfunction (tulong :: nil) (tptr tvoid) cc_default))
((Econst_int (Int.repr 4) tint) :: nil))
(Sset _buf (Etempvar _t'1 (tptr tvoid))))
(Ssequence
(Sifthenelse (Eunop Onotbool (Etempvar _buf (tptr tuchar)) tint)
- (Scall None
- (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Ssequence
(Ssequence
(Scall (Some _t'2)
- (Evar _getchars (Tfunction
- (Tcons (tptr tuchar) (Tcons tint Tnil)) tint
+ (Evar _getchars (Tfunction ((tptr tuchar) :: tint :: nil) tint
cc_default))
((Etempvar _buf (tptr tuchar)) ::
(Econst_int (Int.repr 4) tint) :: nil))
@@ -265,8 +259,8 @@ Definition f_main := {|
(Ssequence
(Scall None
(Evar _free (Tfunction
- (Tcons (tptr tvoid) Tnil)
- tvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid
+ cc_default))
((Etempvar _buf (tptr tuchar)) :: nil))
(Sreturn (Some (Econst_int (Int.repr 0) tint))))
Sskip)
@@ -275,24 +269,22 @@ Definition f_main := {|
(Ebinop Oadd (Etempvar _n tuint)
(Etempvar _d tuint) tuint))
(Scall None
- (Evar _print_int (Tfunction
- (Tcons tuint Tnil) tvoid
- cc_default))
+ (Evar _print_int (Tfunction (tuint :: nil)
+ tvoid cc_default))
((Etempvar _n tuint) :: nil)))))))
(Sset _j
(Ebinop Oadd (Etempvar _j tint)
(Econst_int (Int.repr 1) tint) tint))))
(Ssequence
(Scall (Some _t'3)
- (Evar _getchars (Tfunction
- (Tcons (tptr tuchar) (Tcons tint Tnil))
+ (Evar _getchars (Tfunction ((tptr tuchar) :: tint :: nil)
tint cc_default))
((Etempvar _buf (tptr tuchar)) ::
(Econst_int (Int.repr 4) tint) :: nil))
(Sset _i (Etempvar _t'3 tint)))))
(Ssequence
(Scall None
- (Evar _free (Tfunction (Tcons (tptr tvoid) Tnil) tvoid
+ (Evar _free (Tfunction ((tptr tvoid) :: nil) tvoid
cc_default))
((Etempvar _buf (tptr tuchar)) :: nil))
(Sreturn (Some (Econst_int (Int.repr 0) tint)))))))))
@@ -305,305 +297,285 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
+ (_malloc, Gfun(External EF_malloc (tulong :: nil) (tptr tvoid) cc_default)) ::
+ (_free, Gfun(External EF_free ((tptr tvoid) :: nil) tvoid cc_default)) ::
(_exit,
Gfun(External (EF_external "exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
- (_free, Gfun(External EF_free (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
- (_malloc,
- Gfun(External EF_malloc (Tcons tulong Tnil) (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
(_getchars,
Gfun(External (EF_external "getchars"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tuchar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tuchar) :: tint :: nil) tint
+ cc_default)) ::
(_putchars,
Gfun(External (EF_external "putchars"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tuchar) (Tcons tint Tnil))
- tint cc_default)) :: (_print_intr, Gfun(Internal f_print_intr)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tuchar) :: tint :: nil) tint
+ cc_default)) :: (_print_intr, Gfun(Internal f_print_intr)) ::
(_print_int, Gfun(Internal f_print_int)) ::
(_main, Gfun(Internal f_main)) :: nil).
Definition public_idents : list ident :=
-(_main :: _print_int :: _print_intr :: _putchars :: _getchars :: _malloc ::
- _free :: _exit :: ___builtin_debug :: ___builtin_write32_reversed ::
- ___builtin_write16_reversed :: ___builtin_read32_reversed ::
- ___builtin_read16_reversed :: ___builtin_fnmsub :: ___builtin_fnmadd ::
- ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_fmin ::
- ___builtin_fmax :: ___builtin_expect :: ___builtin_unreachable ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_sel :: ___builtin_memcpy_aligned ::
- ___builtin_sqrt :: ___builtin_fsqrt :: ___builtin_fabsf ::
- ___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+(_main :: _print_int :: _print_intr :: _putchars :: _getchars :: _exit ::
+ _free :: _malloc :: ___builtin_debug :: ___builtin_fmin ::
+ ___builtin_fmax :: ___builtin_fnmsub :: ___builtin_fnmadd ::
+ ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_clsll ::
+ ___builtin_clsl :: ___builtin_cls :: ___builtin_expect ::
+ ___builtin_unreachable :: ___builtin_va_end :: ___builtin_va_copy ::
+ ___builtin_va_arg :: ___builtin_va_start :: ___builtin_membar ::
+ ___builtin_annot_intval :: ___builtin_annot :: ___builtin_sel ::
+ ___builtin_memcpy_aligned :: ___builtin_sqrt :: ___builtin_fsqrt ::
+ ___builtin_fabsf :: ___builtin_fabs :: ___builtin_ctzll ::
+ ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll :: ___builtin_clzl ::
+ ___builtin_clz :: ___builtin_bswap16 :: ___builtin_bswap32 ::
+ ___builtin_bswap :: ___builtin_bswap64 :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/progs64/io_mem_dry.v b/progs64/io_mem_dry.v
index 6ffea5f93e..74e53eaabc 100644
--- a/progs64/io_mem_dry.v
+++ b/progs64/io_mem_dry.v
@@ -72,11 +72,11 @@ Proof.
+ destruct X as (m0 & _ & w).
destruct X1; [|exact False].
destruct v; [exact False | | exact False | exact False | exact False | exact False].
- exact (ot <> AST.Tvoid /\ putchars_post m0 X3 i w X2).
+ exact (ot <> Xvoid /\ putchars_post m0 X3 i w X2).
+ destruct X as (m0 & _ & w).
destruct X1; [|exact False].
destruct v; [exact False | | exact False | exact False | exact False | exact False].
- exact (ot <> AST.Tvoid /\ getchars_post m0 X3 i w X2).
+ exact (ot <> Xvoid /\ getchars_post m0 X3 i w X2).
- intros; exact True.
Defined.
diff --git a/progs64/logical_compare.v b/progs64/logical_compare.v
index 96809df14d..19b1433de1 100644
--- a/progs64/logical_compare.v
+++ b/progs64/logical_compare.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/logical_compare.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 2%positive.
Definition ___builtin_bswap16 : ident := 4%positive.
Definition ___builtin_bswap32 : ident := 3%positive.
Definition ___builtin_bswap64 : ident := 1%positive.
+Definition ___builtin_cls : ident := 26%positive.
+Definition ___builtin_clsl : ident := 27%positive.
+Definition ___builtin_clsll : ident := 28%positive.
Definition ___builtin_clz : ident := 5%positive.
Definition ___builtin_clzl : ident := 6%positive.
Definition ___builtin_clzll : ident := 7%positive.
Definition ___builtin_ctz : ident := 8%positive.
Definition ___builtin_ctzl : ident := 9%positive.
Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
+Definition ___builtin_debug : ident := 35%positive.
Definition ___builtin_expect : ident := 25%positive.
Definition ___builtin_fabs : ident := 11%positive.
Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
Definition ___builtin_fsqrt : ident := 13%positive.
Definition ___builtin_membar : ident := 19%positive.
Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
Definition ___builtin_sel : ident := 16%positive.
Definition ___builtin_sqrt : ident := 14%positive.
Definition ___builtin_unreachable : ident := 24%positive.
@@ -53,33 +54,31 @@ Definition ___builtin_va_arg : ident := 21%positive.
Definition ___builtin_va_copy : ident := 22%positive.
Definition ___builtin_va_end : ident := 23%positive.
Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 46%positive.
-Definition ___compcert_i64_dtou : ident := 47%positive.
-Definition ___compcert_i64_sar : ident := 58%positive.
-Definition ___compcert_i64_sdiv : ident := 52%positive.
-Definition ___compcert_i64_shl : ident := 56%positive.
-Definition ___compcert_i64_shr : ident := 57%positive.
-Definition ___compcert_i64_smod : ident := 54%positive.
-Definition ___compcert_i64_smulh : ident := 59%positive.
-Definition ___compcert_i64_stod : ident := 48%positive.
-Definition ___compcert_i64_stof : ident := 50%positive.
-Definition ___compcert_i64_udiv : ident := 53%positive.
-Definition ___compcert_i64_umod : ident := 55%positive.
-Definition ___compcert_i64_umulh : ident := 60%positive.
-Definition ___compcert_i64_utod : ident := 49%positive.
-Definition ___compcert_i64_utof : ident := 51%positive.
-Definition ___compcert_va_composite : ident := 45%positive.
-Definition ___compcert_va_float64 : ident := 44%positive.
-Definition ___compcert_va_int32 : ident := 42%positive.
-Definition ___compcert_va_int64 : ident := 43%positive.
-Definition _a : ident := 37%positive.
-Definition _b : ident := 38%positive.
-Definition _do_and : ident := 40%positive.
-Definition _do_or : ident := 39%positive.
-Definition _main : ident := 41%positive.
-Definition _t'1 : ident := 61%positive.
+Definition ___compcert_i64_dtos : ident := 45%positive.
+Definition ___compcert_i64_dtou : ident := 46%positive.
+Definition ___compcert_i64_sar : ident := 57%positive.
+Definition ___compcert_i64_sdiv : ident := 51%positive.
+Definition ___compcert_i64_shl : ident := 55%positive.
+Definition ___compcert_i64_shr : ident := 56%positive.
+Definition ___compcert_i64_smod : ident := 53%positive.
+Definition ___compcert_i64_smulh : ident := 58%positive.
+Definition ___compcert_i64_stod : ident := 47%positive.
+Definition ___compcert_i64_stof : ident := 49%positive.
+Definition ___compcert_i64_udiv : ident := 52%positive.
+Definition ___compcert_i64_umod : ident := 54%positive.
+Definition ___compcert_i64_umulh : ident := 59%positive.
+Definition ___compcert_i64_utod : ident := 48%positive.
+Definition ___compcert_i64_utof : ident := 50%positive.
+Definition ___compcert_va_composite : ident := 44%positive.
+Definition ___compcert_va_float64 : ident := 43%positive.
+Definition ___compcert_va_int32 : ident := 41%positive.
+Definition ___compcert_va_int64 : ident := 42%positive.
+Definition _a : ident := 36%positive.
+Definition _b : ident := 37%positive.
+Definition _do_and : ident := 39%positive.
+Definition _do_or : ident := 38%positive.
+Definition _main : ident := 40%positive.
+Definition _t'1 : ident := 60%positive.
Definition f_do_or := {|
fn_return := tbool;
@@ -127,289 +126,270 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_do_or, Gfun(Internal f_do_or)) :: (_do_and, Gfun(Internal f_do_and)) ::
(_main, Gfun(Internal f_main)) :: nil).
Definition public_idents : list ident :=
-(_main :: _do_and :: _do_or :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
- ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
- ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
- ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
- ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
- ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
- ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
- ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
- ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+(_main :: _do_and :: _do_or :: ___builtin_debug :: ___builtin_fmin ::
+ ___builtin_fmax :: ___builtin_fnmsub :: ___builtin_fnmadd ::
+ ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_clsll ::
+ ___builtin_clsl :: ___builtin_cls :: ___builtin_expect ::
+ ___builtin_unreachable :: ___builtin_va_end :: ___builtin_va_copy ::
+ ___builtin_va_arg :: ___builtin_va_start :: ___builtin_membar ::
+ ___builtin_annot_intval :: ___builtin_annot :: ___builtin_sel ::
+ ___builtin_memcpy_aligned :: ___builtin_sqrt :: ___builtin_fsqrt ::
+ ___builtin_fabsf :: ___builtin_fabs :: ___builtin_ctzll ::
+ ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll :: ___builtin_clzl ::
+ ___builtin_clz :: ___builtin_bswap16 :: ___builtin_bswap32 ::
+ ___builtin_bswap :: ___builtin_bswap64 :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/message.v b/progs64/message.v
index 03a3fd7303..734f5a3c8b 100644
--- a/progs64/message.v
+++ b/progs64/message.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/message.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 9%positive.
Definition ___builtin_bswap16 : ident := 11%positive.
Definition ___builtin_bswap32 : ident := 10%positive.
Definition ___builtin_bswap64 : ident := 8%positive.
+Definition ___builtin_cls : ident := 33%positive.
+Definition ___builtin_clsl : ident := 34%positive.
+Definition ___builtin_clsll : ident := 35%positive.
Definition ___builtin_clz : ident := 12%positive.
Definition ___builtin_clzl : ident := 13%positive.
Definition ___builtin_clzll : ident := 14%positive.
Definition ___builtin_ctz : ident := 15%positive.
Definition ___builtin_ctzl : ident := 16%positive.
Definition ___builtin_ctzll : ident := 17%positive.
-Definition ___builtin_debug : ident := 43%positive.
+Definition ___builtin_debug : ident := 42%positive.
Definition ___builtin_expect : ident := 32%positive.
Definition ___builtin_fabs : ident := 18%positive.
Definition ___builtin_fabsf : ident := 19%positive.
-Definition ___builtin_fmadd : ident := 35%positive.
-Definition ___builtin_fmax : ident := 33%positive.
-Definition ___builtin_fmin : ident := 34%positive.
-Definition ___builtin_fmsub : ident := 36%positive.
-Definition ___builtin_fnmadd : ident := 37%positive.
-Definition ___builtin_fnmsub : ident := 38%positive.
+Definition ___builtin_fmadd : ident := 36%positive.
+Definition ___builtin_fmax : ident := 40%positive.
+Definition ___builtin_fmin : ident := 41%positive.
+Definition ___builtin_fmsub : ident := 37%positive.
+Definition ___builtin_fnmadd : ident := 38%positive.
+Definition ___builtin_fnmsub : ident := 39%positive.
Definition ___builtin_fsqrt : ident := 20%positive.
Definition ___builtin_membar : ident := 26%positive.
Definition ___builtin_memcpy_aligned : ident := 22%positive.
-Definition ___builtin_read16_reversed : ident := 39%positive.
-Definition ___builtin_read32_reversed : ident := 40%positive.
Definition ___builtin_sel : ident := 23%positive.
Definition ___builtin_sqrt : ident := 21%positive.
Definition ___builtin_unreachable : ident := 31%positive.
@@ -53,46 +54,44 @@ Definition ___builtin_va_arg : ident := 28%positive.
Definition ___builtin_va_copy : ident := 29%positive.
Definition ___builtin_va_end : ident := 30%positive.
Definition ___builtin_va_start : ident := 27%positive.
-Definition ___builtin_write16_reversed : ident := 41%positive.
-Definition ___builtin_write32_reversed : ident := 42%positive.
-Definition ___compcert_i64_dtos : ident := 59%positive.
-Definition ___compcert_i64_dtou : ident := 60%positive.
-Definition ___compcert_i64_sar : ident := 71%positive.
-Definition ___compcert_i64_sdiv : ident := 65%positive.
-Definition ___compcert_i64_shl : ident := 69%positive.
-Definition ___compcert_i64_shr : ident := 70%positive.
-Definition ___compcert_i64_smod : ident := 67%positive.
-Definition ___compcert_i64_smulh : ident := 72%positive.
-Definition ___compcert_i64_stod : ident := 61%positive.
-Definition ___compcert_i64_stof : ident := 63%positive.
-Definition ___compcert_i64_udiv : ident := 66%positive.
-Definition ___compcert_i64_umod : ident := 68%positive.
-Definition ___compcert_i64_umulh : ident := 73%positive.
-Definition ___compcert_i64_utod : ident := 62%positive.
-Definition ___compcert_i64_utof : ident := 64%positive.
-Definition ___compcert_va_composite : ident := 58%positive.
-Definition ___compcert_va_float64 : ident := 57%positive.
-Definition ___compcert_va_int32 : ident := 55%positive.
-Definition ___compcert_va_int64 : ident := 56%positive.
-Definition _buf : ident := 45%positive.
+Definition ___compcert_i64_dtos : ident := 58%positive.
+Definition ___compcert_i64_dtou : ident := 59%positive.
+Definition ___compcert_i64_sar : ident := 70%positive.
+Definition ___compcert_i64_sdiv : ident := 64%positive.
+Definition ___compcert_i64_shl : ident := 68%positive.
+Definition ___compcert_i64_shr : ident := 69%positive.
+Definition ___compcert_i64_smod : ident := 66%positive.
+Definition ___compcert_i64_smulh : ident := 71%positive.
+Definition ___compcert_i64_stod : ident := 60%positive.
+Definition ___compcert_i64_stof : ident := 62%positive.
+Definition ___compcert_i64_udiv : ident := 65%positive.
+Definition ___compcert_i64_umod : ident := 67%positive.
+Definition ___compcert_i64_umulh : ident := 72%positive.
+Definition ___compcert_i64_utod : ident := 61%positive.
+Definition ___compcert_i64_utof : ident := 63%positive.
+Definition ___compcert_va_composite : ident := 57%positive.
+Definition ___compcert_va_float64 : ident := 56%positive.
+Definition ___compcert_va_int32 : ident := 54%positive.
+Definition ___compcert_va_int64 : ident := 55%positive.
+Definition _buf : ident := 44%positive.
Definition _bufsize : ident := 2%positive.
-Definition _des : ident := 53%positive.
+Definition _des : ident := 52%positive.
Definition _deserialize : ident := 4%positive.
Definition _intpair : ident := 5%positive.
-Definition _intpair_deserialize : ident := 48%positive.
-Definition _intpair_message : ident := 49%positive.
-Definition _intpair_serialize : ident := 46%positive.
-Definition _len : ident := 51%positive.
-Definition _length : ident := 47%positive.
-Definition _main : ident := 54%positive.
+Definition _intpair_deserialize : ident := 47%positive.
+Definition _intpair_message : ident := 48%positive.
+Definition _intpair_serialize : ident := 45%positive.
+Definition _len : ident := 50%positive.
+Definition _length : ident := 46%positive.
+Definition _main : ident := 53%positive.
Definition _message : ident := 1%positive.
-Definition _p : ident := 44%positive.
-Definition _q : ident := 50%positive.
-Definition _ser : ident := 52%positive.
+Definition _p : ident := 43%positive.
+Definition _q : ident := 49%positive.
+Definition _ser : ident := 51%positive.
Definition _serialize : ident := 3%positive.
Definition _x : ident := 6%positive.
Definition _y : ident := 7%positive.
-Definition _t'1 : ident := 74%positive.
+Definition _t'1 : ident := 73%positive.
Definition f_intpair_serialize := {|
fn_return := tint;
@@ -179,13 +178,11 @@ Definition f_main := {|
nil);
fn_temps := ((_len, tint) :: (_x, tint) :: (_y, tint) ::
(_ser,
- (tptr (Tfunction
- (Tcons (tptr tvoid) (Tcons (tptr tuchar) Tnil)) tint
+ (tptr (Tfunction ((tptr tvoid) :: (tptr tuchar) :: nil) tint
cc_default))) ::
(_des,
(tptr (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tuchar) (Tcons tint Tnil))) tvoid
+ ((tptr tvoid) :: (tptr tuchar) :: tint :: nil) tvoid
cc_default))) :: (_t'1, tint) :: nil);
fn_body :=
(Ssequence
@@ -199,15 +196,14 @@ Definition f_main := {|
(Sset _ser
(Efield (Evar _intpair_message (Tstruct _message noattr))
_serialize
- (tptr (Tfunction (Tcons (tptr tvoid) (Tcons (tptr tuchar) Tnil))
- tint cc_default))))
+ (tptr (Tfunction ((tptr tvoid) :: (tptr tuchar) :: nil) tint
+ cc_default))))
(Ssequence
(Ssequence
(Scall (Some _t'1)
(Etempvar _ser (tptr (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tuchar) Tnil)) tint
- cc_default)))
+ ((tptr tvoid) :: (tptr tuchar) :: nil)
+ tint cc_default)))
((Eaddrof (Evar _p (Tstruct _intpair noattr))
(tptr (Tstruct _intpair noattr))) ::
(Evar _buf (tarray tuchar 8)) :: nil))
@@ -217,16 +213,13 @@ Definition f_main := {|
(Efield (Evar _intpair_message (Tstruct _message noattr))
_deserialize
(tptr (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tuchar) (Tcons tint Tnil))) tvoid
+ ((tptr tvoid) :: (tptr tuchar) :: tint :: nil) tvoid
cc_default))))
(Ssequence
(Scall None
(Etempvar _des (tptr (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tuchar)
- (Tcons tint Tnil))) tvoid
- cc_default)))
+ ((tptr tvoid) :: (tptr tuchar) ::
+ tint :: nil) tvoid cc_default)))
((Eaddrof (Evar _q (Tstruct _intpair noattr))
(tptr (Tstruct _intpair noattr))) ::
(Evar _buf (tarray tuchar 8)) ::
@@ -246,12 +239,11 @@ Definition composites : list composite_definition :=
(Composite _message Struct
(Member_plain _bufsize tint ::
Member_plain _serialize
- (tptr (Tfunction (Tcons (tptr tvoid) (Tcons (tptr tuchar) Tnil)) tint
+ (tptr (Tfunction ((tptr tvoid) :: (tptr tuchar) :: nil) tint
cc_default)) ::
Member_plain _deserialize
- (tptr (Tfunction
- (Tcons (tptr tvoid) (Tcons (tptr tuchar) (Tcons tint Tnil)))
- tvoid cc_default)) :: nil)
+ (tptr (Tfunction ((tptr tvoid) :: (tptr tuchar) :: tint :: nil) tvoid
+ cc_default)) :: nil)
noattr ::
Composite _intpair Struct
(Member_plain _x tint :: Member_plain _y tint :: nil)
@@ -260,264 +252,246 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_intpair_serialize, Gfun(Internal f_intpair_serialize)) ::
(_intpair_deserialize, Gfun(Internal f_intpair_deserialize)) ::
@@ -526,26 +500,24 @@ Definition global_definitions : list (ident * globdef fundef type) :=
Definition public_idents : list ident :=
(_main :: _intpair_message :: _intpair_deserialize :: _intpair_serialize ::
- ___builtin_debug :: ___builtin_write32_reversed ::
- ___builtin_write16_reversed :: ___builtin_read32_reversed ::
- ___builtin_read16_reversed :: ___builtin_fnmsub :: ___builtin_fnmadd ::
- ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_fmin ::
- ___builtin_fmax :: ___builtin_expect :: ___builtin_unreachable ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_sel :: ___builtin_memcpy_aligned ::
- ___builtin_sqrt :: ___builtin_fsqrt :: ___builtin_fabsf ::
- ___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
- ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
- nil).
+ ___builtin_debug :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
+ ___builtin_fmadd :: ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
+ ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
+ ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
+ ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
+ ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
+ ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
+ ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
+ ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
+ ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
+ ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
+ ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
+ ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
+ ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
+ ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
+ ___compcert_va_composite :: ___compcert_va_float64 ::
+ ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/min.v b/progs64/min.v
index a5b3203053..b2b3a75b73 100644
--- a/progs64/min.v
+++ b/progs64/min.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/min.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 2%positive.
Definition ___builtin_bswap16 : ident := 4%positive.
Definition ___builtin_bswap32 : ident := 3%positive.
Definition ___builtin_bswap64 : ident := 1%positive.
+Definition ___builtin_cls : ident := 26%positive.
+Definition ___builtin_clsl : ident := 27%positive.
+Definition ___builtin_clsll : ident := 28%positive.
Definition ___builtin_clz : ident := 5%positive.
Definition ___builtin_clzl : ident := 6%positive.
Definition ___builtin_clzll : ident := 7%positive.
Definition ___builtin_ctz : ident := 8%positive.
Definition ___builtin_ctzl : ident := 9%positive.
Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
+Definition ___builtin_debug : ident := 35%positive.
Definition ___builtin_expect : ident := 25%positive.
Definition ___builtin_fabs : ident := 11%positive.
Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
Definition ___builtin_fsqrt : ident := 13%positive.
Definition ___builtin_membar : ident := 19%positive.
Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
Definition ___builtin_sel : ident := 16%positive.
Definition ___builtin_sqrt : ident := 14%positive.
Definition ___builtin_unreachable : ident := 24%positive.
@@ -53,34 +54,32 @@ Definition ___builtin_va_arg : ident := 21%positive.
Definition ___builtin_va_copy : ident := 22%positive.
Definition ___builtin_va_end : ident := 23%positive.
Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 47%positive.
-Definition ___compcert_i64_dtou : ident := 48%positive.
-Definition ___compcert_i64_sar : ident := 59%positive.
-Definition ___compcert_i64_sdiv : ident := 53%positive.
-Definition ___compcert_i64_shl : ident := 57%positive.
-Definition ___compcert_i64_shr : ident := 58%positive.
-Definition ___compcert_i64_smod : ident := 55%positive.
-Definition ___compcert_i64_smulh : ident := 60%positive.
-Definition ___compcert_i64_stod : ident := 49%positive.
-Definition ___compcert_i64_stof : ident := 51%positive.
-Definition ___compcert_i64_udiv : ident := 54%positive.
-Definition ___compcert_i64_umod : ident := 56%positive.
-Definition ___compcert_i64_umulh : ident := 61%positive.
-Definition ___compcert_i64_utod : ident := 50%positive.
-Definition ___compcert_i64_utof : ident := 52%positive.
-Definition ___compcert_va_composite : ident := 46%positive.
-Definition ___compcert_va_float64 : ident := 45%positive.
-Definition ___compcert_va_int32 : ident := 43%positive.
-Definition ___compcert_va_int64 : ident := 44%positive.
-Definition _a : ident := 37%positive.
-Definition _i : ident := 39%positive.
-Definition _j : ident := 41%positive.
-Definition _main : ident := 62%positive.
-Definition _min : ident := 40%positive.
-Definition _minimum : ident := 42%positive.
-Definition _n : ident := 38%positive.
+Definition ___compcert_i64_dtos : ident := 46%positive.
+Definition ___compcert_i64_dtou : ident := 47%positive.
+Definition ___compcert_i64_sar : ident := 58%positive.
+Definition ___compcert_i64_sdiv : ident := 52%positive.
+Definition ___compcert_i64_shl : ident := 56%positive.
+Definition ___compcert_i64_shr : ident := 57%positive.
+Definition ___compcert_i64_smod : ident := 54%positive.
+Definition ___compcert_i64_smulh : ident := 59%positive.
+Definition ___compcert_i64_stod : ident := 48%positive.
+Definition ___compcert_i64_stof : ident := 50%positive.
+Definition ___compcert_i64_udiv : ident := 53%positive.
+Definition ___compcert_i64_umod : ident := 55%positive.
+Definition ___compcert_i64_umulh : ident := 60%positive.
+Definition ___compcert_i64_utod : ident := 49%positive.
+Definition ___compcert_i64_utof : ident := 51%positive.
+Definition ___compcert_va_composite : ident := 45%positive.
+Definition ___compcert_va_float64 : ident := 44%positive.
+Definition ___compcert_va_int32 : ident := 42%positive.
+Definition ___compcert_va_int64 : ident := 43%positive.
+Definition _a : ident := 36%positive.
+Definition _i : ident := 38%positive.
+Definition _j : ident := 40%positive.
+Definition _main : ident := 61%positive.
+Definition _min : ident := 39%positive.
+Definition _minimum : ident := 41%positive.
+Definition _n : ident := 37%positive.
Definition f_minimum := {|
fn_return := tint;
@@ -124,288 +123,268 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_minimum, Gfun(Internal f_minimum)) :: nil).
Definition public_idents : list ident :=
-(_minimum :: ___builtin_debug :: ___builtin_write32_reversed ::
- ___builtin_write16_reversed :: ___builtin_read32_reversed ::
- ___builtin_read16_reversed :: ___builtin_fnmsub :: ___builtin_fnmadd ::
- ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_fmin ::
- ___builtin_fmax :: ___builtin_expect :: ___builtin_unreachable ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_sel :: ___builtin_memcpy_aligned ::
- ___builtin_sqrt :: ___builtin_fsqrt :: ___builtin_fabsf ::
- ___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
- ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
- nil).
+(_minimum :: ___builtin_debug :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
+ ___builtin_fmadd :: ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
+ ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
+ ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
+ ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
+ ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
+ ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
+ ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
+ ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
+ ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
+ ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
+ ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
+ ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
+ ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
+ ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
+ ___compcert_va_composite :: ___compcert_va_float64 ::
+ ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/min64.v b/progs64/min64.v
index 67544dd3b6..0eb4e3dc3a 100644
--- a/progs64/min64.v
+++ b/progs64/min64.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/min64.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 2%positive.
Definition ___builtin_bswap16 : ident := 4%positive.
Definition ___builtin_bswap32 : ident := 3%positive.
Definition ___builtin_bswap64 : ident := 1%positive.
+Definition ___builtin_cls : ident := 26%positive.
+Definition ___builtin_clsl : ident := 27%positive.
+Definition ___builtin_clsll : ident := 28%positive.
Definition ___builtin_clz : ident := 5%positive.
Definition ___builtin_clzl : ident := 6%positive.
Definition ___builtin_clzll : ident := 7%positive.
Definition ___builtin_ctz : ident := 8%positive.
Definition ___builtin_ctzl : ident := 9%positive.
Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
+Definition ___builtin_debug : ident := 35%positive.
Definition ___builtin_expect : ident := 25%positive.
Definition ___builtin_fabs : ident := 11%positive.
Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
Definition ___builtin_fsqrt : ident := 13%positive.
Definition ___builtin_membar : ident := 19%positive.
Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
Definition ___builtin_sel : ident := 16%positive.
Definition ___builtin_sqrt : ident := 14%positive.
Definition ___builtin_unreachable : ident := 24%positive.
@@ -53,34 +54,32 @@ Definition ___builtin_va_arg : ident := 21%positive.
Definition ___builtin_va_copy : ident := 22%positive.
Definition ___builtin_va_end : ident := 23%positive.
Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 47%positive.
-Definition ___compcert_i64_dtou : ident := 48%positive.
-Definition ___compcert_i64_sar : ident := 59%positive.
-Definition ___compcert_i64_sdiv : ident := 53%positive.
-Definition ___compcert_i64_shl : ident := 57%positive.
-Definition ___compcert_i64_shr : ident := 58%positive.
-Definition ___compcert_i64_smod : ident := 55%positive.
-Definition ___compcert_i64_smulh : ident := 60%positive.
-Definition ___compcert_i64_stod : ident := 49%positive.
-Definition ___compcert_i64_stof : ident := 51%positive.
-Definition ___compcert_i64_udiv : ident := 54%positive.
-Definition ___compcert_i64_umod : ident := 56%positive.
-Definition ___compcert_i64_umulh : ident := 61%positive.
-Definition ___compcert_i64_utod : ident := 50%positive.
-Definition ___compcert_i64_utof : ident := 52%positive.
-Definition ___compcert_va_composite : ident := 46%positive.
-Definition ___compcert_va_float64 : ident := 45%positive.
-Definition ___compcert_va_int32 : ident := 43%positive.
-Definition ___compcert_va_int64 : ident := 44%positive.
-Definition _a : ident := 37%positive.
-Definition _i : ident := 39%positive.
-Definition _j : ident := 41%positive.
-Definition _main : ident := 62%positive.
-Definition _min : ident := 40%positive.
-Definition _minimum : ident := 42%positive.
-Definition _n : ident := 38%positive.
+Definition ___compcert_i64_dtos : ident := 46%positive.
+Definition ___compcert_i64_dtou : ident := 47%positive.
+Definition ___compcert_i64_sar : ident := 58%positive.
+Definition ___compcert_i64_sdiv : ident := 52%positive.
+Definition ___compcert_i64_shl : ident := 56%positive.
+Definition ___compcert_i64_shr : ident := 57%positive.
+Definition ___compcert_i64_smod : ident := 54%positive.
+Definition ___compcert_i64_smulh : ident := 59%positive.
+Definition ___compcert_i64_stod : ident := 48%positive.
+Definition ___compcert_i64_stof : ident := 50%positive.
+Definition ___compcert_i64_udiv : ident := 53%positive.
+Definition ___compcert_i64_umod : ident := 55%positive.
+Definition ___compcert_i64_umulh : ident := 60%positive.
+Definition ___compcert_i64_utod : ident := 49%positive.
+Definition ___compcert_i64_utof : ident := 51%positive.
+Definition ___compcert_va_composite : ident := 45%positive.
+Definition ___compcert_va_float64 : ident := 44%positive.
+Definition ___compcert_va_int32 : ident := 42%positive.
+Definition ___compcert_va_int64 : ident := 43%positive.
+Definition _a : ident := 36%positive.
+Definition _i : ident := 38%positive.
+Definition _j : ident := 40%positive.
+Definition _main : ident := 61%positive.
+Definition _min : ident := 39%positive.
+Definition _minimum : ident := 41%positive.
+Definition _n : ident := 37%positive.
Definition f_minimum := {|
fn_return := tint;
@@ -129,288 +128,268 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_minimum, Gfun(Internal f_minimum)) :: nil).
Definition public_idents : list ident :=
-(_minimum :: ___builtin_debug :: ___builtin_write32_reversed ::
- ___builtin_write16_reversed :: ___builtin_read32_reversed ::
- ___builtin_read16_reversed :: ___builtin_fnmsub :: ___builtin_fnmadd ::
- ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_fmin ::
- ___builtin_fmax :: ___builtin_expect :: ___builtin_unreachable ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_sel :: ___builtin_memcpy_aligned ::
- ___builtin_sqrt :: ___builtin_fsqrt :: ___builtin_fabsf ::
- ___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
- ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
- nil).
+(_minimum :: ___builtin_debug :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
+ ___builtin_fmadd :: ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
+ ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
+ ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
+ ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
+ ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
+ ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
+ ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
+ ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
+ ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
+ ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
+ ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
+ ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
+ ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
+ ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
+ ___compcert_va_composite :: ___compcert_va_float64 ::
+ ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/nest2.v b/progs64/nest2.v
index 3d946598a4..677cbf96c1 100644
--- a/progs64/nest2.v
+++ b/progs64/nest2.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/nest2.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 8%positive.
Definition ___builtin_bswap16 : ident := 10%positive.
Definition ___builtin_bswap32 : ident := 9%positive.
Definition ___builtin_bswap64 : ident := 7%positive.
+Definition ___builtin_cls : ident := 32%positive.
+Definition ___builtin_clsl : ident := 33%positive.
+Definition ___builtin_clsll : ident := 34%positive.
Definition ___builtin_clz : ident := 11%positive.
Definition ___builtin_clzl : ident := 12%positive.
Definition ___builtin_clzll : ident := 13%positive.
Definition ___builtin_ctz : ident := 14%positive.
Definition ___builtin_ctzl : ident := 15%positive.
Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 42%positive.
+Definition ___builtin_debug : ident := 41%positive.
Definition ___builtin_expect : ident := 31%positive.
Definition ___builtin_fabs : ident := 17%positive.
Definition ___builtin_fabsf : ident := 18%positive.
-Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
-Definition ___builtin_fmsub : ident := 35%positive.
-Definition ___builtin_fnmadd : ident := 36%positive.
-Definition ___builtin_fnmsub : ident := 37%positive.
+Definition ___builtin_fmadd : ident := 35%positive.
+Definition ___builtin_fmax : ident := 39%positive.
+Definition ___builtin_fmin : ident := 40%positive.
+Definition ___builtin_fmsub : ident := 36%positive.
+Definition ___builtin_fnmadd : ident := 37%positive.
+Definition ___builtin_fnmsub : ident := 38%positive.
Definition ___builtin_fsqrt : ident := 19%positive.
Definition ___builtin_membar : ident := 25%positive.
Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 39%positive.
Definition ___builtin_sel : ident := 22%positive.
Definition ___builtin_sqrt : ident := 20%positive.
Definition ___builtin_unreachable : ident := 30%positive.
@@ -53,34 +54,32 @@ Definition ___builtin_va_arg : ident := 27%positive.
Definition ___builtin_va_copy : ident := 28%positive.
Definition ___builtin_va_end : ident := 29%positive.
Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 40%positive.
-Definition ___builtin_write32_reversed : ident := 41%positive.
-Definition ___compcert_i64_dtos : ident := 52%positive.
-Definition ___compcert_i64_dtou : ident := 53%positive.
-Definition ___compcert_i64_sar : ident := 64%positive.
-Definition ___compcert_i64_sdiv : ident := 58%positive.
-Definition ___compcert_i64_shl : ident := 62%positive.
-Definition ___compcert_i64_shr : ident := 63%positive.
-Definition ___compcert_i64_smod : ident := 60%positive.
-Definition ___compcert_i64_smulh : ident := 65%positive.
-Definition ___compcert_i64_stod : ident := 54%positive.
-Definition ___compcert_i64_stof : ident := 56%positive.
-Definition ___compcert_i64_udiv : ident := 59%positive.
-Definition ___compcert_i64_umod : ident := 61%positive.
-Definition ___compcert_i64_umulh : ident := 66%positive.
-Definition ___compcert_i64_utod : ident := 55%positive.
-Definition ___compcert_i64_utof : ident := 57%positive.
-Definition ___compcert_va_composite : ident := 51%positive.
-Definition ___compcert_va_float64 : ident := 50%positive.
-Definition ___compcert_va_int32 : ident := 48%positive.
-Definition ___compcert_va_int64 : ident := 49%positive.
+Definition ___compcert_i64_dtos : ident := 51%positive.
+Definition ___compcert_i64_dtou : ident := 52%positive.
+Definition ___compcert_i64_sar : ident := 63%positive.
+Definition ___compcert_i64_sdiv : ident := 57%positive.
+Definition ___compcert_i64_shl : ident := 61%positive.
+Definition ___compcert_i64_shr : ident := 62%positive.
+Definition ___compcert_i64_smod : ident := 59%positive.
+Definition ___compcert_i64_smulh : ident := 64%positive.
+Definition ___compcert_i64_stod : ident := 53%positive.
+Definition ___compcert_i64_stof : ident := 55%positive.
+Definition ___compcert_i64_udiv : ident := 58%positive.
+Definition ___compcert_i64_umod : ident := 60%positive.
+Definition ___compcert_i64_umulh : ident := 65%positive.
+Definition ___compcert_i64_utod : ident := 54%positive.
+Definition ___compcert_i64_utof : ident := 56%positive.
+Definition ___compcert_va_composite : ident := 50%positive.
+Definition ___compcert_va_float64 : ident := 49%positive.
+Definition ___compcert_va_int32 : ident := 47%positive.
+Definition ___compcert_va_int64 : ident := 48%positive.
Definition _a : ident := 1%positive.
Definition _b : ident := 4%positive.
-Definition _get : ident := 45%positive.
-Definition _i : ident := 44%positive.
-Definition _main : ident := 47%positive.
-Definition _p : ident := 43%positive.
-Definition _set : ident := 46%positive.
+Definition _get : ident := 44%positive.
+Definition _i : ident := 43%positive.
+Definition _main : ident := 46%positive.
+Definition _p : ident := 42%positive.
+Definition _set : ident := 45%positive.
Definition _x1 : ident := 2%positive.
Definition _x2 : ident := 3%positive.
Definition _y1 : ident := 5%positive.
@@ -140,289 +139,270 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_p, Gvar v_p) :: (_get, Gfun(Internal f_get)) ::
(_set, Gfun(Internal f_set)) :: (_main, Gfun(Internal f_main)) :: nil).
Definition public_idents : list ident :=
-(_main :: _set :: _get :: _p :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
- ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
- ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
- ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
- ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
- ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
- ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
- ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
- ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+(_main :: _set :: _get :: _p :: ___builtin_debug :: ___builtin_fmin ::
+ ___builtin_fmax :: ___builtin_fnmsub :: ___builtin_fnmadd ::
+ ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_clsll ::
+ ___builtin_clsl :: ___builtin_cls :: ___builtin_expect ::
+ ___builtin_unreachable :: ___builtin_va_end :: ___builtin_va_copy ::
+ ___builtin_va_arg :: ___builtin_va_start :: ___builtin_membar ::
+ ___builtin_annot_intval :: ___builtin_annot :: ___builtin_sel ::
+ ___builtin_memcpy_aligned :: ___builtin_sqrt :: ___builtin_fsqrt ::
+ ___builtin_fabsf :: ___builtin_fabs :: ___builtin_ctzll ::
+ ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll :: ___builtin_clzl ::
+ ___builtin_clz :: ___builtin_bswap16 :: ___builtin_bswap32 ::
+ ___builtin_bswap :: ___builtin_bswap64 :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/nest3.v b/progs64/nest3.v
index 16eb0e37dc..3a6d341b69 100644
--- a/progs64/nest3.v
+++ b/progs64/nest3.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/nest3.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 11%positive.
Definition ___builtin_bswap16 : ident := 13%positive.
Definition ___builtin_bswap32 : ident := 12%positive.
Definition ___builtin_bswap64 : ident := 10%positive.
+Definition ___builtin_cls : ident := 35%positive.
+Definition ___builtin_clsl : ident := 36%positive.
+Definition ___builtin_clsll : ident := 37%positive.
Definition ___builtin_clz : ident := 14%positive.
Definition ___builtin_clzl : ident := 15%positive.
Definition ___builtin_clzll : ident := 16%positive.
Definition ___builtin_ctz : ident := 17%positive.
Definition ___builtin_ctzl : ident := 18%positive.
Definition ___builtin_ctzll : ident := 19%positive.
-Definition ___builtin_debug : ident := 45%positive.
+Definition ___builtin_debug : ident := 44%positive.
Definition ___builtin_expect : ident := 34%positive.
Definition ___builtin_fabs : ident := 20%positive.
Definition ___builtin_fabsf : ident := 21%positive.
-Definition ___builtin_fmadd : ident := 37%positive.
-Definition ___builtin_fmax : ident := 35%positive.
-Definition ___builtin_fmin : ident := 36%positive.
-Definition ___builtin_fmsub : ident := 38%positive.
-Definition ___builtin_fnmadd : ident := 39%positive.
-Definition ___builtin_fnmsub : ident := 40%positive.
+Definition ___builtin_fmadd : ident := 38%positive.
+Definition ___builtin_fmax : ident := 42%positive.
+Definition ___builtin_fmin : ident := 43%positive.
+Definition ___builtin_fmsub : ident := 39%positive.
+Definition ___builtin_fnmadd : ident := 40%positive.
+Definition ___builtin_fnmsub : ident := 41%positive.
Definition ___builtin_fsqrt : ident := 22%positive.
Definition ___builtin_membar : ident := 28%positive.
Definition ___builtin_memcpy_aligned : ident := 24%positive.
-Definition ___builtin_read16_reversed : ident := 41%positive.
-Definition ___builtin_read32_reversed : ident := 42%positive.
Definition ___builtin_sel : ident := 25%positive.
Definition ___builtin_sqrt : ident := 23%positive.
Definition ___builtin_unreachable : ident := 33%positive.
@@ -53,45 +54,43 @@ Definition ___builtin_va_arg : ident := 30%positive.
Definition ___builtin_va_copy : ident := 31%positive.
Definition ___builtin_va_end : ident := 32%positive.
Definition ___builtin_va_start : ident := 29%positive.
-Definition ___builtin_write16_reversed : ident := 43%positive.
-Definition ___builtin_write32_reversed : ident := 44%positive.
-Definition ___compcert_i64_dtos : ident := 64%positive.
-Definition ___compcert_i64_dtou : ident := 65%positive.
-Definition ___compcert_i64_sar : ident := 76%positive.
-Definition ___compcert_i64_sdiv : ident := 70%positive.
-Definition ___compcert_i64_shl : ident := 74%positive.
-Definition ___compcert_i64_shr : ident := 75%positive.
-Definition ___compcert_i64_smod : ident := 72%positive.
-Definition ___compcert_i64_smulh : ident := 77%positive.
-Definition ___compcert_i64_stod : ident := 66%positive.
-Definition ___compcert_i64_stof : ident := 68%positive.
-Definition ___compcert_i64_udiv : ident := 71%positive.
-Definition ___compcert_i64_umod : ident := 73%positive.
-Definition ___compcert_i64_umulh : ident := 78%positive.
-Definition ___compcert_i64_utod : ident := 67%positive.
-Definition ___compcert_i64_utof : ident := 69%positive.
-Definition ___compcert_va_composite : ident := 63%positive.
-Definition ___compcert_va_float64 : ident := 62%positive.
-Definition ___compcert_va_int32 : ident := 60%positive.
-Definition ___compcert_va_int64 : ident := 61%positive.
+Definition ___compcert_i64_dtos : ident := 63%positive.
+Definition ___compcert_i64_dtou : ident := 64%positive.
+Definition ___compcert_i64_sar : ident := 75%positive.
+Definition ___compcert_i64_sdiv : ident := 69%positive.
+Definition ___compcert_i64_shl : ident := 73%positive.
+Definition ___compcert_i64_shr : ident := 74%positive.
+Definition ___compcert_i64_smod : ident := 71%positive.
+Definition ___compcert_i64_smulh : ident := 76%positive.
+Definition ___compcert_i64_stod : ident := 65%positive.
+Definition ___compcert_i64_stof : ident := 67%positive.
+Definition ___compcert_i64_udiv : ident := 70%positive.
+Definition ___compcert_i64_umod : ident := 72%positive.
+Definition ___compcert_i64_umulh : ident := 77%positive.
+Definition ___compcert_i64_utod : ident := 66%positive.
+Definition ___compcert_i64_utof : ident := 68%positive.
+Definition ___compcert_va_composite : ident := 62%positive.
+Definition ___compcert_va_float64 : ident := 61%positive.
+Definition ___compcert_va_int32 : ident := 59%positive.
+Definition ___compcert_va_int64 : ident := 60%positive.
Definition _a : ident := 1%positive.
Definition _b : ident := 4%positive.
Definition _c : ident := 7%positive.
-Definition _get : ident := 56%positive.
-Definition _i : ident := 55%positive.
-Definition _main : ident := 79%positive.
-Definition _multi_command : ident := 58%positive.
-Definition _multi_command_s : ident := 59%positive.
-Definition _p : ident := 46%positive.
-Definition _p0 : ident := 47%positive.
-Definition _p1 : ident := 48%positive.
-Definition _p2 : ident := 49%positive.
-Definition _p3 : ident := 50%positive.
-Definition _p4 : ident := 51%positive.
-Definition _p5 : ident := 52%positive.
-Definition _p6 : ident := 53%positive.
-Definition _p7 : ident := 54%positive.
-Definition _set : ident := 57%positive.
+Definition _get : ident := 55%positive.
+Definition _i : ident := 54%positive.
+Definition _main : ident := 78%positive.
+Definition _multi_command : ident := 57%positive.
+Definition _multi_command_s : ident := 58%positive.
+Definition _p : ident := 45%positive.
+Definition _p0 : ident := 46%positive.
+Definition _p1 : ident := 47%positive.
+Definition _p2 : ident := 48%positive.
+Definition _p3 : ident := 49%positive.
+Definition _p4 : ident := 50%positive.
+Definition _p5 : ident := 51%positive.
+Definition _p6 : ident := 52%positive.
+Definition _p7 : ident := 53%positive.
+Definition _set : ident := 56%positive.
Definition _x1 : ident := 2%positive.
Definition _x2 : ident := 3%positive.
Definition _y1 : ident := 5%positive.
@@ -299,264 +298,246 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_p, Gvar v_p) :: (_p0, Gvar v_p0) :: (_p1, Gvar v_p1) ::
(_p2, Gvar v_p2) :: (_p3, Gvar v_p3) :: (_p4, Gvar v_p4) ::
@@ -568,10 +549,9 @@ Definition global_definitions : list (ident * globdef fundef type) :=
Definition public_idents : list ident :=
(_multi_command_s :: _multi_command :: _set :: _get :: _p7 :: _p6 :: _p5 ::
_p4 :: _p3 :: _p2 :: _p1 :: _p0 :: _p :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fmin :: ___builtin_fmax :: ___builtin_fnmsub ::
+ ___builtin_fnmadd :: ___builtin_fmsub :: ___builtin_fmadd ::
+ ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
diff --git a/progs64/object.v b/progs64/object.v
index 345ad2d27f..0b64e1e566 100644
--- a/progs64/object.v
+++ b/progs64/object.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/object.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 9%positive.
Definition ___builtin_bswap16 : ident := 11%positive.
Definition ___builtin_bswap32 : ident := 10%positive.
Definition ___builtin_bswap64 : ident := 8%positive.
+Definition ___builtin_cls : ident := 33%positive.
+Definition ___builtin_clsl : ident := 34%positive.
+Definition ___builtin_clsll : ident := 35%positive.
Definition ___builtin_clz : ident := 12%positive.
Definition ___builtin_clzl : ident := 13%positive.
Definition ___builtin_clzll : ident := 14%positive.
Definition ___builtin_ctz : ident := 15%positive.
Definition ___builtin_ctzl : ident := 16%positive.
Definition ___builtin_ctzll : ident := 17%positive.
-Definition ___builtin_debug : ident := 43%positive.
+Definition ___builtin_debug : ident := 42%positive.
Definition ___builtin_expect : ident := 32%positive.
Definition ___builtin_fabs : ident := 18%positive.
Definition ___builtin_fabsf : ident := 19%positive.
-Definition ___builtin_fmadd : ident := 35%positive.
-Definition ___builtin_fmax : ident := 33%positive.
-Definition ___builtin_fmin : ident := 34%positive.
-Definition ___builtin_fmsub : ident := 36%positive.
-Definition ___builtin_fnmadd : ident := 37%positive.
-Definition ___builtin_fnmsub : ident := 38%positive.
+Definition ___builtin_fmadd : ident := 36%positive.
+Definition ___builtin_fmax : ident := 40%positive.
+Definition ___builtin_fmin : ident := 41%positive.
+Definition ___builtin_fmsub : ident := 37%positive.
+Definition ___builtin_fnmadd : ident := 38%positive.
+Definition ___builtin_fnmsub : ident := 39%positive.
Definition ___builtin_fsqrt : ident := 20%positive.
Definition ___builtin_membar : ident := 26%positive.
Definition ___builtin_memcpy_aligned : ident := 22%positive.
-Definition ___builtin_read16_reversed : ident := 39%positive.
-Definition ___builtin_read32_reversed : ident := 40%positive.
Definition ___builtin_sel : ident := 23%positive.
Definition ___builtin_sqrt : ident := 21%positive.
Definition ___builtin_unreachable : ident := 31%positive.
@@ -53,49 +54,47 @@ Definition ___builtin_va_arg : ident := 28%positive.
Definition ___builtin_va_copy : ident := 29%positive.
Definition ___builtin_va_end : ident := 30%positive.
Definition ___builtin_va_start : ident := 27%positive.
-Definition ___builtin_write16_reversed : ident := 41%positive.
-Definition ___builtin_write32_reversed : ident := 42%positive.
-Definition ___compcert_i64_dtos : ident := 61%positive.
-Definition ___compcert_i64_dtou : ident := 62%positive.
-Definition ___compcert_i64_sar : ident := 73%positive.
-Definition ___compcert_i64_sdiv : ident := 67%positive.
-Definition ___compcert_i64_shl : ident := 71%positive.
-Definition ___compcert_i64_shr : ident := 72%positive.
-Definition ___compcert_i64_smod : ident := 69%positive.
-Definition ___compcert_i64_smulh : ident := 74%positive.
-Definition ___compcert_i64_stod : ident := 63%positive.
-Definition ___compcert_i64_stof : ident := 65%positive.
-Definition ___compcert_i64_udiv : ident := 68%positive.
-Definition ___compcert_i64_umod : ident := 70%positive.
-Definition ___compcert_i64_umulh : ident := 75%positive.
-Definition ___compcert_i64_utod : ident := 64%positive.
-Definition ___compcert_i64_utof : ident := 66%positive.
-Definition ___compcert_va_composite : ident := 60%positive.
-Definition ___compcert_va_float64 : ident := 59%positive.
-Definition ___compcert_va_int32 : ident := 57%positive.
-Definition ___compcert_va_int64 : ident := 58%positive.
-Definition _d : ident := 49%positive.
+Definition ___compcert_i64_dtos : ident := 60%positive.
+Definition ___compcert_i64_dtou : ident := 61%positive.
+Definition ___compcert_i64_sar : ident := 72%positive.
+Definition ___compcert_i64_sdiv : ident := 66%positive.
+Definition ___compcert_i64_shl : ident := 70%positive.
+Definition ___compcert_i64_shr : ident := 71%positive.
+Definition ___compcert_i64_smod : ident := 68%positive.
+Definition ___compcert_i64_smulh : ident := 73%positive.
+Definition ___compcert_i64_stod : ident := 62%positive.
+Definition ___compcert_i64_stof : ident := 64%positive.
+Definition ___compcert_i64_udiv : ident := 67%positive.
+Definition ___compcert_i64_umod : ident := 69%positive.
+Definition ___compcert_i64_umulh : ident := 74%positive.
+Definition ___compcert_i64_utod : ident := 63%positive.
+Definition ___compcert_i64_utof : ident := 65%positive.
+Definition ___compcert_va_composite : ident := 59%positive.
+Definition ___compcert_va_float64 : ident := 58%positive.
+Definition ___compcert_va_int32 : ident := 56%positive.
+Definition ___compcert_va_int64 : ident := 57%positive.
+Definition _d : ident := 48%positive.
Definition _data : ident := 7%positive.
-Definition _exit : ident := 45%positive.
-Definition _foo_methods : ident := 51%positive.
+Definition _exit : ident := 44%positive.
+Definition _foo_methods : ident := 50%positive.
Definition _foo_object : ident := 6%positive.
-Definition _foo_reset : ident := 47%positive.
-Definition _foo_twiddle : ident := 50%positive.
-Definition _i : ident := 48%positive.
-Definition _main : ident := 56%positive.
-Definition _make_foo : ident := 53%positive.
-Definition _malloc : ident := 44%positive.
+Definition _foo_reset : ident := 46%positive.
+Definition _foo_twiddle : ident := 49%positive.
+Definition _i : ident := 47%positive.
+Definition _main : ident := 55%positive.
+Definition _make_foo : ident := 52%positive.
+Definition _malloc : ident := 43%positive.
Definition _methods : ident := 1%positive.
Definition _mtable : ident := 5%positive.
Definition _object : ident := 3%positive.
-Definition _p : ident := 52%positive.
-Definition _p_reset : ident := 54%positive.
-Definition _p_twiddle : ident := 55%positive.
+Definition _p : ident := 51%positive.
+Definition _p_reset : ident := 53%positive.
+Definition _p_twiddle : ident := 54%positive.
Definition _reset : ident := 2%positive.
-Definition _self : ident := 46%positive.
+Definition _self : ident := 45%positive.
Definition _twiddle : ident := 4%positive.
-Definition _t'1 : ident := 76%positive.
-Definition _t'2 : ident := 77%positive.
+Definition _t'1 : ident := 75%positive.
+Definition _t'2 : ident := 76%positive.
Definition f_foo_reset := {|
fn_return := tvoid;
@@ -159,7 +158,7 @@ Definition f_make_foo := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _malloc (Tfunction (Tcons tulong Tnil) (tptr tvoid) cc_default))
+ (Evar _malloc (Tfunction (tulong :: nil) (tptr tvoid) cc_default))
((Esizeof (Tstruct _foo_object noattr) tulong) :: nil))
(Sset _p
(Ecast (Etempvar _t'1 (tptr tvoid))
@@ -167,7 +166,7 @@ Definition f_make_foo := {|
(Ssequence
(Sifthenelse (Eunop Onotbool
(Etempvar _p (tptr (Tstruct _foo_object noattr))) tint)
- (Scall None (Evar _exit (Tfunction (Tcons tint Tnil) tvoid cc_default))
+ (Scall None (Evar _exit (Tfunction (tint :: nil) tvoid cc_default))
((Econst_int (Int.repr 1) tint) :: nil))
Sskip)
(Ssequence
@@ -197,20 +196,19 @@ Definition f_main := {|
fn_temps := ((_p, (tptr (Tstruct _object noattr))) ::
(_mtable, (tptr (Tstruct _methods noattr))) ::
(_p_reset,
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil)
tvoid cc_default))) ::
(_p_twiddle,
(tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- (Tcons tint Tnil)) tint cc_default))) ::
- (_i, tint) :: (_t'2, tint) ::
+ ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
+ cc_default))) :: (_i, tint) :: (_t'2, tint) ::
(_t'1, (tptr (Tstruct _object noattr))) :: nil);
fn_body :=
(Ssequence
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _make_foo (Tfunction Tnil (tptr (Tstruct _object noattr))
+ (Evar _make_foo (Tfunction nil (tptr (Tstruct _object noattr))
cc_default)) nil)
(Sset _p (Etempvar _t'1 (tptr (Tstruct _object noattr)))))
(Ssequence
@@ -224,13 +222,13 @@ Definition f_main := {|
(Efield
(Ederef (Etempvar _mtable (tptr (Tstruct _methods noattr)))
(Tstruct _methods noattr)) _reset
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil)
- tvoid cc_default))))
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tvoid
+ cc_default))))
(Ssequence
(Scall None
(Etempvar _p_reset (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- Tnil) tvoid cc_default)))
+ ((tptr (Tstruct _object noattr)) ::
+ nil) tvoid cc_default)))
((Etempvar _p (tptr (Tstruct _object noattr))) :: nil))
(Ssequence
(Sset _mtable
@@ -244,15 +242,14 @@ Definition f_main := {|
(Ederef (Etempvar _mtable (tptr (Tstruct _methods noattr)))
(Tstruct _methods noattr)) _twiddle
(tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr))
- (Tcons tint Tnil)) tint cc_default))))
+ ((tptr (Tstruct _object noattr)) :: tint :: nil)
+ tint cc_default))))
(Ssequence
(Ssequence
(Scall (Some _t'2)
(Etempvar _p_twiddle (tptr (Tfunction
- (Tcons
- (tptr (Tstruct _object noattr))
- (Tcons tint Tnil)) tint
+ ((tptr (Tstruct _object noattr)) ::
+ tint :: nil) tint
cc_default)))
((Etempvar _p (tptr (Tstruct _object noattr))) ::
(Econst_int (Int.repr 3) tint) :: nil))
@@ -264,11 +261,10 @@ Definition f_main := {|
Definition composites : list composite_definition :=
(Composite _methods Struct
(Member_plain _reset
- (tptr (Tfunction (Tcons (tptr (Tstruct _object noattr)) Tnil) tvoid
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: nil) tvoid
cc_default)) ::
Member_plain _twiddle
- (tptr (Tfunction
- (Tcons (tptr (Tstruct _object noattr)) (Tcons tint Tnil)) tint
+ (tptr (Tfunction ((tptr (Tstruct _object noattr)) :: tint :: nil) tint
cc_default)) :: nil)
noattr ::
Composite _object Struct
@@ -282,271 +278,252 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
- (_malloc,
- Gfun(External EF_malloc (Tcons tulong Tnil) (tptr tvoid) cc_default)) ::
+ (_malloc, Gfun(External EF_malloc (tulong :: nil) (tptr tvoid) cc_default)) ::
(_exit,
Gfun(External (EF_external "exit"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons tint Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xvoid cc_default))
+ (tint :: nil) tvoid cc_default)) ::
(_foo_reset, Gfun(Internal f_foo_reset)) ::
(_foo_twiddle, Gfun(Internal f_foo_twiddle)) ::
(_foo_methods, Gvar v_foo_methods) ::
@@ -555,26 +532,24 @@ Definition global_definitions : list (ident * globdef fundef type) :=
Definition public_idents : list ident :=
(_main :: _make_foo :: _foo_methods :: _foo_twiddle :: _foo_reset :: _exit ::
- _malloc :: ___builtin_debug :: ___builtin_write32_reversed ::
- ___builtin_write16_reversed :: ___builtin_read32_reversed ::
- ___builtin_read16_reversed :: ___builtin_fnmsub :: ___builtin_fnmadd ::
- ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_fmin ::
- ___builtin_fmax :: ___builtin_expect :: ___builtin_unreachable ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_sel :: ___builtin_memcpy_aligned ::
- ___builtin_sqrt :: ___builtin_fsqrt :: ___builtin_fabsf ::
- ___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
- ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
- nil).
+ _malloc :: ___builtin_debug :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
+ ___builtin_fmadd :: ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
+ ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
+ ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
+ ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
+ ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
+ ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
+ ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
+ ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
+ ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
+ ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
+ ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
+ ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
+ ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
+ ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
+ ___compcert_va_composite :: ___compcert_va_float64 ::
+ ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/os_combine.v b/progs64/os_combine.v
index 0292ca30a8..631f81b75e 100644
--- a/progs64/os_combine.v
+++ b/progs64/os_combine.v
@@ -70,7 +70,7 @@ Section ext_trace.
forall n t traces z c m e args,
cl_at_external c = Some (e,args) ->
(forall s s' ret m' t' n'
- (Hargsty : Val.has_type_list args (sig_args (ef_sig e)))
+ (Hargsty : Val.has_type_list args (map proj_xtype (sig_args (ef_sig e))))
(Hretty : Builtins0.val_opt_has_rettype ret (sig_res (ef_sig e))),
inj_mem e args m t s ->
ext_sem e args s = Some (s', ret, t') ->
@@ -81,7 +81,7 @@ Section ext_trace.
ext_safeN_trace n' (app_trace t t') traces' z' c' m' /\
(forall t'', In traces' t'' -> In traces (app_trace t' t''))) ->
(forall t1, In traces t1 ->
- exists s s' ret m' t' n', Val.has_type_list args (sig_args (ef_sig e)) /\
+ exists s s' ret m' t' n', Val.has_type_list args (map proj_xtype (sig_args (ef_sig e))) /\
Builtins0.val_opt_has_rettype ret (sig_res (ef_sig e)) /\
inj_mem e args m t s /\ ext_sem e args s = Some (s', ret, t') /\ m' = extr_mem e args m s' /\
(n' <= n)%nat /\ OS_valid s' /\ exists traces' z' c', consume_trace z z' t' /\
@@ -109,7 +109,7 @@ Section ext_trace.
induction n as [n IHn] using lt_wf_ind; intros; inversion H; subst.
- eexists; constructor.
- edestruct IHn as [traces ?]; eauto; exists traces; econstructor; eauto.
- - exists (fun t1 => exists s s' ret m' t' n', Val.has_type_list args (sig_args (ef_sig e)) /\
+ - exists (fun t1 => exists s s' ret m' t' n', Val.has_type_list args (map proj_xtype (sig_args (ef_sig e))) /\
Builtins0.val_opt_has_rettype ret (sig_res (ef_sig e)) /\
inj_mem e args m t s /\ ext_sem e args s = Some (s', ret, t') /\ m' = extr_mem e args m s' /\
(n' <= n0)%nat /\ OS_valid s' /\ exists traces' z' c', consume_trace z z' t' /\
diff --git a/progs64/printf.v b/progs64/printf.v
index 9d0cabaac2..acfda1c5bf 100644
--- a/progs64/printf.v
+++ b/progs64/printf.v
@@ -247,13 +247,13 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall None
- (Evar _printf (Tfunction (Tcons (tptr tschar) Tnil) tint
+ (Evar _printf (Tfunction (cons (tptr tschar) nil) tint
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
((Evar ___stringlit_1 (tarray tschar 15)) :: nil))
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar ___getreent (Tfunction Tnil (tptr (Tstruct __reent noattr))
+ (Evar ___getreent (Tfunction nil (tptr (Tstruct __reent noattr))
cc_default)) nil)
(Ssequence
(Sset _t'2
@@ -263,8 +263,8 @@ Definition f_main := {|
(tptr (Tstruct ___sFILE64 noattr))))
(Scall None
(Evar _fprintf (Tfunction
- (Tcons (tptr (Tstruct ___sFILE64 noattr))
- (Tcons (tptr tschar) Tnil)) tint
+ (cons (tptr (Tstruct ___sFILE64 noattr))
+ (cons (tptr tschar) nil)) tint
{|cc_vararg:=(Some 2); cc_unproto:=false; cc_structret:=false|}))
((Etempvar _t'2 (tptr (Tstruct ___sFILE64 noattr))) ::
(Evar ___stringlit_3 (tarray tschar 16)) ::
@@ -304,7 +304,7 @@ Definition composites : list composite_definition :=
Composite __atexit Struct
(Member_plain __next (tptr (Tstruct __atexit noattr)) ::
Member_plain __ind tint ::
- Member_plain __fns (tarray (tptr (Tfunction Tnil tvoid cc_default)) 32) ::
+ Member_plain __fns (tarray (tptr (Tfunction nil tvoid cc_default)) 32) ::
Member_plain __on_exit_args (Tstruct __on_exit_args noattr) :: nil)
noattr ::
Composite ___sbuf Struct
@@ -320,25 +320,25 @@ Definition composites : list composite_definition :=
Member_plain __cookie (tptr tvoid) ::
Member_plain __read
(tptr (Tfunction
- (Tcons (tptr (Tstruct __reent noattr))
- (Tcons (tptr tvoid)
- (Tcons (tptr tschar) (Tcons tulong Tnil)))) tlong
+ (cons (tptr (Tstruct __reent noattr))
+ (cons (tptr tvoid)
+ (cons (tptr tschar) (cons tulong nil)))) tlong
cc_default)) ::
Member_plain __write
(tptr (Tfunction
- (Tcons (tptr (Tstruct __reent noattr))
- (Tcons (tptr tvoid)
- (Tcons (tptr tschar) (Tcons tulong Tnil)))) tlong
+ (cons (tptr (Tstruct __reent noattr))
+ (cons (tptr tvoid)
+ (cons (tptr tschar) (cons tulong nil)))) tlong
cc_default)) ::
Member_plain __seek
(tptr (Tfunction
- (Tcons (tptr (Tstruct __reent noattr))
- (Tcons (tptr tvoid) (Tcons tlong (Tcons tint Tnil)))) tlong
+ (cons (tptr (Tstruct __reent noattr))
+ (cons (tptr tvoid) (cons tlong (cons tint nil)))) tlong
cc_default)) ::
Member_plain __close
(tptr (Tfunction
- (Tcons (tptr (Tstruct __reent noattr))
- (Tcons (tptr tvoid) Tnil)) tint cc_default)) ::
+ (cons (tptr (Tstruct __reent noattr))
+ (cons (tptr tvoid) nil)) tint cc_default)) ::
Member_plain __ub (Tstruct ___sbuf noattr) ::
Member_plain __up (tptr tuchar) :: Member_plain __ur tint ::
Member_plain __ubuf (tarray tuchar 3) ::
@@ -348,8 +348,8 @@ Definition composites : list composite_definition :=
Member_plain __offset tlong ::
Member_plain __seek64
(tptr (Tfunction
- (Tcons (tptr (Tstruct __reent noattr))
- (Tcons (tptr tvoid) (Tcons tlong (Tcons tint Tnil)))) tlong
+ (cons (tptr (Tstruct __reent noattr))
+ (cons (tptr tvoid) (cons tlong (cons tint nil)))) tlong
cc_default)) :: Member_plain __lock (tptr tvoid) ::
Member_plain __mbstate (Tstruct __139 noattr) :: nil)
noattr ::
@@ -401,7 +401,7 @@ Definition composites : list composite_definition :=
Member_plain __locale (tptr (Tstruct ___locale_t noattr)) ::
Member_plain ___sdidinit tint ::
Member_plain ___cleanup
- (tptr (Tfunction (Tcons (tptr (Tstruct __reent noattr)) Tnil) tvoid
+ (tptr (Tfunction (cons (tptr (Tstruct __reent noattr)) nil) tvoid
cc_default)) ::
Member_plain __result (tptr (Tstruct __Bigint noattr)) ::
Member_plain __result_k tint ::
@@ -412,7 +412,7 @@ Definition composites : list composite_definition :=
Member_plain __atexit (tptr (Tstruct __atexit noattr)) ::
Member_plain __atexit0 (Tstruct __atexit noattr) ::
Member_plain __sig_func
- (tptr (tptr (Tfunction (Tcons tint Tnil) tvoid cc_default))) ::
+ (tptr (tptr (Tfunction (cons tint nil) tvoid cc_default))) ::
Member_plain ___sglue (Tstruct __glue noattr) ::
Member_plain ___sf (tarray (Tstruct ___sFILE64 noattr) 3) :: nil)
noattr :: nil).
@@ -420,282 +420,253 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
- cc_default)) :: (___stringlit_3, Gvar v___stringlit_3) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
+ cc_default)) ::
+ (___stringlit_3, Gvar v___stringlit_3) ::
(___stringlit_2, Gvar v___stringlit_2) ::
(___stringlit_1, Gvar v___stringlit_1) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___getreent,
Gfun(External (EF_external "__getreent"
- (mksignature nil AST.Tlong cc_default)) Tnil
+ (mksignature nil AST.Xptr cc_default)) nil
(tptr (Tstruct __reent noattr)) cc_default)) ::
(_fprintf,
Gfun(External (EF_external "fprintf"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tint
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xint
{|cc_vararg:=(Some 2); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr (Tstruct ___sFILE64 noattr)) (Tcons (tptr tschar) Tnil))
+ (cons (tptr (Tstruct ___sFILE64 noattr)) (cons (tptr tschar) nil))
tint {|cc_vararg:=(Some 2); cc_unproto:=false; cc_structret:=false|})) ::
(_printf,
Gfun(External (EF_external "printf"
- (mksignature (AST.Tlong :: nil) AST.Tint
+ (mksignature (AST.Xptr :: nil) AST.Xint
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tint
+ (cons (tptr tschar) nil) tint
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_main, Gfun(Internal f_main)) :: nil).
diff --git a/progs64/revarray.v b/progs64/revarray.v
index 5659b30308..ef46ea2fae 100644
--- a/progs64/revarray.v
+++ b/progs64/revarray.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/revarray.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 2%positive.
Definition ___builtin_bswap16 : ident := 4%positive.
Definition ___builtin_bswap32 : ident := 3%positive.
Definition ___builtin_bswap64 : ident := 1%positive.
+Definition ___builtin_cls : ident := 26%positive.
+Definition ___builtin_clsl : ident := 27%positive.
+Definition ___builtin_clsll : ident := 28%positive.
Definition ___builtin_clz : ident := 5%positive.
Definition ___builtin_clzl : ident := 6%positive.
Definition ___builtin_clzll : ident := 7%positive.
Definition ___builtin_ctz : ident := 8%positive.
Definition ___builtin_ctzl : ident := 9%positive.
Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
+Definition ___builtin_debug : ident := 35%positive.
Definition ___builtin_expect : ident := 25%positive.
Definition ___builtin_fabs : ident := 11%positive.
Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
Definition ___builtin_fsqrt : ident := 13%positive.
Definition ___builtin_membar : ident := 19%positive.
Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
Definition ___builtin_sel : ident := 16%positive.
Definition ___builtin_sqrt : ident := 14%positive.
Definition ___builtin_unreachable : ident := 24%positive.
@@ -53,37 +54,35 @@ Definition ___builtin_va_arg : ident := 21%positive.
Definition ___builtin_va_copy : ident := 22%positive.
Definition ___builtin_va_end : ident := 23%positive.
Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 51%positive.
-Definition ___compcert_i64_dtou : ident := 52%positive.
-Definition ___compcert_i64_sar : ident := 63%positive.
-Definition ___compcert_i64_sdiv : ident := 57%positive.
-Definition ___compcert_i64_shl : ident := 61%positive.
-Definition ___compcert_i64_shr : ident := 62%positive.
-Definition ___compcert_i64_smod : ident := 59%positive.
-Definition ___compcert_i64_smulh : ident := 64%positive.
-Definition ___compcert_i64_stod : ident := 53%positive.
-Definition ___compcert_i64_stof : ident := 55%positive.
-Definition ___compcert_i64_udiv : ident := 58%positive.
-Definition ___compcert_i64_umod : ident := 60%positive.
-Definition ___compcert_i64_umulh : ident := 65%positive.
-Definition ___compcert_i64_utod : ident := 54%positive.
-Definition ___compcert_i64_utof : ident := 56%positive.
-Definition ___compcert_va_composite : ident := 50%positive.
-Definition ___compcert_va_float64 : ident := 49%positive.
-Definition ___compcert_va_int32 : ident := 47%positive.
-Definition ___compcert_va_int64 : ident := 48%positive.
-Definition _a : ident := 37%positive.
-Definition _four : ident := 44%positive.
-Definition _hi : ident := 40%positive.
-Definition _i : ident := 45%positive.
-Definition _lo : ident := 39%positive.
-Definition _main : ident := 46%positive.
-Definition _n : ident := 38%positive.
-Definition _reverse : ident := 43%positive.
-Definition _s : ident := 41%positive.
-Definition _t : ident := 42%positive.
+Definition ___compcert_i64_dtos : ident := 50%positive.
+Definition ___compcert_i64_dtou : ident := 51%positive.
+Definition ___compcert_i64_sar : ident := 62%positive.
+Definition ___compcert_i64_sdiv : ident := 56%positive.
+Definition ___compcert_i64_shl : ident := 60%positive.
+Definition ___compcert_i64_shr : ident := 61%positive.
+Definition ___compcert_i64_smod : ident := 58%positive.
+Definition ___compcert_i64_smulh : ident := 63%positive.
+Definition ___compcert_i64_stod : ident := 52%positive.
+Definition ___compcert_i64_stof : ident := 54%positive.
+Definition ___compcert_i64_udiv : ident := 57%positive.
+Definition ___compcert_i64_umod : ident := 59%positive.
+Definition ___compcert_i64_umulh : ident := 64%positive.
+Definition ___compcert_i64_utod : ident := 53%positive.
+Definition ___compcert_i64_utof : ident := 55%positive.
+Definition ___compcert_va_composite : ident := 49%positive.
+Definition ___compcert_va_float64 : ident := 48%positive.
+Definition ___compcert_va_int32 : ident := 46%positive.
+Definition ___compcert_va_int64 : ident := 47%positive.
+Definition _a : ident := 36%positive.
+Definition _four : ident := 43%positive.
+Definition _hi : ident := 39%positive.
+Definition _i : ident := 44%positive.
+Definition _lo : ident := 38%positive.
+Definition _main : ident := 45%positive.
+Definition _n : ident := 37%positive.
+Definition _reverse : ident := 42%positive.
+Definition _s : ident := 40%positive.
+Definition _t : ident := 41%positive.
Definition f_reverse := {|
fn_return := tvoid;
@@ -150,12 +149,12 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall None
- (Evar _reverse (Tfunction (Tcons (tptr tint) (Tcons tint Tnil)) tvoid
+ (Evar _reverse (Tfunction ((tptr tint) :: tint :: nil) tvoid
cc_default))
((Evar _four (tarray tint 4)) :: (Econst_int (Int.repr 4) tint) :: nil))
(Ssequence
(Scall None
- (Evar _reverse (Tfunction (Tcons (tptr tint) (Tcons tint Tnil)) tvoid
+ (Evar _reverse (Tfunction ((tptr tint) :: tint :: nil) tvoid
cc_default))
((Evar _four (tarray tint 4)) :: (Econst_int (Int.repr 4) tint) ::
nil))
@@ -169,289 +168,270 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_reverse, Gfun(Internal f_reverse)) :: (_four, Gvar v_four) ::
(_main, Gfun(Internal f_main)) :: nil).
Definition public_idents : list ident :=
-(_main :: _four :: _reverse :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
- ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
- ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
- ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
- ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
- ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
- ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
- ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
- ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+(_main :: _four :: _reverse :: ___builtin_debug :: ___builtin_fmin ::
+ ___builtin_fmax :: ___builtin_fnmsub :: ___builtin_fnmadd ::
+ ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_clsll ::
+ ___builtin_clsl :: ___builtin_cls :: ___builtin_expect ::
+ ___builtin_unreachable :: ___builtin_va_end :: ___builtin_va_copy ::
+ ___builtin_va_arg :: ___builtin_va_start :: ___builtin_membar ::
+ ___builtin_annot_intval :: ___builtin_annot :: ___builtin_sel ::
+ ___builtin_memcpy_aligned :: ___builtin_sqrt :: ___builtin_fsqrt ::
+ ___builtin_fabsf :: ___builtin_fabs :: ___builtin_ctzll ::
+ ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll :: ___builtin_clzl ::
+ ___builtin_clz :: ___builtin_bswap16 :: ___builtin_bswap32 ::
+ ___builtin_bswap :: ___builtin_bswap64 :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/reverse.v b/progs64/reverse.v
index ce895a4b09..cc11a30a14 100644
--- a/progs64/reverse.v
+++ b/progs64/reverse.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/reverse.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 5%positive.
Definition ___builtin_bswap16 : ident := 7%positive.
Definition ___builtin_bswap32 : ident := 6%positive.
Definition ___builtin_bswap64 : ident := 4%positive.
+Definition ___builtin_cls : ident := 29%positive.
+Definition ___builtin_clsl : ident := 30%positive.
+Definition ___builtin_clsll : ident := 31%positive.
Definition ___builtin_clz : ident := 8%positive.
Definition ___builtin_clzl : ident := 9%positive.
Definition ___builtin_clzll : ident := 10%positive.
Definition ___builtin_ctz : ident := 11%positive.
Definition ___builtin_ctzl : ident := 12%positive.
Definition ___builtin_ctzll : ident := 13%positive.
-Definition ___builtin_debug : ident := 39%positive.
+Definition ___builtin_debug : ident := 38%positive.
Definition ___builtin_expect : ident := 28%positive.
Definition ___builtin_fabs : ident := 14%positive.
Definition ___builtin_fabsf : ident := 15%positive.
-Definition ___builtin_fmadd : ident := 31%positive.
-Definition ___builtin_fmax : ident := 29%positive.
-Definition ___builtin_fmin : ident := 30%positive.
-Definition ___builtin_fmsub : ident := 32%positive.
-Definition ___builtin_fnmadd : ident := 33%positive.
-Definition ___builtin_fnmsub : ident := 34%positive.
+Definition ___builtin_fmadd : ident := 32%positive.
+Definition ___builtin_fmax : ident := 36%positive.
+Definition ___builtin_fmin : ident := 37%positive.
+Definition ___builtin_fmsub : ident := 33%positive.
+Definition ___builtin_fnmadd : ident := 34%positive.
+Definition ___builtin_fnmsub : ident := 35%positive.
Definition ___builtin_fsqrt : ident := 16%positive.
Definition ___builtin_membar : ident := 22%positive.
Definition ___builtin_memcpy_aligned : ident := 18%positive.
-Definition ___builtin_read16_reversed : ident := 35%positive.
-Definition ___builtin_read32_reversed : ident := 36%positive.
Definition ___builtin_sel : ident := 19%positive.
Definition ___builtin_sqrt : ident := 17%positive.
Definition ___builtin_unreachable : ident := 27%positive.
@@ -53,43 +54,41 @@ Definition ___builtin_va_arg : ident := 24%positive.
Definition ___builtin_va_copy : ident := 25%positive.
Definition ___builtin_va_end : ident := 26%positive.
Definition ___builtin_va_start : ident := 23%positive.
-Definition ___builtin_write16_reversed : ident := 37%positive.
-Definition ___builtin_write32_reversed : ident := 38%positive.
-Definition ___compcert_i64_dtos : ident := 55%positive.
-Definition ___compcert_i64_dtou : ident := 56%positive.
-Definition ___compcert_i64_sar : ident := 67%positive.
-Definition ___compcert_i64_sdiv : ident := 61%positive.
-Definition ___compcert_i64_shl : ident := 65%positive.
-Definition ___compcert_i64_shr : ident := 66%positive.
-Definition ___compcert_i64_smod : ident := 63%positive.
-Definition ___compcert_i64_smulh : ident := 68%positive.
-Definition ___compcert_i64_stod : ident := 57%positive.
-Definition ___compcert_i64_stof : ident := 59%positive.
-Definition ___compcert_i64_udiv : ident := 62%positive.
-Definition ___compcert_i64_umod : ident := 64%positive.
-Definition ___compcert_i64_umulh : ident := 69%positive.
-Definition ___compcert_i64_utod : ident := 58%positive.
-Definition ___compcert_i64_utof : ident := 60%positive.
-Definition ___compcert_va_composite : ident := 54%positive.
-Definition ___compcert_va_float64 : ident := 53%positive.
-Definition ___compcert_va_int32 : ident := 51%positive.
-Definition ___compcert_va_int64 : ident := 52%positive.
-Definition _h : ident := 44%positive.
+Definition ___compcert_i64_dtos : ident := 54%positive.
+Definition ___compcert_i64_dtou : ident := 55%positive.
+Definition ___compcert_i64_sar : ident := 66%positive.
+Definition ___compcert_i64_sdiv : ident := 60%positive.
+Definition ___compcert_i64_shl : ident := 64%positive.
+Definition ___compcert_i64_shr : ident := 65%positive.
+Definition ___compcert_i64_smod : ident := 62%positive.
+Definition ___compcert_i64_smulh : ident := 67%positive.
+Definition ___compcert_i64_stod : ident := 56%positive.
+Definition ___compcert_i64_stof : ident := 58%positive.
+Definition ___compcert_i64_udiv : ident := 61%positive.
+Definition ___compcert_i64_umod : ident := 63%positive.
+Definition ___compcert_i64_umulh : ident := 68%positive.
+Definition ___compcert_i64_utod : ident := 57%positive.
+Definition ___compcert_i64_utof : ident := 59%positive.
+Definition ___compcert_va_composite : ident := 53%positive.
+Definition ___compcert_va_float64 : ident := 52%positive.
+Definition ___compcert_va_int32 : ident := 50%positive.
+Definition ___compcert_va_int64 : ident := 51%positive.
+Definition _h : ident := 43%positive.
Definition _head : ident := 2%positive.
Definition _list : ident := 1%positive.
-Definition _main : ident := 50%positive.
-Definition _p : ident := 41%positive.
-Definition _r : ident := 49%positive.
-Definition _reverse : ident := 48%positive.
-Definition _s : ident := 42%positive.
-Definition _sumlist : ident := 45%positive.
-Definition _t : ident := 43%positive.
+Definition _main : ident := 49%positive.
+Definition _p : ident := 40%positive.
+Definition _r : ident := 48%positive.
+Definition _reverse : ident := 47%positive.
+Definition _s : ident := 41%positive.
+Definition _sumlist : ident := 44%positive.
+Definition _t : ident := 42%positive.
Definition _tail : ident := 3%positive.
-Definition _three : ident := 40%positive.
-Definition _v : ident := 47%positive.
-Definition _w : ident := 46%positive.
-Definition _t'1 : ident := 70%positive.
-Definition _t'2 : ident := 71%positive.
+Definition _three : ident := 39%positive.
+Definition _v : ident := 46%positive.
+Definition _w : ident := 45%positive.
+Definition _t'1 : ident := 69%positive.
+Definition _t'2 : ident := 70%positive.
Definition v_three := {|
gvar_info := (tarray (Tstruct _list noattr) 3);
@@ -180,16 +179,15 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _reverse (Tfunction (Tcons (tptr (Tstruct _list noattr)) Tnil)
+ (Evar _reverse (Tfunction ((tptr (Tstruct _list noattr)) :: nil)
(tptr (Tstruct _list noattr)) cc_default))
((Evar _three (tarray (Tstruct _list noattr) 3)) :: nil))
(Sset _r (Etempvar _t'1 (tptr (Tstruct _list noattr)))))
(Ssequence
(Ssequence
(Scall (Some _t'2)
- (Evar _sumlist (Tfunction
- (Tcons (tptr (Tstruct _list noattr)) Tnil) tuint
- cc_default))
+ (Evar _sumlist (Tfunction ((tptr (Tstruct _list noattr)) :: nil)
+ tuint cc_default))
((Etempvar _r (tptr (Tstruct _list noattr))) :: nil))
(Sset _s (Etempvar _t'2 tuint)))
(Sreturn (Some (Ecast (Etempvar _s tuint) tint)))))
@@ -205,264 +203,246 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_three, Gvar v_three) :: (_sumlist, Gfun(Internal f_sumlist)) ::
(_reverse, Gfun(Internal f_reverse)) :: (_main, Gfun(Internal f_main)) ::
@@ -470,10 +450,9 @@ Definition global_definitions : list (ident * globdef fundef type) :=
Definition public_idents : list ident :=
(_main :: _reverse :: _sumlist :: _three :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fmin :: ___builtin_fmax :: ___builtin_fnmsub ::
+ ___builtin_fnmadd :: ___builtin_fmsub :: ___builtin_fmadd ::
+ ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
diff --git a/progs64/strlib.v b/progs64/strlib.v
index 3fc368ae60..faa0bd3d35 100644
--- a/progs64/strlib.v
+++ b/progs64/strlib.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/strlib.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 2%positive.
Definition ___builtin_bswap16 : ident := 4%positive.
Definition ___builtin_bswap32 : ident := 3%positive.
Definition ___builtin_bswap64 : ident := 1%positive.
+Definition ___builtin_cls : ident := 26%positive.
+Definition ___builtin_clsl : ident := 27%positive.
+Definition ___builtin_clsll : ident := 28%positive.
Definition ___builtin_clz : ident := 5%positive.
Definition ___builtin_clzl : ident := 6%positive.
Definition ___builtin_clzll : ident := 7%positive.
Definition ___builtin_ctz : ident := 8%positive.
Definition ___builtin_ctzl : ident := 9%positive.
Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
+Definition ___builtin_debug : ident := 35%positive.
Definition ___builtin_expect : ident := 25%positive.
Definition ___builtin_fabs : ident := 11%positive.
Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
Definition ___builtin_fsqrt : ident := 13%positive.
Definition ___builtin_membar : ident := 19%positive.
Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
Definition ___builtin_sel : ident := 16%positive.
Definition ___builtin_sqrt : ident := 14%positive.
Definition ___builtin_unreachable : ident := 24%positive.
@@ -53,47 +54,45 @@ Definition ___builtin_va_arg : ident := 21%positive.
Definition ___builtin_va_copy : ident := 22%positive.
Definition ___builtin_va_end : ident := 23%positive.
Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 57%positive.
-Definition ___compcert_i64_dtou : ident := 58%positive.
-Definition ___compcert_i64_sar : ident := 69%positive.
-Definition ___compcert_i64_sdiv : ident := 63%positive.
-Definition ___compcert_i64_shl : ident := 67%positive.
-Definition ___compcert_i64_shr : ident := 68%positive.
-Definition ___compcert_i64_smod : ident := 65%positive.
-Definition ___compcert_i64_smulh : ident := 70%positive.
-Definition ___compcert_i64_stod : ident := 59%positive.
-Definition ___compcert_i64_stof : ident := 61%positive.
-Definition ___compcert_i64_udiv : ident := 64%positive.
-Definition ___compcert_i64_umod : ident := 66%positive.
-Definition ___compcert_i64_umulh : ident := 71%positive.
-Definition ___compcert_i64_utod : ident := 60%positive.
-Definition ___compcert_i64_utof : ident := 62%positive.
-Definition ___compcert_va_composite : ident := 56%positive.
-Definition ___compcert_va_float64 : ident := 55%positive.
-Definition ___compcert_va_int32 : ident := 53%positive.
-Definition ___compcert_va_int64 : ident := 54%positive.
-Definition _c : ident := 38%positive.
-Definition _d : ident := 40%positive.
-Definition _d1 : ident := 49%positive.
-Definition _d2 : ident := 50%positive.
-Definition _dest : ident := 42%positive.
-Definition _i : ident := 39%positive.
-Definition _j : ident := 45%positive.
-Definition _main : ident := 72%positive.
-Definition _src : ident := 43%positive.
-Definition _str : ident := 37%positive.
-Definition _str1 : ident := 47%positive.
-Definition _str2 : ident := 48%positive.
-Definition _strcat : ident := 46%positive.
-Definition _strchr : ident := 41%positive.
-Definition _strcmp : ident := 51%positive.
-Definition _strcpy : ident := 44%positive.
-Definition _strlen : ident := 52%positive.
-Definition _t'1 : ident := 73%positive.
-Definition _t'2 : ident := 74%positive.
-Definition _t'3 : ident := 75%positive.
+Definition ___compcert_i64_dtos : ident := 56%positive.
+Definition ___compcert_i64_dtou : ident := 57%positive.
+Definition ___compcert_i64_sar : ident := 68%positive.
+Definition ___compcert_i64_sdiv : ident := 62%positive.
+Definition ___compcert_i64_shl : ident := 66%positive.
+Definition ___compcert_i64_shr : ident := 67%positive.
+Definition ___compcert_i64_smod : ident := 64%positive.
+Definition ___compcert_i64_smulh : ident := 69%positive.
+Definition ___compcert_i64_stod : ident := 58%positive.
+Definition ___compcert_i64_stof : ident := 60%positive.
+Definition ___compcert_i64_udiv : ident := 63%positive.
+Definition ___compcert_i64_umod : ident := 65%positive.
+Definition ___compcert_i64_umulh : ident := 70%positive.
+Definition ___compcert_i64_utod : ident := 59%positive.
+Definition ___compcert_i64_utof : ident := 61%positive.
+Definition ___compcert_va_composite : ident := 55%positive.
+Definition ___compcert_va_float64 : ident := 54%positive.
+Definition ___compcert_va_int32 : ident := 52%positive.
+Definition ___compcert_va_int64 : ident := 53%positive.
+Definition _c : ident := 37%positive.
+Definition _d : ident := 39%positive.
+Definition _d1 : ident := 48%positive.
+Definition _d2 : ident := 49%positive.
+Definition _dest : ident := 41%positive.
+Definition _i : ident := 38%positive.
+Definition _j : ident := 44%positive.
+Definition _main : ident := 71%positive.
+Definition _src : ident := 42%positive.
+Definition _str : ident := 36%positive.
+Definition _str1 : ident := 46%positive.
+Definition _str2 : ident := 47%positive.
+Definition _strcat : ident := 45%positive.
+Definition _strchr : ident := 40%positive.
+Definition _strcmp : ident := 50%positive.
+Definition _strcpy : ident := 43%positive.
+Definition _strlen : ident := 51%positive.
+Definition _t'1 : ident := 72%positive.
+Definition _t'2 : ident := 73%positive.
+Definition _t'3 : ident := 74%positive.
Definition f_strchr := {|
fn_return := (tptr tschar);
@@ -300,264 +299,246 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_strchr, Gfun(Internal f_strchr)) :: (_strcpy, Gfun(Internal f_strcpy)) ::
(_strcat, Gfun(Internal f_strcat)) :: (_strcmp, Gfun(Internal f_strcmp)) ::
@@ -565,10 +546,9 @@ Definition global_definitions : list (ident * globdef fundef type) :=
Definition public_idents : list ident :=
(_strlen :: _strcmp :: _strcat :: _strcpy :: _strchr :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fmin :: ___builtin_fmax :: ___builtin_fnmsub ::
+ ___builtin_fnmadd :: ___builtin_fmsub :: ___builtin_fmadd ::
+ ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
diff --git a/progs64/sumarray.v b/progs64/sumarray.v
index ab5a5651f3..6ecd64bc8b 100644
--- a/progs64/sumarray.v
+++ b/progs64/sumarray.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/sumarray.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 2%positive.
Definition ___builtin_bswap16 : ident := 4%positive.
Definition ___builtin_bswap32 : ident := 3%positive.
Definition ___builtin_bswap64 : ident := 1%positive.
+Definition ___builtin_cls : ident := 26%positive.
+Definition ___builtin_clsl : ident := 27%positive.
+Definition ___builtin_clsll : ident := 28%positive.
Definition ___builtin_clz : ident := 5%positive.
Definition ___builtin_clzl : ident := 6%positive.
Definition ___builtin_clzll : ident := 7%positive.
Definition ___builtin_ctz : ident := 8%positive.
Definition ___builtin_ctzl : ident := 9%positive.
Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
+Definition ___builtin_debug : ident := 35%positive.
Definition ___builtin_expect : ident := 25%positive.
Definition ___builtin_fabs : ident := 11%positive.
Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
Definition ___builtin_fsqrt : ident := 13%positive.
Definition ___builtin_membar : ident := 19%positive.
Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
Definition ___builtin_sel : ident := 16%positive.
Definition ___builtin_sqrt : ident := 14%positive.
Definition ___builtin_unreachable : ident := 24%positive.
@@ -53,35 +54,33 @@ Definition ___builtin_va_arg : ident := 21%positive.
Definition ___builtin_va_copy : ident := 22%positive.
Definition ___builtin_va_end : ident := 23%positive.
Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 48%positive.
-Definition ___compcert_i64_dtou : ident := 49%positive.
-Definition ___compcert_i64_sar : ident := 60%positive.
-Definition ___compcert_i64_sdiv : ident := 54%positive.
-Definition ___compcert_i64_shl : ident := 58%positive.
-Definition ___compcert_i64_shr : ident := 59%positive.
-Definition ___compcert_i64_smod : ident := 56%positive.
-Definition ___compcert_i64_smulh : ident := 61%positive.
-Definition ___compcert_i64_stod : ident := 50%positive.
-Definition ___compcert_i64_stof : ident := 52%positive.
-Definition ___compcert_i64_udiv : ident := 55%positive.
-Definition ___compcert_i64_umod : ident := 57%positive.
-Definition ___compcert_i64_umulh : ident := 62%positive.
-Definition ___compcert_i64_utod : ident := 51%positive.
-Definition ___compcert_i64_utof : ident := 53%positive.
-Definition ___compcert_va_composite : ident := 47%positive.
-Definition ___compcert_va_float64 : ident := 46%positive.
-Definition ___compcert_va_int32 : ident := 44%positive.
-Definition ___compcert_va_int64 : ident := 45%positive.
-Definition _a : ident := 37%positive.
-Definition _four : ident := 42%positive.
-Definition _i : ident := 39%positive.
-Definition _main : ident := 43%positive.
-Definition _n : ident := 38%positive.
-Definition _s : ident := 40%positive.
-Definition _sumarray : ident := 41%positive.
-Definition _t'1 : ident := 63%positive.
+Definition ___compcert_i64_dtos : ident := 47%positive.
+Definition ___compcert_i64_dtou : ident := 48%positive.
+Definition ___compcert_i64_sar : ident := 59%positive.
+Definition ___compcert_i64_sdiv : ident := 53%positive.
+Definition ___compcert_i64_shl : ident := 57%positive.
+Definition ___compcert_i64_shr : ident := 58%positive.
+Definition ___compcert_i64_smod : ident := 55%positive.
+Definition ___compcert_i64_smulh : ident := 60%positive.
+Definition ___compcert_i64_stod : ident := 49%positive.
+Definition ___compcert_i64_stof : ident := 51%positive.
+Definition ___compcert_i64_udiv : ident := 54%positive.
+Definition ___compcert_i64_umod : ident := 56%positive.
+Definition ___compcert_i64_umulh : ident := 61%positive.
+Definition ___compcert_i64_utod : ident := 50%positive.
+Definition ___compcert_i64_utof : ident := 52%positive.
+Definition ___compcert_va_composite : ident := 46%positive.
+Definition ___compcert_va_float64 : ident := 45%positive.
+Definition ___compcert_va_int32 : ident := 43%positive.
+Definition ___compcert_va_int64 : ident := 44%positive.
+Definition _a : ident := 36%positive.
+Definition _four : ident := 41%positive.
+Definition _i : ident := 38%positive.
+Definition _main : ident := 42%positive.
+Definition _n : ident := 37%positive.
+Definition _s : ident := 39%positive.
+Definition _sumarray : ident := 40%positive.
+Definition _t'1 : ident := 62%positive.
Definition f_sumarray := {|
fn_return := tuint;
@@ -130,8 +129,8 @@ Definition f_main := {|
(Ssequence
(Ssequence
(Scall (Some _t'1)
- (Evar _sumarray (Tfunction (Tcons (tptr tuint) (Tcons tint Tnil))
- tuint cc_default))
+ (Evar _sumarray (Tfunction ((tptr tuint) :: tint :: nil) tuint
+ cc_default))
((Evar _four (tarray tuint 4)) :: (Econst_int (Int.repr 4) tint) ::
nil))
(Sset _s (Etempvar _t'1 tuint)))
@@ -145,289 +144,270 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_sumarray, Gfun(Internal f_sumarray)) :: (_four, Gvar v_four) ::
(_main, Gfun(Internal f_main)) :: nil).
Definition public_idents : list ident :=
-(_main :: _four :: _sumarray :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
- ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
- ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
- ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
- ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
- ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
- ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
- ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
- ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+(_main :: _four :: _sumarray :: ___builtin_debug :: ___builtin_fmin ::
+ ___builtin_fmax :: ___builtin_fnmsub :: ___builtin_fnmadd ::
+ ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_clsll ::
+ ___builtin_clsl :: ___builtin_cls :: ___builtin_expect ::
+ ___builtin_unreachable :: ___builtin_va_end :: ___builtin_va_copy ::
+ ___builtin_va_arg :: ___builtin_va_start :: ___builtin_membar ::
+ ___builtin_annot_intval :: ___builtin_annot :: ___builtin_sel ::
+ ___builtin_memcpy_aligned :: ___builtin_sqrt :: ___builtin_fsqrt ::
+ ___builtin_fabsf :: ___builtin_fabs :: ___builtin_ctzll ::
+ ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll :: ___builtin_clzl ::
+ ___builtin_clz :: ___builtin_bswap16 :: ___builtin_bswap32 ::
+ ___builtin_bswap :: ___builtin_bswap64 :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/switch.v b/progs64/switch.v
index 18dfaddad7..68ae6c2958 100644
--- a/progs64/switch.v
+++ b/progs64/switch.v
@@ -6,13 +6,13 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/switch.c".
@@ -25,27 +25,28 @@ Definition ___builtin_bswap : ident := 2%positive.
Definition ___builtin_bswap16 : ident := 4%positive.
Definition ___builtin_bswap32 : ident := 3%positive.
Definition ___builtin_bswap64 : ident := 1%positive.
+Definition ___builtin_cls : ident := 26%positive.
+Definition ___builtin_clsl : ident := 27%positive.
+Definition ___builtin_clsll : ident := 28%positive.
Definition ___builtin_clz : ident := 5%positive.
Definition ___builtin_clzl : ident := 6%positive.
Definition ___builtin_clzll : ident := 7%positive.
Definition ___builtin_ctz : ident := 8%positive.
Definition ___builtin_ctzl : ident := 9%positive.
Definition ___builtin_ctzll : ident := 10%positive.
-Definition ___builtin_debug : ident := 36%positive.
+Definition ___builtin_debug : ident := 35%positive.
Definition ___builtin_expect : ident := 25%positive.
Definition ___builtin_fabs : ident := 11%positive.
Definition ___builtin_fabsf : ident := 12%positive.
-Definition ___builtin_fmadd : ident := 28%positive.
-Definition ___builtin_fmax : ident := 26%positive.
-Definition ___builtin_fmin : ident := 27%positive.
-Definition ___builtin_fmsub : ident := 29%positive.
-Definition ___builtin_fnmadd : ident := 30%positive.
-Definition ___builtin_fnmsub : ident := 31%positive.
+Definition ___builtin_fmadd : ident := 29%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 30%positive.
+Definition ___builtin_fnmadd : ident := 31%positive.
+Definition ___builtin_fnmsub : ident := 32%positive.
Definition ___builtin_fsqrt : ident := 13%positive.
Definition ___builtin_membar : ident := 19%positive.
Definition ___builtin_memcpy_aligned : ident := 15%positive.
-Definition ___builtin_read16_reversed : ident := 32%positive.
-Definition ___builtin_read32_reversed : ident := 33%positive.
Definition ___builtin_sel : ident := 16%positive.
Definition ___builtin_sqrt : ident := 14%positive.
Definition ___builtin_unreachable : ident := 24%positive.
@@ -53,32 +54,30 @@ Definition ___builtin_va_arg : ident := 21%positive.
Definition ___builtin_va_copy : ident := 22%positive.
Definition ___builtin_va_end : ident := 23%positive.
Definition ___builtin_va_start : ident := 20%positive.
-Definition ___builtin_write16_reversed : ident := 34%positive.
-Definition ___builtin_write32_reversed : ident := 35%positive.
-Definition ___compcert_i64_dtos : ident := 45%positive.
-Definition ___compcert_i64_dtou : ident := 46%positive.
-Definition ___compcert_i64_sar : ident := 57%positive.
-Definition ___compcert_i64_sdiv : ident := 51%positive.
-Definition ___compcert_i64_shl : ident := 55%positive.
-Definition ___compcert_i64_shr : ident := 56%positive.
-Definition ___compcert_i64_smod : ident := 53%positive.
-Definition ___compcert_i64_smulh : ident := 58%positive.
-Definition ___compcert_i64_stod : ident := 47%positive.
-Definition ___compcert_i64_stof : ident := 49%positive.
-Definition ___compcert_i64_udiv : ident := 52%positive.
-Definition ___compcert_i64_umod : ident := 54%positive.
-Definition ___compcert_i64_umulh : ident := 59%positive.
-Definition ___compcert_i64_utod : ident := 48%positive.
-Definition ___compcert_i64_utof : ident := 50%positive.
-Definition ___compcert_va_composite : ident := 44%positive.
-Definition ___compcert_va_float64 : ident := 43%positive.
-Definition ___compcert_va_int32 : ident := 41%positive.
-Definition ___compcert_va_int64 : ident := 42%positive.
-Definition _f : ident := 40%positive.
-Definition _main : ident := 60%positive.
-Definition _n : ident := 37%positive.
-Definition _twice : ident := 38%positive.
-Definition _x : ident := 39%positive.
+Definition ___compcert_i64_dtos : ident := 44%positive.
+Definition ___compcert_i64_dtou : ident := 45%positive.
+Definition ___compcert_i64_sar : ident := 56%positive.
+Definition ___compcert_i64_sdiv : ident := 50%positive.
+Definition ___compcert_i64_shl : ident := 54%positive.
+Definition ___compcert_i64_shr : ident := 55%positive.
+Definition ___compcert_i64_smod : ident := 52%positive.
+Definition ___compcert_i64_smulh : ident := 57%positive.
+Definition ___compcert_i64_stod : ident := 46%positive.
+Definition ___compcert_i64_stof : ident := 48%positive.
+Definition ___compcert_i64_udiv : ident := 51%positive.
+Definition ___compcert_i64_umod : ident := 53%positive.
+Definition ___compcert_i64_umulh : ident := 58%positive.
+Definition ___compcert_i64_utod : ident := 47%positive.
+Definition ___compcert_i64_utof : ident := 49%positive.
+Definition ___compcert_va_composite : ident := 43%positive.
+Definition ___compcert_va_float64 : ident := 42%positive.
+Definition ___compcert_va_int32 : ident := 40%positive.
+Definition ___compcert_va_int64 : ident := 41%positive.
+Definition _f : ident := 39%positive.
+Definition _main : ident := 59%positive.
+Definition _n : ident := 36%positive.
+Definition _twice : ident := 37%positive.
+Definition _x : ident := 38%positive.
Definition f_twice := {|
fn_return := tint;
@@ -135,288 +134,268 @@ nil.
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_twice, Gfun(Internal f_twice)) :: (_f, Gfun(Internal f_f)) :: nil).
Definition public_idents : list ident :=
-(_f :: _twice :: ___builtin_debug :: ___builtin_write32_reversed ::
- ___builtin_write16_reversed :: ___builtin_read32_reversed ::
- ___builtin_read16_reversed :: ___builtin_fnmsub :: ___builtin_fnmadd ::
- ___builtin_fmsub :: ___builtin_fmadd :: ___builtin_fmin ::
- ___builtin_fmax :: ___builtin_expect :: ___builtin_unreachable ::
- ___builtin_va_end :: ___builtin_va_copy :: ___builtin_va_arg ::
- ___builtin_va_start :: ___builtin_membar :: ___builtin_annot_intval ::
- ___builtin_annot :: ___builtin_sel :: ___builtin_memcpy_aligned ::
- ___builtin_sqrt :: ___builtin_fsqrt :: ___builtin_fabsf ::
- ___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
- ___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
- ___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
- ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
- nil).
+(_f :: _twice :: ___builtin_debug :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
+ ___builtin_fmadd :: ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
+ ___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
+ ___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
+ ___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
+ ___builtin_sel :: ___builtin_memcpy_aligned :: ___builtin_sqrt ::
+ ___builtin_fsqrt :: ___builtin_fabsf :: ___builtin_fabs ::
+ ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
+ ___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
+ ___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
+ ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
+ ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
+ ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
+ ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
+ ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
+ ___compcert_va_composite :: ___compcert_va_float64 ::
+ ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/progs64/union.v b/progs64/union.v
index 15136aaaed..9afb6f1b58 100644
--- a/progs64/union.v
+++ b/progs64/union.v
@@ -6,47 +6,48 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.12".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
- Definition arch := "x86".
- Definition model := "64".
- Definition abi := "standard".
+ Definition arch := "aarch64".
+ Definition model := "default".
+ Definition abi := "apple".
Definition bitsize := 64.
Definition big_endian := false.
Definition source_file := "progs64/union.c".
Definition normalized := true.
End Info.
-Definition __111 : ident := 7%positive.
+Definition __109 : ident := 7%positive.
Definition ___builtin_annot : ident := 26%positive.
Definition ___builtin_annot_intval : ident := 27%positive.
Definition ___builtin_bswap : ident := 11%positive.
Definition ___builtin_bswap16 : ident := 13%positive.
Definition ___builtin_bswap32 : ident := 12%positive.
Definition ___builtin_bswap64 : ident := 10%positive.
+Definition ___builtin_cls : ident := 35%positive.
+Definition ___builtin_clsl : ident := 36%positive.
+Definition ___builtin_clsll : ident := 37%positive.
Definition ___builtin_clz : ident := 14%positive.
Definition ___builtin_clzl : ident := 15%positive.
Definition ___builtin_clzll : ident := 16%positive.
Definition ___builtin_ctz : ident := 17%positive.
Definition ___builtin_ctzl : ident := 18%positive.
Definition ___builtin_ctzll : ident := 19%positive.
-Definition ___builtin_debug : ident := 45%positive.
+Definition ___builtin_debug : ident := 44%positive.
Definition ___builtin_expect : ident := 34%positive.
Definition ___builtin_fabs : ident := 20%positive.
Definition ___builtin_fabsf : ident := 21%positive.
-Definition ___builtin_fmadd : ident := 37%positive.
-Definition ___builtin_fmax : ident := 35%positive.
-Definition ___builtin_fmin : ident := 36%positive.
-Definition ___builtin_fmsub : ident := 38%positive.
-Definition ___builtin_fnmadd : ident := 39%positive.
-Definition ___builtin_fnmsub : ident := 40%positive.
+Definition ___builtin_fmadd : ident := 38%positive.
+Definition ___builtin_fmax : ident := 42%positive.
+Definition ___builtin_fmin : ident := 43%positive.
+Definition ___builtin_fmsub : ident := 39%positive.
+Definition ___builtin_fnmadd : ident := 40%positive.
+Definition ___builtin_fnmsub : ident := 41%positive.
Definition ___builtin_fsqrt : ident := 22%positive.
Definition ___builtin_membar : ident := 28%positive.
Definition ___builtin_memcpy_aligned : ident := 24%positive.
-Definition ___builtin_read16_reversed : ident := 41%positive.
-Definition ___builtin_read32_reversed : ident := 42%positive.
Definition ___builtin_sel : ident := 25%positive.
Definition ___builtin_sqrt : ident := 23%positive.
Definition ___builtin_unreachable : ident := 33%positive.
@@ -54,46 +55,44 @@ Definition ___builtin_va_arg : ident := 30%positive.
Definition ___builtin_va_copy : ident := 31%positive.
Definition ___builtin_va_end : ident := 32%positive.
Definition ___builtin_va_start : ident := 29%positive.
-Definition ___builtin_write16_reversed : ident := 43%positive.
-Definition ___builtin_write32_reversed : ident := 44%positive.
-Definition ___compcert_i64_dtos : ident := 58%positive.
-Definition ___compcert_i64_dtou : ident := 59%positive.
-Definition ___compcert_i64_sar : ident := 70%positive.
-Definition ___compcert_i64_sdiv : ident := 64%positive.
-Definition ___compcert_i64_shl : ident := 68%positive.
-Definition ___compcert_i64_shr : ident := 69%positive.
-Definition ___compcert_i64_smod : ident := 66%positive.
-Definition ___compcert_i64_smulh : ident := 71%positive.
-Definition ___compcert_i64_stod : ident := 60%positive.
-Definition ___compcert_i64_stof : ident := 62%positive.
-Definition ___compcert_i64_udiv : ident := 65%positive.
-Definition ___compcert_i64_umod : ident := 67%positive.
-Definition ___compcert_i64_umulh : ident := 72%positive.
-Definition ___compcert_i64_utod : ident := 61%positive.
-Definition ___compcert_i64_utof : ident := 63%positive.
-Definition ___compcert_va_composite : ident := 57%positive.
-Definition ___compcert_va_float64 : ident := 56%positive.
-Definition ___compcert_va_int32 : ident := 54%positive.
-Definition ___compcert_va_int64 : ident := 55%positive.
+Definition ___compcert_i64_dtos : ident := 57%positive.
+Definition ___compcert_i64_dtou : ident := 58%positive.
+Definition ___compcert_i64_sar : ident := 69%positive.
+Definition ___compcert_i64_sdiv : ident := 63%positive.
+Definition ___compcert_i64_shl : ident := 67%positive.
+Definition ___compcert_i64_shr : ident := 68%positive.
+Definition ___compcert_i64_smod : ident := 65%positive.
+Definition ___compcert_i64_smulh : ident := 70%positive.
+Definition ___compcert_i64_stod : ident := 59%positive.
+Definition ___compcert_i64_stof : ident := 61%positive.
+Definition ___compcert_i64_udiv : ident := 64%positive.
+Definition ___compcert_i64_umod : ident := 66%positive.
+Definition ___compcert_i64_umulh : ident := 71%positive.
+Definition ___compcert_i64_utod : ident := 60%positive.
+Definition ___compcert_i64_utof : ident := 62%positive.
+Definition ___compcert_va_composite : ident := 56%positive.
+Definition ___compcert_va_float64 : ident := 55%positive.
+Definition ___compcert_va_int32 : ident := 53%positive.
+Definition ___compcert_va_int64 : ident := 54%positive.
Definition _c : ident := 5%positive.
Definition _choice_i : ident := 2%positive.
Definition _choice_p : ident := 3%positive.
Definition _const_or_not : ident := 4%positive.
Definition _f : ident := 8%positive.
-Definition _fabs_single : ident := 53%positive.
-Definition _g : ident := 47%positive.
-Definition _h : ident := 49%positive.
+Definition _fabs_single : ident := 52%positive.
+Definition _g : ident := 46%positive.
+Definition _h : ident := 48%positive.
Definition _i : ident := 9%positive.
-Definition _main : ident := 73%positive.
+Definition _main : ident := 72%positive.
Definition _n : ident := 6%positive.
-Definition _p : ident := 48%positive.
+Definition _p : ident := 47%positive.
Definition _p_or_i : ident := 1%positive.
-Definition _t : ident := 50%positive.
-Definition _u : ident := 52%positive.
-Definition _unconst : ident := 51%positive.
-Definition _x : ident := 46%positive.
-Definition _t'1 : ident := 74%positive.
-Definition _t'2 : ident := 75%positive.
+Definition _t : ident := 49%positive.
+Definition _u : ident := 51%positive.
+Definition _unconst : ident := 50%positive.
+Definition _x : ident := 45%positive.
+Definition _t'1 : ident := 73%positive.
+Definition _t'2 : ident := 74%positive.
Definition f_g := {|
fn_return := tulong;
@@ -146,20 +145,20 @@ Definition f_fabs_single := {|
fn_return := tfloat;
fn_callconv := cc_default;
fn_params := ((_x, tfloat) :: nil);
- fn_vars := ((_u, (Tunion __111 noattr)) :: nil);
+ fn_vars := ((_u, (Tunion __109 noattr)) :: nil);
fn_temps := ((_t'2, tuint) :: (_t'1, tfloat) :: nil);
fn_body :=
(Ssequence
- (Sassign (Efield (Evar _u (Tunion __111 noattr)) _f tfloat)
+ (Sassign (Efield (Evar _u (Tunion __109 noattr)) _f tfloat)
(Etempvar _x tfloat))
(Ssequence
(Ssequence
- (Sset _t'2 (Efield (Evar _u (Tunion __111 noattr)) _i tuint))
- (Sassign (Efield (Evar _u (Tunion __111 noattr)) _i tuint)
+ (Sset _t'2 (Efield (Evar _u (Tunion __109 noattr)) _i tuint))
+ (Sassign (Efield (Evar _u (Tunion __109 noattr)) _i tuint)
(Ebinop Oand (Etempvar _t'2 tuint)
(Econst_int (Int.repr 2147483647) tint) tuint)))
(Ssequence
- (Sset _t'1 (Efield (Evar _u (Tunion __111 noattr)) _f tfloat))
+ (Sset _t'1 (Efield (Evar _u (Tunion __109 noattr)) _f tfloat))
(Sreturn (Some (Etempvar _t'1 tfloat))))))
|}.
@@ -171,271 +170,253 @@ Definition composites : list composite_definition :=
Composite _const_or_not Union
(Member_plain _c (tptr tschar) :: Member_plain _n (tptr tschar) :: nil)
noattr ::
- Composite __111 Union
+ Composite __109 Union
(Member_plain _f tfloat :: Member_plain _i tuint :: nil)
noattr :: nil).
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons (tptr tvoid) (Tcons tulong Tnil))
+ (mksignature (AST.Xptr :: AST.Xlong :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tulong :: nil)
(tptr tvoid) cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tlong :: AST.Tlong :: AST.Tlong :: AST.Tlong ::
- nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tulong (Tcons tulong Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xlong :: AST.Xlong :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tulong :: tulong :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tlong :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tlong :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
- (___builtin_fmax,
- Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
- (___builtin_fmin,
- Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
+ (___builtin_cls,
+ Gfun(External (EF_builtin "__builtin_cls"
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tint :: nil) tint cc_default)) ::
+ (___builtin_clsl,
+ Gfun(External (EF_builtin "__builtin_clsl"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
+ (___builtin_clsll,
+ Gfun(External (EF_builtin "__builtin_clsll"
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tlong :: nil) tint cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
+ (___builtin_fmax,
+ Gfun(External (EF_builtin "__builtin_fmax"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read16_reversed,
- Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (___builtin_fmin,
+ Gfun(External (EF_builtin "__builtin_fmin"
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
cc_default)) ::
- (___builtin_read32_reversed,
- Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
- (___builtin_write16_reversed,
- Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
- (___builtin_write32_reversed,
- Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_g, Gfun(Internal f_g)) :: (_h, Gfun(Internal f_h)) ::
(_unconst, Gfun(Internal f_unconst)) ::
@@ -443,10 +424,9 @@ Definition global_definitions : list (ident * globdef fundef type) :=
Definition public_idents : list ident :=
(_fabs_single :: _unconst :: _h :: _g :: ___builtin_debug ::
- ___builtin_write32_reversed :: ___builtin_write16_reversed ::
- ___builtin_read32_reversed :: ___builtin_read16_reversed ::
- ___builtin_fnmsub :: ___builtin_fnmadd :: ___builtin_fmsub ::
- ___builtin_fmadd :: ___builtin_fmin :: ___builtin_fmax ::
+ ___builtin_fmin :: ___builtin_fmax :: ___builtin_fnmsub ::
+ ___builtin_fnmadd :: ___builtin_fmsub :: ___builtin_fmadd ::
+ ___builtin_clsll :: ___builtin_clsl :: ___builtin_cls ::
___builtin_expect :: ___builtin_unreachable :: ___builtin_va_end ::
___builtin_va_copy :: ___builtin_va_arg :: ___builtin_va_start ::
___builtin_membar :: ___builtin_annot_intval :: ___builtin_annot ::
diff --git a/progs64/verif_fptr_cmp.v b/progs64/verif_fptr_cmp.v
index 0258695b05..393de31e2a 100644
--- a/progs64/verif_fptr_cmp.v
+++ b/progs64/verif_fptr_cmp.v
@@ -35,7 +35,7 @@ Definition test_fptr_spec :=
Definition test_fptr_spec (phi:funspec) :=
DECLARE _test_fptr
WITH f:val
- PRE [tptr (Tfunction (Tcons tint Tnil) tint cc_default)]
+ PRE [tptr (Tfunction (tint::nil) tint cc_default)]
PROP () PARAMS (f) GLOBALS () SEP (func_ptr' phi f)
POST [tint]
PROP ()
diff --git a/progs64/verif_io.v b/progs64/verif_io.v
index ba22c3a448..b244258918 100644
--- a/progs64/verif_io.v
+++ b/progs64/verif_io.v
@@ -351,12 +351,13 @@ Lemma prog_correct:
semax_prog prog main_itree Vprog Gprog.
Proof.
prove_semax_prog.
+Import extcall_lemmas.
semax_func_cons_ext.
{ simpl; Intro i.
- apply typecheck_return_value with (t := Tint16signed); auto. }
+ apply typecheck_return_value with (t := Xint16signed); auto. }
semax_func_cons_ext.
{ simpl; Intro i'.
- apply typecheck_return_value with (t := Tint16signed); auto. }
+ apply typecheck_return_value with (t := Xint16signed); auto. }
semax_func_cons body_getchar_blocking.
semax_func_cons body_putchar_blocking.
semax_func_cons body_print_intr.
diff --git a/progs64/verif_io_mem.v b/progs64/verif_io_mem.v
index 782184fa87..34b16cbc8d 100644
--- a/progs64/verif_io_mem.v
+++ b/progs64/verif_io_mem.v
@@ -529,12 +529,12 @@ Lemma prog_correct:
semax_prog prog main_itree Vprog Gprog.
Proof.
prove_semax_prog.
-semax_func_cons body_exit.
-semax_func_cons body_free.
semax_func_cons body_malloc. apply semax_func_cons_malloc_aux.
+semax_func_cons body_free.
+semax_func_cons body_exit.
semax_func_cons_ext.
{ simpl; Intro msg.
- apply typecheck_return_value with (t := Tint16signed); auto. }
+ apply typecheck_return_value with (t := Xint16signed); auto. }
semax_func_cons_ext.
semax_func_cons body_print_intr.
semax_func_cons body_print_int.
diff --git a/sepcomp/extspec.v b/sepcomp/extspec.v
index 6de5bf10e8..1eaec1cd28 100644
--- a/sepcomp/extspec.v
+++ b/sepcomp/extspec.v
@@ -17,7 +17,7 @@ Structure external_specification (M E Z : Type) :=
; ext_spec_pre: forall e: E,
ext_spec_type e -> injective_PTree block -> list typ -> list val -> Z -> M -> Prop
; ext_spec_post: forall e: E,
- ext_spec_type e -> injective_PTree block -> rettype -> option val -> Z -> M -> Prop
+ ext_spec_type e -> injective_PTree block -> xtype -> option val -> Z -> M -> Prop
; ext_spec_exit: option val -> Z -> M -> Prop }.
Arguments ext_spec_type {M E Z} _ _.
diff --git a/sepcomp/mem_lemmas.v b/sepcomp/mem_lemmas.v
index bd386917a2..1d01826591 100644
--- a/sepcomp/mem_lemmas.v
+++ b/sepcomp/mem_lemmas.v
@@ -771,7 +771,9 @@ Proof.
remember (proj_bytes
(Mem.getN (size_chunk_nat ch) ofs (Mem.mem_contents m) !! b)) as v.
destruct v.
- + destruct ch; inv LD.
+ + destruct ch; inv LD. unfold Val.norm_bool in H0. unfold Val.is_bool in H0.
+ destruct (Val.eq _ _) in H0; simpl in *. congruence.
+ destruct (Val.eq _ _) in H0; simpl in *. congruence. congruence.
+ destruct ch; try solve [inv LD].
- unfold Val.load_result in LD. unfold proj_bytes in Heqv. simpl in *.
remember (ZMap.get ofs (Mem.mem_contents m) !! b) as w.
diff --git a/sepcomp/step_lemmas.v b/sepcomp/step_lemmas.v
index 4341126fa2..f3da503551 100644
--- a/sepcomp/step_lemmas.v
+++ b/sepcomp/step_lemmas.v
@@ -35,9 +35,9 @@ Section safety.
| safeN_external:
forall n z c m e args x,
at_external Hcore c m = Some (e,args) ->
- ext_spec_pre Hspec e x (genv_symb ge) (sig_args (ef_sig e)) args z m ->
+ ext_spec_pre Hspec e x (genv_symb ge) (map proj_xtype (sig_args (ef_sig e))) args z m ->
(forall ret m' z' n'
- (Hargsty : Val.has_type_list args (sig_args (ef_sig e)))
+ (Hargsty : Val.has_type_list args (map proj_xtype (sig_args (ef_sig e))))
(Hretty : Builtins0.val_opt_has_rettype ret (sig_res (ef_sig e))),
(n' <= n)%nat ->
Hrel n' m m' ->
diff --git a/sha/call_memcpy.v b/sha/call_memcpy.v
index 6288f73c87..c914de0a69 100644
--- a/sha/call_memcpy.v
+++ b/sha/call_memcpy.v
@@ -193,7 +193,7 @@ Lemma semax_call_id0_alt:
(GLBL: (var_types Delta) ! id = None),
(glob_specs Delta) ! id = Some (NDmk_funspec (argsig, retty) cc A Pre Post) ->
(glob_types Delta) ! id = Some (type_of_funspec (NDmk_funspec (argsig, retty) cc A Pre Post)) ->
- (*tfun = type_of_params argsig ->*)tfun =typelist_of_type_list argsig ->
+ (*tfun = type_of_params argsig ->*)tfun = argsig ->
@semax cs Espec Delta (tc_exprlist Delta argsig bl
&& |>((fun rho : environ =>
Pre x (ge_of rho, eval_exprlist argsig bl rho)) *
@@ -250,7 +250,7 @@ Lemma call_memcpy_tuchar: (* Uses CompSpecs from sha. *)
(Scall None
(Evar _memcpy
(Tfunction
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) (Tcons tuint Tnil)))
+ (cons (tptr tvoid) (cons (tptr tvoid) (cons tuint nil)))
(tptr tvoid) cc_default))
[e_p; e_q; e_n])
(normal_ret_assert (PROPx P (LOCALx Q
@@ -487,7 +487,7 @@ Lemma call_memset_tuchar:
(Scall None
(Evar _memset
(Tfunction
- (Tcons (tptr tvoid) (Tcons tint (Tcons tuint Tnil)))
+ (cons (tptr tvoid) (cons tint (cons tuint nil)))
(tptr tvoid) cc_default))
[e_p; e_c; e_n])
(normal_ret_assert (PROPx P (LOCALx Q
diff --git a/sha/hkdf.v b/sha/hkdf.v
index 128896f6a6..752a24ebe4 100644
--- a/sha/hkdf.v
+++ b/sha/hkdf.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.10".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -16,217 +16,218 @@ Module Info.
Definition bitsize := 32.
Definition big_endian := false.
Definition source_file := "sha/hkdf.c".
- Definition normalized := false.
+ Definition normalized := true.
End Info.
-Definition _HKDF : ident := 205%positive.
-Definition _HKDF_expand : ident := 201%positive.
-Definition _HKDF_extract : ident := 192%positive.
-Definition _HMAC : ident := 117%positive.
-Definition _HMAC2 : ident := 119%positive.
-Definition _HMAC_Final : ident := 113%positive.
-Definition _HMAC_Init : ident := 110%positive.
-Definition _HMAC_Update : ident := 111%positive.
-Definition _HMAC_cleanup : ident := 114%positive.
-Definition _K : ident := 163%positive.
-Definition _K256 : ident := 45%positive.
-Definition _Ki : ident := 62%positive.
-Definition _Nh : ident := 3%positive.
-Definition _Nl : ident := 2%positive.
-Definition _SHA256 : ident := 79%positive.
-Definition _SHA256_Final : ident := 78%positive.
-Definition _SHA256_Init : ident := 65%positive.
-Definition _SHA256_Update : ident := 74%positive.
-Definition _SHA256_addlength : ident := 69%positive.
-Definition _SHA256state_st : ident := 6%positive.
-Definition _T1 : ident := 57%positive.
-Definition _T2 : ident := 58%positive.
-Definition _V : ident := 124%positive.
-Definition _X : ident := 60%positive.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 40%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
-Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
-Definition ___builtin_fmsub : ident := 35%positive.
-Definition ___builtin_fnmadd : ident := 36%positive.
-Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 41%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 39%positive.
-Definition ___builtin_write32_reversed : ident := 42%positive.
-Definition ___compcert_i64_dtos : ident := 84%positive.
-Definition ___compcert_i64_dtou : ident := 85%positive.
-Definition ___compcert_i64_sar : ident := 96%positive.
-Definition ___compcert_i64_sdiv : ident := 90%positive.
-Definition ___compcert_i64_shl : ident := 94%positive.
-Definition ___compcert_i64_shr : ident := 95%positive.
-Definition ___compcert_i64_smod : ident := 92%positive.
-Definition ___compcert_i64_smulh : ident := 97%positive.
-Definition ___compcert_i64_stod : ident := 86%positive.
-Definition ___compcert_i64_stof : ident := 88%positive.
-Definition ___compcert_i64_udiv : ident := 91%positive.
-Definition ___compcert_i64_umod : ident := 93%positive.
-Definition ___compcert_i64_umulh : ident := 98%positive.
-Definition ___compcert_i64_utod : ident := 87%positive.
-Definition ___compcert_i64_utof : ident := 89%positive.
-Definition ___compcert_va_composite : ident := 83%positive.
-Definition ___compcert_va_float64 : ident := 82%positive.
-Definition ___compcert_va_int32 : ident := 80%positive.
-Definition ___compcert_va_int64 : ident := 81%positive.
-Definition _a : ident := 48%positive.
-Definition _add_len : ident := 159%positive.
-Definition _additional : ident := 158%positive.
-Definition _aux : ident := 108%positive.
-Definition _b : ident := 49%positive.
-Definition _buf : ident := 112%positive.
-Definition _c : ident := 50%positive.
-Definition _cNh : ident := 68%positive.
-Definition _cNl : ident := 67%positive.
-Definition _ctr : ident := 199%positive.
-Definition _ctx : ident := 46%positive.
-Definition _ctx_key : ident := 109%positive.
-Definition _custom : ident := 171%positive.
-Definition _d : ident := 51%positive.
-Definition _data : ident := 4%positive.
-Definition _data_ : ident := 70%positive.
-Definition _data_len : ident := 166%positive.
-Definition _digest_len : ident := 196%positive.
-Definition _done : ident := 198%positive.
-Definition _dummy : ident := 130%positive.
-Definition _e : ident := 52%positive.
-Definition _entropy_len : ident := 126%positive.
-Definition _extr1 : ident := 202%positive.
-Definition _extr2 : ident := 204%positive.
-Definition _f : ident := 53%positive.
-Definition _fragment : ident := 73%positive.
-Definition _free : ident := 131%positive.
-Definition _g : ident := 54%positive.
-Definition _get_entropy : ident := 154%positive.
-Definition _h : ident := 1%positive.
+Definition _HKDF : ident := 206%positive.
+Definition _HKDF_expand : ident := 202%positive.
+Definition _HKDF_extract : ident := 193%positive.
+Definition _HMAC : ident := 118%positive.
+Definition _HMAC2 : ident := 120%positive.
+Definition _HMAC_Final : ident := 114%positive.
+Definition _HMAC_Init : ident := 111%positive.
+Definition _HMAC_Update : ident := 112%positive.
+Definition _HMAC_cleanup : ident := 115%positive.
+Definition _K : ident := 164%positive.
+Definition _K256 : ident := 46%positive.
+Definition _Ki : ident := 63%positive.
+Definition _Nh : ident := 4%positive.
+Definition _Nl : ident := 3%positive.
+Definition _SHA256 : ident := 80%positive.
+Definition _SHA256_Final : ident := 79%positive.
+Definition _SHA256_Init : ident := 66%positive.
+Definition _SHA256_Update : ident := 75%positive.
+Definition _SHA256_addlength : ident := 70%positive.
+Definition _SHA256state_st : ident := 1%positive.
+Definition _T1 : ident := 58%positive.
+Definition _T2 : ident := 59%positive.
+Definition _V : ident := 126%positive.
+Definition _X : ident := 61%positive.
+Definition ___builtin_ais_annot : ident := 7%positive.
+Definition ___builtin_annot : ident := 24%positive.
+Definition ___builtin_annot_intval : ident := 25%positive.
+Definition ___builtin_bswap : ident := 9%positive.
+Definition ___builtin_bswap16 : ident := 11%positive.
+Definition ___builtin_bswap32 : ident := 10%positive.
+Definition ___builtin_bswap64 : ident := 8%positive.
+Definition ___builtin_clz : ident := 12%positive.
+Definition ___builtin_clzl : ident := 13%positive.
+Definition ___builtin_clzll : ident := 14%positive.
+Definition ___builtin_ctz : ident := 15%positive.
+Definition ___builtin_ctzl : ident := 16%positive.
+Definition ___builtin_ctzll : ident := 17%positive.
+Definition ___builtin_debug : ident := 41%positive.
+Definition ___builtin_expect : ident := 32%positive.
+Definition ___builtin_fabs : ident := 18%positive.
+Definition ___builtin_fabsf : ident := 19%positive.
+Definition ___builtin_fmadd : ident := 35%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 36%positive.
+Definition ___builtin_fnmadd : ident := 37%positive.
+Definition ___builtin_fnmsub : ident := 38%positive.
+Definition ___builtin_fsqrt : ident := 20%positive.
+Definition ___builtin_membar : ident := 26%positive.
+Definition ___builtin_memcpy_aligned : ident := 22%positive.
+Definition ___builtin_read16_reversed : ident := 39%positive.
+Definition ___builtin_read32_reversed : ident := 42%positive.
+Definition ___builtin_sel : ident := 23%positive.
+Definition ___builtin_sqrt : ident := 21%positive.
+Definition ___builtin_unreachable : ident := 31%positive.
+Definition ___builtin_va_arg : ident := 28%positive.
+Definition ___builtin_va_copy : ident := 29%positive.
+Definition ___builtin_va_end : ident := 30%positive.
+Definition ___builtin_va_start : ident := 27%positive.
+Definition ___builtin_write16_reversed : ident := 40%positive.
+Definition ___builtin_write32_reversed : ident := 43%positive.
+Definition ___compcert_i64_dtos : ident := 85%positive.
+Definition ___compcert_i64_dtou : ident := 86%positive.
+Definition ___compcert_i64_sar : ident := 97%positive.
+Definition ___compcert_i64_sdiv : ident := 91%positive.
+Definition ___compcert_i64_shl : ident := 95%positive.
+Definition ___compcert_i64_shr : ident := 96%positive.
+Definition ___compcert_i64_smod : ident := 93%positive.
+Definition ___compcert_i64_smulh : ident := 98%positive.
+Definition ___compcert_i64_stod : ident := 87%positive.
+Definition ___compcert_i64_stof : ident := 89%positive.
+Definition ___compcert_i64_udiv : ident := 92%positive.
+Definition ___compcert_i64_umod : ident := 94%positive.
+Definition ___compcert_i64_umulh : ident := 99%positive.
+Definition ___compcert_i64_utod : ident := 88%positive.
+Definition ___compcert_i64_utof : ident := 90%positive.
+Definition ___compcert_va_composite : ident := 84%positive.
+Definition ___compcert_va_float64 : ident := 83%positive.
+Definition ___compcert_va_int32 : ident := 81%positive.
+Definition ___compcert_va_int64 : ident := 82%positive.
+Definition _a : ident := 49%positive.
+Definition _add_len : ident := 160%positive.
+Definition _additional : ident := 159%positive.
+Definition _aux : ident := 109%positive.
+Definition _b : ident := 50%positive.
+Definition _buf : ident := 113%positive.
+Definition _c : ident := 51%positive.
+Definition _cNh : ident := 69%positive.
+Definition _cNl : ident := 68%positive.
+Definition _ctr : ident := 200%positive.
+Definition _ctx : ident := 47%positive.
+Definition _ctx_key : ident := 110%positive.
+Definition _custom : ident := 172%positive.
+Definition _d : ident := 52%positive.
+Definition _data : ident := 5%positive.
+Definition _data_ : ident := 71%positive.
+Definition _data_len : ident := 167%positive.
+Definition _digest_len : ident := 197%positive.
+Definition _done : ident := 199%positive.
+Definition _dummy : ident := 131%positive.
+Definition _e : ident := 53%positive.
+Definition _entropy_len : ident := 128%positive.
+Definition _extr1 : ident := 203%positive.
+Definition _extr2 : ident := 205%positive.
+Definition _f : ident := 54%positive.
+Definition _fragment : ident := 74%positive.
+Definition _free : ident := 153%positive.
+Definition _g : ident := 55%positive.
+Definition _get_entropy : ident := 155%positive.
+Definition _h : ident := 2%positive.
Definition _hmac : ident := 142%positive.
-Definition _hmac_ctx : ident := 122%positive.
-Definition _hmac_ctx_st : ident := 103%positive.
-Definition _i : ident := 63%positive.
-Definition _i_ctx : ident := 101%positive.
+Definition _hmac_ctx : ident := 124%positive.
+Definition _hmac_ctx_st : ident := 101%positive.
+Definition _i : ident := 64%positive.
+Definition _i_ctx : ident := 103%positive.
Definition _ilen : ident := 149%positive.
-Definition _in : ident := 47%positive.
-Definition _info : ident := 139%positive.
-Definition _info_len : ident := 195%positive.
+Definition _in : ident := 48%positive.
+Definition _info : ident := 138%positive.
+Definition _info_len : ident := 196%positive.
Definition _input : ident := 148%positive.
-Definition _interval : ident := 177%positive.
-Definition _j : ident := 105%positive.
-Definition _key : ident := 104%positive.
-Definition _key_len : ident := 116%positive.
+Definition _interval : ident := 178%positive.
+Definition _j : ident := 106%positive.
+Definition _key : ident := 105%positive.
+Definition _key_len : ident := 117%positive.
Definition _keylen : ident := 145%positive.
-Definition _l : ident := 61%positive.
-Definition _left : ident := 181%positive.
-Definition _len : ident := 66%positive.
-Definition _ll : ident := 76%positive.
-Definition _m : ident := 115%positive.
-Definition _m__1 : ident := 118%positive.
-Definition _main : ident := 99%positive.
-Definition _malloc : ident := 132%positive.
-Definition _mbedtls_hmac_drbg_context : ident := 129%positive.
-Definition _mbedtls_hmac_drbg_free : ident := 186%positive.
-Definition _mbedtls_hmac_drbg_init : ident := 157%positive.
-Definition _mbedtls_hmac_drbg_random : ident := 185%positive.
-Definition _mbedtls_hmac_drbg_random_with_add : ident := 184%positive.
-Definition _mbedtls_hmac_drbg_reseed : ident := 170%positive.
-Definition _mbedtls_hmac_drbg_seed : ident := 173%positive.
-Definition _mbedtls_hmac_drbg_seed_buf : ident := 167%positive.
-Definition _mbedtls_hmac_drbg_set_entropy_len : ident := 176%positive.
-Definition _mbedtls_hmac_drbg_set_prediction_resistance : ident := 175%positive.
-Definition _mbedtls_hmac_drbg_set_reseed_interval : ident := 178%positive.
-Definition _mbedtls_hmac_drbg_update : ident := 165%positive.
-Definition _mbedtls_md_context_t : ident := 123%positive.
-Definition _mbedtls_md_free : ident := 153%positive.
-Definition _mbedtls_md_get_size : ident := 138%positive.
+Definition _l : ident := 62%positive.
+Definition _left : ident := 182%positive.
+Definition _len : ident := 67%positive.
+Definition _ll : ident := 77%positive.
+Definition _m : ident := 116%positive.
+Definition _m__1 : ident := 119%positive.
+Definition _main : ident := 100%positive.
+Definition _malloc : ident := 141%positive.
+Definition _mbedtls_hmac_drbg_context : ident := 125%positive.
+Definition _mbedtls_hmac_drbg_free : ident := 187%positive.
+Definition _mbedtls_hmac_drbg_init : ident := 158%positive.
+Definition _mbedtls_hmac_drbg_random : ident := 186%positive.
+Definition _mbedtls_hmac_drbg_random_with_add : ident := 185%positive.
+Definition _mbedtls_hmac_drbg_reseed : ident := 171%positive.
+Definition _mbedtls_hmac_drbg_seed : ident := 174%positive.
+Definition _mbedtls_hmac_drbg_seed_buf : ident := 168%positive.
+Definition _mbedtls_hmac_drbg_set_entropy_len : ident := 177%positive.
+Definition _mbedtls_hmac_drbg_set_prediction_resistance : ident := 176%positive.
+Definition _mbedtls_hmac_drbg_set_reseed_interval : ident := 179%positive.
+Definition _mbedtls_hmac_drbg_update : ident := 166%positive.
+Definition _mbedtls_md_context_t : ident := 121%positive.
+Definition _mbedtls_md_free : ident := 154%positive.
+Definition _mbedtls_md_get_size : ident := 137%positive.
Definition _mbedtls_md_hmac_finish : ident := 152%positive.
Definition _mbedtls_md_hmac_reset : ident := 147%positive.
Definition _mbedtls_md_hmac_starts : ident := 146%positive.
Definition _mbedtls_md_hmac_update : ident := 150%positive.
-Definition _mbedtls_md_info_from_string : ident := 135%positive.
-Definition _mbedtls_md_info_from_type : ident := 137%positive.
-Definition _mbedtls_md_info_t : ident := 121%positive.
+Definition _mbedtls_md_info_from_string : ident := 134%positive.
+Definition _mbedtls_md_info_from_type : ident := 136%positive.
+Definition _mbedtls_md_info_t : ident := 123%positive.
Definition _mbedtls_md_setup : ident := 144%positive.
-Definition _mbedtls_zeroize : ident := 156%positive.
-Definition _md : ident := 75%positive.
-Definition _md_ctx : ident := 100%positive.
-Definition _md_info : ident := 120%positive.
-Definition _md_len : ident := 160%positive.
-Definition _md_name : ident := 134%positive.
-Definition _md_size : ident := 172%positive.
-Definition _md_type : ident := 136%positive.
-Definition _memcpy : ident := 43%positive.
-Definition _memset : ident := 44%positive.
-Definition _mocked_sha256_info : ident := 133%positive.
-Definition _n : ident := 72%positive.
-Definition _num : ident := 5%positive.
-Definition _o_ctx : ident := 102%positive.
-Definition _out : ident := 182%positive.
-Definition _out_key : ident := 187%positive.
-Definition _out_len : ident := 180%positive.
+Definition _mbedtls_zeroize : ident := 157%positive.
+Definition _md : ident := 76%positive.
+Definition _md_ctx : ident := 102%positive.
+Definition _md_info : ident := 122%positive.
+Definition _md_len : ident := 161%positive.
+Definition _md_name : ident := 133%positive.
+Definition _md_size : ident := 173%positive.
+Definition _md_type : ident := 135%positive.
+Definition _memcpy : ident := 44%positive.
+Definition _memset : ident := 45%positive.
+Definition _mocked_sha256_info : ident := 132%positive.
+Definition _n : ident := 73%positive.
+Definition _num : ident := 6%positive.
+Definition _o_ctx : ident := 104%positive.
+Definition _out : ident := 183%positive.
+Definition _out_key : ident := 188%positive.
+Definition _out_len : ident := 181%positive.
Definition _output : ident := 151%positive.
-Definition _p : ident := 71%positive.
-Definition _p_rng : ident := 179%positive.
-Definition _pad : ident := 107%positive.
-Definition _prediction_resistance : ident := 127%positive.
-Definition _previous : ident := 197%positive.
-Definition _prk : ident := 193%positive.
-Definition _prk_len : ident := 194%positive.
-Definition _prk_len_temp : ident := 203%positive.
-Definition _reseed_counter : ident := 125%positive.
-Definition _reseed_interval : ident := 128%positive.
-Definition _reset : ident := 106%positive.
-Definition _resistance : ident := 174%positive.
-Definition _ret : ident := 140%positive.
-Definition _rounds : ident := 161%positive.
-Definition _s0 : ident := 55%positive.
-Definition _s1 : ident := 56%positive.
-Definition _salt : ident := 190%positive.
-Definition _salt_len : ident := 191%positive.
-Definition _secret : ident := 188%positive.
-Definition _secret_len : ident := 189%positive.
-Definition _seed : ident := 168%positive.
-Definition _seedlen : ident := 169%positive.
-Definition _sep : ident := 162%positive.
-Definition _sep_value : ident := 164%positive.
-Definition _sha256_block_data_order : ident := 64%positive.
+Definition _p : ident := 72%positive.
+Definition _p_rng : ident := 180%positive.
+Definition _pad : ident := 108%positive.
+Definition _prediction_resistance : ident := 129%positive.
+Definition _previous : ident := 198%positive.
+Definition _prk : ident := 194%positive.
+Definition _prk_len : ident := 195%positive.
+Definition _prk_len_temp : ident := 204%positive.
+Definition _reseed_counter : ident := 127%positive.
+Definition _reseed_interval : ident := 130%positive.
+Definition _reset : ident := 107%positive.
+Definition _resistance : ident := 175%positive.
+Definition _ret : ident := 139%positive.
+Definition _rounds : ident := 162%positive.
+Definition _s0 : ident := 56%positive.
+Definition _s1 : ident := 57%positive.
+Definition _salt : ident := 191%positive.
+Definition _salt_len : ident := 192%positive.
+Definition _secret : ident := 189%positive.
+Definition _secret_len : ident := 190%positive.
+Definition _seed : ident := 169%positive.
+Definition _seedlen : ident := 170%positive.
+Definition _sep : ident := 163%positive.
+Definition _sep_value : ident := 165%positive.
+Definition _sha256_block_data_order : ident := 65%positive.
Definition _sha_ctx : ident := 143%positive.
-Definition _t : ident := 59%positive.
-Definition _test_md_get_size : ident := 141%positive.
-Definition _todo : ident := 200%positive.
-Definition _use_len : ident := 183%positive.
-Definition _v : ident := 155%positive.
-Definition _xn : ident := 77%positive.
-Definition _t'1 : ident := 206%positive.
-Definition _t'2 : ident := 207%positive.
-Definition _t'3 : ident := 208%positive.
+Definition _t : ident := 60%positive.
+Definition _test_md_get_size : ident := 140%positive.
+Definition _todo : ident := 201%positive.
+Definition _use_len : ident := 184%positive.
+Definition _v : ident := 156%positive.
+Definition _xn : ident := 78%positive.
+Definition _t'1 : ident := 207%positive.
+Definition _t'2 : ident := 208%positive.
+Definition _t'3 : ident := 209%positive.
Definition f_HKDF_extract := {|
fn_return := tint;
@@ -241,11 +242,8 @@ Definition f_HKDF_extract := {|
(Ssequence
(Scall (Some _t'1)
(Evar _HMAC (Tfunction
- (Tcons (tptr tuchar)
- (Tcons tint
- (Tcons (tptr tuchar)
- (Tcons tint (Tcons (tptr tuchar) Tnil)))))
- (tptr tuchar) cc_default))
+ ((tptr tuchar) :: tint :: (tptr tuchar) :: tint ::
+ (tptr tuchar) :: nil) (tptr tuchar) cc_default))
((Etempvar _salt (tptr tuchar)) :: (Etempvar _salt_len tuint) ::
(Etempvar _secret (tptr tuchar)) :: (Etempvar _secret_len tuint) ::
(Etempvar _out_key (tptr tuchar)) :: nil))
@@ -303,9 +301,9 @@ Definition f_HKDF_expand := {|
(Ssequence
(Scall None
(Evar _HMAC_Init (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) (Tcons tint Tnil)))
- tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: tint :: nil) tvoid
+ cc_default))
((Eaddrof (Evar _hmac (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Etempvar _prk (tptr tuchar)) :: (Etempvar _prk_len tuint) ::
@@ -329,11 +327,9 @@ Definition f_HKDF_expand := {|
(Ssequence
(Scall None
(Evar _HMAC_Init (Tfunction
- (Tcons
- (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar)
- (Tcons tint Tnil)))
- tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: tint ::
+ nil) tvoid cc_default))
((Eaddrof
(Evar _hmac (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
@@ -342,11 +338,9 @@ Definition f_HKDF_expand := {|
(Econst_int (Int.repr 0) tint) :: nil))
(Scall None
(Evar _HMAC_Update (Tfunction
- (Tcons
- (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tvoid)
- (Tcons tuint Tnil)))
- tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tvoid) :: tuint ::
+ nil) tvoid cc_default))
((Eaddrof
(Evar _hmac (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
@@ -356,11 +350,9 @@ Definition f_HKDF_expand := {|
(Ssequence
(Scall None
(Evar _HMAC_Update (Tfunction
- (Tcons
- (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tvoid)
- (Tcons tuint Tnil)))
- tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tvoid) :: tuint ::
+ nil) tvoid cc_default))
((Eaddrof
(Evar _hmac (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
@@ -369,11 +361,9 @@ Definition f_HKDF_expand := {|
(Ssequence
(Scall None
(Evar _HMAC_Update (Tfunction
- (Tcons
- (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tvoid)
- (Tcons tuint Tnil)))
- tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tvoid) :: tuint ::
+ nil) tvoid cc_default))
((Eaddrof
(Evar _hmac (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
@@ -382,11 +372,9 @@ Definition f_HKDF_expand := {|
(Ssequence
(Scall None
(Evar _HMAC_Final (Tfunction
- (Tcons
- (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar)
- Tnil)) tvoid
- cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: nil)
+ tvoid cc_default))
((Eaddrof
(Evar _hmac (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
@@ -408,9 +396,9 @@ Definition f_HKDF_expand := {|
(Ssequence
(Scall None
(Evar _memcpy (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid)
- (Tcons tuint Tnil)))
+ ((tptr tvoid) ::
+ (tptr tvoid) ::
+ tuint :: nil)
(tptr tvoid)
cc_default))
((Ebinop Oadd
@@ -430,9 +418,8 @@ Definition f_HKDF_expand := {|
(Ssequence
(Scall None
(Evar _HMAC_cleanup (Tfunction
- (Tcons
- (tptr (Tstruct _hmac_ctx_st noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ nil) tvoid cc_default))
((Eaddrof (Evar _hmac (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) :: nil))
(Ssequence Sskip (Sreturn (Some (Etempvar _ret tint)))))))))))))
@@ -453,12 +440,9 @@ Definition f_HKDF := {|
(Ssequence
(Scall (Some _t'1)
(Evar _HKDF_extract (Tfunction
- (Tcons (tptr tuchar)
- (Tcons (tptr tuint)
- (Tcons (tptr tuchar)
- (Tcons tuint
- (Tcons (tptr tuchar) (Tcons tuint Tnil))))))
- tint cc_default))
+ ((tptr tuchar) :: (tptr tuint) ::
+ (tptr tuchar) :: tuint :: (tptr tuchar) ::
+ tuint :: nil) tint cc_default))
((Evar _prk (tarray tuchar 64)) ::
(Eaddrof (Evar _prk_len tuint) (tptr tuint)) ::
(Etempvar _secret (tptr tuchar)) :: (Etempvar _secret_len tuint) ::
@@ -470,12 +454,8 @@ Definition f_HKDF := {|
(Ssequence
(Scall (Some _t'2)
(Evar _HKDF_expand (Tfunction
- (Tcons (tptr tuchar)
- (Tcons tuint
- (Tcons (tptr tuchar)
- (Tcons tuint
- (Tcons (tptr tuchar)
- (Tcons tuint Tnil)))))) tint
+ ((tptr tuchar) :: tuint :: (tptr tuchar) ::
+ tuint :: (tptr tuchar) :: tuint :: nil) tint
cc_default))
((Etempvar _out_key (tptr tuchar)) :: (Etempvar _out_len tuint) ::
(Evar _prk (tarray tuchar 64)) ::
@@ -510,301 +490,293 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_memcpy,
Gfun(External (EF_external "memcpy"
- (mksignature (AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tint cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) (Tcons tuint Tnil)))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: AST.Xint :: nil)
+ AST.Xptr cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: nil) (tptr tvoid) cc_default)) ::
(_HMAC_Init,
Gfun(External (EF_external "HMAC_Init"
- (mksignature (AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) (Tcons tint Tnil))) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) :: (tptr tuchar) :: tint :: nil)
+ tvoid cc_default)) ::
(_HMAC_Update,
Gfun(External (EF_external "HMAC_Update"
- (mksignature (AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tvoid) (Tcons tuint Tnil))) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) :: (tptr tvoid) :: tuint :: nil)
+ tvoid cc_default)) ::
(_HMAC_Final,
Gfun(External (EF_external "HMAC_Final"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
cc_default))
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr)) (Tcons (tptr tuchar) Tnil))
- tvoid cc_default)) ::
+ ((tptr (Tstruct _hmac_ctx_st noattr)) :: (tptr tuchar) :: nil) tvoid
+ cc_default)) ::
(_HMAC_cleanup,
Gfun(External (EF_external "HMAC_cleanup"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr)) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) :: nil) tvoid cc_default)) ::
(_HMAC,
Gfun(External (EF_external "HMAC"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint ::
- AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuchar)
- (Tcons tint
- (Tcons (tptr tuchar) (Tcons tint (Tcons (tptr tuchar) Tnil)))))
+ (AST.Xptr :: AST.Xint :: AST.Xptr :: AST.Xint ::
+ AST.Xptr :: nil) AST.Xptr cc_default))
+ ((tptr tuchar) :: tint :: (tptr tuchar) :: tint :: (tptr tuchar) :: nil)
(tptr tuchar) cc_default)) ::
(_HKDF_extract, Gfun(Internal f_HKDF_extract)) ::
(_HKDF_expand, Gfun(Internal f_HKDF_expand)) ::
@@ -825,13 +797,14 @@ Definition public_idents : list ident :=
___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz :: ___builtin_clzll ::
___builtin_clzl :: ___builtin_clz :: ___builtin_bswap16 ::
___builtin_bswap32 :: ___builtin_bswap :: ___builtin_bswap64 ::
- ___compcert_i64_umulh :: ___compcert_i64_smulh :: ___compcert_i64_sar ::
- ___compcert_i64_shr :: ___compcert_i64_shl :: ___compcert_i64_umod ::
- ___compcert_i64_smod :: ___compcert_i64_udiv :: ___compcert_i64_sdiv ::
- ___compcert_i64_utof :: ___compcert_i64_stof :: ___compcert_i64_utod ::
- ___compcert_i64_stod :: ___compcert_i64_dtou :: ___compcert_i64_dtos ::
- ___compcert_va_composite :: ___compcert_va_float64 ::
- ___compcert_va_int64 :: ___compcert_va_int32 :: nil).
+ ___builtin_ais_annot :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
+ ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
+ ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
+ ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
+ ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
+ ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
+ nil).
Definition prog : Clight.program :=
mkprogram composites global_definitions public_idents _main Logic.I.
diff --git a/sha/hmac.v b/sha/hmac.v
index e601e23049..2a41825192 100644
--- a/sha/hmac.v
+++ b/sha/hmac.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.10".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -16,128 +16,131 @@ Module Info.
Definition bitsize := 32.
Definition big_endian := false.
Definition source_file := "sha/hmac.c".
- Definition normalized := false.
+ Definition normalized := true.
End Info.
-Definition _HMAC : ident := 117%positive.
-Definition _HMAC2 : ident := 119%positive.
-Definition _HMAC_Final : ident := 113%positive.
-Definition _HMAC_Init : ident := 110%positive.
-Definition _HMAC_Update : ident := 111%positive.
-Definition _HMAC_cleanup : ident := 114%positive.
-Definition _K256 : ident := 45%positive.
-Definition _Ki : ident := 62%positive.
-Definition _Nh : ident := 3%positive.
-Definition _Nl : ident := 2%positive.
-Definition _SHA256 : ident := 79%positive.
-Definition _SHA256_Final : ident := 78%positive.
-Definition _SHA256_Init : ident := 65%positive.
-Definition _SHA256_Update : ident := 74%positive.
-Definition _SHA256_addlength : ident := 69%positive.
-Definition _SHA256state_st : ident := 6%positive.
-Definition _T1 : ident := 57%positive.
-Definition _T2 : ident := 58%positive.
-Definition _X : ident := 60%positive.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 40%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
-Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
-Definition ___builtin_fmsub : ident := 35%positive.
-Definition ___builtin_fnmadd : ident := 36%positive.
-Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 41%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 39%positive.
-Definition ___builtin_write32_reversed : ident := 42%positive.
-Definition ___compcert_i64_dtos : ident := 84%positive.
-Definition ___compcert_i64_dtou : ident := 85%positive.
-Definition ___compcert_i64_sar : ident := 96%positive.
-Definition ___compcert_i64_sdiv : ident := 90%positive.
-Definition ___compcert_i64_shl : ident := 94%positive.
-Definition ___compcert_i64_shr : ident := 95%positive.
-Definition ___compcert_i64_smod : ident := 92%positive.
-Definition ___compcert_i64_smulh : ident := 97%positive.
-Definition ___compcert_i64_stod : ident := 86%positive.
-Definition ___compcert_i64_stof : ident := 88%positive.
-Definition ___compcert_i64_udiv : ident := 91%positive.
-Definition ___compcert_i64_umod : ident := 93%positive.
-Definition ___compcert_i64_umulh : ident := 98%positive.
-Definition ___compcert_i64_utod : ident := 87%positive.
-Definition ___compcert_i64_utof : ident := 89%positive.
-Definition ___compcert_va_composite : ident := 83%positive.
-Definition ___compcert_va_float64 : ident := 82%positive.
-Definition ___compcert_va_int32 : ident := 80%positive.
-Definition ___compcert_va_int64 : ident := 81%positive.
-Definition _a : ident := 48%positive.
-Definition _aux : ident := 108%positive.
-Definition _b : ident := 49%positive.
-Definition _buf : ident := 112%positive.
-Definition _c : ident := 50%positive.
-Definition _cNh : ident := 68%positive.
-Definition _cNl : ident := 67%positive.
-Definition _ctx : ident := 46%positive.
-Definition _ctx_key : ident := 109%positive.
-Definition _d : ident := 51%positive.
-Definition _data : ident := 4%positive.
-Definition _data_ : ident := 70%positive.
-Definition _e : ident := 52%positive.
-Definition _f : ident := 53%positive.
-Definition _fragment : ident := 73%positive.
-Definition _g : ident := 54%positive.
-Definition _h : ident := 1%positive.
-Definition _hmac_ctx_st : ident := 103%positive.
-Definition _i : ident := 63%positive.
-Definition _i_ctx : ident := 101%positive.
-Definition _in : ident := 47%positive.
-Definition _j : ident := 105%positive.
-Definition _key : ident := 104%positive.
-Definition _key_len : ident := 116%positive.
-Definition _l : ident := 61%positive.
-Definition _len : ident := 66%positive.
-Definition _ll : ident := 76%positive.
-Definition _m : ident := 115%positive.
-Definition _m__1 : ident := 118%positive.
-Definition _main : ident := 99%positive.
-Definition _md : ident := 75%positive.
-Definition _md_ctx : ident := 100%positive.
-Definition _memcpy : ident := 43%positive.
-Definition _memset : ident := 44%positive.
-Definition _n : ident := 72%positive.
-Definition _num : ident := 5%positive.
-Definition _o_ctx : ident := 102%positive.
-Definition _p : ident := 71%positive.
-Definition _pad : ident := 107%positive.
-Definition _reset : ident := 106%positive.
-Definition _s0 : ident := 55%positive.
-Definition _s1 : ident := 56%positive.
-Definition _sha256_block_data_order : ident := 64%positive.
-Definition _t : ident := 59%positive.
-Definition _xn : ident := 77%positive.
+Definition _HMAC : ident := 118%positive.
+Definition _HMAC2 : ident := 120%positive.
+Definition _HMAC_Final : ident := 114%positive.
+Definition _HMAC_Init : ident := 111%positive.
+Definition _HMAC_Update : ident := 112%positive.
+Definition _HMAC_cleanup : ident := 115%positive.
+Definition _K256 : ident := 46%positive.
+Definition _Ki : ident := 63%positive.
+Definition _Nh : ident := 4%positive.
+Definition _Nl : ident := 3%positive.
+Definition _SHA256 : ident := 80%positive.
+Definition _SHA256_Final : ident := 79%positive.
+Definition _SHA256_Init : ident := 66%positive.
+Definition _SHA256_Update : ident := 75%positive.
+Definition _SHA256_addlength : ident := 70%positive.
+Definition _SHA256state_st : ident := 1%positive.
+Definition _T1 : ident := 58%positive.
+Definition _T2 : ident := 59%positive.
+Definition _X : ident := 61%positive.
+Definition ___builtin_ais_annot : ident := 7%positive.
+Definition ___builtin_annot : ident := 24%positive.
+Definition ___builtin_annot_intval : ident := 25%positive.
+Definition ___builtin_bswap : ident := 9%positive.
+Definition ___builtin_bswap16 : ident := 11%positive.
+Definition ___builtin_bswap32 : ident := 10%positive.
+Definition ___builtin_bswap64 : ident := 8%positive.
+Definition ___builtin_clz : ident := 12%positive.
+Definition ___builtin_clzl : ident := 13%positive.
+Definition ___builtin_clzll : ident := 14%positive.
+Definition ___builtin_ctz : ident := 15%positive.
+Definition ___builtin_ctzl : ident := 16%positive.
+Definition ___builtin_ctzll : ident := 17%positive.
+Definition ___builtin_debug : ident := 41%positive.
+Definition ___builtin_expect : ident := 32%positive.
+Definition ___builtin_fabs : ident := 18%positive.
+Definition ___builtin_fabsf : ident := 19%positive.
+Definition ___builtin_fmadd : ident := 35%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 36%positive.
+Definition ___builtin_fnmadd : ident := 37%positive.
+Definition ___builtin_fnmsub : ident := 38%positive.
+Definition ___builtin_fsqrt : ident := 20%positive.
+Definition ___builtin_membar : ident := 26%positive.
+Definition ___builtin_memcpy_aligned : ident := 22%positive.
+Definition ___builtin_read16_reversed : ident := 39%positive.
+Definition ___builtin_read32_reversed : ident := 42%positive.
+Definition ___builtin_sel : ident := 23%positive.
+Definition ___builtin_sqrt : ident := 21%positive.
+Definition ___builtin_unreachable : ident := 31%positive.
+Definition ___builtin_va_arg : ident := 28%positive.
+Definition ___builtin_va_copy : ident := 29%positive.
+Definition ___builtin_va_end : ident := 30%positive.
+Definition ___builtin_va_start : ident := 27%positive.
+Definition ___builtin_write16_reversed : ident := 40%positive.
+Definition ___builtin_write32_reversed : ident := 43%positive.
+Definition ___compcert_i64_dtos : ident := 85%positive.
+Definition ___compcert_i64_dtou : ident := 86%positive.
+Definition ___compcert_i64_sar : ident := 97%positive.
+Definition ___compcert_i64_sdiv : ident := 91%positive.
+Definition ___compcert_i64_shl : ident := 95%positive.
+Definition ___compcert_i64_shr : ident := 96%positive.
+Definition ___compcert_i64_smod : ident := 93%positive.
+Definition ___compcert_i64_smulh : ident := 98%positive.
+Definition ___compcert_i64_stod : ident := 87%positive.
+Definition ___compcert_i64_stof : ident := 89%positive.
+Definition ___compcert_i64_udiv : ident := 92%positive.
+Definition ___compcert_i64_umod : ident := 94%positive.
+Definition ___compcert_i64_umulh : ident := 99%positive.
+Definition ___compcert_i64_utod : ident := 88%positive.
+Definition ___compcert_i64_utof : ident := 90%positive.
+Definition ___compcert_va_composite : ident := 84%positive.
+Definition ___compcert_va_float64 : ident := 83%positive.
+Definition ___compcert_va_int32 : ident := 81%positive.
+Definition ___compcert_va_int64 : ident := 82%positive.
+Definition _a : ident := 49%positive.
+Definition _aux : ident := 109%positive.
+Definition _b : ident := 50%positive.
+Definition _buf : ident := 113%positive.
+Definition _c : ident := 51%positive.
+Definition _cNh : ident := 69%positive.
+Definition _cNl : ident := 68%positive.
+Definition _ctx : ident := 47%positive.
+Definition _ctx_key : ident := 110%positive.
+Definition _d : ident := 52%positive.
+Definition _data : ident := 5%positive.
+Definition _data_ : ident := 71%positive.
+Definition _e : ident := 53%positive.
+Definition _f : ident := 54%positive.
+Definition _fragment : ident := 74%positive.
+Definition _g : ident := 55%positive.
+Definition _h : ident := 2%positive.
+Definition _hmac_ctx_st : ident := 101%positive.
+Definition _i : ident := 64%positive.
+Definition _i_ctx : ident := 103%positive.
+Definition _in : ident := 48%positive.
+Definition _j : ident := 106%positive.
+Definition _key : ident := 105%positive.
+Definition _key_len : ident := 117%positive.
+Definition _l : ident := 62%positive.
+Definition _len : ident := 67%positive.
+Definition _ll : ident := 77%positive.
+Definition _m : ident := 116%positive.
+Definition _m__1 : ident := 119%positive.
+Definition _main : ident := 100%positive.
+Definition _md : ident := 76%positive.
+Definition _md_ctx : ident := 102%positive.
+Definition _memcpy : ident := 44%positive.
+Definition _memset : ident := 45%positive.
+Definition _n : ident := 73%positive.
+Definition _num : ident := 6%positive.
+Definition _o_ctx : ident := 104%positive.
+Definition _p : ident := 72%positive.
+Definition _pad : ident := 108%positive.
+Definition _reset : ident := 107%positive.
+Definition _s0 : ident := 56%positive.
+Definition _s1 : ident := 57%positive.
+Definition _sha256_block_data_order : ident := 65%positive.
+Definition _t : ident := 60%positive.
+Definition _xn : ident := 78%positive.
+Definition _t'1 : ident := 121%positive.
+Definition _t'2 : ident := 122%positive.
Definition f_HMAC_Init := {|
fn_return := tvoid;
@@ -147,7 +150,7 @@ Definition f_HMAC_Init := {|
fn_vars := ((_pad, (tarray tuchar 64)) :: (_ctx_key, (tarray tuchar 64)) ::
nil);
fn_temps := ((_i, tint) :: (_j, tint) :: (_reset, tint) ::
- (_aux, tuchar) :: nil);
+ (_aux, tuchar) :: (_t'2, tuchar) :: (_t'1, tuchar) :: nil);
fn_body :=
(Ssequence
(Sset _reset (Econst_int (Int.repr 0) tint))
@@ -163,9 +166,8 @@ Definition f_HMAC_Init := {|
(Ssequence
(Scall None
(Evar _SHA256_Init (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ nil) tvoid cc_default))
((Eaddrof
(Efield
(Ederef
@@ -176,10 +178,8 @@ Definition f_HMAC_Init := {|
(Ssequence
(Scall None
(Evar _SHA256_Update (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid)
- (Tcons tuint Tnil))) tvoid
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid
cc_default))
((Eaddrof
(Efield
@@ -193,10 +193,9 @@ Definition f_HMAC_Init := {|
(Ssequence
(Scall None
(Evar _SHA256_Final (Tfunction
- (Tcons (tptr tuchar)
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- Tnil)) tvoid cc_default))
+ ((tptr tuchar) ::
+ (tptr (Tstruct _SHA256state_st noattr)) ::
+ nil) tvoid cc_default))
((Evar _ctx_key (tarray tuchar 64)) ::
(Eaddrof
(Efield
@@ -207,8 +206,7 @@ Definition f_HMAC_Init := {|
(tptr (Tstruct _SHA256state_st noattr))) :: nil))
(Scall None
(Evar _memset (Tfunction
- (Tcons (tptr tvoid)
- (Tcons tint (Tcons tuint Tnil)))
+ ((tptr tvoid) :: tint :: tuint :: nil)
(tptr tvoid) cc_default))
((Ebinop Oadd (Evar _ctx_key (tarray tuchar 64))
(Econst_int (Int.repr 32) tint) (tptr tuchar)) ::
@@ -217,16 +215,14 @@ Definition f_HMAC_Init := {|
(Ssequence
(Scall None
(Evar _memcpy (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint Tnil)))
- (tptr tvoid) cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint ::
+ nil) (tptr tvoid) cc_default))
((Evar _ctx_key (tarray tuchar 64)) ::
(Etempvar _key (tptr tuchar)) :: (Etempvar _len tint) ::
nil))
(Scall None
(Evar _memset (Tfunction
- (Tcons (tptr tvoid)
- (Tcons tint (Tcons tuint Tnil)))
+ ((tptr tvoid) :: tint :: tuint :: nil)
(tptr tvoid) cc_default))
((Ebinop Oadd (Evar _ctx_key (tarray tuchar 64))
(Etempvar _len tint) (tptr tuchar)) ::
@@ -246,11 +242,12 @@ Definition f_HMAC_Init := {|
Sskip
Sbreak)
(Ssequence
- (Sset _aux
- (Ecast
+ (Ssequence
+ (Sset _t'2
(Ederef
(Ebinop Oadd (Evar _ctx_key (tarray tuchar 64))
- (Etempvar _i tint) (tptr tuchar)) tuchar) tuchar))
+ (Etempvar _i tint) (tptr tuchar)) tuchar))
+ (Sset _aux (Ecast (Etempvar _t'2 tuchar) tuchar)))
(Ssequence
(Sset _aux
(Ecast
@@ -267,9 +264,8 @@ Definition f_HMAC_Init := {|
(Ssequence
(Scall None
(Evar _SHA256_Init (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ nil) tvoid cc_default))
((Eaddrof
(Efield
(Ederef
@@ -280,10 +276,8 @@ Definition f_HMAC_Init := {|
(Ssequence
(Scall None
(Evar _SHA256_Update (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid)
- (Tcons tuint Tnil))) tvoid
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid
cc_default))
((Eaddrof
(Efield
@@ -304,12 +298,12 @@ Definition f_HMAC_Init := {|
Sskip
Sbreak)
(Ssequence
- (Sset _aux
- (Ecast
+ (Ssequence
+ (Sset _t'1
(Ederef
(Ebinop Oadd (Evar _ctx_key (tarray tuchar 64))
- (Etempvar _i tint) (tptr tuchar)) tuchar)
- tuchar))
+ (Etempvar _i tint) (tptr tuchar)) tuchar))
+ (Sset _aux (Ecast (Etempvar _t'1 tuchar) tuchar)))
(Sassign
(Ederef
(Ebinop Oadd (Evar _pad (tarray tuchar 64))
@@ -322,9 +316,8 @@ Definition f_HMAC_Init := {|
(Ssequence
(Scall None
(Evar _SHA256_Init (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ nil) tvoid cc_default))
((Eaddrof
(Efield
(Ederef
@@ -334,11 +327,9 @@ Definition f_HMAC_Init := {|
(tptr (Tstruct _SHA256state_st noattr))) :: nil))
(Scall None
(Evar _SHA256_Update (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid)
- (Tcons tuint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil)
+ tvoid cc_default))
((Eaddrof
(Efield
(Ederef
@@ -351,8 +342,7 @@ Definition f_HMAC_Init := {|
Sskip)
(Scall None
(Evar _memcpy (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint Tnil)))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: nil)
(tptr tvoid) cc_default))
((Eaddrof
(Efield
@@ -379,9 +369,8 @@ Definition f_HMAC_Update := {|
fn_body :=
(Scall None
(Evar _SHA256_Update (Tfunction
- (Tcons (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid) (Tcons tuint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid cc_default))
((Eaddrof
(Efield
(Ederef (Etempvar _ctx (tptr (Tstruct _hmac_ctx_st noattr)))
@@ -402,9 +391,9 @@ Definition f_HMAC_Final := {|
(Ssequence
(Scall None
(Evar _SHA256_Final (Tfunction
- (Tcons (tptr tuchar)
- (Tcons (tptr (Tstruct _SHA256state_st noattr))
- Tnil)) tvoid cc_default))
+ ((tptr tuchar) ::
+ (tptr (Tstruct _SHA256state_st noattr)) :: nil)
+ tvoid cc_default))
((Evar _buf (tarray tuchar 32)) ::
(Eaddrof
(Efield
@@ -414,10 +403,8 @@ Definition f_HMAC_Final := {|
(tptr (Tstruct _SHA256state_st noattr))) :: nil))
(Ssequence
(Scall None
- (Evar _memcpy (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint Tnil))) (tptr tvoid)
- cc_default))
+ (Evar _memcpy (Tfunction ((tptr tvoid) :: (tptr tvoid) :: tuint :: nil)
+ (tptr tvoid) cc_default))
((Eaddrof
(Efield
(Ederef (Etempvar _ctx (tptr (Tstruct _hmac_ctx_st noattr)))
@@ -434,9 +421,9 @@ Definition f_HMAC_Final := {|
(Ssequence
(Scall None
(Evar _SHA256_Update (Tfunction
- (Tcons (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid) (Tcons tuint Tnil)))
- tvoid cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid
+ cc_default))
((Eaddrof
(Efield
(Ederef (Etempvar _ctx (tptr (Tstruct _hmac_ctx_st noattr)))
@@ -447,10 +434,9 @@ Definition f_HMAC_Final := {|
nil))
(Scall None
(Evar _SHA256_Final (Tfunction
- (Tcons (tptr tuchar)
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- Tnil)) tvoid cc_default))
+ ((tptr tuchar) ::
+ (tptr (Tstruct _SHA256state_st noattr)) ::
+ nil) tvoid cc_default))
((Etempvar _md (tptr tuchar)) ::
(Eaddrof
(Efield
@@ -468,8 +454,7 @@ Definition f_HMAC_cleanup := {|
fn_temps := nil;
fn_body :=
(Scall None
- (Evar _memset (Tfunction
- (Tcons (tptr tvoid) (Tcons tint (Tcons tuint Tnil)))
+ (Evar _memset (Tfunction ((tptr tvoid) :: tint :: tuint :: nil)
(tptr tvoid) cc_default))
((Etempvar _ctx (tptr (Tstruct _hmac_ctx_st noattr))) ::
(Econst_int (Int.repr 0) tint) ::
@@ -500,34 +485,32 @@ Definition f_HMAC := {|
(Ssequence
(Scall None
(Evar _HMAC_Init (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) (Tcons tint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: tint :: nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Etempvar _key (tptr tuchar)) :: (Etempvar _key_len tint) :: nil))
(Ssequence
(Scall None
(Evar _HMAC_Update (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tvoid) (Tcons tuint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Etempvar _d (tptr tuchar)) :: (Etempvar _n tint) :: nil))
(Ssequence
(Scall None
(Evar _HMAC_Final (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) Tnil)) tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Etempvar _md (tptr tuchar)) :: nil))
(Ssequence
(Scall None
(Evar _HMAC_cleanup (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) :: nil))
(Sreturn (Some (Etempvar _md (tptr tuchar)))))))))
@@ -557,35 +540,33 @@ Definition f_HMAC2 := {|
(Ssequence
(Scall None
(Evar _HMAC_Init (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) (Tcons tint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: tint :: nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Etempvar _key (tptr tuchar)) :: (Etempvar _key_len tint) :: nil))
(Ssequence
(Scall None
(Evar _HMAC_Update (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tvoid) (Tcons tuint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Etempvar _d (tptr tuchar)) :: (Etempvar _n tint) :: nil))
(Ssequence
(Scall None
(Evar _HMAC_Final (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) Tnil)) tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Etempvar _md (tptr tuchar)) :: nil))
(Ssequence
(Scall None
(Evar _HMAC_Init (Tfunction
- (Tcons (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) (Tcons tint Tnil)))
- tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: tint :: nil) tvoid
+ cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Ecast (Econst_int (Int.repr 0) tint) (tptr tvoid)) ::
@@ -593,20 +574,17 @@ Definition f_HMAC2 := {|
(Ssequence
(Scall None
(Evar _HMAC_Update (Tfunction
- (Tcons
- (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tvoid) (Tcons tuint Tnil)))
- tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid
+ cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Etempvar _d (tptr tuchar)) :: (Etempvar _n tint) :: nil))
(Ssequence
(Scall None
(Evar _HMAC_Final (Tfunction
- (Tcons
- (tptr (Tstruct _hmac_ctx_st noattr))
- (Tcons (tptr tuchar) Tnil)) tvoid
- cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ (tptr tuchar) :: nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) ::
(Ebinop Oadd (Etempvar _md (tptr tuchar))
@@ -614,9 +592,8 @@ Definition f_HMAC2 := {|
(Ssequence
(Scall None
(Evar _HMAC_cleanup (Tfunction
- (Tcons
- (tptr (Tstruct _hmac_ctx_st noattr))
- Tnil) tvoid cc_default))
+ ((tptr (Tstruct _hmac_ctx_st noattr)) ::
+ nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _hmac_ctx_st noattr))
(tptr (Tstruct _hmac_ctx_st noattr))) :: nil))
(Sreturn (Some (Etempvar _md (tptr tuchar))))))))))))
@@ -637,293 +614,285 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(_memcpy,
Gfun(External (EF_external "memcpy"
- (mksignature (AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tint cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) (Tcons tuint Tnil)))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: AST.Xint :: nil)
+ AST.Xptr cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: nil) (tptr tvoid) cc_default)) ::
(_memset,
Gfun(External (EF_external "memset"
- (mksignature (AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tint cc_default))
- (Tcons (tptr tvoid) (Tcons tint (Tcons tuint Tnil))) (tptr tvoid)
- cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xptr cc_default))
+ ((tptr tvoid) :: tint :: tuint :: nil) (tptr tvoid) cc_default)) ::
(_SHA256_Init,
Gfun(External (EF_external "SHA256_Init"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _SHA256state_st noattr)) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) :: nil) tvoid cc_default)) ::
(_SHA256_Update,
Gfun(External (EF_external "SHA256_Update"
- (mksignature (AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid) (Tcons tuint Tnil))) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) :: (tptr tvoid) :: tuint ::
+ nil) tvoid cc_default)) ::
(_SHA256_Final,
Gfun(External (EF_external "SHA256_Final"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
cc_default))
- (Tcons (tptr tuchar)
- (Tcons (tptr (Tstruct _SHA256state_st noattr)) Tnil)) tvoid
+ ((tptr tuchar) :: (tptr (Tstruct _SHA256state_st noattr)) :: nil) tvoid
cc_default)) :: (_HMAC_Init, Gfun(Internal f_HMAC_Init)) ::
(_HMAC_Update, Gfun(Internal f_HMAC_Update)) ::
(_HMAC_Final, Gfun(Internal f_HMAC_Final)) ::
@@ -946,12 +915,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/sha/sha.v b/sha/sha.v
index 9f1498f406..0be76f96b1 100644
--- a/sha/sha.v
+++ b/sha/sha.v
@@ -6,7 +6,7 @@ Local Open Scope string_scope.
Local Open Scope clight_scope.
Module Info.
- Definition version := "3.10".
+ Definition version := "3.15".
Definition build_number := "".
Definition build_tag := "".
Definition build_branch := "".
@@ -16,109 +16,110 @@ Module Info.
Definition bitsize := 32.
Definition big_endian := false.
Definition source_file := "sha/sha.c".
- Definition normalized := false.
+ Definition normalized := true.
End Info.
-Definition _K256 : ident := 45%positive.
-Definition _Ki : ident := 62%positive.
-Definition _Nh : ident := 3%positive.
-Definition _Nl : ident := 2%positive.
-Definition _SHA256 : ident := 79%positive.
-Definition _SHA256_Final : ident := 78%positive.
-Definition _SHA256_Init : ident := 65%positive.
-Definition _SHA256_Update : ident := 74%positive.
-Definition _SHA256_addlength : ident := 69%positive.
-Definition _SHA256state_st : ident := 6%positive.
-Definition _T1 : ident := 57%positive.
-Definition _T2 : ident := 58%positive.
-Definition _X : ident := 60%positive.
-Definition ___builtin_annot : ident := 23%positive.
-Definition ___builtin_annot_intval : ident := 24%positive.
-Definition ___builtin_bswap : ident := 8%positive.
-Definition ___builtin_bswap16 : ident := 10%positive.
-Definition ___builtin_bswap32 : ident := 9%positive.
-Definition ___builtin_bswap64 : ident := 7%positive.
-Definition ___builtin_clz : ident := 11%positive.
-Definition ___builtin_clzl : ident := 12%positive.
-Definition ___builtin_clzll : ident := 13%positive.
-Definition ___builtin_ctz : ident := 14%positive.
-Definition ___builtin_ctzl : ident := 15%positive.
-Definition ___builtin_ctzll : ident := 16%positive.
-Definition ___builtin_debug : ident := 40%positive.
-Definition ___builtin_expect : ident := 31%positive.
-Definition ___builtin_fabs : ident := 17%positive.
-Definition ___builtin_fabsf : ident := 18%positive.
-Definition ___builtin_fmadd : ident := 34%positive.
-Definition ___builtin_fmax : ident := 32%positive.
-Definition ___builtin_fmin : ident := 33%positive.
-Definition ___builtin_fmsub : ident := 35%positive.
-Definition ___builtin_fnmadd : ident := 36%positive.
-Definition ___builtin_fnmsub : ident := 37%positive.
-Definition ___builtin_fsqrt : ident := 19%positive.
-Definition ___builtin_membar : ident := 25%positive.
-Definition ___builtin_memcpy_aligned : ident := 21%positive.
-Definition ___builtin_read16_reversed : ident := 38%positive.
-Definition ___builtin_read32_reversed : ident := 41%positive.
-Definition ___builtin_sel : ident := 22%positive.
-Definition ___builtin_sqrt : ident := 20%positive.
-Definition ___builtin_unreachable : ident := 30%positive.
-Definition ___builtin_va_arg : ident := 27%positive.
-Definition ___builtin_va_copy : ident := 28%positive.
-Definition ___builtin_va_end : ident := 29%positive.
-Definition ___builtin_va_start : ident := 26%positive.
-Definition ___builtin_write16_reversed : ident := 39%positive.
-Definition ___builtin_write32_reversed : ident := 42%positive.
-Definition ___compcert_i64_dtos : ident := 84%positive.
-Definition ___compcert_i64_dtou : ident := 85%positive.
-Definition ___compcert_i64_sar : ident := 96%positive.
-Definition ___compcert_i64_sdiv : ident := 90%positive.
-Definition ___compcert_i64_shl : ident := 94%positive.
-Definition ___compcert_i64_shr : ident := 95%positive.
-Definition ___compcert_i64_smod : ident := 92%positive.
-Definition ___compcert_i64_smulh : ident := 97%positive.
-Definition ___compcert_i64_stod : ident := 86%positive.
-Definition ___compcert_i64_stof : ident := 88%positive.
-Definition ___compcert_i64_udiv : ident := 91%positive.
-Definition ___compcert_i64_umod : ident := 93%positive.
-Definition ___compcert_i64_umulh : ident := 98%positive.
-Definition ___compcert_i64_utod : ident := 87%positive.
-Definition ___compcert_i64_utof : ident := 89%positive.
-Definition ___compcert_va_composite : ident := 83%positive.
-Definition ___compcert_va_float64 : ident := 82%positive.
-Definition ___compcert_va_int32 : ident := 80%positive.
-Definition ___compcert_va_int64 : ident := 81%positive.
-Definition _a : ident := 48%positive.
-Definition _b : ident := 49%positive.
-Definition _c : ident := 50%positive.
-Definition _cNh : ident := 68%positive.
-Definition _cNl : ident := 67%positive.
-Definition _ctx : ident := 46%positive.
-Definition _d : ident := 51%positive.
-Definition _data : ident := 4%positive.
-Definition _data_ : ident := 70%positive.
-Definition _e : ident := 52%positive.
-Definition _f : ident := 53%positive.
-Definition _fragment : ident := 73%positive.
-Definition _g : ident := 54%positive.
-Definition _h : ident := 1%positive.
-Definition _i : ident := 63%positive.
-Definition _in : ident := 47%positive.
-Definition _l : ident := 61%positive.
-Definition _len : ident := 66%positive.
-Definition _ll : ident := 76%positive.
-Definition _main : ident := 99%positive.
-Definition _md : ident := 75%positive.
-Definition _memcpy : ident := 43%positive.
-Definition _memset : ident := 44%positive.
-Definition _n : ident := 72%positive.
-Definition _num : ident := 5%positive.
-Definition _p : ident := 71%positive.
-Definition _s0 : ident := 55%positive.
-Definition _s1 : ident := 56%positive.
-Definition _sha256_block_data_order : ident := 64%positive.
-Definition _t : ident := 59%positive.
-Definition _xn : ident := 77%positive.
-Definition _t'1 : ident := 100%positive.
+Definition _K256 : ident := 46%positive.
+Definition _Ki : ident := 63%positive.
+Definition _Nh : ident := 4%positive.
+Definition _Nl : ident := 3%positive.
+Definition _SHA256 : ident := 80%positive.
+Definition _SHA256_Final : ident := 79%positive.
+Definition _SHA256_Init : ident := 66%positive.
+Definition _SHA256_Update : ident := 75%positive.
+Definition _SHA256_addlength : ident := 70%positive.
+Definition _SHA256state_st : ident := 1%positive.
+Definition _T1 : ident := 58%positive.
+Definition _T2 : ident := 59%positive.
+Definition _X : ident := 61%positive.
+Definition ___builtin_ais_annot : ident := 7%positive.
+Definition ___builtin_annot : ident := 24%positive.
+Definition ___builtin_annot_intval : ident := 25%positive.
+Definition ___builtin_bswap : ident := 9%positive.
+Definition ___builtin_bswap16 : ident := 11%positive.
+Definition ___builtin_bswap32 : ident := 10%positive.
+Definition ___builtin_bswap64 : ident := 8%positive.
+Definition ___builtin_clz : ident := 12%positive.
+Definition ___builtin_clzl : ident := 13%positive.
+Definition ___builtin_clzll : ident := 14%positive.
+Definition ___builtin_ctz : ident := 15%positive.
+Definition ___builtin_ctzl : ident := 16%positive.
+Definition ___builtin_ctzll : ident := 17%positive.
+Definition ___builtin_debug : ident := 41%positive.
+Definition ___builtin_expect : ident := 32%positive.
+Definition ___builtin_fabs : ident := 18%positive.
+Definition ___builtin_fabsf : ident := 19%positive.
+Definition ___builtin_fmadd : ident := 35%positive.
+Definition ___builtin_fmax : ident := 33%positive.
+Definition ___builtin_fmin : ident := 34%positive.
+Definition ___builtin_fmsub : ident := 36%positive.
+Definition ___builtin_fnmadd : ident := 37%positive.
+Definition ___builtin_fnmsub : ident := 38%positive.
+Definition ___builtin_fsqrt : ident := 20%positive.
+Definition ___builtin_membar : ident := 26%positive.
+Definition ___builtin_memcpy_aligned : ident := 22%positive.
+Definition ___builtin_read16_reversed : ident := 39%positive.
+Definition ___builtin_read32_reversed : ident := 42%positive.
+Definition ___builtin_sel : ident := 23%positive.
+Definition ___builtin_sqrt : ident := 21%positive.
+Definition ___builtin_unreachable : ident := 31%positive.
+Definition ___builtin_va_arg : ident := 28%positive.
+Definition ___builtin_va_copy : ident := 29%positive.
+Definition ___builtin_va_end : ident := 30%positive.
+Definition ___builtin_va_start : ident := 27%positive.
+Definition ___builtin_write16_reversed : ident := 40%positive.
+Definition ___builtin_write32_reversed : ident := 43%positive.
+Definition ___compcert_i64_dtos : ident := 85%positive.
+Definition ___compcert_i64_dtou : ident := 86%positive.
+Definition ___compcert_i64_sar : ident := 97%positive.
+Definition ___compcert_i64_sdiv : ident := 91%positive.
+Definition ___compcert_i64_shl : ident := 95%positive.
+Definition ___compcert_i64_shr : ident := 96%positive.
+Definition ___compcert_i64_smod : ident := 93%positive.
+Definition ___compcert_i64_smulh : ident := 98%positive.
+Definition ___compcert_i64_stod : ident := 87%positive.
+Definition ___compcert_i64_stof : ident := 89%positive.
+Definition ___compcert_i64_udiv : ident := 92%positive.
+Definition ___compcert_i64_umod : ident := 94%positive.
+Definition ___compcert_i64_umulh : ident := 99%positive.
+Definition ___compcert_i64_utod : ident := 88%positive.
+Definition ___compcert_i64_utof : ident := 90%positive.
+Definition ___compcert_va_composite : ident := 84%positive.
+Definition ___compcert_va_float64 : ident := 83%positive.
+Definition ___compcert_va_int32 : ident := 81%positive.
+Definition ___compcert_va_int64 : ident := 82%positive.
+Definition _a : ident := 49%positive.
+Definition _b : ident := 50%positive.
+Definition _c : ident := 51%positive.
+Definition _cNh : ident := 69%positive.
+Definition _cNl : ident := 68%positive.
+Definition _ctx : ident := 47%positive.
+Definition _d : ident := 52%positive.
+Definition _data : ident := 5%positive.
+Definition _data_ : ident := 71%positive.
+Definition _e : ident := 53%positive.
+Definition _f : ident := 54%positive.
+Definition _fragment : ident := 74%positive.
+Definition _g : ident := 55%positive.
+Definition _h : ident := 2%positive.
+Definition _i : ident := 64%positive.
+Definition _in : ident := 48%positive.
+Definition _l : ident := 62%positive.
+Definition _len : ident := 67%positive.
+Definition _ll : ident := 77%positive.
+Definition _main : ident := 100%positive.
+Definition _md : ident := 76%positive.
+Definition _memcpy : ident := 44%positive.
+Definition _memset : ident := 45%positive.
+Definition _n : ident := 73%positive.
+Definition _num : ident := 6%positive.
+Definition _p : ident := 72%positive.
+Definition _s0 : ident := 56%positive.
+Definition _s1 : ident := 57%positive.
+Definition _sha256_block_data_order : ident := 65%positive.
+Definition _t : ident := 60%positive.
+Definition _xn : ident := 78%positive.
+Definition _t'1 : ident := 101%positive.
Definition v_K256 := {|
gvar_info := (tarray tuint 64);
@@ -292,9 +293,8 @@ Definition f_sha256_block_data_order := {|
(Ssequence
(Scall (Some _t'1)
(Evar ___builtin_read32_reversed (Tfunction
- (Tcons
- (tptr tuint)
- Tnil)
+ ((tptr tuint) ::
+ nil)
tuint
cc_default))
((Ecast (Etempvar _data (tptr tuchar))
@@ -1136,9 +1136,8 @@ Definition f_SHA256_Update := {|
(Ssequence
(Scall None
(Evar _SHA256_addlength (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- (Tcons tuint Tnil)) tvoid cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ tuint :: nil) tvoid cc_default))
((Etempvar _c (tptr (Tstruct _SHA256state_st noattr))) ::
(Etempvar _len tuint) :: nil))
(Ssequence
@@ -1165,9 +1164,8 @@ Definition f_SHA256_Update := {|
(Ssequence
(Scall None
(Evar _memcpy (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint Tnil)))
- (tptr tvoid) cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint ::
+ nil) (tptr tvoid) cc_default))
((Ebinop Oadd (Etempvar _p (tptr tuchar))
(Etempvar _n tuint) (tptr tuchar)) ::
(Etempvar _data (tptr tuchar)) ::
@@ -1175,11 +1173,9 @@ Definition f_SHA256_Update := {|
(Ssequence
(Scall None
(Evar _sha256_block_data_order (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid)
- Tnil)) tvoid
- cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: nil)
+ tvoid cc_default))
((Etempvar _c (tptr (Tstruct _SHA256state_st noattr))) ::
(Etempvar _p (tptr tuchar)) :: nil))
(Ssequence
@@ -1192,9 +1188,8 @@ Definition f_SHA256_Update := {|
(Etempvar _fragment tuint) tuint))
(Scall None
(Evar _memset (Tfunction
- (Tcons (tptr tvoid)
- (Tcons tint (Tcons tuint Tnil)))
- (tptr tvoid) cc_default))
+ ((tptr tvoid) :: tint :: tuint ::
+ nil) (tptr tvoid) cc_default))
((Etempvar _p (tptr tuchar)) ::
(Econst_int (Int.repr 0) tint) ::
(Ebinop Omul (Econst_int (Int.repr 16) tint)
@@ -1202,9 +1197,8 @@ Definition f_SHA256_Update := {|
(Ssequence
(Scall None
(Evar _memcpy (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint Tnil)))
- (tptr tvoid) cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint ::
+ nil) (tptr tvoid) cc_default))
((Ebinop Oadd (Etempvar _p (tptr tuchar))
(Etempvar _n tuint) (tptr tuchar)) ::
(Etempvar _data (tptr tuchar)) ::
@@ -1227,11 +1221,9 @@ Definition f_SHA256_Update := {|
(Ssequence
(Scall None
(Evar _sha256_block_data_order (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid)
- Tnil)) tvoid
- cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: nil)
+ tvoid cc_default))
((Etempvar _c (tptr (Tstruct _SHA256state_st noattr))) ::
(Etempvar _data (tptr tuchar)) :: nil))
(Ssequence
@@ -1255,9 +1247,8 @@ Definition f_SHA256_Update := {|
(Econst_int (Int.repr 0) tint) tint)
(Scall None
(Evar _memcpy (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint Tnil)))
- (tptr tvoid) cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint ::
+ nil) (tptr tvoid) cc_default))
((Etempvar _p (tptr tuchar)) ::
(Etempvar _data (tptr tuchar)) ::
(Etempvar _len tuint) :: nil))
@@ -1302,8 +1293,7 @@ Definition f_SHA256_Final := {|
(Ssequence
(Scall None
(Evar _memset (Tfunction
- (Tcons (tptr tvoid)
- (Tcons tint (Tcons tuint Tnil)))
+ ((tptr tvoid) :: tint :: tuint :: nil)
(tptr tvoid) cc_default))
((Ebinop Oadd (Etempvar _p (tptr tuchar)) (Etempvar _n tuint)
(tptr tuchar)) :: (Econst_int (Int.repr 0) tint) ::
@@ -1315,20 +1305,16 @@ Definition f_SHA256_Final := {|
(Sset _n (Econst_int (Int.repr 0) tint))
(Scall None
(Evar _sha256_block_data_order (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid)
- Tnil)) tvoid
- cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: nil)
+ tvoid cc_default))
((Etempvar _c (tptr (Tstruct _SHA256state_st noattr))) ::
(Etempvar _p (tptr tuchar)) :: nil))))
Sskip)
(Ssequence
(Scall None
- (Evar _memset (Tfunction
- (Tcons (tptr tvoid)
- (Tcons tint (Tcons tuint Tnil))) (tptr tvoid)
- cc_default))
+ (Evar _memset (Tfunction ((tptr tvoid) :: tint :: tuint :: nil)
+ (tptr tvoid) cc_default))
((Ebinop Oadd (Etempvar _p (tptr tuchar)) (Etempvar _n tuint)
(tptr tuchar)) :: (Econst_int (Int.repr 0) tint) ::
(Ebinop Osub
@@ -1354,10 +1340,9 @@ Definition f_SHA256_Final := {|
(Ssequence
(Scall None
(Evar ___builtin_write32_reversed (Tfunction
- (Tcons (tptr tuint)
- (Tcons tuint
- Tnil)) tvoid
- cc_default))
+ ((tptr tuint) ::
+ tuint :: nil)
+ tvoid cc_default))
((Ecast (Etempvar _p (tptr tuchar)) (tptr tuint)) ::
(Etempvar _cNh tuint) :: nil))
(Sset _p
@@ -1373,10 +1358,8 @@ Definition f_SHA256_Final := {|
(Ssequence
(Scall None
(Evar ___builtin_write32_reversed (Tfunction
- (Tcons
- (tptr tuint)
- (Tcons tuint
- Tnil))
+ ((tptr tuint) ::
+ tuint :: nil)
tvoid
cc_default))
((Ecast (Etempvar _p (tptr tuchar)) (tptr tuint)) ::
@@ -1393,11 +1376,9 @@ Definition f_SHA256_Final := {|
(Ssequence
(Scall None
(Evar _sha256_block_data_order (Tfunction
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- (Tcons
- (tptr tvoid)
- Tnil)) tvoid
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) ::
+ nil) tvoid
cc_default))
((Etempvar _c (tptr (Tstruct _SHA256state_st noattr))) ::
(Etempvar _p (tptr tuchar)) :: nil))
@@ -1411,10 +1392,9 @@ Definition f_SHA256_Final := {|
(Ssequence
(Scall None
(Evar _memset (Tfunction
- (Tcons (tptr tvoid)
- (Tcons tint
- (Tcons tuint Tnil)))
- (tptr tvoid) cc_default))
+ ((tptr tvoid) :: tint ::
+ tuint :: nil) (tptr tvoid)
+ cc_default))
((Etempvar _p (tptr tuchar)) ::
(Econst_int (Int.repr 0) tint) ::
(Ebinop Omul (Econst_int (Int.repr 16) tint)
@@ -1448,9 +1428,8 @@ Definition f_SHA256_Final := {|
(Scall None
(Evar ___builtin_write32_reversed
(Tfunction
- (Tcons (tptr tuint)
- (Tcons tuint Tnil)) tvoid
- cc_default))
+ ((tptr tuint) :: tuint :: nil)
+ tvoid cc_default))
((Ecast
(Etempvar _md (tptr tuchar))
(tptr tuint)) ::
@@ -1477,24 +1456,23 @@ Definition f_SHA256 := {|
(Ssequence
(Scall None
(Evar _SHA256_Init (Tfunction
- (Tcons (tptr (Tstruct _SHA256state_st noattr)) Tnil)
+ ((tptr (Tstruct _SHA256state_st noattr)) :: nil)
tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _SHA256state_st noattr))
(tptr (Tstruct _SHA256state_st noattr))) :: nil))
(Ssequence
(Scall None
(Evar _SHA256_Update (Tfunction
- (Tcons (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid) (Tcons tuint Tnil))) tvoid
- cc_default))
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid cc_default))
((Eaddrof (Evar _c (Tstruct _SHA256state_st noattr))
(tptr (Tstruct _SHA256state_st noattr))) ::
(Etempvar _d (tptr tuchar)) :: (Etempvar _n tuint) :: nil))
(Scall None
(Evar _SHA256_Final (Tfunction
- (Tcons (tptr tuchar)
- (Tcons (tptr (Tstruct _SHA256state_st noattr))
- Tnil)) tvoid cc_default))
+ ((tptr tuchar) ::
+ (tptr (Tstruct _SHA256state_st noattr)) :: nil)
+ tvoid cc_default))
((Etempvar _md (tptr tuchar)) ::
(Eaddrof (Evar _c (Tstruct _SHA256state_st noattr))
(tptr (Tstruct _SHA256state_st noattr))) :: nil))))
@@ -1510,277 +1488,271 @@ Definition composites : list composite_definition :=
Definition global_definitions : list (ident * globdef fundef type) :=
((___compcert_va_int32,
Gfun(External (EF_runtime "__compcert_va_int32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tvoid) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tvoid) :: nil) tuint cc_default)) ::
(___compcert_va_int64,
Gfun(External (EF_runtime "__compcert_va_int64"
- (mksignature (AST.Tint :: nil) AST.Tlong cc_default))
- (Tcons (tptr tvoid) Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xlong cc_default))
+ ((tptr tvoid) :: nil) tulong cc_default)) ::
(___compcert_va_float64,
Gfun(External (EF_runtime "__compcert_va_float64"
- (mksignature (AST.Tint :: nil) AST.Tfloat cc_default))
- (Tcons (tptr tvoid) Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xfloat cc_default))
+ ((tptr tvoid) :: nil) tdouble cc_default)) ::
(___compcert_va_composite,
Gfun(External (EF_runtime "__compcert_va_composite"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xptr
+ cc_default)) ((tptr tvoid) :: tuint :: nil) (tptr tvoid)
+ cc_default)) ::
(___compcert_i64_dtos,
Gfun(External (EF_runtime "__compcert_i64_dtos"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tlong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tlong cc_default)) ::
(___compcert_i64_dtou,
Gfun(External (EF_runtime "__compcert_i64_dtou"
- (mksignature (AST.Tfloat :: nil) AST.Tlong cc_default))
- (Tcons tdouble Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xlong cc_default))
+ (tdouble :: nil) tulong cc_default)) ::
(___compcert_i64_stod,
Gfun(External (EF_runtime "__compcert_i64_stod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tlong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tlong :: nil) tdouble cc_default)) ::
(___compcert_i64_utod,
Gfun(External (EF_runtime "__compcert_i64_utod"
- (mksignature (AST.Tlong :: nil) AST.Tfloat cc_default))
- (Tcons tulong Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xfloat cc_default))
+ (tulong :: nil) tdouble cc_default)) ::
(___compcert_i64_stof,
Gfun(External (EF_runtime "__compcert_i64_stof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tlong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tlong :: nil) tfloat cc_default)) ::
(___compcert_i64_utof,
Gfun(External (EF_runtime "__compcert_i64_utof"
- (mksignature (AST.Tlong :: nil) AST.Tsingle cc_default))
- (Tcons tulong Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xsingle cc_default))
+ (tulong :: nil) tfloat cc_default)) ::
(___compcert_i64_sdiv,
Gfun(External (EF_runtime "__compcert_i64_sdiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_udiv,
Gfun(External (EF_runtime "__compcert_i64_udiv"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_smod,
Gfun(External (EF_runtime "__compcert_i64_smod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umod,
Gfun(External (EF_runtime "__compcert_i64_umod"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
(___compcert_i64_shl,
Gfun(External (EF_runtime "__compcert_i64_shl"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_shr,
Gfun(External (EF_runtime "__compcert_i64_shr"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tint Tnil)) tulong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tulong :: tint :: nil) tulong cc_default)) ::
(___compcert_i64_sar,
Gfun(External (EF_runtime "__compcert_i64_sar"
- (mksignature (AST.Tlong :: AST.Tint :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tint Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xint :: nil) AST.Xlong
+ cc_default)) (tlong :: tint :: nil) tlong cc_default)) ::
(___compcert_i64_smulh,
Gfun(External (EF_runtime "__compcert_i64_smulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tlong (Tcons tlong Tnil)) tlong
- cc_default)) ::
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tlong :: tlong :: nil) tlong cc_default)) ::
(___compcert_i64_umulh,
Gfun(External (EF_runtime "__compcert_i64_umulh"
- (mksignature (AST.Tlong :: AST.Tlong :: nil) AST.Tlong
- cc_default)) (Tcons tulong (Tcons tulong Tnil)) tulong
+ (mksignature (AST.Xlong :: AST.Xlong :: nil) AST.Xlong
+ cc_default)) (tulong :: tulong :: nil) tulong
cc_default)) ::
+ (___builtin_ais_annot,
+ Gfun(External (EF_builtin "__builtin_ais_annot"
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
+ ((tptr tschar) :: nil) tvoid
+ {|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_bswap64,
Gfun(External (EF_builtin "__builtin_bswap64"
- (mksignature (AST.Tlong :: nil) AST.Tlong cc_default))
- (Tcons tulong Tnil) tulong cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xlong cc_default))
+ (tulong :: nil) tulong cc_default)) ::
(___builtin_bswap,
Gfun(External (EF_builtin "__builtin_bswap"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap32,
Gfun(External (EF_builtin "__builtin_bswap32"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tuint cc_default)) ::
(___builtin_bswap16,
Gfun(External (EF_builtin "__builtin_bswap16"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons tushort Tnil) tushort cc_default)) ::
+ (mksignature (AST.Xint16unsigned :: nil)
+ AST.Xint16unsigned cc_default)) (tushort :: nil) tushort
+ cc_default)) ::
(___builtin_clz,
Gfun(External (EF_builtin "__builtin_clz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzl,
Gfun(External (EF_builtin "__builtin_clzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_clzll,
Gfun(External (EF_builtin "__builtin_clzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_ctz,
Gfun(External (EF_builtin "__builtin_ctz"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzl,
Gfun(External (EF_builtin "__builtin_ctzl"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons tuint Tnil) tint cc_default)) ::
+ (mksignature (AST.Xint :: nil) AST.Xint cc_default))
+ (tuint :: nil) tint cc_default)) ::
(___builtin_ctzll,
Gfun(External (EF_builtin "__builtin_ctzll"
- (mksignature (AST.Tlong :: nil) AST.Tint cc_default))
- (Tcons tulong Tnil) tint cc_default)) ::
+ (mksignature (AST.Xlong :: nil) AST.Xint cc_default))
+ (tulong :: nil) tint cc_default)) ::
(___builtin_fabs,
Gfun(External (EF_builtin "__builtin_fabs"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_fabsf,
Gfun(External (EF_builtin "__builtin_fabsf"
- (mksignature (AST.Tsingle :: nil) AST.Tsingle cc_default))
- (Tcons tfloat Tnil) tfloat cc_default)) ::
+ (mksignature (AST.Xsingle :: nil) AST.Xsingle cc_default))
+ (tfloat :: nil) tfloat cc_default)) ::
(___builtin_fsqrt,
Gfun(External (EF_builtin "__builtin_fsqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_sqrt,
Gfun(External (EF_builtin "__builtin_sqrt"
- (mksignature (AST.Tfloat :: nil) AST.Tfloat cc_default))
- (Tcons tdouble Tnil) tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: nil) AST.Xfloat cc_default))
+ (tdouble :: nil) tdouble cc_default)) ::
(___builtin_memcpy_aligned,
Gfun(External (EF_builtin "__builtin_memcpy_aligned"
(mksignature
- (AST.Tint :: AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tvoid cc_default))
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint (Tcons tuint Tnil)))) tvoid
+ (AST.Xptr :: AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: tuint :: nil) tvoid
cc_default)) ::
(___builtin_sel,
Gfun(External (EF_builtin "__builtin_sel"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xbool :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tbool Tnil) tvoid
+ (tbool :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot,
Gfun(External (EF_builtin "__builtin_annot"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xptr :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons (tptr tschar) Tnil) tvoid
+ ((tptr tschar) :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_annot_intval,
Gfun(External (EF_builtin "__builtin_annot_intval"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons (tptr tschar) (Tcons tint Tnil))
- tint cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xint
+ cc_default)) ((tptr tschar) :: tint :: nil) tint
+ cc_default)) ::
(___builtin_membar,
Gfun(External (EF_builtin "__builtin_membar"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_va_start,
Gfun(External (EF_builtin "__builtin_va_start"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_va_arg,
Gfun(External (EF_builtin "__builtin_va_arg"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tvoid) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: tuint :: nil) tvoid
+ cc_default)) ::
(___builtin_va_copy,
Gfun(External (EF_builtin "__builtin_va_copy"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) Tnil)) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: nil) AST.Xvoid
+ cc_default)) ((tptr tvoid) :: (tptr tvoid) :: nil) tvoid
+ cc_default)) ::
(___builtin_va_end,
Gfun(External (EF_builtin "__builtin_va_end"
- (mksignature (AST.Tint :: nil) AST.Tvoid cc_default))
- (Tcons (tptr tvoid) Tnil) tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xvoid cc_default))
+ ((tptr tvoid) :: nil) tvoid cc_default)) ::
(___builtin_unreachable,
Gfun(External (EF_builtin "__builtin_unreachable"
- (mksignature nil AST.Tvoid cc_default)) Tnil tvoid
+ (mksignature nil AST.Xvoid cc_default)) nil tvoid
cc_default)) ::
(___builtin_expect,
Gfun(External (EF_builtin "__builtin_expect"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tint
- cc_default)) (Tcons tint (Tcons tint Tnil)) tint
- cc_default)) ::
+ (mksignature (AST.Xint :: AST.Xint :: nil) AST.Xint
+ cc_default)) (tint :: tint :: nil) tint cc_default)) ::
(___builtin_fmax,
Gfun(External (EF_builtin "__builtin_fmax"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmin,
Gfun(External (EF_builtin "__builtin_fmin"
- (mksignature (AST.Tfloat :: AST.Tfloat :: nil) AST.Tfloat
- cc_default)) (Tcons tdouble (Tcons tdouble Tnil))
- tdouble cc_default)) ::
+ (mksignature (AST.Xfloat :: AST.Xfloat :: nil) AST.Xfloat
+ cc_default)) (tdouble :: tdouble :: nil) tdouble
+ cc_default)) ::
(___builtin_fmadd,
Gfun(External (EF_builtin "__builtin_fmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fmsub,
Gfun(External (EF_builtin "__builtin_fmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmadd,
Gfun(External (EF_builtin "__builtin_fnmadd"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_fnmsub,
Gfun(External (EF_builtin "__builtin_fnmsub"
(mksignature
- (AST.Tfloat :: AST.Tfloat :: AST.Tfloat :: nil)
- AST.Tfloat cc_default))
- (Tcons tdouble (Tcons tdouble (Tcons tdouble Tnil))) tdouble
- cc_default)) ::
+ (AST.Xfloat :: AST.Xfloat :: AST.Xfloat :: nil)
+ AST.Xfloat cc_default))
+ (tdouble :: tdouble :: tdouble :: nil) tdouble cc_default)) ::
(___builtin_read16_reversed,
Gfun(External (EF_builtin "__builtin_read16_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint16unsigned
- cc_default)) (Tcons (tptr tushort) Tnil) tushort
+ (mksignature (AST.Xptr :: nil) AST.Xint16unsigned
+ cc_default)) ((tptr tushort) :: nil) tushort
cc_default)) ::
(___builtin_write16_reversed,
Gfun(External (EF_builtin "__builtin_write16_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tushort) (Tcons tushort Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint16unsigned :: nil)
+ AST.Xvoid cc_default))
+ ((tptr tushort) :: tushort :: nil) tvoid cc_default)) ::
(___builtin_debug,
Gfun(External (EF_external "__builtin_debug"
- (mksignature (AST.Tint :: nil) AST.Tvoid
+ (mksignature (AST.Xint :: nil) AST.Xvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|}))
- (Tcons tint Tnil) tvoid
+ (tint :: nil) tvoid
{|cc_vararg:=(Some 1); cc_unproto:=false; cc_structret:=false|})) ::
(___builtin_read32_reversed,
Gfun(External (EF_builtin "__builtin_read32_reversed"
- (mksignature (AST.Tint :: nil) AST.Tint cc_default))
- (Tcons (tptr tuint) Tnil) tuint cc_default)) ::
+ (mksignature (AST.Xptr :: nil) AST.Xint cc_default))
+ ((tptr tuint) :: nil) tuint cc_default)) ::
(___builtin_write32_reversed,
Gfun(External (EF_builtin "__builtin_write32_reversed"
- (mksignature (AST.Tint :: AST.Tint :: nil) AST.Tvoid
- cc_default)) (Tcons (tptr tuint) (Tcons tuint Tnil))
- tvoid cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xint :: nil) AST.Xvoid
+ cc_default)) ((tptr tuint) :: tuint :: nil) tvoid
+ cc_default)) ::
(_memcpy,
Gfun(External (EF_external "memcpy"
- (mksignature (AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tint cc_default))
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) (Tcons tuint Tnil)))
- (tptr tvoid) cc_default)) ::
+ (mksignature (AST.Xptr :: AST.Xptr :: AST.Xint :: nil)
+ AST.Xptr cc_default))
+ ((tptr tvoid) :: (tptr tvoid) :: tuint :: nil) (tptr tvoid) cc_default)) ::
(_memset,
Gfun(External (EF_external "memset"
- (mksignature (AST.Tint :: AST.Tint :: AST.Tint :: nil)
- AST.Tint cc_default))
- (Tcons (tptr tvoid) (Tcons tint (Tcons tuint Tnil))) (tptr tvoid)
- cc_default)) :: (_K256, Gvar v_K256) ::
+ (mksignature (AST.Xptr :: AST.Xint :: AST.Xint :: nil)
+ AST.Xptr cc_default))
+ ((tptr tvoid) :: tint :: tuint :: nil) (tptr tvoid) cc_default)) ::
+ (_K256, Gvar v_K256) ::
(_sha256_block_data_order, Gfun(Internal f_sha256_block_data_order)) ::
(_SHA256_Init, Gfun(Internal f_SHA256_Init)) ::
(_SHA256_addlength, Gfun(Internal f_SHA256_addlength)) ::
@@ -1803,12 +1775,12 @@ Definition public_idents : list ident :=
___builtin_fabs :: ___builtin_ctzll :: ___builtin_ctzl :: ___builtin_ctz ::
___builtin_clzll :: ___builtin_clzl :: ___builtin_clz ::
___builtin_bswap16 :: ___builtin_bswap32 :: ___builtin_bswap ::
- ___builtin_bswap64 :: ___compcert_i64_umulh :: ___compcert_i64_smulh ::
- ___compcert_i64_sar :: ___compcert_i64_shr :: ___compcert_i64_shl ::
- ___compcert_i64_umod :: ___compcert_i64_smod :: ___compcert_i64_udiv ::
- ___compcert_i64_sdiv :: ___compcert_i64_utof :: ___compcert_i64_stof ::
- ___compcert_i64_utod :: ___compcert_i64_stod :: ___compcert_i64_dtou ::
- ___compcert_i64_dtos :: ___compcert_va_composite ::
+ ___builtin_bswap64 :: ___builtin_ais_annot :: ___compcert_i64_umulh ::
+ ___compcert_i64_smulh :: ___compcert_i64_sar :: ___compcert_i64_shr ::
+ ___compcert_i64_shl :: ___compcert_i64_umod :: ___compcert_i64_smod ::
+ ___compcert_i64_udiv :: ___compcert_i64_sdiv :: ___compcert_i64_utof ::
+ ___compcert_i64_stof :: ___compcert_i64_utod :: ___compcert_i64_stod ::
+ ___compcert_i64_dtou :: ___compcert_i64_dtos :: ___compcert_va_composite ::
___compcert_va_float64 :: ___compcert_va_int64 :: ___compcert_va_int32 ::
nil).
diff --git a/sha/spec_sha.v b/sha/spec_sha.v
index 0e4d9a032d..3f3c5e7508 100644
--- a/sha/spec_sha.v
+++ b/sha/spec_sha.v
@@ -210,7 +210,7 @@ Definition Gprog : funspecs :=
Fixpoint do_builtins (n: nat) (defs : list (ident * globdef Clight.fundef type)) : funspecs :=
match n, defs with
| S n', (id, Gfun (External (EF_builtin _ sig) argtys resty cc_default))::defs' =>
- (id, NDmk_funspec ((*iota_formals 1%positive*) typelist2list argtys, resty) cc_default unit FF FF)
+ (id, NDmk_funspec ((*iota_formals 1%positive*) argtys, resty) cc_default unit FF FF)
:: do_builtins n' defs'
| _, _ => nil
end.
diff --git a/sha/verif_hmac_init_part1.v b/sha/verif_hmac_init_part1.v
index e54ff8925d..a73152ca41 100644
--- a/sha/verif_hmac_init_part1.v
+++ b/sha/verif_hmac_init_part1.v
@@ -89,62 +89,56 @@ Lemma Init_part1_j_lt_len Espec (kb ckb cb: block) (kofs ckoff cofs: ptrofs)
K_vector gv; data_at_ wsh t_struct_hmac_ctx_st (Vptr cb cofs);
data_at_ Tsh (tarray tuchar 64) (Vptr ckb ckoff)))
- (Ssequence
- (Scall None
- (Evar _SHA256_Init
- (Tfunction
- (Tcons (tptr (Tstruct _SHA256state_st noattr)) Tnil)
- tvoid cc_default))
- [Eaddrof
+ (Ssequence
+ (Scall None
+ (Evar _SHA256_Init (Tfunction
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ nil) tvoid cc_default))
+ ((Eaddrof
+ (Efield
+ (Ederef
+ (Etempvar _ctx (tptr (Tstruct _hmac_ctx_st noattr)))
+ (Tstruct _hmac_ctx_st noattr)) _md_ctx
+ (Tstruct _SHA256state_st noattr))
+ (tptr (Tstruct _SHA256state_st noattr))) :: nil))
+ (Ssequence
+ (Scall None
+ (Evar _SHA256_Update (Tfunction
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: tuint :: nil) tvoid
+ cc_default))
+ ((Eaddrof
+ (Efield
+ (Ederef
+ (Etempvar _ctx (tptr (Tstruct _hmac_ctx_st noattr)))
+ (Tstruct _hmac_ctx_st noattr)) _md_ctx
+ (Tstruct _SHA256state_st noattr))
+ (tptr (Tstruct _SHA256state_st noattr))) ::
+ (Etempvar _key (tptr tuchar)) :: (Etempvar _len tint) ::
+ nil))
+ (Ssequence
+ (Scall None
+ (Evar _SHA256_Final (Tfunction
+ ((tptr tuchar) ::
+ (tptr (Tstruct _SHA256state_st noattr)) ::
+ nil) tvoid cc_default))
+ ((Evar _ctx_key (tarray tuchar 64)) ::
+ (Eaddrof
(Efield
- (Ederef
- (Etempvar _ctx
- (tptr (Tstruct _hmac_ctx_st noattr)))
- (Tstruct _hmac_ctx_st noattr)) _md_ctx
- (Tstruct _SHA256state_st noattr))
- (tptr (Tstruct _SHA256state_st noattr))])
- (Ssequence
- (Scall None
- (Evar _SHA256_Update
- (Tfunction
- (Tcons (tptr (Tstruct _SHA256state_st noattr))
- (Tcons (tptr tvoid) (Tcons tuint Tnil)))
- tvoid cc_default))
- [Eaddrof
- (Efield
- (Ederef
- (Etempvar _ctx
- (tptr (Tstruct _hmac_ctx_st noattr)))
- (Tstruct _hmac_ctx_st noattr)) _md_ctx
- (Tstruct _SHA256state_st noattr))
- (tptr (Tstruct _SHA256state_st noattr));
- Etempvar _key (tptr tuchar); Etempvar _len tint])
- (Ssequence
- (Scall None
- (Evar _SHA256_Final
- (Tfunction
- (Tcons (tptr tuchar)
- (Tcons
- (tptr (Tstruct _SHA256state_st noattr))
- Tnil)) tvoid cc_default))
- [Evar _ctx_key (tarray tuchar 64);
- Eaddrof
- (Efield
- (Ederef
- (Etempvar _ctx
- (tptr (Tstruct _hmac_ctx_st noattr)))
- (Tstruct _hmac_ctx_st noattr)) _md_ctx
- (Tstruct _SHA256state_st noattr))
- (tptr (Tstruct _SHA256state_st noattr))])
+ (Ederef
+ (Etempvar _ctx (tptr (Tstruct _hmac_ctx_st noattr)))
+ (Tstruct _hmac_ctx_st noattr)) _md_ctx
+ (Tstruct _SHA256state_st noattr))
+ (tptr (Tstruct _SHA256state_st noattr))) :: nil))
(Scall None
(Evar _memset (Tfunction
- (Tcons (tptr tvoid)
- (Tcons tint (Tcons tuint Tnil)))
+ ((tptr tvoid) :: tint :: tuint :: nil)
(tptr tvoid) cc_default))
((Ebinop Oadd (Evar _ctx_key (tarray tuchar 64))
(Econst_int (Int.repr 32) tint) (tptr tuchar)) ::
(Econst_int (Int.repr 0) tint) ::
(Econst_int (Int.repr 32) tint) :: nil)))))
+
(normal_ret_assert (PROP ()
LOCAL (temp _reset (Vint (Int.repr 1));
lvar _ctx_key (tarray tuchar 64) (Vptr ckb ckoff);
@@ -297,16 +291,16 @@ Lemma Init_part1_len_le_j Espec (kb ckb cb: block) (kofs ckoff cofs:ptrofs)
(Ssequence
(Scall None
(Evar _memcpy (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid) (Tcons tuint Tnil)))
+ (cons (tptr tvoid)
+ (cons (tptr tvoid) (cons tuint nil)))
(tptr tvoid) cc_default))
((Evar _ctx_key (tarray tuchar 64)) ::
(Etempvar _key (tptr tuchar)) :: (Etempvar _len tint) ::
nil))
(Scall None
(Evar _memset (Tfunction
- (Tcons (tptr tvoid)
- (Tcons tint (Tcons tuint Tnil)))
+ (cons (tptr tvoid)
+ (cons tint (cons tuint nil)))
(tptr tvoid) cc_default))
((Ebinop Oadd (Evar _ctx_key (tarray tuchar 64))
(Etempvar _len tint) (tptr tuchar)) ::
diff --git a/sha/verif_hmac_init_part2.v b/sha/verif_hmac_init_part2.v
index 842c1334c8..b24dad6f1d 100644
--- a/sha/verif_hmac_init_part2.v
+++ b/sha/verif_hmac_init_part2.v
@@ -226,11 +226,17 @@ Lemma ipad_loop Espec pb pofs cb cofs ckb ckoff kb kofs l key gv (FR:mpred): for
(Sfor (Sset _i (Econst_int (Int.repr 0) tint))
(Ebinop Olt (Etempvar _i tint) (Econst_int (Int.repr 64) tint) tint)
(Ssequence
- (Sset _aux
+ (Ssequence
+ (Sset _t'2
+ (Ederef
+ (Ebinop Oadd (Evar _ctx_key (tarray tuchar 64))
+ (Etempvar _i tint) (tptr tuchar)) tuchar))
+ (Sset _aux (Ecast (Etempvar _t'2 tuchar) tuchar)))
+(* (Sset _aux
(Ecast
(Ederef
(Ebinop Oadd (Evar _ctx_key (Tarray tuchar 64 noattr))
- (Etempvar _i tint) (tptr tuchar)) tuchar) tuchar))
+ (Etempvar _i tint) (tptr tuchar)) tuchar) tuchar))*)
(Ssequence
(Sset _aux
(Ecast
@@ -289,10 +295,10 @@ Proof. intros. abbreviate_semax.
}
Time freeze FR1 := - (@data_at CompSpecs _ _ _ (Vptr ckb _)).
- Time forward; (*6.7 versus 9*)
+ Time forward; [ | forward]; (*6.7 versus 9*)
change Inhabitant_val with Vundef in X;
rewrite X.
- { entailer!. apply isbyte_zeroExt8'. }
+ { entailer!!. rep_lia. }
Time forward. (*1.9 versus 3.4*)
unfold Int.xor.
rewrite Int.unsigned_repr. 2: rewrite int_max_unsigned_eq; lia.
@@ -360,11 +366,15 @@ Lemma opadloop Espec pb pofs cb cofs ckb ckoff kb kofs l wsh key gv (FR:mpred):
(Sfor (Sset _i (Econst_int (Int.repr 0) tint))
(Ebinop Olt (Etempvar _i tint) (Econst_int (Int.repr 64) tint) tint)
(Ssequence
- (Sset _aux
+ (Ssequence
+ (Sset _t'1 (Ederef (Ebinop Oadd (Evar _ctx_key (tarray tuchar 64))
+ (Etempvar _i tint) (tptr tuchar)) tuchar))
+ (Sset _aux (Ecast (Etempvar _t'1 tuchar) tuchar)))
+(* (Sset _aux
(Ecast
(Ederef
(Ebinop Oadd (Evar _ctx_key (tarray tuchar 64))
- (Etempvar _i tint) (tptr tuchar)) tuchar) tuchar))
+ (Etempvar _i tint) (tptr tuchar)) tuchar) tuchar))*)
(Sassign
(Ederef
(Ebinop Oadd (Evar _pad (tarray tuchar 64)) (Etempvar _i tint)
@@ -421,11 +431,10 @@ freeze FR1 := - (data_at _ _ _ (Vptr ckb _)) (data_block _ _ _).
repeat rewrite map_nth. rewrite Qb. trivial.
}
freeze FR2 := - (data_at _ _ _ (Vptr ckb _)).
- Time forward;
+ Time forward; [ | forward];
change Inhabitant_val with Vundef in X;
rewrite X. (*5.3 versus 7.8, and we've eliminated some floyds preceding the call*)
- { Time entailer!. (*1.8 versus 2.9*)
- apply isbyte_zeroExt8'.
+ { Time entailer!!. rep_lia. (*1.8 versus 2.9*)
}
thaw FR2.
(*doing freeze [0; 2] FR3. here lets the entailer! 2 lines below take 11 secs instead of 5,
diff --git a/sha/verif_sha_final2.v b/sha/verif_sha_final2.v
index 901d593e5b..be93f5164a 100644
--- a/sha/verif_sha_final2.v
+++ b/sha/verif_sha_final2.v
@@ -89,11 +89,10 @@ auto.
Qed.
Definition Body_final_if1 :=
- (Ssequence
+ (Ssequence
(Scall None
(Evar _memset (Tfunction
- (Tcons (tptr tvoid)
- (Tcons tint (Tcons tuint Tnil)))
+ ((tptr tvoid) :: tint :: tuint :: nil)
(tptr tvoid) cc_default))
((Ebinop Oadd (Etempvar _p (tptr tuchar)) (Etempvar _n tuint)
(tptr tuchar)) :: (Econst_int (Int.repr 0) tint) ::
@@ -105,11 +104,10 @@ Definition Body_final_if1 :=
(Sset _n (Econst_int (Int.repr 0) tint))
(Scall None
(Evar _sha256_block_data_order (Tfunction
- (Tcons
- (tptr t_struct_SHA256state_st)
- (Tcons (tptr tvoid)
- Tnil)) tvoid cc_default))
- ((Etempvar _c (tptr t_struct_SHA256state_st)) ::
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: nil)
+ tvoid cc_default))
+ ((Etempvar _c (tptr (Tstruct _SHA256state_st noattr))) ::
(Etempvar _p (tptr tuchar)) :: nil)))).
Lemma Byte_repr_128: Vubyte (Byte.repr 128) = Vint (Int.repr 128).
diff --git a/sha/verif_sha_final3.v b/sha/verif_sha_final3.v
index 5a914fc147..b7e1aed6cf 100644
--- a/sha/verif_sha_final3.v
+++ b/sha/verif_sha_final3.v
@@ -24,7 +24,7 @@ Definition final_loop :=
(Scall None
(Evar ___builtin_write32_reversed
(Tfunction
- (Tcons (tptr tuint) (Tcons tuint Tnil))
+ (cons (tptr tuint) (cons tuint nil))
tvoid cc_default))
[Ecast (Etempvar _md (tptr tuchar))
(tptr tuint); Etempvar _ll tuint])
@@ -40,8 +40,8 @@ Definition sha_final_epilog :=
(Ssequence
(Scall None
(Evar _sha256_block_data_order (Tfunction
- (Tcons(tptr t_struct_SHA256state_st)
- (Tcons (tptr tvoid) Tnil))
+ (cons(tptr t_struct_SHA256state_st)
+ (cons (tptr tvoid) nil))
tvoid cc_default))
((Etempvar _c (tptr t_struct_SHA256state_st)) ::
(Etempvar _p (tptr tuchar)) :: nil))
@@ -55,9 +55,9 @@ Definition sha_final_epilog :=
(Ssequence
(Scall None
(Evar _memset (Tfunction
- (Tcons (tptr tvoid)
- (Tcons tint
- (Tcons tuint Tnil)))
+ (cons (tptr tvoid)
+ (cons tint
+ (cons tuint nil)))
(tptr tvoid) cc_default))
((Etempvar _p (tptr tuchar)) ::
(Econst_int (Int.repr 0) tint) ::
@@ -76,7 +76,7 @@ Definition sha_final_part2 :=
(Ssequence
(Scall None
(Evar ___builtin_write32_reversed
- (Tfunction (Tcons (tptr tuint) (Tcons tuint Tnil)) tvoid cc_default))
+ (Tfunction (cons (tptr tuint) (cons tuint nil)) tvoid cc_default))
[Ecast (Etempvar _p (tptr tuchar)) (tptr tuint);
Etempvar _cNh tuint])
(Sset _p
@@ -91,7 +91,7 @@ Definition sha_final_part2 :=
(Ssequence
(Scall None
(Evar ___builtin_write32_reversed
- (Tfunction (Tcons (tptr tuint) (Tcons tuint Tnil))
+ (Tfunction (cons (tptr tuint) (cons tuint nil))
tvoid cc_default))
[Ecast (Etempvar _p (tptr tuchar)) (tptr tuint);
Etempvar _cNl tuint])
diff --git a/sha/verif_sha_update3.v b/sha/verif_sha_update3.v
index d1dc2b8501..f0224e426a 100644
--- a/sha/verif_sha_update3.v
+++ b/sha/verif_sha_update3.v
@@ -7,59 +7,59 @@ Require Import sha.call_memcpy.
Local Open Scope logic.
Definition update_inner_if_then :=
+ (Ssequence
+ (Scall None
+ (Evar _memcpy (Tfunction
+ ((tptr tvoid) :: (tptr tvoid) :: tuint ::
+ nil) (tptr tvoid) cc_default))
+ ((Ebinop Oadd (Etempvar _p (tptr tuchar))
+ (Etempvar _n tuint) (tptr tuchar)) ::
+ (Etempvar _data (tptr tuchar)) ::
+ (Etempvar _fragment tuint) :: nil))
(Ssequence
- (Scall None
- (Evar _memcpy
- (Tfunction
- (Tcons (tptr tvoid) (Tcons (tptr tvoid) (Tcons tuint Tnil)))
- (tptr tvoid) cc_default))
- [Ebinop Oadd (Etempvar _p (tptr tuchar)) (Etempvar _n tuint)
- (tptr tuchar); Etempvar _data (tptr tuchar);
- Etempvar _fragment tuint])
- (Ssequence
+ (Scall None
+ (Evar _sha256_block_data_order (Tfunction
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: nil)
+ tvoid cc_default))
+ ((Etempvar _c (tptr (Tstruct _SHA256state_st noattr))) ::
+ (Etempvar _p (tptr tuchar)) :: nil))
+ (Ssequence
+ (Sset _data
+ (Ebinop Oadd (Etempvar _data (tptr tuchar))
+ (Etempvar _fragment tuint) (tptr tuchar)))
+ (Ssequence
+ (Sset _len
+ (Ebinop Osub (Etempvar _len tuint)
+ (Etempvar _fragment tuint) tuint))
(Scall None
- (Evar _sha256_block_data_order
- (Tfunction
- (Tcons (tptr t_struct_SHA256state_st)
- (Tcons (tptr tvoid) Tnil)) tvoid cc_default))
- [Etempvar _c (tptr t_struct_SHA256state_st);
- Etempvar _p (tptr tuchar)])
- (Ssequence
- (Sset _data
- (Ebinop Oadd (Etempvar _data (tptr tuchar))
- (Etempvar _fragment tuint) (tptr tuchar)))
- (Ssequence
- (Sset _len
- (Ebinop Osub (Etempvar _len tuint)
- (Etempvar _fragment tuint) tuint))
- (Scall None
- (Evar _memset
- (Tfunction
- (Tcons (tptr tvoid) (Tcons tint (Tcons tuint Tnil)))
- (tptr tvoid) cc_default))
- [Etempvar _p (tptr tuchar); Econst_int (Int.repr 0) tint;
- Ebinop Omul (Econst_int (Int.repr 16) tint)
- (Econst_int (Int.repr 4) tint) tint]))))).
+ (Evar _memset (Tfunction
+ ((tptr tvoid) :: tint :: tuint ::
+ nil) (tptr tvoid) cc_default))
+ ((Etempvar _p (tptr tuchar)) ::
+ (Econst_int (Int.repr 0) tint) ::
+ (Ebinop Omul (Econst_int (Int.repr 16) tint)
+ (Econst_int (Int.repr 4) tint) tint) :: nil)))))).
Definition update_inner_if_else :=
- (Ssequence
- (Scall None
- (Evar _memcpy (Tfunction
- (Tcons (tptr tvoid)
- (Tcons (tptr tvoid)
- (Tcons tuint Tnil))) (tptr tvoid) cc_default))
- ((Ebinop Oadd (Etempvar _p (tptr tuchar))
- (Etempvar _n tuint) (tptr tuchar)) ::
- (Etempvar _data (tptr tuchar)) ::
- (Etempvar _len tuint) :: nil))
- (Ssequence
- (Sassign
- (Efield
- (Ederef (Etempvar _c (tptr t_struct_SHA256state_st))
- t_struct_SHA256state_st) _num tuint)
- (Ebinop Oadd (Etempvar _n tuint)
- (Ecast (Etempvar _len tuint) tuint) tuint))
- (Sreturn None))).
+ (Ssequence
+ (Scall None
+ (Evar _memcpy (Tfunction
+ ((tptr tvoid) :: (tptr tvoid) :: tuint ::
+ nil) (tptr tvoid) cc_default))
+ ((Ebinop Oadd (Etempvar _p (tptr tuchar))
+ (Etempvar _n tuint) (tptr tuchar)) ::
+ (Etempvar _data (tptr tuchar)) ::
+ (Etempvar _len tuint) :: nil))
+ (Ssequence
+ (Sassign
+ (Efield
+ (Ederef
+ (Etempvar _c (tptr (Tstruct _SHA256state_st noattr)))
+ (Tstruct _SHA256state_st noattr)) _num tuint)
+ (Ebinop Oadd (Etempvar _n tuint)
+ (Ecast (Etempvar _len tuint) tuint) tuint))
+ (Sreturn None))).
Definition update_inner_if :=
Sifthenelse (Ebinop Oge (Etempvar _len tuint)
diff --git a/sha/verif_sha_update4.v b/sha/verif_sha_update4.v
index 82270750d4..c7db314716 100644
--- a/sha/verif_sha_update4.v
+++ b/sha/verif_sha_update4.v
@@ -22,23 +22,23 @@ assert (Zlength (intlist_to_bytelist blocks) =
Qed.
Definition sha_update_loop_body :=
- (Ssequence
- (Scall None
- (Evar _sha256_block_data_order
- (Tfunction
- (Tcons (tptr t_struct_SHA256state_st) (Tcons (tptr tvoid) Tnil))
- tvoid cc_default))
- [Etempvar _c (tptr t_struct_SHA256state_st);
- Etempvar _data (tptr tuchar)])
- (Ssequence
- (Sset _data
- (Ebinop Oadd (Etempvar _data (tptr tuchar))
- (Ebinop Omul (Econst_int (Int.repr 16) tint)
- (Econst_int (Int.repr 4) tint) tint) (tptr tuchar)))
- (Sset _len
- (Ebinop Osub (Etempvar _len tuint)
- (Ebinop Omul (Econst_int (Int.repr 16) tint)
- (Econst_int (Int.repr 4) tint) tint) tuint)))).
+ (Ssequence
+ (Scall None
+ (Evar _sha256_block_data_order (Tfunction
+ ((tptr (Tstruct _SHA256state_st noattr)) ::
+ (tptr tvoid) :: nil)
+ tvoid cc_default))
+ ((Etempvar _c (tptr (Tstruct _SHA256state_st noattr))) ::
+ (Etempvar _data (tptr tuchar)) :: nil))
+ (Ssequence
+ (Sset _data
+ (Ebinop Oadd (Etempvar _data (tptr tuchar))
+ (Ebinop Omul (Econst_int (Int.repr 16) tint)
+ (Econst_int (Int.repr 4) tint) tint) (tptr tuchar)))
+ (Sset _len
+ (Ebinop Osub (Etempvar _len tuint)
+ (Ebinop Omul (Econst_int (Int.repr 16) tint)
+ (Econst_int (Int.repr 4) tint) tint) tuint)))).
Definition update_outer_if :=
Sifthenelse
diff --git a/veric/Clight_core.v b/veric/Clight_core.v
index 6075422b21..eb1bc621e1 100644
--- a/veric/Clight_core.v
+++ b/veric/Clight_core.v
@@ -112,16 +112,10 @@ Fixpoint params_of_types (i: positive) (l : list type) : list (ident * type) :=
| t :: l => (i, t) :: params_of_types (i+1)%positive l
end.
-Fixpoint typelist2list (tl: typelist) : list type :=
- match tl with
- | Tcons t r => t::typelist2list r
- | Tnil => nil
- end.
-
Definition params_of_fundef (f: fundef) : list type :=
match f with
| Internal {| fn_params := fn_params |} => map snd fn_params
- | External _ t _ _ => typelist2list t
+ | External _ t _ _ => t
end.
Definition cl_initial_core (ge: genv) (v: val) (args: list val) : option CC_core :=
@@ -136,7 +130,7 @@ Definition cl_initial_core (ge: genv) (v: val) (args: list val) : option CC_core
| _ => None
end.
-Definition stuck_signature : signature := mksignature nil AST.Tvoid cc_default.
+Definition stuck_signature : signature := mksignature nil Xvoid cc_default.
(*
Definition ef_no_event (ef: external_function) : bool :=
diff --git a/veric/Clight_evsem.v b/veric/Clight_evsem.v
index 4071f22a3f..6b947f3bb8 100644
--- a/veric/Clight_evsem.v
+++ b/veric/Clight_evsem.v
@@ -212,14 +212,14 @@ Scheme eval_exprT_ind2 := Minimality for eval_exprT Sort Prop
with eval_lvalueT_ind2 := Minimality for eval_lvalueT Sort Prop.
Combined Scheme eval_exprT_lvalue_ind from eval_exprT_ind2, eval_lvalueT_ind2.
-Inductive eval_exprTlist: list expr -> typelist -> list val -> list mem_event-> Prop :=
+Inductive eval_exprTlist: list expr -> list type -> list val -> list mem_event-> Prop :=
| eval_ETnil:
- eval_exprTlist nil Tnil nil nil
+ eval_exprTlist nil nil nil nil
| eval_ETcons: forall a bl ty tyl v1 v2 vl T1 T2,
eval_exprT a v1 T1 ->
sem_cast v1 (typeof a) ty m = Some v2 ->
eval_exprTlist bl tyl vl T2 ->
- eval_exprTlist (a :: bl) (Tcons ty tyl) (v2 :: vl) (T1++T2).
+ eval_exprTlist (a :: bl) (ty:: tyl) (v2 :: vl) (T1++T2).
Lemma eval_exprT_ax1: forall a v T, eval_exprT a v T -> eval_expr g e le m a v
with eval_lvalueT_ax1: forall a b z bf T, eval_lvalueT a b z bf T -> eval_lvalue g e le m a b z bf.
@@ -465,7 +465,7 @@ Inductive cl_evstep (ge: Clight.genv): forall (q: CC_core) (m: mem) (T:list mem_
| evstep_builtin : forall (f : function)
(optid : option ident) (ef : external_function)
- (tyargs : typelist) (al : list expr)
+ (tyargs : list type) (al : list expr)
(k : cont) (e : env) (le : temp_env)
(m : mem) (vargs : list val)
(t : Events.trace) (vres : val)
diff --git a/veric/Cop2.v b/veric/Cop2.v
index 2c628b164a..8d7ac58d52 100644
--- a/veric/Cop2.v
+++ b/veric/Cop2.v
@@ -76,22 +76,17 @@ Fixpoint eqb_type (a b: type) {struct a} : bool :=
| Tfloat sa aa, Tfloat sb ab => andb (eqb_floatsize sa sb) (eqb_attr aa ab)
| Tpointer ta aa, Tpointer tb ab => andb (eqb_type ta tb) (eqb_attr aa ab)
| Tarray ta sa aa, Tarray tb sb ab => andb (eqb_type ta tb)
- (andb (Zeq_bool sa sb) (eqb_attr aa ab))
+ (andb (Zeq_bool sa sb) (eqb_attr aa ab))
| Tfunction sa ta ca, Tfunction sb tb cb =>
- andb (andb (eqb_typelist sa sb) (eqb_type ta tb)) (eqb_calling_convention ca cb)
+ andb (andb (eqb_list eqb_type sa sb) (eqb_type ta tb)) (eqb_calling_convention ca cb)
| Tstruct ia aa, Tstruct ib ab => andb (eqb_ident ia ib) (eqb_attr aa ab)
| Tunion ia aa, Tunion ib ab => andb (eqb_ident ia ib) (eqb_attr aa ab)
| _, _ => false
- end
-with eqb_typelist (a b: typelist) {struct a}: bool :=
- match a, b with
- | Tcons ta ra, Tcons tb rb => andb (eqb_type ta tb) (eqb_typelist ra rb)
- | Tnil, Tnil => true
- | _ , _ => false
- end.
+ end.
-Scheme eqb_type_sch := Induction for type Sort Prop
- with eqb_typelist_sch := Induction for typelist Sort Prop.
+(* The following would work, but it would (probably) compute a lot slower in Coq:
+Definition eqb_type (a b: type) := proj_sumbool (type_eq a b).
+*)
Definition eqb_member (it1 it2: member): bool :=
match it1, it2 with
@@ -152,34 +147,81 @@ apply Z.eqb_eq in H1; subst.
auto.
Qed.
+Lemma eqb_type_refl: forall a, eqb_type a a = true.
+Proof.
+ fix REC 1.
+destruct a; simpl; intros; rewrite ?andb_true_iff; repeat split; auto;
+try apply eqb_intsize_spec;
+try apply eqb_floatsize_spec;
+try apply eqb_signedness_spec;
+try apply eqb_attr_spec;
+try apply Zaux.Zeq_bool_diag;
+try apply eqb_calling_convention_refl;
+try apply eqb_ident_spec;
+auto.
+induction l; simpl; intros; auto.
+rewrite andb_true_iff; split; auto.
+Qed.
+
Lemma eqb_type_spec: forall a b, eqb_type a b = true <-> a=b.
Proof.
-apply (eqb_type_sch
- (fun a => forall b, eqb_type a b = true <-> a=b)
- (fun a => forall b, eqb_typelist a b = true <-> a=b));
- destruct b; simpl;
- split; intro;
- repeat rewrite andb_true_iff in *;
- try rewrite eqb_intsize_spec in *;
- try rewrite eqb_floatsize_spec in *;
- try rewrite eqb_signedness_spec in *;
- try rewrite eqb_attr_spec in *;
- try rewrite eqb_ident_spec in *;
- try rewrite <- Zeq_is_eq_bool in *;
- repeat match goal with H: _ /\ _ |- _ => destruct H end;
- repeat split; subst; f_equal; try congruence;
- try solve [apply H; auto];
- try solve [inv H0; apply H; auto].
-* apply H0; auto.
-* apply eqb_calling_convention_prop; auto.
-* inv H1; apply H; auto.
-* inv H1; apply H0; auto.
-* inv H1. apply eqb_calling_convention_refl.
-* apply H0; auto.
-* inv H1; apply H; auto.
-* inv H1; apply H0; auto.
+ fix REC 1.
+intros.
+destruct a,b; simpl; split; auto; try discriminate;
+ rewrite ?andb_true_iff; intro;
+ repeat match goal with
+ | H: _ /\ _ |- _ => destruct H
+ | H: eqb_intsize _ _ = true |- _ => apply eqb_intsize_spec in H
+ | H: eqb_signedness _ _ = true |- _ => apply eqb_signedness_spec in H
+ | H: eqb_attr _ _ = true |- _ => apply eqb_attr_spec in H
+ | H: eqb_floatsize _ _ = true |- _ => apply eqb_floatsize_spec in H
+ | H: eqb_calling_convention _ _ = true |- _ => apply eqb_calling_convention_prop in H
+ | H: Zeq_bool _ _ = true |- _ => apply Zeq_bool_eq in H
+ | H: eqb_ident _ _ = true |- _ => apply eqb_ident_spec in H
+ | H: eqb_type _ _ = true |- _ => apply REC in H
+ | H: Tint _ _ _ = _ |- _ => inv H
+ | H: Tlong _ _ = _ |- _ => inv H
+ | H: Tfloat _ _ = _ |- _ => inv H
+ | H: Tpointer _ _ = _ |- _ => inv H
+ | H: Tarray _ _ _ = _ |- _ => inv H
+ | H: Tstruct _ _ = _ |- _ => inv H
+ | H: Tunion _ _ = _ |- _ => inv H
+ | H: Tfunction _ _ _ = _ |- _ => inv H
+ end;
+ subst;
+ repeat split; repeat f_equal; auto;
+ try apply <- eqb_intsize_spec;
+ try apply <- eqb_signedness_spec;
+ try apply <- eqb_attr_spec;
+ try apply <- eqb_floatsize_spec;
+ try apply <- eqb_ident_spec;
+ try apply Zaux.Zeq_bool_true;
+ try apply eqb_calling_convention_refl;
+ try apply eqb_type_refl;
+ auto.
+-
+clear - H REC.
+revert l0 H; induction l; destruct l0; simpl; intros; auto; try discriminate.
+rewrite andb_true_iff in H. destruct H.
+f_equal; auto.
+apply REC; auto.
+-
+induction l0; simpl; auto.
+rewrite andb_true_iff.
+split; auto.
+apply eqb_type_refl.
Qed.
+(* for alternate eqb_type
+Lemma eqb_type_spec: forall a b, eqb_type a b = true <-> a=b.
+Proof.
+intros.
+unfold eqb_type.
+destruct (type_eq _ _); try tauto.
+split; intros. inv H. contradiction.
+Qed.
+*)
+
Lemma eqb_type_true: forall a b, eqb_type a b = true -> a=b.
Proof.
intros. apply eqb_type_spec; auto.
@@ -197,11 +239,6 @@ destruct H; try congruence.
spec H1; auto. congruence.
Qed.
-Lemma eqb_type_refl: forall a, eqb_type a a = true.
-Proof.
-intros. apply eqb_type_spec; auto.
-Qed.
-
Lemma eqb_member_spec: forall a b, eqb_member a b = true <-> a=b.
Proof.
intros.
diff --git a/veric/NullExtension.v b/veric/NullExtension.v
index 63fcf9805d..4667c2254c 100644
--- a/veric/NullExtension.v
+++ b/veric/NullExtension.v
@@ -92,7 +92,7 @@ Lemma module_sequential_safety : (*TODO*)
Genv.find_symbol ge f_id = Some f_b ->
Genv.find_funct ge (Vptr f_b Ptrofs.zero) = Some f_body ->
forall x : ext_spec_type (@OK_spec spec) f,
- ext_spec_pre (@OK_spec spec) f x (semax.genv_symb_injective ge) tys args ora m ->
+ ext_spec_pre (@OK_spec spec) f x (semax.genv_symb_injective ge) (map proj_xtype tys) args ora m ->
exists q,
semantics.initial_core sem
0 (*additional temporary argument - TODO (Santiago): FIXME*)
diff --git a/veric/SeparationLogic.v b/veric/SeparationLogic.v
index a1d9e29e6d..88b7b882cc 100644
--- a/veric/SeparationLogic.v
+++ b/veric/SeparationLogic.v
@@ -1093,10 +1093,10 @@ match cop with
| _ => Ceq (*doesn't matter*)
end.
-Fixpoint arglist (n: positive) (tl: typelist) : list (ident*type) :=
+Fixpoint arglist (n: positive) (tl: list type) : list (ident*type) :=
match tl with
- | Tnil => nil
- | Tcons t tl' => (n,t):: arglist (n+1)%positive tl'
+ | nil => nil
+ | cons t tl' => (n,t):: arglist (n+1)%positive tl'
end.
Definition closed_wrt_modvars c (F: environ->mpred) : Prop :=
@@ -1156,8 +1156,8 @@ Definition semax_body_params_ok f : bool :=
Definition var_sizes_ok {cs: compspecs} (vars: list (ident*type)) :=
Forall (fun var : ident * type => sizeof (snd var) <= Ptrofs.max_unsigned)%Z vars.
-Definition make_ext_rval (gx: genviron) (tret: rettype) (v: option val):=
- match tret with AST.Tvoid => mkEnviron gx (Map.empty _) (Map.empty _)
+Definition make_ext_rval (gx: genviron) (tret: xtype) (v: option val):=
+ match tret with Xvoid => mkEnviron gx (Map.empty _) (Map.empty _)
| _ =>
match v with
| Some v' => mkEnviron gx (Map.empty _)
@@ -1172,9 +1172,9 @@ Definition tc_option_val (sig: type) (ret: option val) :=
| _, _ => False
end.
-Fixpoint zip_with_tl {A : Type} (l1 : list A) (l2 : typelist) : list (A*type) :=
+Fixpoint zip_with_tl {A : Type} (l1 : list A) (l2 : list type) : list (A*type) :=
match l1, l2 with
- | a::l1', Tcons b l2' => (a,b)::zip_with_tl l1' l2'
+ | a::l1', b :: l2' => (a,b)::zip_with_tl l1' l2'
| _, _ => nil
end.
@@ -1188,11 +1188,12 @@ Definition add_funspecs (Espec : OracleKind)
veric.semax_ext.add_funspecs Espec ext_link fs.
Definition funsig2signature (s : funsig) cc : signature :=
- mksignature (map typ_of_type (map snd (fst s))) (rettype_of_type (snd s)) cc.
+ mksignature (map argtype_of_type (map snd (fst s))) (rettype_of_type (snd s)) cc.
Definition decode_encode_val_ok (chunk1 chunk2: memory_chunk) : Prop :=
match chunk1, chunk2 with
+ | Mbool, Mbool => True
| Mint8signed, Mint8signed => True
| Mint8unsigned, Mint8signed => True
| Mint8signed, Mint8unsigned => True
@@ -1466,10 +1467,9 @@ Axiom semax_func_cons:
((id, mk_funspec fsig cc A P Q NEP NEQ) :: G').
Axiom semax_func_cons_ext: forall {Espec:OracleKind} (V: varspecs) (G: funspecs)
- {C: compspecs} ge fs id ef argsig retsig A P Q NEP NEQ argsig'
+ {C: compspecs} ge fs id ef argsig retsig A P Q NEP NEQ
(G': funspecs) cc b,
- argsig' = typelist2list argsig ->
- ef_sig ef = mksignature (typlist_of_typelist argsig) (rettype_of_type retsig) cc ->
+ ef_sig ef = mksignature (map argtype_of_type argsig) (rettype_of_type retsig) cc ->
id_in_list id (map (@fst _ _) fs) = false ->
(ef_inline ef = false \/ withtype_empty A) ->
(forall gx ts x (ret : option val),
@@ -1480,7 +1480,7 @@ Axiom semax_func_cons_ext: forall {Espec:OracleKind} (V: varspecs) (G: funspecs)
@semax_external Espec ef A P Q ->
semax_func V G ge fs G' ->
semax_func V G ge ((id, External ef argsig retsig cc)::fs)
- ((id, mk_funspec (argsig', retsig) cc A P Q NEP NEQ) :: G').
+ ((id, mk_funspec (argsig, retsig) cc A P Q NEP NEQ) :: G').
Axiom semax_func_mono: forall {Espec CS CS'} (CSUB: cspecs_sub CS CS') ge ge'
(Gfs: forall i, sub_option (Genv.find_symbol ge i) (Genv.find_symbol ge' i))
@@ -1584,7 +1584,7 @@ Axiom semax_call: forall {CS Espec},
(ts: list Type) x
F ret argsig retsig cc a bl,
Cop.classify_fun (typeof a) =
- Cop.fun_case_f (typelist_of_type_list argsig) retsig cc ->
+ Cop.fun_case_f argsig retsig cc ->
(retsig = Tvoid -> ret = None) ->
tc_fn_return Delta ret retsig ->
@semax CS Espec Delta
@@ -1757,7 +1757,7 @@ Axiom semax_external_funspec_sub: forall
(Hsub: funspec_sub (mk_funspec (argtypes, rtype) cc A1 P1 Q1 P1ne Q1ne)
(mk_funspec (argtypes, rtype) cc A P Q Pne Qne))
(HSIG: ef_sig ef =
- mksignature (map typ_of_type argtypes)
+ mksignature (map argtype_of_type argtypes)
(rettype_of_type rtype) cc)
(SE: @semax_external Espec ef A1 P1 Q1),
@semax_external Espec ef A P Q.
diff --git a/veric/SeparationLogicSoundness.v b/veric/SeparationLogicSoundness.v
index 0d2202b4ae..deaade3f72 100644
--- a/veric/SeparationLogicSoundness.v
+++ b/veric/SeparationLogicSoundness.v
@@ -102,10 +102,9 @@ Definition make_ext_rval := veric.semax.make_ext_rval.
Definition tc_option_val := veric.semax.tc_option_val.
Lemma semax_func_cons_ext: forall {Espec:OracleKind} (V: varspecs) (G: funspecs)
- {C: compspecs} ge fs id ef argsig retsig A P Q NEP NEQ argsig'
+ {C: compspecs} ge fs id ef argsig retsig A P Q NEP NEQ
(G': funspecs) cc b,
- argsig' = typelist2list argsig ->
- ef_sig ef = mksignature (typlist_of_typelist argsig) (rettype_of_type retsig) cc ->
+ ef_sig ef = mksignature (map argtype_of_type argsig) (rettype_of_type retsig) cc ->
id_in_list id (map (@fst _ _) fs) = false ->
(ef_inline ef = false \/ withtype_empty A) ->
(forall gx ts x (ret : option val),
@@ -118,8 +117,8 @@ Lemma semax_func_cons_ext: forall {Espec:OracleKind} (V: varspecs) (G: funspecs)
@CSHL_Def.semax_external Espec ef A P Q ->
CSHL_Def.semax_func Espec V G C ge fs G' ->
CSHL_Def.semax_func Espec V G C ge ((id, Ctypes.External ef argsig retsig cc)::fs)
- ((id, mk_funspec (argsig', retsig) cc A P Q NEP NEQ) :: G').
-Proof. intros. eapply semax_func_cons_ext; eauto. intros. apply H3. Qed.
+ ((id, mk_funspec (argsig, retsig) cc A P Q NEP NEQ) :: G').
+Proof. intros. eapply semax_func_cons_ext; eauto. intros. apply H2. Qed.
Definition semax_Delta_subsumption := @semax_lemmas.semax_Delta_subsumption.
@@ -139,7 +138,7 @@ Lemma semax_external_funspec_sub: forall
(Hsub: funspec_sub (mk_funspec (argtypes, rtype) cc A1 P1 Q1 P1ne Q1ne)
(mk_funspec (argtypes, rtype) cc A P Q Pne Qne))
(HSIG: ef_sig ef =
- mksignature (map typ_of_type argtypes)
+ mksignature (map argtype_of_type argtypes)
(rettype_of_type rtype) cc)
(SE: @CSHL_Def.semax_external Espec ef A1 P1 Q1),
@CSHL_Def.semax_external Espec ef A P Q.
@@ -203,7 +202,7 @@ Lemma semax_call {CS Espec}:
(ts: list Type) (x : dependent_type_functor_rec ts A mpred)
F ret argsig retsig cc a bl,
Cop.classify_fun (typeof a) =
- Cop.fun_case_f (typelist_of_type_list argsig) retsig cc ->
+ Cop.fun_case_f argsig retsig cc ->
(retsig = Ctypes.Tvoid -> ret = None) ->
tc_fn_return Delta ret retsig ->
@semax CS Espec Delta
diff --git a/veric/expr.v b/veric/expr.v
index 4a18c18162..b28d8cba56 100644
--- a/veric/expr.v
+++ b/veric/expr.v
@@ -1148,8 +1148,8 @@ Definition funsig_of_function (f: function) : funsig :=
(fn_params f, fn_return f).
Lemma binary_intersection_retty {phi1 phi2 phi} (BI : binary_intersection phi1 phi2 = Some phi):
- rettype_of_funspec phi1 = rettype_of_funspec phi.
-Proof. unfold rettype_of_funspec. rewrite (binary_intersection_typesig BI); trivial. Qed.
+ xtype_of_funspec phi1 = xtype_of_funspec phi.
+Proof. unfold xtype_of_funspec. rewrite (binary_intersection_typesig BI); trivial. Qed.
Section invs.
diff --git a/veric/expr_lemmas.v b/veric/expr_lemmas.v
index 83564ff767..910aa172b0 100644
--- a/veric/expr_lemmas.v
+++ b/veric/expr_lemmas.v
@@ -1100,11 +1100,11 @@ Proof.
destruct t0; auto.
destruct (eqb_type t t0 && (Zeq_bool z z0 && eqb_attr a a0)); auto.
- destruct (get_var_type Delta i); auto. simpl in *.
- destruct t1; auto.
- destruct ((eqb_typelist t t1 && eqb_type t0 t2 && eqb_calling_convention c c0)); auto.
+ destruct t0; auto.
+ destruct ((eqb_list eqb_type l l0 && eqb_type t t0 && eqb_calling_convention c c0)); auto.
+ destruct ((temp_types Delta) ! i); auto.
destruct (is_neutral_cast t0 t || same_base_type t0 t); auto.
- + destruct t; auto; simpl in *.
+ + destruct t; auto; simpl in *.
- destruct i; destruct s; auto.
- destruct f; auto.
- repeat rewrite denote_tc_assert_andp.
diff --git a/veric/expr_lemmas4.v b/veric/expr_lemmas4.v
index cb759f862c..d17d201169 100644
--- a/veric/expr_lemmas4.v
+++ b/veric/expr_lemmas4.v
@@ -289,8 +289,9 @@ assert (Cop.classify_cast t1 t2 = classify_cast t1 t2). {
clear - H0 H1.
apply eqb_type_false in H0.
apply eqb_type_false in H1.
- destruct t1; auto; destruct t2; auto;
- unfold Cop.classify_cast, classify_cast; auto; rewrite ?H0,?H1; auto.
+ unfold Cop.classify_cast, classify_cast; rewrite ?H0,?H1.
+ destruct t1 as [| [| | |] | | [|] | | | | |], t2 as [| [| | |] | | [|] | | | | |];
+ auto.
}
rewrite <- H3 in *.
rewrite H3.
@@ -334,7 +335,8 @@ Lemma classify_cast_eq:
classify_cast t1 t2 = Cop.classify_cast t1 t2.
Proof.
intros.
-destruct t1,t2; try reflexivity;
+destruct t1 as [| [| | |] | | [|] | | | | |], t2 as [| [| | |] | | [|] | | | | |];
+ try reflexivity;
unfold classify_cast;
try rewrite (proj2 (eqb_type_false _ _) H0);
try rewrite (proj2 (eqb_type_false _ _) H);
diff --git a/veric/juicy_extspec.v b/veric/juicy_extspec.v
index a7b3fd880d..30a01fbadd 100644
--- a/veric/juicy_extspec.v
+++ b/veric/juicy_extspec.v
@@ -694,9 +694,9 @@ Section juicy_safety.
| jsafeN_external:
forall z c m e args x,
j_at_external Hcore c m = Some (e,args) ->
- ext_spec_pre Hspec e x (genv_symb ge) (sig_args (ef_sig e)) args z m ->
+ ext_spec_pre Hspec e x (genv_symb ge) (map proj_xtype (sig_args (ef_sig e))) args z m ->
(forall ret m' z'
- (Hargsty : Val.has_type_list args (sig_args (ef_sig e)))
+ (Hargsty : Val.has_type_list args (map proj_xtype (sig_args (ef_sig e))))
(Hretty : Builtins0.val_opt_has_rettype ret (sig_res (ef_sig e))),
Hrel m m' ->
ext_spec_post Hspec e x (genv_symb ge) (sig_res (ef_sig e)) ret z' m' ->
diff --git a/veric/mapsto_memory_block.v b/veric/mapsto_memory_block.v
index 6b70de1b2b..67b7c34fb0 100644
--- a/veric/mapsto_memory_block.v
+++ b/veric/mapsto_memory_block.v
@@ -1205,6 +1205,120 @@ Proof.
reflexivity.
Qed.
+Lemma mapsto_zeros_mapsto_nullval_aux:
+forall (sh : share) (b : block) (z : ptrofs) (t : type)
+ (H2 : readable_share sh)
+ (H : (align_chunk Mptr | Ptrofs.unsigned z)),
+ address_mapsto_zeros sh (Z.to_nat (size_chunk Mptr)) (b, Ptrofs.unsigned z)
+ |-- address_mapsto Mptr nullval sh (b, Ptrofs.unsigned z).
+Proof.
+intros.
+unfold address_mapsto.
+apply exp_right with (encode_val (if Archi.ptr64 then Mint64 else Mint32) nullval).
+rewrite prop_true_andp by (split3; simpl; [rewrite encode_nullval; reflexivity | exact decode_encode_nullval | auto]).
+forget (Ptrofs.unsigned z) as ofs; clear z.
+replace (encode_val (if Archi.ptr64 then Mint64 else Mint32) nullval)
+ with (repeat (Byte Byte.zero) (size_chunk_nat Mptr))
+ by (unfold size_chunk_nat, size_chunk, Mptr, encode_val, nullval; simpl; destruct Archi.ptr64; simpl;
+ change (Int64.unsigned Int64.zero) with 0;
+ change (Int.unsigned Int.zero) with 0;
+ unfold encode_int, inj_bytes; simpl; compute;
+ destruct Archi.big_endian; simpl; reflexivity).
+rewrite size_chunk_conv, Nat2Z.id.
+clear - H2. simpl snd.
+revert ofs; induction (size_chunk_nat Mptr); intros.
+*
+unfold address_mapsto_zeros.
+apply allp_right; intro y.
+rewrite jam_false.
+rewrite emp_no; apply allp_left with y; auto.
+simpl; destruct y; intros [? ?]; lia.
+*
+rewrite inj_S.
+simpl snd in *.
+rewrite allp_jam_split2 with
+ (q := (fun loc : address =>
+ yesat NoneP
+ (VAL (nth (Z.to_nat (snd loc - ofs)) (repeat (Byte Byte.zero) (S n)) Undef)) sh loc))
+ (r := (fun loc : address =>
+ yesat NoneP
+ (VAL (nth (Z.to_nat (snd loc - ofs)) (repeat (Byte Byte.zero) (S n)) Undef)) sh loc))
+(Q_DEC := adr_range_dec (b,ofs) 1) (R_DEC := adr_range_dec ( b, Z.succ ofs) (Z.of_nat n)); auto.
+5:{ split; intros. destruct a; split; intros. destruct H; subst b0. destruct (zeq z ofs); [left|right]; split; auto; lia.
+ destruct H; destruct H; subst b0; split; auto; lia. destruct a; destruct H,H0; subst; lia. }
+simpl.
+apply sepcon_derives.
+--
+clear IHn.
+unfold address_mapsto.
+apply exp_left; intro bl.
+apply prop_andp_left.
+ intros [? ?].
+apply allp_derives; intro y.
+simpl.
+destruct H0.
+destruct bl; inv H. destruct bl; inv H4.
+destruct (adr_range_dec (b, ofs) 1 y).
+++
+rewrite !jam_true by auto.
+destruct y; destruct a; subst b0. assert (z=ofs) by lia. subst z.
+simpl snd. rewrite Z.sub_diag. simpl.
+replace m with (Byte Byte.zero); auto.
+clear - H0.
+destruct m; try discriminate.
+rewrite decode_byte_val in H0.
+apply Vint_inj in H0.
+f_equal.
+rewrite zero_ext_inrange in H0.
+unfold Int.zero in H0.
+apply repr_inj_unsigned in H0.
+apply (f_equal Byte.repr) in H0.
+rewrite Byte.repr_unsigned in H0. auto.
+pose proof (Byte.unsigned_range i).
+change Byte.modulus with 256 in H.
+split; try lia.
+apply Z.le_trans with 256; try lia. compute; congruence.
+split. lia. compute; congruence.
+rewrite Int.unsigned_repr.
+pose proof (Byte.unsigned_range i).
+change Byte.modulus with 256 in H. simpl. lia.
+pose proof (Byte.unsigned_range i).
+assert (Byte.modulus < Int.max_unsigned) by reflexivity.
+lia.
+++
+rewrite !jam_false by auto.
+auto.
+--
+eapply derives_trans.
+apply IHn.
+clear IHn.
+apply allp_derives; intros [b' ofs'].
+destruct (adr_range_dec (b, Z.succ ofs) (Z.of_nat n) (b',ofs')); [rewrite !jam_true | rewrite !jam_false]; auto.
+ simpl snd.
+match goal with |- yesat _ (VAL ?A) _ _ |-- yesat _ (VAL ?B) _ _ => replace A with B; auto end.
+change (?A = ?B) with (nth (Z.to_nat (ofs' - ofs)) (repeat (Byte Byte.zero) (S n)) Undef = B).
+destruct a.
+subst b'.
+assert (0 <= ofs'- Z.succ ofs < Z.of_nat n) by lia.
+replace (ofs' - ofs) with (Z.succ (ofs'-Z.succ ofs)) by lia.
+clear - H.
+forget (ofs'-Z.succ ofs) as i.
+rewrite Z2Nat.inj_succ by lia.
+simpl. auto.
+--
+eexists; apply is_resource_pred_YES_VAL'.
+--
+eexists; apply is_resource_pred_YES_VAL'.
+--
+eexists; apply is_resource_pred_YES_VAL'.
+--
+intros.
+destruct H0.
+hnf in H0. rewrite H0 in H1.
+inv H1; auto.
+Qed.
+
+
Lemma mapsto_zeros_mapsto_nullval:
forall sh b z t,
readable_share sh ->
diff --git a/veric/mpred.v b/veric/mpred.v
index 068467351f..273522add3 100644
--- a/veric/mpred.v
+++ b/veric/mpred.v
@@ -253,32 +253,16 @@ Goal forall {cs: compspecs} t, sizeof t >= 0.
Proof. intros. apply sizeof_pos.
Abort.
-(*plays role of type_of_params *)
-Fixpoint typelist_of_type_list (params : list type) : typelist :=
- match params with
- | nil => Tnil
- | ty :: rem => Tcons ty (typelist_of_type_list rem)
- end.
Definition type_of_funspec (fs: funspec) : type :=
match fs with mk_funspec fsig cc _ _ _ _ _ =>
- Tfunction (typelist_of_type_list (fst fsig)) (snd fsig) cc end.
-
-(*same definition as in Clight_core?*)
-Fixpoint typelist2list (tl: typelist) : list type :=
- match tl with Tcons t r => t::typelist2list r | Tnil => nil end.
-
-Lemma TTL1 l: typelist_of_type_list (map snd l) = type_of_params l.
-Proof. induction l; simpl; trivial. destruct a. f_equal; trivial. Qed.
-
-Lemma TTL2 l: (typlist_of_typelist (typelist_of_type_list l)) = map typ_of_type l.
-Proof. induction l; simpl; trivial. f_equal; trivial . Qed.
+ Tfunction (fst fsig) (snd fsig) cc end.
-Lemma TTL4 l: map snd l = typelist2list (type_of_params l).
-Proof. induction l; simpl; trivial. destruct a. simpl. f_equal; trivial. Qed.
+Lemma TTL1 l: (map snd l) = type_of_params l.
+Proof. induction l; simpl; trivial. Qed.
-Lemma TTL5 {l}: typelist2list (typelist_of_type_list l) = l.
-Proof. induction l; simpl; trivial. f_equal; trivial. Qed.
+Lemma TTL4 l: map snd l = (type_of_params l).
+Proof. induction l; simpl; trivial. Qed.
Definition idset := PTree.t unit.
diff --git a/veric/semax.v b/veric/semax.v
index 988f74e25a..9b682a1c75 100644
--- a/veric/semax.v
+++ b/veric/semax.v
@@ -268,7 +268,7 @@ Qed.
Program Definition ext_spec_post' (Espec: OracleKind)
(ef: external_function) (x': ext_spec_type OK_spec ef) (ge_s: injective_PTree block)
- (tret: rettype) (ret: option val) (z: OK_ty) : pred juicy_mem :=
+ (tret: xtype) (ret: option val) (z: OK_ty) : pred juicy_mem :=
exist (fun p => hereditary age p /\ hereditary ext_order p)
(ext_spec_post OK_spec ef x' ge_s tret ret z)
(conj (JE_post_hered _ _ _ _ _ _ _ _) (JE_post_ext _ _ _ _ _ _ _ _) ).
@@ -276,8 +276,8 @@ Program Definition ext_spec_post' (Espec: OracleKind)
(*Definition juicy_mem_pred (P : pred rmap) (jm: juicy_mem): pred nat :=
# diamond fashionM (exactly (m_phi jm) && P).*)
-Definition make_ext_rval (gx: genviron) (tret: rettype) (v: option val):=
- match tret with AST.Tvoid => mkEnviron gx (Map.empty _) (Map.empty _)
+Definition make_ext_rval (gx: genviron) (tret: xtype) (v: option val):=
+ match tret with Xvoid => mkEnviron gx (Map.empty _) (Map.empty _)
| _ =>
match v with
| Some v' => mkEnviron gx (Map.empty _)
@@ -308,11 +308,11 @@ Definition semax_external
ALL x: (dependent_type_functor_rec Ts A (pred rmap)),
|> ALL F: pred rmap, ALL ts: list typ,
ALL args: list val,
- !!Val.has_type_list args (sig_args (ef_sig ef)) &&
+ !!Val.has_type_list args (map proj_xtype (sig_args (ef_sig ef))) &&
juicy_mem_op (P Ts x (filter_genv gx, args) * F) >=>
EX x': ext_spec_type OK_spec ef,
(ALL z:_, ext_spec_pre' Hspec ef x' (genv_symb_injective gx) ts args z) &&
- ! ALL tret: rettype, ALL ret: option val, ALL z': OK_ty,
+ ! ALL tret: xtype, ALL ret: option val, ALL z': OK_ty,
ext_spec_post' Hspec ef x' (genv_symb_injective gx) tret ret z' >=>
juicy_mem_op (Q Ts x (make_ext_rval (filter_genv gx) tret ret) * F).
@@ -327,6 +327,21 @@ Proof.
inv H. apply IHvals in H5. split; trivial.
Qed.
+Lemma proj_xtype_argtype:
+ forall a, proj_xtype (argtype_of_type a) = typ_of_type a.
+Proof.
+destruct a; simpl; auto. destruct i,s; auto. destruct f; auto.
+Qed.
+
+Lemma map_proj_xtype_argtype:
+ forall a, map proj_xtype (map argtype_of_type a) = map typ_of_type a.
+Proof.
+induction a; auto.
+simpl; f_equal; auto.
+apply proj_xtype_argtype.
+Qed.
+
+
Lemma semax_external_funspec_sub
(DISABLE: False)
{Espec argtypes rtype cc ef A1 P1 Q1 P1ne Q1ne A P Q Pne Qne}
@@ -334,7 +349,7 @@ Lemma semax_external_funspec_sub
(mk_funspec (argtypes, rtype) cc A P Q Pne Qne))
(HSIG: ef_sig ef =
mksignature
- (map typ_of_type argtypes)
+ (map argtype_of_type argtypes)
(rettype_of_type rtype) cc):
@semax.semax_external Espec ef A1 P1 Q1 |-- @semax.semax_external Espec ef A P Q.
(* This needs a fupd, but it's unclear how, since it's a pred nat. *)
@@ -347,8 +362,9 @@ intros n N m NM F typs vals y MY ? z YZ EZ [HT HP].
simpl in HP.
rewrite HSIG in HT; simpl in HT.
eapply sepcon_derives, fupd_frame_r in HP; [| intros ??; eapply H; split; eauto | apply derives_refl].
-2: { clear -HT.
- apply has_type_list_Forall2 in HT.
+2: { clear -HT.
+ rewrite map_proj_xtype_argtype in HT.
+ apply has_type_list_Forall2 in HT. simpl. red.
eapply Forall2_implication; [ | apply HT]; auto.
}
clear H. (*
@@ -387,9 +403,9 @@ Definition tc_option_val (sig: type) (ret: option val) :=
| _, _ => False
end.
-Fixpoint zip_with_tl {A : Type} (l1 : list A) (l2 : typelist) : list (A*type) :=
+Fixpoint zip_with_tl {A : Type} (l1 : list A) (l2 : list type) : list (A*type) :=
match l1, l2 with
- | a::l1', Tcons b l2' => (a,b)::zip_with_tl l1' l2'
+ | a::l1', cons b l2' => (a,b)::zip_with_tl l1' l2'
| _, _ => nil
end.
@@ -402,9 +418,9 @@ Definition believe_external (Hspec: OracleKind) (gx: genv) (v: val) (fsig: types
pred nat :=
match Genv.find_funct gx v with
| Some (External ef sigargs sigret cc') =>
- !! (fsig = (typelist2list sigargs, sigret) /\ cc'=cc
+ !! (fsig = ( sigargs, sigret) /\ cc'=cc
/\ ef_sig ef = mksignature
- (typlist_of_typelist (typelist_of_type_list (fst fsig)))
+ (map argtype_of_type (fst fsig))
(rettype_of_type (snd fsig)) cc
/\ (ef_inline ef = false \/ withtype_empty A))
&& semax_external Hspec ef A P Q
@@ -426,7 +442,7 @@ Proof.
destruct (Genv.find_funct gx v); trivial.
destruct f; trivial. destruct sig as [argtypes rtype].
destruct N as [[[N1a [N1b [N1c N1d]]] N2] N3].
- inv N1a. simpl in N1c; rewrite TTL2 in *; split.
+ inv N1a. simpl in N1c; split.
+ split.
- split3; trivial. split; trivial.
destruct N1d; [ left; trivial | right; auto].
diff --git a/veric/semax_call.v b/veric/semax_call.v
index 0c22e336d0..5905e6b471 100644
--- a/veric/semax_call.v
+++ b/veric/semax_call.v
@@ -34,9 +34,6 @@ Proof.
apply andp_left2; auto.
Qed.
-Lemma TTL3 l: typelist_of_type_list (Clight_core.typelist2list l) = l.
-Proof. induction l; simpl; trivial. f_equal; trivial . Qed.
-
Lemma age_later {A} {agA : ageable A}: forall {w w1 w2} (AGE: age w w1) (L: laterR w w2), w1=w2 \/ laterR w1 w2.
Proof. intros. induction L.
+ unfold age in *. rewrite AGE in H. left; inv H; trivial.
@@ -1418,8 +1415,8 @@ destruct ff; try contradiction H15.
destruct H15 as [[H5 H15] Hretty]. hnf in H5.
destruct H5 as [H5 [H5' [Eef Hinline]]]. subst c.
inversion H5. destruct fsig as [params retty].
-injection H2; clear H2; intros H8 H7. subst t0.
-rename t into tys. subst rho.
+injection H2; clear H2; intros H8 H7.
+rename l into tys. subst rho.
destruct (age1 jm) as [jm' |] eqn:Hage.
2:{ constructor. apply age1_level0; auto. }
specialize (H15 psi ts x (level jm)).
@@ -1427,7 +1424,7 @@ spec H15. apply age_laterR. constructor.
specialize (H15
(F0 (construct_rho (filter_genv psi) vx tx) *
F (construct_rho (filter_genv psi) vx tx))
- (typlist_of_typelist tys) args jm).
+ (map typ_of_type tys) args jm).
spec H15; [ clear; lia | ].
specialize (H15 _ _ (necR_refl _) (ext_refl _)).
spec H15.
@@ -1443,10 +1440,11 @@ spec H15.
split.
{ (* typechecking arguments *)
rewrite Eef; simpl.
- clear - TC8. rewrite TTL2.
+ clear - TC8.
revert args TC8; induction params; destruct args; intros; try discriminate; auto.
inv TC8.
split; auto.
+ rewrite proj_xtype_argtype.
apply tc_val_has_type; auto.
}
apply AP.
@@ -1462,7 +1460,7 @@ destruct Hinline as [Hinline|Hempty].
exfalso; clear - Hempty x.
eapply Hempty. eassumption.
}
-assert (Hty: typelist_of_type_list params = tys) by (rewrite H7, TTL3; trivial).
+assert (Hty: params = tys) by (rewrite H7; trivial).
eapply @jsafeN_external with (x := x'); eauto.
+ (*1/3*)
@@ -1471,7 +1469,7 @@ eapply @jsafeN_external with (x := x'); eauto.
reflexivity.
+ (*2/3*)
- rewrite Eef. subst tys. apply H5; auto.
+ rewrite Eef. subst tys. simpl. rewrite map_proj_xtype_argtype. apply H5; auto.
+
assert (H2 := I). assert (H3 := I). simpl.
@@ -1530,6 +1528,7 @@ clear H1; rename H1' into H1. clear R HR.
simpl exit_cont in H1.
do 3 red in H5.
specialize (H1 _ (necR_refl _)).
+subst t.
assert (Htc: tc_option_val retty ret0).
{ clear - TCret TC3 H0 TC5 H15 Hretty Hretty0 H6 Hage.
@@ -1550,6 +1549,7 @@ assert (Htc: tc_option_val retty ret0).
}
spec H1.
{ clear H1. clear - TCret TC3 H0 TC5 H15 Hretty Hretty0 H0 H6 Hage TC3' tx' Htc H H4.
+
split; [split; [split |] |].
* (*1/4*)
clear - TC3 Htc TCret Hretty0.
@@ -2440,16 +2440,16 @@ destruct H; auto.
Qed.
Lemma eval_exprlist_relate {CS}:
- forall (Delta : tycontext) (tys: typelist)
+ forall (Delta : tycontext) (tys: list type)
(bl : list expr) (psi : genv) (vx : env) (tx : temp_env)
(rho : environ) m,
- @denote_tc_assert CS (typecheck_exprlist Delta (typelist2list tys) bl) rho (m_phi m) ->
+ @denote_tc_assert CS (typecheck_exprlist Delta tys bl) rho (m_phi m) ->
typecheck_environ Delta rho ->
cenv_sub cenv_cs (genv_cenv psi) ->
rho = construct_rho (filter_genv psi) vx tx ->
Clight.eval_exprlist psi vx tx (m_dry m) bl
tys
- (eval_exprlist (typelist2list tys) bl rho).
+ (eval_exprlist tys bl rho).
Proof.
intros.
revert bl H; induction tys; destruct bl; simpl; intros; try contradiction H.
@@ -2461,7 +2461,7 @@ Proof.
constructor 2 with (eval_expr e (construct_rho (filter_genv psi) vx tx)); auto.
subst.
eapply eval_expr_relate; eauto.
- pose proof (cast_exists Delta e t rho (m_phi m) H0 H H3).
+ pose proof (cast_exists Delta e a rho (m_phi m) H0 H H3).
rewrite <- H5; clear H5.
subst.
apply cop2_sem_cast'; try eassumption.
@@ -2503,7 +2503,7 @@ destruct Believe as [BE|BI].
destruct f as [ | ef sigargs sigret c'']. tauto.
simpl.
destruct BE as [((Es & -> & ASD & _) & ?) _].
- inv Es. f_equal. rewrite TTL3; trivial.
+ inv Es. f_equal.
-
destruct BI as (b' & fu & (? & WOB & ? & ? & ? & ? & wob & ? & ?) & _).
unfold fn_funsig in *. simpl fst in *; simpl snd in *.
@@ -2512,22 +2512,20 @@ destruct Believe as [BE|BI].
simpl.
unfold type_of_function.
f_equal.
- forget (fn_params fu) as l. clear. rewrite TTL1; trivial.
Qed.
Lemma eval_exprlist_relate' {CS}:
- forall (Delta : tycontext) (tys: typelist)
+ forall (Delta : tycontext) (tys: list type)
(bl : list expr) (psi : genv) (vx : env) (tx : temp_env)
- (rho : environ) m tys',
- @denote_tc_assert CS (typecheck_exprlist Delta (typelist2list tys) bl) rho (m_phi m) ->
+ (rho : environ) m,
+ @denote_tc_assert CS (typecheck_exprlist Delta tys bl) rho (m_phi m) ->
typecheck_environ Delta rho ->
cenv_sub cenv_cs (genv_cenv psi) ->
rho = construct_rho (filter_genv psi) vx tx ->
- tys' = typelist2list tys ->
Clight.eval_exprlist psi vx tx (m_dry m) bl
tys
- (eval_exprlist tys' bl rho).
-Proof. intros. subst tys'. eapply eval_exprlist_relate; eassumption. Qed.
+ (eval_exprlist tys bl rho).
+Proof. intros. eapply eval_exprlist_relate; eassumption. Qed.
Lemma tc_vals_Vundef {args ids} (TC:tc_vals ids args): Forall (fun v : val => v <> Vundef) args.
Proof.
@@ -2547,7 +2545,7 @@ Lemma semax_call_aux {CS Espec}
(Spec: (glob_specs Delta)!id = Some (mk_funspec (clientparams, retty) cc A deltaP deltaQ NEP' NEQ'))
(FindSymb: Genv.find_symbol psi id = Some b)
- (Classify: Cop.classify_fun (typeof a) = Cop.fun_case_f (typelist_of_type_list clientparams) retty cc)
+ (Classify: Cop.classify_fun (typeof a) = Cop.fun_case_f clientparams retty cc)
(TCRet: tc_fn_return Delta ret retty)
(TCA: (|>tc_expr Delta a rho) (m_phi jm))
(TCbl: (|>tc_exprlist Delta clientparams bl rho) (m_phi jm))
@@ -2589,12 +2587,11 @@ Proof.
eapply TCA. apply age_laterR; apply age_jm_phi; auto.
erewrite age_jm_dry by eauto.
eapply eval_exprlist_relate' with Delta.
- - clear - H13 TCbl. rewrite TTL5. eapply TCbl.
+ - clear - H13 TCbl. eapply TCbl.
apply age_laterR; apply age_jm_phi; auto.
- destruct GuardEnv ; auto.
- assumption.
- - auto.
- - rewrite TTL5; trivial. }
+ - auto. }
intros jm2 H22.
assert (jmx = jm2).
{ clear - H13 H22. red in H22. congruence. } subst jmx.
@@ -2641,7 +2638,7 @@ Proof.
clear jm LATER H22 H2 H13.
rename jm2 into jm.
- unfold type_of_funspec, rettype_of_funspec in H16'; simpl in H16'.
+ unfold type_of_funspec, xtype_of_funspec in H16'; simpl in H16'.
assert (H2 := I).
assert (H14': fupd
@@ -2793,10 +2790,7 @@ Proof.
destruct (build_call_temp_env f args) as [te' H21]; auto.
{ clear - H16' Hargs.
simpl in H16'. unfold type_of_function in H16'. inv H16'. rewrite <- Hargs.
- clear - H0.
- revert clientparams H0; induction (fn_params f) as [|[? ?]];
- destruct clientparams; simpl; intros; try discriminate; auto.
- inv H0; f_equal; auto. }
+ unfold type_of_params. rewrite map_length. auto. }
pose proof (age_twin' _ _ _ H20' H13) as [jm''' [_ H20x]].
apply @jsafeN_step with (c' := State f (f.(fn_body)) ctl ve' te')
(m' := jm'''); auto.
@@ -2900,7 +2894,7 @@ Lemma semax_call_aux' {CS Espec}
(Spec: (glob_specs Delta)!id = Some (mk_funspec (clientparams, retty) cc A deltaP deltaQ NEP' NEQ'))
(FindSymb: Genv.find_symbol psi id = Some b)
- (Classify: Cop.classify_fun (typeof a) = Cop.fun_case_f (typelist_of_type_list clientparams) retty cc)
+ (Classify: Cop.classify_fun (typeof a) = Cop.fun_case_f clientparams retty cc)
(TCRet: tc_fn_return Delta ret retty)
(TCA: (|>tc_expr Delta a rho) (m_phi jm))
(TCbl: (|>tc_exprlist Delta clientparams bl rho) (m_phi jm))
@@ -2946,7 +2940,7 @@ Lemma semax_call {CS Espec}:
(ts: list Type) (x : dependent_type_functor_rec ts A mpred)
F ret argsig retsig cc a bl,
Cop.classify_fun (typeof a) =
- Cop.fun_case_f (typelist_of_type_list argsig) retsig cc ->
+ Cop.fun_case_f argsig retsig cc ->
(retsig = Tvoid -> ret = None) ->
tc_fn_return Delta ret retsig ->
@semax CS Espec Delta
@@ -3217,7 +3211,7 @@ Lemma semax_call_si {CS Espec}:
(ts: list Type) (x : dependent_type_functor_rec ts A mpred)
F ret argsig retsig cc a bl,
Cop.classify_fun (typeof a) =
- Cop.fun_case_f (typelist_of_type_list argsig) retsig cc ->
+ Cop.fun_case_f argsig retsig cc ->
(retsig = Tvoid -> ret = None) ->
tc_fn_return Delta ret retsig ->
@semax CS Espec Delta
@@ -3487,7 +3481,7 @@ Lemma semax_call_alt {CS Espec}:
(NEP: args_super_non_expansive P) (NEQ: super_non_expansive Q)
ts x F ret argsig retsig cc a bl,
Cop.classify_fun (typeof a) =
- Cop.fun_case_f (typelist_of_type_list argsig) retsig cc ->
+ Cop.fun_case_f argsig retsig cc ->
(retsig = Tvoid -> ret = None) ->
tc_fn_return Delta ret retsig ->
@semax CS Espec Delta
diff --git a/veric/semax_ext.v b/veric/semax_ext.v
index fae15893fe..a098ddeeef 100644
--- a/veric/semax_ext.v
+++ b/veric/semax_ext.v
@@ -16,10 +16,10 @@ Require Import compcert.export.Clightdefs.
Import compcert.lib.Maps.
Definition funsig2signature (s : funsig) cc : signature :=
- mksignature (map typ_of_type (map snd (fst s))) (rettype_of_type (snd s)) cc.
+ mksignature (map argtype_of_type (map snd (fst s))) (rettype_of_type (snd s)) cc.
Definition typesig2signature (s : typesig) cc : signature :=
- mksignature (map typ_of_type (fst s)) (rettype_of_type (snd s)) cc.
+ mksignature (map argtype_of_type (fst s)) (rettype_of_type (snd s)) cc.
(* NOTE. ext_link: Strings.String.string -> ident
represents the mapping from the _name_ of an external function
@@ -96,7 +96,7 @@ Definition funspec2pre (ext_link: Strings.String.string -> ident) (A : TypeTree)
match oi_eq_dec (Some (id, sig)) (ef_id_sig ext_link ef) as s
return ((if s then (rmap*(sigT (fun ts => dependent_type_functor_rec ts A mpred)))%type else ext_spec_type Espec ef) -> Prop)
with
- | left _ => fun x' => Val.has_type_list args (sig_args (ef_sig ef)) /\
+ | left _ => fun x' => Val.has_type_list args (map proj_xtype (sig_args (ef_sig ef))) /\
exists phi0 phi1, join phi0 phi1 (m_phi m)
/\ P (projT1 (snd x')) (projT2 (snd x')) (filter_genv (symb2genv ge_s), args) phi0
/\ necR (fst x') phi1 /\ ext_compat z (m_phi m)
@@ -105,7 +105,7 @@ Definition funspec2pre (ext_link: Strings.String.string -> ident) (A : TypeTree)
Definition funspec2post (ext_link: Strings.String.string -> ident) (A : TypeTree)
(Q: forall ts, dependent_type_functor_rec ts (AssertTT A) mpred)
- id sig ef x ge_s (tret : rettype) ret (z : Z) m : Prop :=
+ id sig ef x ge_s (tret : xtype) ret (z : Z) m : Prop :=
match oi_eq_dec (Some (id, sig)) (ef_id_sig ext_link ef) as s
return ((if s then (rmap*(sigT (fun ts => dependent_type_functor_rec ts A mpred)))%type else ext_spec_type Espec ef) -> Prop)
with
@@ -117,7 +117,7 @@ Definition funspec2post (ext_link: Strings.String.string -> ident) (A : TypeTree
Definition funspec2post' (ext_link: Strings.String.string -> ident) (A : TypeTree)
(Q: forall ts, dependent_type_functor_rec ts (AssertTT A) mpred)
- id sig ef x ge_s (tret : rettype) ret (z : Z) m : Prop :=
+ id sig ef x ge_s (tret : xtype) ret (z : Z) m : Prop :=
match oi_eq_dec (Some (id, sig)) (ef_id_sig ext_link ef) as s
return ((if s then (rmap*(sigT (fun ts => dependent_type_functor_rec ts A mpred)))%type else ext_spec_type Espec ef) -> Prop)
with
@@ -286,7 +286,7 @@ Lemma add_funspecs_pre (ext_link: Strings.String.string -> ident)
funspecs_norepeat fs ->
In (ext_link id, (mk_funspec sig cc A P Q NEP NEQ)) fs ->
join phi0 phi1 (m_phi m) ->
- Val.has_type_list args (sig_args (ef_sig ef)) ->
+ Val.has_type_list args (map proj_xtype (sig_args (ef_sig ef))) ->
P (projT1 x) (projT2 x) (filter_genv (symb2genv ge_s), args) phi0 ->
exists x' : ext_spec_type (JE_spec _ (add_funspecs_rec ext_link Z Espec fs)) ef,
JMeq (phi1, x) x'
@@ -325,11 +325,11 @@ Lemma add_funspecs_pre_void (ext_link: Strings.String.string -> ident)
{Z fs id sig cc A P Q NEP NEQ}
{x: sigT (fun ts => dependent_type_functor_rec ts A mpred)}
{args m} Espec tys ge_s phi0 phi1 :
- let ef := EF_external id (mksignature (map typ_of_type sig) Tvoid cc) in
+ let ef := EF_external id (mksignature (map argtype_of_type sig) Xvoid cc) in
funspecs_norepeat fs ->
In (ext_link id, (mk_funspec (sig, tvoid) cc A P Q NEP NEQ)) fs ->
join phi0 phi1 (m_phi m) ->
- Val.has_type_list args (sig_args (ef_sig ef)) ->
+ Val.has_type_list args (map proj_xtype (sig_args (ef_sig ef))) ->
P (projT1 x) (projT2 x) (filter_genv (symb2genv ge_s), args) phi0 ->
exists x' : ext_spec_type (JE_spec _ (add_funspecs_rec ext_link Z Espec fs)) ef,
JMeq (phi1, x) x'
@@ -368,7 +368,7 @@ Qed.
Lemma add_funspecs_post_void (ext_link: Strings.String.string -> ident)
{Z Espec tret fs id sig cc A P Q NEP NEQ x ret m z ge_s} :
- let ef := EF_external id (mksignature (map typ_of_type sig) Tvoid cc) in
+ let ef := EF_external id (mksignature (map argtype_of_type sig) Xvoid cc) in
funspecs_norepeat fs ->
In (ext_link id, (mk_funspec (sig, tvoid) cc A P Q NEP NEQ)) fs ->
ext_spec_post (add_funspecs_rec ext_link Z Espec fs) ef x ge_s tret ret z m ->
diff --git a/veric/semax_ext_oracle.v b/veric/semax_ext_oracle.v
index 5aa719e337..e445f9ad43 100644
--- a/veric/semax_ext_oracle.v
+++ b/veric/semax_ext_oracle.v
@@ -40,7 +40,7 @@ Definition funspecOracle2pre (ext_link: Strings.String.string -> ident) (A : Typ
end x.
Definition funspecOracle2post (ext_link: Strings.String.string -> ident) (A : Type) (Q : A -> Z -> environ -> mpred)
- id sig ef x ge_s (tret : rettype) ret z m : Prop :=
+ id sig ef x ge_s (tret : xtype) ret z m : Prop :=
match oi_eq_dec (Some (id, sig)) (ef_id_sig ext_link ef) as s
return ((if s then (rmap * A)%type else ext_spec_type Espec ef) -> Prop)
with
@@ -308,7 +308,7 @@ Definition semax_external_oracle (Espec: OracleKind) (ids: list ident) ef (A: Ty
juicy_mem_op (P x z (seplog.make_args ids args (empty_environ gx) ) * F) >=>
EX x': ext_spec_type OK_spec ef,
ext_spec_pre' Espec ef x' (genv_symb_injective gx) ts args z &&
- ! ALL tret: rettype, ALL ret: option val, ALL z': OK_ty,
+ ! ALL tret: xtype, ALL ret: option val, ALL z': OK_ty,
ext_spec_post' Espec ef x' (genv_symb_injective gx) tret ret z' >=>
juicy_mem_op (Q x z' (make_ext_rval (filter_genv gx) tret ret) * F))%pred.
diff --git a/veric/semax_lemmas.v b/veric/semax_lemmas.v
index 11c6885003..591780c89e 100644
--- a/veric/semax_lemmas.v
+++ b/veric/semax_lemmas.v
@@ -1063,7 +1063,7 @@ Section statement_rect.
Variable f0 : forall e e0 : expr, P (Sassign e e0).
Variable f1 : forall (i : ident) (e : expr), P (Sset i e).
Variable f2 : forall (o : option ident) (e : expr) (l : list expr), P (Scall o e l).
- Variable f3 : forall (o : option ident) (e : external_function) (t : typelist) (l : list expr), P (Sbuiltin o e t l).
+ Variable f3 : forall (o : option ident) (e : external_function) (t : list type) (l : list expr), P (Sbuiltin o e t l).
Variable f4 : forall s : statement, P s -> forall s0 : statement, P s0 -> P (Ssequence s s0).
Variable f5 : forall (e : expr) (s : statement), P s -> forall s0 : statement, P s0 -> P (Sifthenelse e s s0).
Variable f6 : forall s : statement, P s -> forall s0 : statement, P s0 -> P (Sloop s s0).
@@ -1122,7 +1122,7 @@ Section eq_dec.
Lemma eq_dec_external_function : EqDec external_function. repeat t. Defined.
Let eq_dec_option_ident := option_eq (ident_eq).
Let eq_dec_option_Z : EqDec (option Z). repeat t. Defined.
- Let eq_dec_typelist : EqDec typelist. repeat t. Defined.
+ Let eq_dec_typelist : EqDec (list type). repeat t. Defined.
Lemma eq_dec_expr : EqDec expr.
Proof. repeat t. Defined.
diff --git a/veric/semax_prog.v b/veric/semax_prog.v
index f8d2827aaa..e1fa150597 100644
--- a/veric/semax_prog.v
+++ b/veric/semax_prog.v
@@ -645,15 +645,10 @@ destruct H3 as [? [? [? [? [? ?]]]]].
contradiction.
Qed.
-Lemma TTL6 {l}: typelist_of_type_list (typelist2list l) = l.
-Proof. induction l; simpl; intros; trivial. rewrite IHl; trivial. Qed.
-
Lemma semax_func_cons_ext:
forall (V: varspecs) (G: funspecs) {C: compspecs} ge fs id ef argsig retsig A P Q NEP NEQ
- argsig'
(G': funspecs) cc b,
- argsig' = typelist2list argsig ->
- ef_sig ef = mksignature (typlist_of_typelist argsig) (rettype_of_type retsig) cc ->
+ ef_sig ef = mksignature (map argtype_of_type argsig) (rettype_of_type retsig) cc ->
id_in_list id (map (@fst _ _) fs) = false ->
(ef_inline ef = false \/ withtype_empty A) ->
(forall gx ts x (ret : option val),
@@ -664,16 +659,14 @@ forall (V: varspecs) (G: funspecs) {C: compspecs} ge fs id ef argsig retsig A P
(forall n, semax_external Espec ef A P Q n) ->
semax_func V G ge fs G' ->
semax_func V G ge ((id, External ef argsig retsig cc)::fs)
- ((id, mk_funspec (argsig', retsig) cc A P Q NEP NEQ) :: G').
+ ((id, mk_funspec (argsig, retsig) cc A P Q NEP NEQ) :: G').
Proof.
intros until b.
-intros Hargsig' Hef Hni Hinline Hretty B1 B2 H [Hf' [GC Hf]].
-subst argsig'.
+intros Hef Hni Hinline Hretty B1 B2 H [Hf' [GC Hf]].
apply id_in_list_false in Hni.
split.
{ hnf; simpl; f_equal; auto.
- constructor 2; trivial.
- simpl; rewrite TTL6; trivial. }
+ constructor 2; trivial. }
split; [ clear - B1 B2 GC; red; intros; destruct H; [ symmetry in H; inv H; exists b; auto | apply GC; trivial] |].
intros ge' GE1 GE2 ?.
specialize (Hf ge' GE1 GE2).
@@ -694,7 +687,7 @@ apply JMeq_eq in H4c.
subst P' Q'.
unfold believe_external; simpl; rewrite if_true; trivial.
unfold fundef in GE2; unfold fundef; simpl; rewrite GE2.
-simpl map. rewrite TTL6 in *.
+simpl map.
split. { split; trivial. split3; eauto. }
intros ts x ret phi Hlev ? Hx Hnec ?. apply Hretty.
+
@@ -1065,7 +1058,7 @@ simpl; do 3 f_equal. unfold ext_ghost; f_equal. apply exist_ext. f_equal; intros
Qed.*)
Definition Delta1 V G {C: compspecs}: tycontext :=
-make_tycontext ((1%positive,(Tfunction Tnil Tvoid cc_default))::nil) nil nil Tvoid V G nil.
+make_tycontext ((1%positive,(Tfunction nil Tvoid cc_default))::nil) nil nil Tvoid V G nil.
Lemma match_globvars_in':
forall i t vl vs,
@@ -1650,19 +1643,19 @@ destruct H5 as [H5|H5].
subst c.
simpl in H4.
injection H; clear H; intros.
- subst t0.
+ subst t.
change (level (m_phi jm)) with (level jm) in H6.
specialize (H5 psi ts a (level jm)).
spec H5. constructor. reflexivity.
- specialize (H5 TT (typlist_of_typelist (typelist_of_type_list params)) args).
+ specialize (H5 TT (map typ_of_type params) args).
specialize (H5 jm (Nat.le_refl _) _ _ (necR_refl _) (ext_refl _)).
- rewrite TTL2 in *.
spec H5. { clear H5.
split. simpl.
rewrite H4; simpl.
clear - arg_p.
revert args arg_p; induction params; destruct args; simpl; intros; try discriminate; try contradiction; auto.
destruct arg_p; split; auto.
+ rewrite proj_xtype_argtype.
apply tc_val_has_type; auto.
simpl fst.
clear H3 H6.
@@ -1680,6 +1673,7 @@ destruct H5 as [H5|H5].
simpl. rewrite Hinline.
reflexivity.
rewrite H4. simpl.
+ rewrite map_proj_xtype_argtype.
apply H5.
apply Hora.
simpl.
@@ -2552,7 +2546,7 @@ Proof.
EX ts1:list Type, EX x1 : dependent_type_functor_rec ts1 A mpred,
EX FR: mpred,
!!(forall rho' : environ,
- !! tc_environ (rettype_tycontext (snd sig)) rho' && (FR * Q ts1 x1 rho') |-- (Q' ts x rho')) &&
+ !! tc_environ (xtype_tycontext (snd sig)) rho' && (FR * Q ts1 x1 rho') |-- (Q' ts x rho')) &&
(stackframe_of f tau * FR * P ts1 x1 (ge_of tau, vals) &&
!! (map (Map.get (te_of tau)) (map fst (fn_params f)) = map Some vals /\ tc_vals (map snd (fn_params f)) vals))).
- intros rho m [TC [OM [m1 [m2 [JM [[vals [[MAP VUNDEF] HP']] M2]]]]]].
@@ -2634,16 +2628,16 @@ Proof.
eapply derives_trans, fupd.fupd_intro.
eapply derives_trans, QPOST.
apply andp_right; trivial.
- -- intros k K; clear; apply tc_environ_rettype.
+ -- intros k K; clear; apply tc_environ_xtype.
-- apply prop_andp_left; intros; auto.
* apply andp_left2. rewrite sepcon_comm, <- sepcon_assoc.
apply sepcon_derives; auto.
destruct vl; simpl; normalize.
-- eapply derives_trans; [ | apply QPOST]; apply andp_right; trivial.
- intros k K; clear. apply tc_environ_rettype_env_set.
+ intros k K; clear. apply tc_environ_xtype_env_set.
-- destruct (fn_return f).
{ eapply derives_trans; [ | apply QPOST]; apply andp_right; trivial.
- intros k K; clear; apply tc_environ_rettype. }
+ intros k K; clear; apply tc_environ_xtype. }
all: rewrite semax_lemmas.sepcon_FF; apply derives_refl.
+ do 2 red; intros; trivial.
Qed.
diff --git a/veric/semax_straight.v b/veric/semax_straight.v
index 633cb5a32e..867b5e6fc7 100644
--- a/veric/semax_straight.v
+++ b/veric/semax_straight.v
@@ -1249,6 +1249,7 @@ Qed.
Definition decode_encode_val_ok (chunk1 chunk2: memory_chunk) : Prop :=
match chunk1, chunk2 with
+ | Mbool, Mbool => True
| Mint8signed, Mint8signed => True
| Mint8unsigned, Mint8signed => True
| Mint8signed, Mint8unsigned => True
diff --git a/veric/seplog.v b/veric/seplog.v
index 4d411bd510..b91a187fc5 100644
--- a/veric/seplog.v
+++ b/veric/seplog.v
@@ -137,9 +137,9 @@ Definition ret0_tycon (Delta: tycontext): tycontext :=
Definition typesig_of_funspec (fs: funspec) : typesig :=
match fs with mk_funspec fsig _ _ _ _ _ _ => fsig end.
-Definition rettype_of_funspec (fs: funspec) : type := snd (typesig_of_funspec fs).
+Definition xtype_of_funspec (fs: funspec) : type := snd (typesig_of_funspec fs).
-Definition rettype_tycontext t := make_tycontext nil nil nil t nil nil nil.
+Definition xtype_tycontext t := make_tycontext nil nil nil t nil nil nil.
Definition tc_genv g Delta := typecheck_glob_environ g (glob_types Delta).
@@ -149,7 +149,7 @@ Definition tc_argsenv Delta tys (gargs:argsEnviron):Prop :=
match gargs with (g, args) => tc_genv g Delta /\ Forall2 tc_val' tys args end.
Lemma fssub_prop1: forall rt ptypes gargs,
- tc_argsenv (rettype_tycontext rt) ptypes gargs =
+ tc_argsenv (xtype_tycontext rt) ptypes gargs =
Forall2 tc_val' ptypes (snd gargs).
intros. destruct gargs. unfold tc_argsenv. simpl.
unfold tc_genv. simpl.
@@ -157,9 +157,9 @@ unfold typecheck_glob_environ. apply prop_ext; split; intros. apply H.
split; trivial. intros. rewrite PTree.gempty in H0. congruence.
Qed.
-Lemma fssub_prop2: forall rt rho, (local (tc_environ (rettype_tycontext rt)) rho) = !!(ve_of rho = Map.empty (block * type)).
+Lemma fssub_prop2: forall rt rho, (local (tc_environ (xtype_tycontext rt)) rho) = !!(ve_of rho = Map.empty (block * type)).
intros. unfold local, tc_environ, lift1.
-unfold rettype_tycontext, typecheck_environ, typecheck_temp_environ,
+unfold xtype_tycontext, typecheck_environ, typecheck_temp_environ,
typecheck_var_environ, typecheck_glob_environ.
simpl.
destruct rho; simpl. apply pred_ext.
@@ -182,7 +182,7 @@ Qed.
definition (and in NDfunspec_sub). *)
(*
Definition funspec_sub_si_ORIG (f1 f2 : funspec):mpred :=
-let Delta2 := rettype_tycontext (snd (typesig_of_funspec f2)) in
+let Delta2 := xtype_tycontext (snd (typesig_of_funspec f2)) in
match f1 with
| mk_funspec tpsig1 cc1 A1 P1 Q1 _ _ =>
match f2 with
@@ -193,7 +193,7 @@ match f1 with
((!!(tc_argsenv Delta2 (fst tpsig2) gargs) && P2 ts2 x2 gargs)
>=> EX ts1:_, EX x1:dependent_type_functor_rec ts1 A1 mpred, EX F:_,
(F * (P1 ts1 x1 gargs)) &&
- ALL rho':_, ( !( ((local (tc_environ (rettype_tycontext (snd tpsig1))) rho') && (F * (Q1 ts1 x1 rho')))
+ ALL rho':_, ( !( ((local (tc_environ (xtype_tycontext (snd tpsig1))) rho') && (F * (Q1 ts1 x1 rho')))
>=> (Q2 ts2 x2 rho')))))
end
end.
@@ -202,7 +202,7 @@ match f1 with
| mk_funspec tpsig1 cc1 A1 P1 Q1 _ _ =>
match f2 with
| mk_funspec tpsig2 cc2 A2 P2 Q2 _ _ =>
- let Delta := rettype_tycontext (snd tpsig1) in
+ let Delta := xtype_tycontext (snd tpsig1) in
!!(tpsig1=tpsig2 /\ cc1=cc2) &&
! (ALL ts2 :_, ALL x2:dependent_type_functor_rec ts2 A2 mpred,
ALL gargs:genviron * list val,
@@ -1541,19 +1541,19 @@ Proof.
apply (make_context_t_get H).
Qed.
-Lemma tc_environ_rettype t rho: tc_environ (rettype_tycontext t) (globals_only rho).
+Lemma tc_environ_xtype t rho: tc_environ (xtype_tycontext t) (globals_only rho).
Proof.
- unfold rettype_tycontext; simpl. split3; intros; simpl.
+ unfold xtype_tycontext; simpl. split3; intros; simpl.
red; intros. rewrite PTree.gempty in H; congruence.
split; intros. rewrite PTree.gempty in H; congruence. destruct H; inv H.
red; intros. rewrite PTree.gempty in H; congruence.
Qed.
-Lemma tc_environ_rettype_env_set t rho i v:
-tc_environ (rettype_tycontext t)
+Lemma tc_environ_xtype_env_set t rho i v:
+tc_environ (xtype_tycontext t)
(env_set (globals_only rho) i v).
Proof.
- unfold rettype_tycontext; simpl. split3; intros; simpl.
+ unfold xtype_tycontext; simpl. split3; intros; simpl.
red; intros. rewrite PTree.gempty in H; congruence.
split; intros. rewrite PTree.gempty in H; congruence. destruct H; inv H.
red; intros. rewrite PTree.gempty in H; congruence.