From 214eb122c2bb916e6ab65b2f5a5d46131ccf44ee Mon Sep 17 00:00:00 2001 From: Julien Signoles <julien.signoles@cea.fr> Date: Tue, 26 Jun 2012 12:09:31 +0000 Subject: [PATCH] [e-acsl] do not keep unused specified functions --- src/plugins/e-acsl/TODO | 1 + src/plugins/e-acsl/main.ml | 5 +- .../e-acsl-runtime/oracle/addrOf.1.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/addrOf.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/arith.1.res.oracle | 39 ----- .../e-acsl-runtime/oracle/arith.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/array.1.res.oracle | 119 --------------- .../e-acsl-runtime/oracle/array.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/at.1.res.oracle | 94 ------------ .../tests/e-acsl-runtime/oracle/at.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/cast.1.res.oracle | 100 ------------- .../e-acsl-runtime/oracle/cast.res.oracle | 136 ------------------ .../oracle/comparison.1.res.oracle | 106 -------------- .../oracle/comparison.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/empty.1.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/false.1.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/false.res.oracle | 136 ------------------ .../oracle/function_contract.1.res.oracle | 104 -------------- .../oracle/function_contract.res.oracle | 136 ------------------ .../tests/e-acsl-runtime/oracle/gen_addrOf.c | 136 ------------------ .../tests/e-acsl-runtime/oracle/gen_addrOf2.c | 136 ------------------ .../tests/e-acsl-runtime/oracle/gen_arith.c | 136 ------------------ .../tests/e-acsl-runtime/oracle/gen_arith2.c | 39 ----- .../tests/e-acsl-runtime/oracle/gen_array.c | 136 ------------------ .../tests/e-acsl-runtime/oracle/gen_array2.c | 119 --------------- .../tests/e-acsl-runtime/oracle/gen_at.c | 136 ------------------ .../tests/e-acsl-runtime/oracle/gen_at2.c | 94 ------------ .../tests/e-acsl-runtime/oracle/gen_cast.c | 136 ------------------ .../tests/e-acsl-runtime/oracle/gen_cast2.c | 100 ------------- .../e-acsl-runtime/oracle/gen_comparison.c | 136 ------------------ .../e-acsl-runtime/oracle/gen_comparison2.c | 106 -------------- .../tests/e-acsl-runtime/oracle/gen_false.c | 136 ------------------ .../tests/e-acsl-runtime/oracle/gen_false2.c | 136 ------------------ .../oracle/gen_function_contract.c | 136 ------------------ .../oracle/gen_function_contract2.c | 104 -------------- .../oracle/gen_integer_constant.c | 136 ------------------ .../oracle/gen_integer_constant2.c | 110 -------------- .../e-acsl-runtime/oracle/gen_invariant.c | 136 ------------------ .../e-acsl-runtime/oracle/gen_invariant2.c | 119 --------------- .../e-acsl-runtime/oracle/gen_labeled_stmt.c | 136 ------------------ .../e-acsl-runtime/oracle/gen_labeled_stmt2.c | 119 --------------- .../tests/e-acsl-runtime/oracle/gen_lazy.c | 136 ------------------ .../tests/e-acsl-runtime/oracle/gen_lazy2.c | 94 ------------ .../e-acsl-runtime/oracle/gen_linear_search.c | 136 ------------------ .../oracle/gen_linear_search2.c | 93 ------------ .../oracle/gen_nested_code_annot.c | 136 ------------------ .../oracle/gen_nested_code_annot2.c | 119 --------------- .../tests/e-acsl-runtime/oracle/gen_not.c | 136 ------------------ .../tests/e-acsl-runtime/oracle/gen_not2.c | 119 --------------- .../tests/e-acsl-runtime/oracle/gen_null.c | 136 ------------------ .../tests/e-acsl-runtime/oracle/gen_null2.c | 136 ------------------ .../oracle/gen_other_constants.c | 136 ------------------ .../oracle/gen_other_constants2.c | 119 --------------- .../tests/e-acsl-runtime/oracle/gen_ptr.c | 136 ------------------ .../tests/e-acsl-runtime/oracle/gen_ptr2.c | 71 --------- .../tests/e-acsl-runtime/oracle/gen_quantif.c | 136 ------------------ .../e-acsl-runtime/oracle/gen_quantif2.c | 66 --------- .../tests/e-acsl-runtime/oracle/gen_result.c | 136 ------------------ .../tests/e-acsl-runtime/oracle/gen_result2.c | 101 ------------- .../tests/e-acsl-runtime/oracle/gen_sizeof.c | 136 ------------------ .../tests/e-acsl-runtime/oracle/gen_sizeof2.c | 119 --------------- .../e-acsl-runtime/oracle/gen_stmt_contract.c | 136 ------------------ .../oracle/gen_stmt_contract2.c | 104 -------------- .../tests/e-acsl-runtime/oracle/gen_true.c | 136 ------------------ .../tests/e-acsl-runtime/oracle/gen_true2.c | 136 ------------------ .../tests/e-acsl-runtime/oracle/gen_typedef.c | 136 ------------------ .../e-acsl-runtime/oracle/gen_typedef2.c | 112 --------------- .../oracle/integer_constant.1.res.oracle | 110 -------------- .../oracle/integer_constant.res.oracle | 136 ------------------ .../oracle/invariant.1.res.oracle | 119 --------------- .../oracle/invariant.res.oracle | 136 ------------------ .../oracle/labeled_stmt.1.res.oracle | 119 --------------- .../oracle/labeled_stmt.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/lazy.1.res.oracle | 94 ------------ .../e-acsl-runtime/oracle/lazy.res.oracle | 136 ------------------ .../oracle/linear_search.1.res.oracle | 93 ------------ .../oracle/linear_search.res.oracle | 136 ------------------ .../oracle/nested_code_annot.1.res.oracle | 119 --------------- .../oracle/nested_code_annot.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/not.1.res.oracle | 119 --------------- .../e-acsl-runtime/oracle/not.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/null.1.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/null.res.oracle | 136 ------------------ .../oracle/other_constants.1.res.oracle | 119 --------------- .../oracle/other_constants.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/ptr.1.res.oracle | 71 --------- .../e-acsl-runtime/oracle/ptr.res.oracle | 136 ------------------ .../oracle/quantif.1.res.oracle | 66 --------- .../e-acsl-runtime/oracle/quantif.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/result.1.res.oracle | 101 ------------- .../e-acsl-runtime/oracle/result.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/sizeof.1.res.oracle | 119 --------------- .../e-acsl-runtime/oracle/sizeof.res.oracle | 136 ------------------ .../oracle/stmt_contract.1.res.oracle | 104 -------------- .../oracle/stmt_contract.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/true.1.res.oracle | 136 ------------------ .../e-acsl-runtime/oracle/true.res.oracle | 136 ------------------ .../oracle/typedef.1.res.oracle | 112 --------------- .../e-acsl-runtime/oracle/typedef.res.oracle | 136 ------------------ 99 files changed, 5 insertions(+), 11807 deletions(-) diff --git a/src/plugins/e-acsl/TODO b/src/plugins/e-acsl/TODO index 0f1a0ca4fa0..f74f95406bf 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 eb9279c444f..369bb4a8971 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 ee9f953b749..1ecce3bb2ef 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 ee9f953b749..1ecce3bb2ef 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 003e598f976..847f278af67 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 ad147706456..5f04a454ddd 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 c04bb45f4ea..ea501c71f67 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 96d488431aa..9734555b0d6 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 90b103f4ab3..b45c3443e0b 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 82cd984dc01..36d6af3c6a9 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 2f90dad8b22..ed07f2aae52 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 33fb94eb3f2..6f6c934d7a5 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 4d3126edad2..a8422130298 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 4d878792f9c..edcb5e662f4 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 47c9d714c13..e9e167add90 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 b72560a6655..9a33c1e629b 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 b72560a6655..9a33c1e629b 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 37e8f5401f1..29db38b0761 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 b2a50143958..88e50b41ba6 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 324201a12ef..7f7561907c0 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 324201a12ef..7f7561907c0 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 f6a9ba7a38b..02708054adf 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 4d0e3d6b08e..8951aab7d5b 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 e17e3f9289d..f16234b2bce 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 94d5692f7a2..9840ab9dfb5 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 7566c4a2d80..8a344178fa5 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 d087e374706..b5f66b6a7d1 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 039e46d60d8..709c6efedab 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 8a1bfb67724..7c3f668961f 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 e5221ec573b..dbd68825916 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 c92eedb5c3c..f74dcf0a01f 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 8ced4120025..75dc0e97e7b 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 8ced4120025..75dc0e97e7b 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 ce8fae0fee0..0285beae055 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 1161659d6ac..fba1ec72578 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 8a5c44a0f33..264c15815bd 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 ff384bdbd61..4ef908db776 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 77f3a8a7b24..5a00e295868 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 5e1a8475aec..7cc43f041f5 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 349c06dfcaf..2101c1dd4da 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 d6873d9b6df..48974a09a50 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 dab5e82017f..012b144c857 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 9b03d6b67cd..8d82887ed74 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 17764226bf2..c3b528d75a8 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 0abc7a6b206..45cd4756ff6 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 0b1ddbed922..32486c92f18 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 c8dd1d45b0c..c8546b4b4fc 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 0b1e23e180d..690e475054d 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 9d0ec5e0db9..610654ffc77 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 49cb49e5dd4..a0bd0d11856 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 49cb49e5dd4..a0bd0d11856 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 d637e277e36..23079b635bf 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 0ae61b3dadb..ce193f0ea4e 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 90d23eb947b..9fb32a6a9f1 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 1d9ff8b4cb0..6830697e8d7 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 5d8be06ba90..b339df5efcc 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 5f696ba67a7..7aac7429278 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 be1882ab62a..dfc198b5bc5 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 67c3b2ce836..0b383b4f73d 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 3728e71cbfd..fc070d3917f 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 1aa492de836..ad9ab80a85c 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 676c2fb05af..75d6a3a0ceb 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 8db6c79818c..3eefbe2261f 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 df6ccbccf63..c27f2a04904 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 df6ccbccf63..c27f2a04904 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 67498854f7a..97d2798767e 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 8978ee94d3e..bc767362fcb 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 b72bee8cf7b..56383fbba5d 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 1ba528da7e5..39561fadbf9 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 acd7d831873..67addf88e85 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 e48c8cf6d5c..9d04b181b18 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 24039891d3d..b4b7eb91854 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 40bed2946cd..b64312a243a 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 e346d6b2b25..850904b8e62 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 43fc8db3635..d94a7b56f59 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 7bee9590204..8ec0a1bd963 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 77efeb421ce..02495446bc3 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 d5bb941d28d..1dd6cf46a5c 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 4c23fd18b9b..3350203a04d 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 58c728c5e74..87fa944cb57 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 6364fb7d9b7..3522b083e45 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 15ffb415518..6431ef49791 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 15ffb415518..6431ef49791 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 7c8b6eeb8e1..18fb2471664 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 4cb2ebcb675..09118ccfeff 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 55b823fb245..108825f9d75 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 fefc82a7361..8a8d00fe51f 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 b54ee09ce3a..a24ca4fadd8 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 ea6aea5ba33..6b8d5ee8f15 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 4aa35975e36..2407d0bb8af 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 2c3e4bcb077..46293e9793e 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 6bf690899cf..0e37e6e33d6 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 2fc2258fa71..dca95642393 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 d15dc0362d9..be8d36c24c9 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 9b2ba482705..e4eb25753c9 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 75adf887ac9..50989dd447d 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 75adf887ac9..50989dd447d 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 7f78fdbeef0..8be306ba07c 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 1e004a6afe5..9503549e7ed 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; */ -- GitLab