diff --git a/src/plugins/e-acsl/TODO b/src/plugins/e-acsl/TODO
index 0f1a0ca4fa0277886b261e733edd01425382665c..f74f95406bf173d011de85afff08b7c6339359ea 100644
--- a/src/plugins/e-acsl/TODO
+++ b/src/plugins/e-acsl/TODO
@@ -20,6 +20,7 @@
# KNOWN BUGS #
##############
+- Bernard's bug avec un requires global et un ensures dans un behavior
- \at incorrect si StmtLabel faisant référence au stmt courant (voir test at.i)
- incorrect d'utiliser un \old dans le post-state si pre-state == post-state
(même raison que ci-dessus)
diff --git a/src/plugins/e-acsl/main.ml b/src/plugins/e-acsl/main.ml
index eb9279c444f4887875a4d8c6107cba64e4283733..369bb4a8971e03c57dfc05ce25d665c5624ef74b 100644
--- a/src/plugins/e-acsl/main.ml
+++ b/src/plugins/e-acsl/main.ml
@@ -59,7 +59,10 @@ let () = Env.global_state := Resulting_projects.self
let generate_code =
Resulting_projects.memo
(fun name ->
- let visit prj = Visit.do_visit ~prj true in
+ let visit prj =
+ Project.on prj Kernel.Keep_unused_specified_functions.off ();
+ Visit.do_visit ~prj true;
+ in
File.create_rebuilt_project_from_visitor ~preprocess:false name visit)
let generate_code =
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/addrOf.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/addrOf.1.res.oracle
index ee9f953b749a62cd50436bcf5825b19ad75dedb9..1ecce3bb2eff098e2ce7ad71d541a05255368dff 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/addrOf.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/addrOf.1.res.oracle
@@ -25,142 +25,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/addrOf.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/addrOf.res.oracle
index ee9f953b749a62cd50436bcf5825b19ad75dedb9..1ecce3bb2eff098e2ce7ad71d541a05255368dff 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/addrOf.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/addrOf.res.oracle
@@ -25,142 +25,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/arith.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/arith.1.res.oracle
index 003e598f9766cff71fb71c57b4f12925983d1da5..847f278af6728c9aee5713fd548f6c60a63ea745 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/arith.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/arith.1.res.oracle
@@ -912,23 +912,6 @@ model __mpz_struct { ℤ n };
assigns *z; */
extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
/*@ ensures \valid(\old(z));
allocates \old(z);
@@ -945,22 +928,6 @@ extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
*/
extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -1047,12 +1014,6 @@ extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
*/
extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/arith.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/arith.res.oracle
index ad1477064567879433f48c8692b84e49ca885e8c..5f04a454dddd7033f1392b97f329975f7e2fda70 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/arith.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/arith.res.oracle
@@ -131,142 +131,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/array.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/array.1.res.oracle
index c04bb45f4ead2df61c2f61e2658165729e07e073..ea501c71f67291f52c370c74a7a7126317145bc0 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/array.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/array.1.res.oracle
@@ -83,57 +83,10 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -147,78 +100,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/array.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/array.res.oracle
index 96d488431aac1816be07520dbd7706dbaa1b80af..9734555b0d63313f43ab43cb0e47a05bea1bd11f 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/array.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/array.res.oracle
@@ -42,142 +42,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/at.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/at.1.res.oracle
index 90b103f4ab3bb6b8538f9cca42c1b20dcba5f459..b45c3443e0b6fb13c09812f2d3ddb33c84af29cc 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/at.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/at.1.res.oracle
@@ -353,39 +353,7 @@ extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
assigns *z;
assigns *z \from n;
*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -399,14 +367,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -418,60 +378,6 @@ extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/at.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/at.res.oracle
index 82cd984dc01d37dd7884793ee7e51b03af8af463..36d6af3c6a9b96099c4a111d59e3ede5c35d8aca 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/at.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/at.res.oracle
@@ -120,142 +120,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/cast.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/cast.1.res.oracle
index 2f90dad8b22213469ee38eb1ae9dffe2bf3134a7..ed07f2aae5261205d0a3c46a5b23a516f9cd8fc3 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/cast.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/cast.1.res.oracle
@@ -178,21 +178,6 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
@@ -213,22 +198,6 @@ extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
*/
extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -242,75 +211,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
/*@ requires \valid(z);
allocates \nothing;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/cast.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/cast.res.oracle
index 33fb94eb3f2b20c8bac0c8550ae83c29729a614a..6f6c934d7a5a2329875d66df510a3b208c5f8497 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/cast.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/cast.res.oracle
@@ -51,142 +51,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/comparison.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/comparison.1.res.oracle
index 4d3126edad2404a047f7c9a19c50306e8b18a764..a8422130298d4cab345995f5bc9569dcd73db782 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/comparison.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/comparison.1.res.oracle
@@ -414,23 +414,6 @@ model __mpz_struct { ℤ n };
assigns *z; */
extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
/*@ ensures \valid(\old(z));
allocates \old(z);
@@ -438,31 +421,6 @@ extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -485,70 +443,6 @@ extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
*/
extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/comparison.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/comparison.res.oracle
index 4d878792f9c46daaee5a612e589fb70b5be276b4..edcb5e662f43ce43602de6fa41f458b15581e22b 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/comparison.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/comparison.res.oracle
@@ -113,142 +113,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/empty.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/empty.1.res.oracle
index 47c9d714c13b1ad5b3ce4b2b0b2f7b76d47b38cf..e9e167add900d5c3959effe47a7090bbcd021551 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/empty.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/empty.1.res.oracle
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/false.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/false.1.res.oracle
index b72560a665557797f2c7b05816b557f6d9799c6c..9a33c1e629b525e112153b0ae651e223da9cd098 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/false.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/false.1.res.oracle
@@ -18,142 +18,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/false.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/false.res.oracle
index b72560a665557797f2c7b05816b557f6d9799c6c..9a33c1e629b525e112153b0ae651e223da9cd098 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/false.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/false.res.oracle
@@ -18,142 +18,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/function_contract.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/function_contract.1.res.oracle
index 37e8f5401f12a1a12a7ccec04ed475db80ad436b..29db38b07613efb88a79c23afaaf3cf95ab4437e 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/function_contract.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/function_contract.1.res.oracle
@@ -641,23 +641,6 @@ model __mpz_struct { ℤ n };
assigns *z; */
extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
/*@ ensures \valid(\old(z));
allocates \old(z);
@@ -665,31 +648,6 @@ extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -703,14 +661,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -722,60 +672,6 @@ extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/function_contract.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/function_contract.res.oracle
index b2a5014395865f8c0a836f6236bb5abd0d5763b2..88e50b41ba606374001a820595751010bab36374 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/function_contract.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/function_contract.res.oracle
@@ -168,142 +168,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_addrOf.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_addrOf.c
index 324201a12efa2e0418398f8ca84a3680c9f3fc53..7f7561907c0d254fa5e5a6601f206408b6629baa 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_addrOf.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_addrOf.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_addrOf2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_addrOf2.c
index 324201a12efa2e0418398f8ca84a3680c9f3fc53..7f7561907c0d254fa5e5a6601f206408b6629baa 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_addrOf2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_addrOf2.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_arith.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_arith.c
index f6a9ba7a38bb6e008666278c006a053c882e0670..02708054adf98198a269e12c40667410c154ee26 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_arith.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_arith.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_arith2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_arith2.c
index 4d0e3d6b08e5a2587527db4848f781f0ff43bb9d..8951aab7d5b006c7a5aebcfa0df20e48cd98cfe0 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_arith2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_arith2.c
@@ -14,23 +14,6 @@ model __mpz_struct { ℤ n };
assigns *z; */
extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
/*@ ensures \valid(\old(z));
allocates \old(z);
@@ -47,22 +30,6 @@ extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
*/
extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -139,12 +106,6 @@ extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
*/
extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_array.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_array.c
index e17e3f9289d0a7c11e95dbb638c268d9c58a36f5..f16234b2bce98ccc75d893034ae02426b3eab1b0 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_array.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_array.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_array2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_array2.c
index 94d5692f7a2552f84eb8ae52ce783ea3b6ac0397..9840ab9dfb56772df43923486c89d5b21a1a48d7 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_array2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_array2.c
@@ -12,57 +12,10 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -73,78 +26,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_at.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_at.c
index 7566c4a2d8036782fc1aabcd4fb70932327fc4d0..8a344178fa531bc9ceff25c0eca4219a623814fe 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_at.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_at.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_at2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_at2.c
index d087e374706f256f18d30f0543080eb2b8071e1c..b5f66b6a7d1c08554b9857f2d2546385e6661b55 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_at2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_at2.c
@@ -30,39 +30,7 @@ extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
assigns *z;
assigns *z \from n;
*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -73,14 +41,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -91,60 +51,6 @@ extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_cast.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_cast.c
index 039e46d60d88b3885a54d6afe9b408d5cbd095eb..709c6efedab9cb16dcd708a3496322be6b919a17 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_cast.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_cast.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_cast2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_cast2.c
index 8a1bfb67724b1205d134ad959f216513854eb1e9..7c3f668961f89393760f1ef0ea15a5b16da9da88 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_cast2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_cast2.c
@@ -12,21 +12,6 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
@@ -47,22 +32,6 @@ extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
*/
extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -73,75 +42,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
/*@ requires \valid(z);
assigns \nothing; */
extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_comparison.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_comparison.c
index e5221ec573be49500980dcb92401d29a850115b0..dbd688259167e0896a6201ff2d67b61de01324de 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_comparison.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_comparison.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_comparison2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_comparison2.c
index c92eedb5c3c35ceb98a021319ab5b932ad599e80..f74dcf0a01fbdee5f723c7c2180d8e5cb6769104 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_comparison2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_comparison2.c
@@ -14,23 +14,6 @@ model __mpz_struct { ℤ n };
assigns *z; */
extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
/*@ ensures \valid(\old(z));
allocates \old(z);
@@ -38,31 +21,6 @@ extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -81,70 +39,6 @@ extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
*/
extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_false.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_false.c
index 8ced41200250c671d6a5b6afb0221d910a620b09..75dc0e97e7b942f9cabcadfcb95daa4f07e285d5 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_false.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_false.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_false2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_false2.c
index 8ced41200250c671d6a5b6afb0221d910a620b09..75dc0e97e7b942f9cabcadfcb95daa4f07e285d5 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_false2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_false2.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_function_contract.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_function_contract.c
index ce8fae0fee08da98f0e25fc16fd4e28b763630c9..0285beae055f9d7a7f6682885d0818ebcf4f295d 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_function_contract.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_function_contract.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_function_contract2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_function_contract2.c
index 1161659d6ac5d600211a6bb7e2586ae32ff1b7a3..fba1ec725786986b5f47396b5094b8bf781f2503 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_function_contract2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_function_contract2.c
@@ -14,23 +14,6 @@ model __mpz_struct { ℤ n };
assigns *z; */
extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
/*@ ensures \valid(\old(z));
allocates \old(z);
@@ -38,31 +21,6 @@ extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -73,14 +31,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -91,60 +41,6 @@ extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_integer_constant.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_integer_constant.c
index 8a5c44a0f331df720a7d9c61696e956ddbddfc28..264c15815bdb463b45e45f916a3a1cb3057a1b29 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_integer_constant.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_integer_constant.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_integer_constant2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_integer_constant2.c
index ff384bdbd61829cc43e8078786ba62b3d1891f8f..4ef908db776adcc6e5e5509687779b88d3ec2b7a 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_integer_constant2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_integer_constant2.c
@@ -12,28 +12,6 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
@@ -47,22 +25,6 @@ extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
*/
extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -73,78 +35,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_invariant.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_invariant.c
index 77f3a8a7b24b530b620bbb5748641afc38534fa4..5a00e295868ab30c38fbf1305cf7686b269eec3a 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_invariant.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_invariant.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_invariant2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_invariant2.c
index 5e1a8475aec0571c7a7f9c2031f13d475e024ad3..7cc43f041f5e7038b8cf006c93b6ab4abc1d48e8 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_invariant2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_invariant2.c
@@ -12,57 +12,10 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -73,78 +26,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_labeled_stmt.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_labeled_stmt.c
index 349c06dfcafad8ba8f50ba18a7f97192ff5bcbe6..2101c1dd4da8a6fb25bc42ba10e0588c11d2b976 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_labeled_stmt.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_labeled_stmt.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_labeled_stmt2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_labeled_stmt2.c
index d6873d9b6df01937b8fbb4f6ad1c134ec33c16b9..48974a09a50b7b52c9525eb1ce4aa492bcebdaf4 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_labeled_stmt2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_labeled_stmt2.c
@@ -12,57 +12,10 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -73,78 +26,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_lazy.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_lazy.c
index dab5e82017f5ce3b15ee5afa50e8bd2573b0fb26..012b144c8577d29755a56eeefb3297bdf74a498e 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_lazy.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_lazy.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_lazy2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_lazy2.c
index 9b03d6b67cdb090c4346dabba37046486dbd7ac8..8d82887ed74f1ca42f5ea7061a5f620432cc3a8e 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_lazy2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_lazy2.c
@@ -30,39 +30,7 @@ extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
assigns *z;
assigns *z \from n;
*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -73,44 +41,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -121,30 +51,6 @@ extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_linear_search.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_linear_search.c
index 17764226bf2c22750632de49f27b5fc21e7b67ad..c3b528d75a850cfb35145358f29dd17b99d9073a 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_linear_search.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_linear_search.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_linear_search2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_linear_search2.c
index 0abc7a6b206f569f9d72e23a7e8e4cdb6f388a27..45cd4756ff643f13240e813606323c4e62cac0a7 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_linear_search2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_linear_search2.c
@@ -14,23 +14,6 @@ model __mpz_struct { ℤ n };
assigns *z; */
extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
/*@ ensures \valid(\old(z));
allocates \old(z);
@@ -38,15 +21,6 @@ extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
/*@ requires \valid(z_orig);
requires \valid(z);
assigns *z;
@@ -55,14 +29,6 @@ extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
*/
extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
__mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -73,14 +39,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -91,57 +49,6 @@ extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
/*@ requires \valid(z);
assigns \nothing; */
extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_nested_code_annot.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_nested_code_annot.c
index 0b1ddbed92267ae6312e2479253dca7f81bbbff7..32486c92f187396c6ed3043ebd50507436dabe4c 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_nested_code_annot.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_nested_code_annot.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_nested_code_annot2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_nested_code_annot2.c
index c8dd1d45b0c43da2e9a461923157486f3e240d1a..c8546b4b4fc82d55107cd40a1c17e166ea870b18 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_nested_code_annot2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_nested_code_annot2.c
@@ -12,57 +12,10 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -73,78 +26,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_not.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_not.c
index 0b1e23e180d1aa56546a952d6545685dc8e57245..690e475054d3742ed565c00b952ec261197100fd 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_not.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_not.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_not2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_not2.c
index 9d0ec5e0db963f9ed82131bc461d34137f5ad388..610654ffc77ef280e524a2f2bcb976c5c4326190 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_not2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_not2.c
@@ -12,57 +12,10 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -73,78 +26,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_null.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_null.c
index 49cb49e5dd4c2ecea6811ac52f81089ccc7658d9..a0bd0d11856c363ca18e0f4bb929009e21af83fb 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_null.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_null.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_null2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_null2.c
index 49cb49e5dd4c2ecea6811ac52f81089ccc7658d9..a0bd0d11856c363ca18e0f4bb929009e21af83fb 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_null2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_null2.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_other_constants.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_other_constants.c
index d637e277e36f4d306f283bb49c2506f58d17d81b..23079b635bfe6de46904bc6979c50237238f99e6 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_other_constants.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_other_constants.c
@@ -12,142 +12,6 @@ enum bool {
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_other_constants2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_other_constants2.c
index 0ae61b3dadb9f877c315062920cf038346b34013..ce193f0ea4e84e46c83fb5b6c343fbd16ba1724e 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_other_constants2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_other_constants2.c
@@ -16,57 +16,10 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -77,78 +30,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_ptr.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_ptr.c
index 90d23eb947b05a7a066ccc96633dbfeffb31bd3f..9fb32a6a9f1d0f8545070554152b6decf0ab6ad2 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_ptr.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_ptr.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_ptr2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_ptr2.c
index 1d9ff8b4cb09132cdefd8f6806793e4743852aaa..6830697e8d7cdb00d4b3f60441443177d5377525 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_ptr2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_ptr2.c
@@ -14,23 +14,6 @@ model __mpz_struct { ℤ n };
assigns *z; */
extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
/*@ ensures \valid(\old(z));
allocates \old(z);
@@ -38,31 +21,6 @@ extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -73,14 +31,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -121,27 +71,6 @@ extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
/*@ requires \valid(z);
assigns \nothing; */
extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_quantif.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_quantif.c
index 5d8be06ba90db889be79dabed1227ba54377e85b..b339df5efcc563187fb63e4f7257779b737831b4 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_quantif.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_quantif.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_quantif2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_quantif2.c
index 5f696ba67a76ead42ab60dacf89b295bccbd9362..7aac7429278fee1ce0278b61f1fd6b89eb2ca10c 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_quantif2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_quantif2.c
@@ -14,23 +14,6 @@ model __mpz_struct { ℤ n };
assigns *z; */
extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
/*@ ensures \valid(\old(z));
allocates \old(z);
@@ -38,15 +21,6 @@ extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
/*@ requires \valid(z_orig);
requires \valid(z);
assigns *z;
@@ -55,14 +29,6 @@ extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
*/
extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
__mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -73,14 +39,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -97,16 +55,6 @@ extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
assigns *z1;
assigns *z1 \from *z2, *z3;
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
*/
extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
@@ -131,20 +79,6 @@ extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_result.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_result.c
index be1882ab62a8fc248373faa57f800b64049a928e..dfc198b5bc5b5c9c1a68f27786b57274f7767366 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_result.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_result.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_result2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_result2.c
index 67c3b2ce8360b50e54fb3458427f913f61a54832..0b383b4f73db2e644141b9b8142fa499cd2de5ba 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_result2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_result2.c
@@ -14,23 +14,6 @@ model __mpz_struct { ℤ n };
assigns *z; */
extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
/*@ ensures \valid(\old(z));
allocates \old(z);
@@ -38,31 +21,6 @@ extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -73,24 +31,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -101,47 +41,6 @@ extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
/*@ requires \valid(z);
assigns \nothing; */
extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_sizeof.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_sizeof.c
index 3728e71cbfd0dad2e5d9d77f704846ae892e4e31..fc070d3917fe3329998631cd1344837b0dc8a174 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_sizeof.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_sizeof.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_sizeof2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_sizeof2.c
index 1aa492de8365cee09dbb81b2b9f8a95582dcd8a4..ad9ab80a85cecbfc6f0933a91f1f6a9b14c86fe8 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_sizeof2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_sizeof2.c
@@ -12,57 +12,10 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -73,78 +26,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_stmt_contract.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_stmt_contract.c
index 676c2fb05af7c768e5aeba908f0bb726ad665f17..75d6a3a0cebaa5a12552bd45b6448620ac507eba 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_stmt_contract.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_stmt_contract.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_stmt_contract2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_stmt_contract2.c
index 8db6c79818cae7224fb8359fada35327d8a53ac2..3eefbe2261f1e0ea029ea9f7157ded058afad98f 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_stmt_contract2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_stmt_contract2.c
@@ -14,23 +14,6 @@ model __mpz_struct { ℤ n };
assigns *z; */
extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
/*@ ensures \valid(\old(z));
allocates \old(z);
@@ -38,31 +21,6 @@ extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -73,14 +31,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -91,60 +41,6 @@ extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_true.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_true.c
index df6ccbccf63233ff5369b7834178bf9180bbbcad..c27f2a04904765a7f2f6a7a80c6589418efd0477 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_true.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_true.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_true2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_true2.c
index df6ccbccf63233ff5369b7834178bf9180bbbcad..c27f2a04904765a7f2f6a7a80c6589418efd0477 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_true2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_true2.c
@@ -8,142 +8,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_typedef.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_typedef.c
index 67498854f7aadbccce38a6d9f822fa3ff48b88d2..97d2798767e9025695bc98425f6976f20285ff2c 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_typedef.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_typedef.c
@@ -9,142 +9,6 @@ typedef unsigned char uint8;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_typedef2.c b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_typedef2.c
index 8978ee94d3e4e853cfd6c877614ed44628aeb048..bc767362fcb02de1dfd2361a2cf876fb85c7e58e 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_typedef2.c
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/gen_typedef2.c
@@ -13,21 +13,6 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
@@ -39,31 +24,6 @@ extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -74,78 +34,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
assigns \nothing; */
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/integer_constant.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/integer_constant.1.res.oracle
index b72bee8cf7ba16e574fdc49aaa7d2f9d6b925fa1..56383fbba5dd62973c3b29b7091288fde7a8340e 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/integer_constant.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/integer_constant.1.res.oracle
@@ -81,28 +81,6 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
@@ -116,22 +94,6 @@ extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
*/
extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -145,78 +107,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/integer_constant.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/integer_constant.res.oracle
index 1ba528da7e5a7b4b77eebe57c07d2aede8fa69de..39561fadbf934a8d43940d5b8dbe17ff52885b16 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/integer_constant.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/integer_constant.res.oracle
@@ -35,142 +35,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/invariant.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/invariant.1.res.oracle
index acd7d831873997fef5290cbb730a56f0cf3583f2..67addf88e851fcf6e34ec14a1b55987b992d2b02 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/invariant.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/invariant.1.res.oracle
@@ -887,57 +887,10 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -951,78 +904,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/invariant.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/invariant.res.oracle
index e48c8cf6d5c1399ae060f38e1e7a880edd321c43..9d04b181b1820e2d376b4005b1a9c84036c741fa 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/invariant.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/invariant.res.oracle
@@ -152,142 +152,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/labeled_stmt.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/labeled_stmt.1.res.oracle
index 24039891d3da49c7a2beca6394cb2f2f9dc8c84e..b4b7eb9185460bcaaa743ef7188fabba4cde9b18 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/labeled_stmt.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/labeled_stmt.1.res.oracle
@@ -110,57 +110,10 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -174,78 +127,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/labeled_stmt.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/labeled_stmt.res.oracle
index 40bed2946cd60c33b3a6bf517cb62f172f7afeff..b64312a243ae6668d7b355895851a16b7ee7adbb 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/labeled_stmt.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/labeled_stmt.res.oracle
@@ -39,142 +39,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/lazy.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/lazy.1.res.oracle
index e346d6b2b256f70dd6978915e5ee3c7c84f5dfc6..850904b8e6252dad7c14b88bdb310147a05e292d 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/lazy.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/lazy.1.res.oracle
@@ -842,39 +842,7 @@ extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
assigns *z;
assigns *z \from n;
*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -888,44 +856,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -936,30 +866,6 @@ extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/lazy.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/lazy.res.oracle
index 43fc8db363599eb274b3058d893b65c6240a5670..d94a7b56f59e10769781eb1bd40a08a7a03f4e53 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/lazy.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/lazy.res.oracle
@@ -101,142 +101,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/linear_search.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/linear_search.1.res.oracle
index 7bee9590204071cb576d4e849ce616df123d77f4..8ec0a1bd963fa41674b8367793e214fb747f1e97 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/linear_search.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/linear_search.1.res.oracle
@@ -605,23 +605,6 @@ model __mpz_struct { ℤ n };
assigns *z; */
extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
/*@ ensures \valid(\old(z));
allocates \old(z);
@@ -629,15 +612,6 @@ extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
/*@ requires \valid(z_orig);
requires \valid(z);
allocates \nothing;
@@ -647,14 +621,6 @@ extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
*/
extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
__mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -668,14 +634,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -687,57 +645,6 @@ extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
/*@ requires \valid(z);
allocates \nothing;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/linear_search.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/linear_search.res.oracle
index 77efeb421ceefea2f8c35d74aa343275ee99c711..02495446bc3b8d1c1ff6d1aad1664b35afba3416 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/linear_search.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/linear_search.res.oracle
@@ -85,142 +85,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/nested_code_annot.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/nested_code_annot.1.res.oracle
index d5bb941d28d427c79e66d5405df1a3db4ee2c7aa..1dd6cf46a5cfe06eca18aa2fab3b79533540c003 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/nested_code_annot.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/nested_code_annot.1.res.oracle
@@ -166,57 +166,10 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -230,78 +183,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/nested_code_annot.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/nested_code_annot.res.oracle
index 4c23fd18b9b23d6ea70b6f3d1923254f367e84fa..3350203a04d99257e55465a72222bda76969fbcc 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/nested_code_annot.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/nested_code_annot.res.oracle
@@ -50,142 +50,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/not.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/not.1.res.oracle
index 58c728c5e74a0fc133a7c4a93bc9f6296ab7a4c3..87fa944cb5736153d70e2ce4aeda0fdfacb804bd 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/not.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/not.1.res.oracle
@@ -51,57 +51,10 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -115,78 +68,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/not.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/not.res.oracle
index 6364fb7d9b736cf7c51e1b31be066fbbc3207b96..3522b083e4543cfc15fd673f1cc2a496ad8df58b 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/not.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/not.res.oracle
@@ -25,142 +25,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/null.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/null.1.res.oracle
index 15ffb415518ed77ee6a4b8e9f08f169eb110f42b..6431ef49791ebd732fce55db8a32c519befc7393 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/null.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/null.1.res.oracle
@@ -24,142 +24,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/null.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/null.res.oracle
index 15ffb415518ed77ee6a4b8e9f08f169eb110f42b..6431ef49791ebd732fce55db8a32c519befc7393 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/null.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/null.res.oracle
@@ -24,142 +24,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/other_constants.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/other_constants.1.res.oracle
index 7c8b6eeb8e15c09e3507a5fd5536863ca0805d28..18fb24716643bf15b33f1134dbb6366cc7f8e761 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/other_constants.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/other_constants.1.res.oracle
@@ -75,57 +75,10 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -139,78 +92,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/other_constants.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/other_constants.res.oracle
index 4cb2ebcb6756ee733addd7fc7bc80780016b0a6e..09118ccfeffa54a9bd601eb455168a0892bff39e 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/other_constants.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/other_constants.res.oracle
@@ -39,142 +39,6 @@ enum bool {
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/ptr.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/ptr.1.res.oracle
index 55b823fb245b3b1efc983eac910e2f2f9d40e100..108825f9d75885b8c71cb782c6c86afaa68e420e 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/ptr.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/ptr.1.res.oracle
@@ -474,23 +474,6 @@ model __mpz_struct { ℤ n };
assigns *z; */
extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
/*@ ensures \valid(\old(z));
allocates \old(z);
@@ -498,31 +481,6 @@ extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -536,14 +494,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -588,27 +538,6 @@ extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
/*@ requires \valid(z);
allocates \nothing;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/ptr.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/ptr.res.oracle
index fefc82a7361dd076217f40131bcb7eba8a26d4e4..8a8d00fe51fa1af0f7677d3d5d2e0bbf0f94f4b8 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/ptr.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/ptr.res.oracle
@@ -98,142 +98,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/quantif.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/quantif.1.res.oracle
index b54ee09ce3a8f2b61473ed852f39271369a3f840..a24ca4fadd810d28410a296dfa7eba48501628aa 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/quantif.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/quantif.1.res.oracle
@@ -685,23 +685,6 @@ model __mpz_struct { ℤ n };
assigns *z; */
extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
/*@ ensures \valid(\old(z));
allocates \old(z);
@@ -709,15 +692,6 @@ extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
/*@ requires \valid(z_orig);
requires \valid(z);
allocates \nothing;
@@ -727,14 +701,6 @@ extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
*/
extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
__mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -748,14 +714,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -767,16 +725,6 @@ extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -810,20 +758,6 @@ extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/quantif.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/quantif.res.oracle
index ea6aea5ba33793f51f0735ca9c037e2468f79073..6b8d5ee8f157266860be507806397f1498c83749 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/quantif.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/quantif.res.oracle
@@ -124,142 +124,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/result.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/result.1.res.oracle
index 4aa35975e36e93060c175257b1b3d014746e7624..2407d0bb8af6a5b15b3f172aa309bafe312437d2 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/result.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/result.1.res.oracle
@@ -142,23 +142,6 @@ model __mpz_struct { ℤ n };
assigns *z; */
extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
/*@ ensures \valid(\old(z));
allocates \old(z);
@@ -166,31 +149,6 @@ extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -204,24 +162,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -233,47 +173,6 @@ extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
/*@ requires \valid(z);
allocates \nothing;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/result.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/result.res.oracle
index 2c3e4bcb077e6c92d3d4ecdf8b3e961b6a95d834..46293e9793e7efc15b39cb35da6dc9589d6e60cb 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/result.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/result.res.oracle
@@ -54,142 +54,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/sizeof.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/sizeof.1.res.oracle
index 6bf690899cf42b7ac5748530295a1806c92bf239..0e37e6e33d6b8d3c39e3d7f0bd828fbcc6eef0f0 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/sizeof.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/sizeof.1.res.oracle
@@ -71,57 +71,10 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -135,78 +88,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/sizeof.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/sizeof.res.oracle
index 2fc2258fa7165776809bf087fd88ecbca3715fe3..dca95642393381747fdb67330f1e88a4e4df207c 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/sizeof.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/sizeof.res.oracle
@@ -30,142 +30,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/stmt_contract.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/stmt_contract.1.res.oracle
index d15dc0362d9dd6dba70af8f25e25c1fbb4905bd6..be8d36c24c90a577a2f5f42f731cb84098f0e32e 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/stmt_contract.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/stmt_contract.1.res.oracle
@@ -461,23 +461,6 @@ model __mpz_struct { ℤ n };
assigns *z; */
extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
/*@ ensures \valid(\old(z));
allocates \old(z);
@@ -485,31 +468,6 @@ extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -523,14 +481,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
/*@ requires \valid(z1);
requires \valid(z2);
requires \valid(z3);
@@ -542,60 +492,6 @@ extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2,
__mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/stmt_contract.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/stmt_contract.res.oracle
index 9b2ba4827051e080f84682a9169803ac47761472..e4eb25753c9b0fafca9a8d4418c3d074cffdd670 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/stmt_contract.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/stmt_contract.res.oracle
@@ -93,142 +93,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/true.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/true.1.res.oracle
index 75adf887ac9e64e00ff2f2466ffc7a1cdfd634d9..50989dd447d0a6bafe1f535a4bb0df751060a1ff 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/true.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/true.1.res.oracle
@@ -25,142 +25,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/true.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/true.res.oracle
index 75adf887ac9e64e00ff2f2466ffc7a1cdfd634d9..50989dd447d0a6bafe1f535a4bb0df751060a1ff 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/true.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/true.res.oracle
@@ -25,142 +25,6 @@ typedef struct __anonstruct___mpz_struct_1 __mpz_struct;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/typedef.1.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/typedef.1.res.oracle
index 7f78fdbeef003ec4bc0839de17dd2c2086f0ae10..8be306ba07ce805d19e537a9b3df8e6684bd42ec 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/typedef.1.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/typedef.1.res.oracle
@@ -54,21 +54,6 @@ model __mpz_struct { ℤ n };
/*@ ensures \valid(\old(z));
allocates \old(z);
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
assigns *z;
assigns *z \from n;
*/
@@ -80,31 +65,6 @@ extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
assigns *z \from n;
*/
extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
/*@ requires \valid(x);
frees x;
@@ -118,78 +78,6 @@ extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
*/
extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
__mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */
diff --git a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/typedef.res.oracle b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/typedef.res.oracle
index 1e004a6afe5eee43dbac88edbad90e048a65a194..9503549e7eddb6232c369b716ed0386f2afbb01e 100644
--- a/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/typedef.res.oracle
+++ b/src/plugins/e-acsl/tests/e-acsl-runtime/oracle/typedef.res.oracle
@@ -26,142 +26,6 @@ typedef unsigned char uint8;
/*@
model __mpz_struct { ℤ n };
*/
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z; */
-extern void __gmpz_init(__mpz_struct * /*[1]*/ z);
-/*@ requires \valid(z_orig);
- ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_init_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from n;
-*/
-extern void __gmpz_init_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ ensures \valid(\old(z));
- allocates \old(z);
-
- assigns *z;
- assigns *z \from str, base;
-
-*/
-extern int __gmpz_init_set_str(__mpz_struct * /*[1]*/ z, char const *str,
- int base);
-/*@ requires \valid(z_orig);
- requires \valid(z);
- assigns *z;
- assigns *z \from *z_orig;
-
-*/
-extern void __gmpz_set(__mpz_struct * /*[1]*/ z,
- __mpz_struct const * /*[1]*/ z_orig);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_ui(__mpz_struct * /*[1]*/ z, unsigned long n);
-/*@ requires \valid(z);
- assigns *z;
- assigns *z \from n; */
-extern void __gmpz_set_si(__mpz_struct * /*[1]*/ z, long n);
-/*@ requires \valid(x);
- frees x;
-
- assigns *x; */
-extern void __gmpz_clear(__mpz_struct * /*[1]*/ x);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns \nothing; */
-extern int __gmpz_cmp(__mpz_struct const * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern void __gmpz_neg(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_add(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_sub(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_mul(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_q(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- requires \valid(z3);
- assigns *z1;
- assigns *z1 \from *z2, *z3;
-
-*/
-extern void __gmpz_tdiv_r(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2,
- __mpz_struct const * /*[1]*/ z3);
-/*@ requires \valid(z1);
- requires \valid(z2);
- assigns *z1;
- assigns *z1 \from *z2;
-
-*/
-extern int __gmpz_com(__mpz_struct * /*[1]*/ z1,
- __mpz_struct const * /*[1]*/ z2);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern long __gmpz_get_si(__mpz_struct const * /*[1]*/ z);
-/*@ requires \valid(z);
- assigns \nothing; */
-extern unsigned long __gmpz_get_ui(__mpz_struct const * /*[1]*/ z);
/*@ terminates \false;
ensures \false;
assigns \nothing; */