diff --git a/src/kernel_services/ast_data/property.ml b/src/kernel_services/ast_data/property.ml
index 4029b3829485231a6aee7a24913a591c026babe0..76dbce8cdaf50f200c46911f10bbcd187f9c26f9 100644
--- a/src/kernel_services/ast_data/property.ml
+++ b/src/kernel_services/ast_data/property.ml
@@ -76,7 +76,7 @@ type identified_complete = {
ic_kf : kernel_function;
ic_kinstr : kinstr;
ic_active : Datatype.String.Set.t;
- ic_bhvs : string list
+ ic_bhvs : Datatype.String.Set.t
}
type identified_disjoint = identified_complete
@@ -461,14 +461,16 @@ include Datatype.Make_with_collections
| IPCodeAnnot {ica_ca} -> Cil_printer.pp_code_annotation fmt ica_ca
| IPComplete {ic_active; ic_bhvs} ->
Format.fprintf fmt "complete@ %a"
- (Pretty_utils.pp_list ~sep:","
- (fun fmt s -> Format.fprintf fmt "@ %s" s))
+ (Pretty_utils.pp_iter ~sep:","
+ Datatype.String.Set.iter
+ (fun fmt s -> Format.fprintf fmt "@ %s" s))
ic_bhvs;
pp_active fmt ic_active
| IPDisjoint {ic_active; ic_bhvs} ->
Format.fprintf fmt "disjoint@ %a"
- (Pretty_utils.pp_list ~sep:","
- (fun fmt s -> Format.fprintf fmt "@ %s" s))
+ (Pretty_utils.pp_iter ~sep:","
+ Datatype.String.Set.iter
+ (fun fmt s -> Format.fprintf fmt "@ %s" s))
ic_bhvs;
pp_active fmt ic_active
| IPAllocation {ial_allocs=(f,a)} ->
@@ -511,11 +513,11 @@ include Datatype.Make_with_collections
(* complete list is more likely to discriminate than active list. *)
Hashtbl.hash
(6, Kf.hash f, Kinstr.hash ki,
- (y:string list), (x:Datatype.String.Set.t))
+ Datatype.String.Set.hash y, Datatype.String.Set.hash x)
| IPDisjoint {ic_kf=f; ic_kinstr=ki; ic_bhvs=y; ic_active=x} ->
Hashtbl.hash
(7, Kf.hash f, Kinstr.hash ki,
- (y: string list), (x:Datatype.String.Set.t))
+ Datatype.String.Set.hash y, Datatype.String.Set.hash x)
| IPAssigns {ias_kf=f; ias_kinstr=ki; ias_bhv=b} ->
Hashtbl.hash (8, Kf.hash f, Kinstr.hash ki, hash_bhv_loop b)
| IPFrom {if_kf=kf; if_kinstr=ki; if_bhv=b; if_from=(t, _)} ->
@@ -572,7 +574,7 @@ include Datatype.Make_with_collections
IPComplete {ic_kf=f2;ic_kinstr=ki2;ic_active=a2;ic_bhvs=x2}
| IPDisjoint {ic_kf=f1;ic_kinstr=ki1;ic_active=a1;ic_bhvs=x1},
IPDisjoint {ic_kf=f2;ic_kinstr=ki2;ic_active=a2;ic_bhvs=x2} ->
- Kf.equal f1 f2 && Kinstr.equal ki1 ki2 && a1 = a2 && x1 = x2
+ Kf.equal f1 f2 && Kinstr.equal ki1 ki2 && a1 = a2 && Datatype.String.Set.equal x1 x2
| IPAllocation {ial_kf=f1;ial_kinstr=ki1;ial_bhv=b1},
IPAllocation {ial_kf=f2;ial_kinstr=ki2;ial_bhv=b2}
| IPAssigns {ias_kf=f1;ias_kinstr=ki1;ias_bhv=b1},
@@ -641,7 +643,7 @@ include Datatype.Make_with_collections
if n = 0 then
let n = Kinstr.compare ki1 ki2 in
if n = 0 then
- let n = Extlib.compare_basic x1 x2 in
+ let n = Datatype.String.Set.compare x1 x2 in
if n = 0 then
Datatype.String.Set.compare a1 a2
else n
@@ -824,13 +826,13 @@ let rec pretty_debug fmt = function
Cil_types_debug.pp_kernel_function ic_kf
Cil_types_debug.pp_kinstr ic_kinstr
Datatype.String.Set.pretty ic_active
- (Cil_types_debug.pp_list Cil_types_debug.pp_string) ic_bhvs
+ Datatype.String.Set.pretty ic_bhvs
| IPDisjoint {ic_kf; ic_kinstr; ic_active; ic_bhvs} ->
Format.fprintf fmt "IPDisjoint(%a,%a,%a,%a)"
Cil_types_debug.pp_kernel_function ic_kf
Cil_types_debug.pp_kinstr ic_kinstr
Datatype.String.Set.pretty ic_active
- (Cil_types_debug.pp_list Cil_types_debug.pp_string) ic_bhvs
+ Datatype.String.Set.pretty ic_bhvs
| IPDecrease {id_kf; id_kinstr; id_ca; id_variant} ->
Format.fprintf fmt "IPDecrease(%a,%a,%a,%a)"
Cil_types_debug.pp_kernel_function id_kf
@@ -1023,9 +1025,11 @@ struct
| AExtended(_,_,{ext_name}) -> ext_name
in Format.asprintf "%s%s%a" (kf_prefix kf) name pp_code_annot_names ca
| IPComplete {ic_kf=kf; ic_kinstr=ki; ic_active=a; ic_bhvs=lb} ->
+ let lb = Datatype.String.Set.elements lb in
Format.asprintf "%s%s%acomplete%a"
(kf_prefix kf) (ki_prefix ki) active_prefix a pp_names lb
| IPDisjoint {ic_kf=kf; ic_kinstr=ki; ic_active=a; ic_bhvs=lb} ->
+ let lb = Datatype.String.Set.elements lb in
Format.asprintf "%s%s%adisjoint%a"
(kf_prefix kf) (ki_prefix ki) active_prefix a pp_names lb
| IPDecrease {id_kf=kf; id_ca=None; id_variant=variant} ->
@@ -1235,8 +1239,10 @@ struct
[K kf ; A "loop_allocates" ]
| IPComplete {ic_kf=kf; ic_bhvs=cs} ->
+ let cs = Datatype.String.Set.elements cs in
(K kf :: A "complete" :: List.map (fun a -> A a) cs)
| IPDisjoint {ic_kf=kf; ic_bhvs=cs} ->
+ let cs = Datatype.String.Set.elements cs in
(K kf :: A "disjoint" :: List.map (fun a -> A a) cs)
| IPReachable {ir_kf=None} -> []
@@ -1449,6 +1455,7 @@ let ip_all_of_behavior kf st ~active b =
@ List.map (ip_of_extended (e_loc_of_stmt kf st)) b.b_extended
let ip_of_complete ic_kf ic_kinstr ~active ic_bhvs =
+ let ic_bhvs = Datatype.String.Set.of_list ic_bhvs in
let ic_active = Datatype.String.Set.of_list active in
IPComplete {ic_kf; ic_kinstr; ic_active; ic_bhvs}
@@ -1456,6 +1463,7 @@ let ip_complete_of_spec kf st ~active s =
List.map (ip_of_complete kf st ~active) s.spec_complete_behaviors
let ip_of_disjoint ic_kf ic_kinstr ~active ic_bhvs =
+ let ic_bhvs = Datatype.String.Set.of_list ic_bhvs in
let ic_active = Datatype.String.Set.of_list active in
IPDisjoint {ic_kf; ic_kinstr; ic_active; ic_bhvs}
diff --git a/src/kernel_services/ast_data/property.mli b/src/kernel_services/ast_data/property.mli
index 395250cf2e30de409e5fe3ae29b9477a97acaf05..ef1f193333d5fbb227ae616d02873e95aa24a814 100644
--- a/src/kernel_services/ast_data/property.mli
+++ b/src/kernel_services/ast_data/property.mli
@@ -100,7 +100,7 @@ type identified_complete = {
ic_kf : kernel_function;
ic_kinstr : kinstr;
ic_active : Datatype.String.Set.t;
- ic_bhvs : string list
+ ic_bhvs : Datatype.String.Set.t
}
(** Same as for {!identified_behavior}. *)
diff --git a/src/kernel_services/ast_printing/description.ml b/src/kernel_services/ast_printing/description.ml
index e9de181388eb05084d63e56edca560a46fbdd312..8ccda1048a0f5e2fdada76f9db31d63eee68125a 100644
--- a/src/kernel_services/ast_printing/description.ml
+++ b/src/kernel_services/ast_printing/description.ml
@@ -95,12 +95,17 @@ let pp_bhv fmt bhv =
if not (Cil.is_default_behavior bhv) then
Format.fprintf fmt " for '%s'" bhv.b_name
-let pp_bhvs fmt = function
- | [] -> ()
- | b::bs ->
- Format.fprintf fmt " @[<hov 0>'%s'" b ;
- List.iter (fun b -> Format.fprintf fmt ",@ '%s'" b) bs ;
- Format.fprintf fmt "@]"
+let pp_bhvs fmt bhvs =
+ if Datatype.String.Set.is_empty bhvs then
+ ()
+ else
+ Pretty_utils.pp_iter
+ ~pre:" @[<hov 0>"
+ ~suf:"@]"
+ ~sep:",@ "
+ Datatype.String.Set.iter
+ (fun fmt s -> Format.fprintf fmt "'%s'" s)
+ fmt bhvs
let pp_for fmt = function
| [] -> ()
@@ -492,8 +497,10 @@ let rec ip_order = function
| IPBehavior {ib_kf;ib_kinstr;ib_active;ib_bhv} ->
[I 6;F ib_kf;K ib_kinstr;B ib_bhv; A ib_active]
| IPComplete {ic_kf;ic_kinstr;ic_active;ic_bhvs} ->
+ let ic_bhvs = Datatype.String.Set.elements ic_bhvs in
[I 7;F ic_kf;K ic_kinstr; A ic_active] @ for_order 0 ic_bhvs
| IPDisjoint {ic_kf;ic_kinstr;ic_active;ic_bhvs} ->
+ let ic_bhvs = Datatype.String.Set.elements ic_bhvs in
[I 8;F ic_kf;K ic_kinstr; A ic_active] @ for_order 0 ic_bhvs
| IPPredicate {ip_kind;ip_kf;ip_kinstr} ->
[I 9;F ip_kf;K ip_kinstr] @ kind_order ip_kind
diff --git a/src/plugins/e-acsl/.gitignore b/src/plugins/e-acsl/.gitignore
index f5ee39fdfacb148fe2e6ab6c724865925290ea92..5543dbdb43e12ae58f5c6ecfa2674b7ebf5243c4 100644
--- a/src/plugins/e-acsl/.gitignore
+++ b/src/plugins/e-acsl/.gitignore
@@ -77,3 +77,4 @@ lib/libeacsl-rtl-bittree-dbg.a
lib/libeacsl-rtl-segment-dbg.a
tests/csrv14/*
src/local_config.ml
+src/dependencies/dep_eva.ml
diff --git a/src/plugins/e-acsl/E_ACSL.mli b/src/plugins/e-acsl/E_ACSL.mli
index f6304d722fd813a62af1879555e4b5c8b1af2bae..590545155a859fa12010075e32be15311b64b281 100644
--- a/src/plugins/e-acsl/E_ACSL.mli
+++ b/src/plugins/e-acsl/E_ACSL.mli
@@ -30,13 +30,21 @@ module Error: sig
end
module Translate: sig
- exception No_simple_translation of term
- val term_to_exp: typ option -> term -> exp
- (** @raise New_typing_error when the given term cannot be typed (something wrong
+ exception No_simple_term_translation of term
+ val untyped_term_to_exp: typ option -> term -> exp
+ (** @raise Typing_error when the given term cannot be typed (something wrong
happened with this term)
@raise Not_yet when the given term contains an unsupported construct.
- @raise No_simple_translation when the given term cannot be translated into
- a single expression. *)
+ @raise No_simple_term_translation when the given term cannot be translated
+ into a single expression. *)
+
+ exception No_simple_predicate_translation of predicate
+ val untyped_predicate_to_exp: predicate -> exp
+ (** @raise Typing_error when the given predicate cannot be typed
+ (something wrong happened with this predicate).
+ @raise Not_yet when the given predicate contains an unsupported construct.
+ @raise No_simple_predicate_translation when the given predicate cannot be
+ translated into a single expression. *)
end
module Functions: sig
diff --git a/src/plugins/e-acsl/Makefile.in b/src/plugins/e-acsl/Makefile.in
index 3dbd78d2aeee3a90b7c983dfb8f90b94482fc708..65408186eef27164c5d7e5f98f0d6297d33c74e4 100644
--- a/src/plugins/e-acsl/Makefile.in
+++ b/src/plugins/e-acsl/Makefile.in
@@ -44,6 +44,11 @@ SRC_LIBRARIES:= \
varname
SRC_LIBRARIES:=$(addprefix src/libraries/, $(SRC_LIBRARIES))
+# source files that depend on optional dependencies
+SRC_DYN_DEPENDENCIES:= \
+ dep_eva
+SRC_DYN_DEPENDENCIES:=$(addprefix src/dependencies/, $(SRC_DYN_DEPENDENCIES))
+
# project initializer
SRC_PROJECT_INITIALIZER:= \
rtl \
@@ -63,6 +68,10 @@ SRC_ANALYSES:= \
SRC_ANALYSES:=$(addprefix src/analyses/, $(SRC_ANALYSES))
# code generator
+CODE_GENERATOR_CMI:= \
+ contract_types
+CODE_GENERATOR_CMI:=$(addprefix src/code_generator/, $(CODE_GENERATOR_CMI))
+
SRC_CODE_GENERATOR:= \
smart_exp \
smart_stmt \
@@ -77,6 +86,8 @@ SRC_CODE_GENERATOR:= \
logic_functions \
logic_array \
translate \
+ contract \
+ translate_annots \
temporal \
memory_observer \
literal_observer \
@@ -92,6 +103,7 @@ PLUGIN_DIR ?=.
PLUGIN_EXTRA_DIRS:=\
src \
src/libraries \
+ src/dependencies \
src/analyses \
src/project_initializer \
src/code_generator
@@ -101,14 +113,17 @@ PLUGIN_NAME:=E_ACSL
PLUGIN_CMO:= src/local_config \
src/options \
$(SRC_LIBRARIES) \
+ $(SRC_DYN_DEPENDENCIES) \
$(SRC_PROJECT_INITIALIZER) \
$(SRC_ANALYSES) \
$(SRC_CODE_GENERATOR) \
src/main
-
+PLUGIN_CMI:= \
+ $(CODE_GENERATOR_CMI)
PLUGIN_HAS_MLI:=yes
PLUGIN_DISTRIBUTED:=yes
PLUGIN_DEPENDENCIES:= RteGen
+PLUGIN_GENERATED:=
# We "save" this variable so that it can be used once PLUGIN_DIR has been reset
EACSL_PLUGIN_DIR:=$(PLUGIN_DIR)
@@ -118,6 +133,46 @@ $(EACSL_PLUGIN_DIR)/src/analyses/memory_tracking.cmo \
$(EACSL_PLUGIN_DIR)/src/analyses/memory_tracking.cmi: E_ACSL_BFLAGS+= -w -60
$(EACSL_PLUGIN_DIR)/src/analyses/memory_tracking.cmx: E_ACSL_OFLAGS+= -w -60
+########################
+# Dynamic dependencies #
+########################
+
+# Distributed files for the dynamic dependencies
+EACSL_DISTRIB_DYNDEP:=
+
+# Eva
+DEP_EVA :=src/dependencies/dep_eva
+DEP_EVA_ENABLED :=$(DEP_EVA).enabled.ml
+DEP_EVA_DISABLED :=$(DEP_EVA).disabled.ml
+PLUGIN_GENERATED += $(EACSL_PLUGIN_DIR)/$(DEP_EVA).ml
+
+## Add enabled and disabled files to the list of distributed files
+## (relative to e-acsl directory)
+EACSL_DISTRIB_DYNDEP += $(DEP_EVA_ENABLED) $(DEP_EVA_DISABLED)
+
+## Update enabled and disabled files path to be relative to the root directory
+DEP_EVA_ENABLED:=$(addprefix $(EACSL_PLUGIN_DIR)/, $(DEP_EVA_ENABLED))
+DEP_EVA_DISABLED:=$(addprefix $(EACSL_PLUGIN_DIR)/, $(DEP_EVA_DISABLED))
+
+## Add Eva to the plugin dependencies if enabled
+ifneq "$(ENABLE_EVA)" "no"
+ PLUGIN_DEPENDENCIES+= Eva
+endif
+
+##Â Copy enabled or disabled file to the source file that will be used for the
+##Â compilation
+$(EACSL_PLUGIN_DIR)/src/dependencies/dep_eva.ml: \
+ $(DEP_EVA_ENABLED) $(DEP_EVA_DISABLED) \
+ $(EACSL_PLUGIN_DIR)/Makefile share/Makefile.config
+ $(PRINT_MAKING) $@
+ $(RM) $@
+ifneq "$(ENABLE_EVA)" "no"
+ $(CP) $(DEP_EVA_ENABLED) $@
+else
+ $(CP) $(DEP_EVA_DISABLED) $@
+endif
+ $(CHMOD_RO) $@
+
###############
# Local Flags #
###############
@@ -128,7 +183,7 @@ IS_DISTRIBUTED:=no
# Local configuration #
#######################
-PLUGIN_GENERATED:= $(EACSL_PLUGIN_DIR)/src/local_config.ml
+PLUGIN_GENERATED += $(EACSL_PLUGIN_DIR)/src/local_config.ml
VERSION_FILE=$(FRAMAC_ROOT_SRCDIR)/VERSION
@@ -324,6 +379,7 @@ EACSL_MISC_FILES = \
EACSL_SHARE_FILES = share/e-acsl/*.[ch] share/e-acsl/*/*.[ch]
EACSL_DISTRIB_EXTERNAL =\
+ $(EACSL_DISTRIB_DYNDEP) \
$(EACSL_SHARE_FILES) \
$(EACSL_MISC_FILES) \
$(EACSL_DOC_FILES) \
diff --git a/src/plugins/e-acsl/doc/Changelog b/src/plugins/e-acsl/doc/Changelog
index e6b20fea46eef7cb486105569283f4b84b4782c4..7f0e79e4a4ae6417fc10bef94e80e4437d76c49f 100644
--- a/src/plugins/e-acsl/doc/Changelog
+++ b/src/plugins/e-acsl/doc/Changelog
@@ -25,6 +25,8 @@
Plugin E-ACSL <next-release>
############################
+- E-ACSL [2020-09-22] Support of complete and disjoint behavior
+ (frama-c/e-acsl#92 and frama-c/e-acsl#27).
-* runtime [2020-09-15] Fix wrong value returned for the stack size in the
segment memory model (frama-c/e-acsl#126).
- E-ACSL [2020-09-15] Deprecate -e-acsl-full-mmodel in favor of
diff --git a/src/plugins/e-acsl/doc/refman/changes_modern.tex b/src/plugins/e-acsl/doc/refman/changes_modern.tex
index 4f0069fb4e7c0d7e473ef5906dc90906f4b35de0..9e419b0fc1d84c7e97754ddf782071981b44aea8 100644
--- a/src/plugins/e-acsl/doc/refman/changes_modern.tex
+++ b/src/plugins/e-acsl/doc/refman/changes_modern.tex
@@ -137,6 +137,8 @@ in \lstinline|\\at|}
\item \changeinsection{reals}{support of rational numbers and operations}
\item \changeinsection{fn-behavior}{remove abrupt clauses from the list of
exceptions}
+\item \changeinsection{fn-behavior}{support of \lstinline|complete behaviors|
+ and \lstinline|disjoint behaviors|}
\item \changeinsection{statement_contract}{remove abrupt clauses from the list
of exceptions}
\item \changeinsection{abrupt}{add grammar for abrupt termination}
diff --git a/src/plugins/e-acsl/doc/refman/fn_behavior.tex b/src/plugins/e-acsl/doc/refman/fn_behavior.tex
index cf6a3ebb9814ededf4a8f31d03341f3c099b2692..6db1b9dfa974cf8e773bb668896416f3de2f282f 100644
--- a/src/plugins/e-acsl/doc/refman/fn_behavior.tex
+++ b/src/plugins/e-acsl/doc/refman/fn_behavior.tex
@@ -1,7 +1,7 @@
\begin{syntax}
[ function-contract ] ::= requires-clause*
{ decreases-clause? } simple-clause*
- named-behavior* { completeness-clause* }
+ named-behavior* completeness-clause*
\
requires-clause ::= "requires" pred ";"
\
@@ -24,6 +24,6 @@
\
assumes-clause ::= "assumes" pred ";"
\
- { completeness-clause } ::= { "complete" "behaviors" (id (","id)*)? ";" } ;
- | { "disjoint" "behaviors" (id (","id)*)? ";" }
+ completeness-clause ::= "complete" "behaviors" (id (","id)*)? ";"
+ | "disjoint" "behaviors" (id (","id)*)? ";"
\end{syntax}
diff --git a/src/plugins/e-acsl/doc/refman/intro_modern.tex b/src/plugins/e-acsl/doc/refman/intro_modern.tex
index 869c0d0e427e8504a1638ab7d97df20c439366a4..ef546063d84e099f17b5c1c8c101bcc4931f2042 100644
--- a/src/plugins/e-acsl/doc/refman/intro_modern.tex
+++ b/src/plugins/e-acsl/doc/refman/intro_modern.tex
@@ -70,8 +70,7 @@ currently implemented into the \framac's \eacsl plug-in.
& assigns \\
& allocates \\
& decreases \\
- & abrupt termination \\
- & complete and disjoint behaviors
+ & abrupt termination
\\
\hline
\end{tabular}
diff --git a/src/plugins/e-acsl/examples/contracts/function_contract.c b/src/plugins/e-acsl/examples/contracts/function_contract.c
new file mode 100644
index 0000000000000000000000000000000000000000..24d6902df9b18467c4cd865239850bb0c73b9f32
--- /dev/null
+++ b/src/plugins/e-acsl/examples/contracts/function_contract.c
@@ -0,0 +1,42 @@
+#include <limits.h>
+
+/*@
+ requires value > INT_MIN;
+ ensures \result == value;
+
+ behavior neg:
+ assumes value < 0;
+ requires value < 1;
+ ensures \result == value;
+
+ behavior pos:
+ assumes value >= 0;
+ requires value > -1;
+ ensures \result == value;
+
+ behavior odd:
+ assumes value % 2 == 1;
+ requires (value % 2) - 1 == 0;
+ ensures \result == value;
+
+ behavior even:
+ assumes value % 2 == 0;
+ requires (value % 2) + 1 == 1;
+ ensures \result == value;
+
+ complete behaviors neg, pos;
+ complete behaviors odd, even;
+ complete behaviors;
+
+ disjoint behaviors neg, pos;
+ disjoint behaviors odd, even;
+*/
+int f(int value) {
+ return value;
+}
+
+int main() {
+ f(3);
+ return 0;
+}
+
diff --git a/src/plugins/e-acsl/examples/contracts/statement_contract.c b/src/plugins/e-acsl/examples/contracts/statement_contract.c
new file mode 100644
index 0000000000000000000000000000000000000000..12d2ecefd0165bf2afcd1d764fb45075bfdbebfa
--- /dev/null
+++ b/src/plugins/e-acsl/examples/contracts/statement_contract.c
@@ -0,0 +1,42 @@
+#include <limits.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <time.h>
+
+int main() {
+ int value, sign, result;
+
+ srand(time(NULL));
+ value = rand();
+ sign = rand();
+ if (sign % 2) {
+ value = -value;
+ }
+
+ /*@
+ requires value > INT_MIN;
+ assigns result;
+ ensures result >= 0;
+
+ behavior pos:
+ assumes value >= 0;
+ ensures result == value;
+
+ behavior neg:
+ assumes value < 0;
+ ensures result == -value;
+
+ complete behaviors;
+ disjoint behaviors;
+ */
+ if (value < 0) {
+ result = -value;
+ } else {
+ result = value;
+ }
+
+ printf("Value: %d, Result: %d\n", value, result);
+
+ return 0;
+}
+
diff --git a/src/plugins/e-acsl/headers/header_spec.txt b/src/plugins/e-acsl/headers/header_spec.txt
index d014a36259aff5f26b283617810b95c420b473ba..cf2b2a13c0e9dec43354173a1758d67cf4a4132d 100644
--- a/src/plugins/e-acsl/headers/header_spec.txt
+++ b/src/plugins/e-acsl/headers/header_spec.txt
@@ -13,6 +13,8 @@ man/e-acsl-gcc.sh.1: CEA_LGPL_OR_PROPRIETARY.E_ACSL
scripts/e-acsl-gcc.sh: CEA_LGPL_OR_PROPRIETARY.E_ACSL
share/e-acsl/instrumentation_model/e_acsl_assert.c: CEA_LGPL_OR_PROPRIETARY.E_ACSL
share/e-acsl/instrumentation_model/e_acsl_assert.h: CEA_LGPL_OR_PROPRIETARY.E_ACSL
+share/e-acsl/instrumentation_model/e_acsl_contract.h: CEA_LGPL_OR_PROPRIETARY.E_ACSL
+share/e-acsl/instrumentation_model/e_acsl_contract.c: CEA_LGPL_OR_PROPRIETARY.E_ACSL
share/e-acsl/instrumentation_model/e_acsl_temporal.c: CEA_LGPL_OR_PROPRIETARY.E_ACSL
share/e-acsl/instrumentation_model/e_acsl_temporal.h: CEA_LGPL_OR_PROPRIETARY.E_ACSL
share/e-acsl/instrumentation_model/e_acsl_temporal_timestamp.h: CEA_LGPL_OR_PROPRIETARY.E_ACSL
@@ -80,6 +82,9 @@ src/analyses/typing.ml: CEA_LGPL_OR_PROPRIETARY.E_ACSL
src/analyses/typing.mli: CEA_LGPL_OR_PROPRIETARY.E_ACSL
src/code_generator/at_with_lscope.ml: CEA_LGPL_OR_PROPRIETARY.E_ACSL
src/code_generator/at_with_lscope.mli: CEA_LGPL_OR_PROPRIETARY.E_ACSL
+src/code_generator/contract.ml: CEA_LGPL_OR_PROPRIETARY.E_ACSL
+src/code_generator/contract.mli: CEA_LGPL_OR_PROPRIETARY.E_ACSL
+src/code_generator/contract_types.mli: CEA_LGPL_OR_PROPRIETARY.E_ACSL
src/code_generator/env.ml: CEA_LGPL_OR_PROPRIETARY.E_ACSL
src/code_generator/env.mli: CEA_LGPL_OR_PROPRIETARY.E_ACSL
src/code_generator/global_observer.ml: CEA_LGPL_OR_PROPRIETARY.E_ACSL
@@ -114,6 +119,11 @@ src/code_generator/temporal.ml: CEA_LGPL_OR_PROPRIETARY.E_ACSL
src/code_generator/temporal.mli: CEA_LGPL_OR_PROPRIETARY.E_ACSL
src/code_generator/translate.ml: CEA_LGPL_OR_PROPRIETARY.E_ACSL
src/code_generator/translate.mli: CEA_LGPL_OR_PROPRIETARY.E_ACSL
+src/code_generator/translate_annots.ml: CEA_LGPL_OR_PROPRIETARY.E_ACSL
+src/code_generator/translate_annots.mli: CEA_LGPL_OR_PROPRIETARY.E_ACSL
+src/dependencies/dep_eva.mli: CEA_LGPL_OR_PROPRIETARY.E_ACSL
+src/dependencies/dep_eva.enabled.ml: CEA_LGPL_OR_PROPRIETARY.E_ACSL
+src/dependencies/dep_eva.disabled.ml: CEA_LGPL_OR_PROPRIETARY.E_ACSL
src/libraries/builtins.ml: CEA_LGPL_OR_PROPRIETARY.E_ACSL
src/libraries/builtins.mli: CEA_LGPL_OR_PROPRIETARY.E_ACSL
src/libraries/error.ml: CEA_LGPL_OR_PROPRIETARY.E_ACSL
diff --git a/src/plugins/e-acsl/share/e-acsl/e_acsl.h b/src/plugins/e-acsl/share/e-acsl/e_acsl.h
index 4bbbe5c05e012529a11e212afb7ca67d50606ec7..a39a76b8ea612292015f57cb9d09413a13e848b9 100644
--- a/src/plugins/e-acsl/share/e-acsl/e_acsl.h
+++ b/src/plugins/e-acsl/share/e-acsl/e_acsl.h
@@ -90,6 +90,7 @@
/************************************************************************/
#include "observation_model/e_acsl_observation_model.h"
+#include "instrumentation_model/e_acsl_contract.h"
#include "instrumentation_model/e_acsl_temporal.h"
#include "numerical_model/e_acsl_floating_point.h"
#include "numerical_model/e_acsl_gmp_api.h"
diff --git a/src/plugins/e-acsl/share/e-acsl/e_acsl_rtl.c b/src/plugins/e-acsl/share/e-acsl/e_acsl_rtl.c
index 15c2a8b24919989a6777e496e4beaf51674edd27..7e74611ac5ee19b82530640f0ffa594151660c7b 100644
--- a/src/plugins/e-acsl/share/e-acsl/e_acsl_rtl.c
+++ b/src/plugins/e-acsl/share/e-acsl/e_acsl_rtl.c
@@ -37,6 +37,7 @@
// Instrumentation model
#include "instrumentation_model/e_acsl_assert.c"
+#include "instrumentation_model/e_acsl_contract.c"
#include "instrumentation_model/e_acsl_temporal.c"
// Observation model
diff --git a/src/plugins/e-acsl/share/e-acsl/instrumentation_model/e_acsl_contract.c b/src/plugins/e-acsl/share/e-acsl/instrumentation_model/e_acsl_contract.c
new file mode 100644
index 0000000000000000000000000000000000000000..71143a43a2e598128daddfcb50e7cd421b641ec9
--- /dev/null
+++ b/src/plugins/e-acsl/share/e-acsl/instrumentation_model/e_acsl_contract.c
@@ -0,0 +1,158 @@
+/**************************************************************************/
+/* */
+/* This file is part of the Frama-C's E-ACSL plug-in. */
+/* */
+/* Copyright (C) 2012-2020 */
+/* CEA (Commissariat à l'énergie atomique et aux énergies */
+/* alternatives) */
+/* */
+/* you can redistribute it and/or modify it under the terms of the GNU */
+/* Lesser General Public License as published by the Free Software */
+/* Foundation, version 2.1. */
+/* */
+/* It is distributed in the hope that it will be useful, */
+/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
+/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
+/* GNU Lesser General Public License for more details. */
+/* */
+/* See the GNU Lesser General Public License version 2.1 */
+/* for more details (enclosed in the file licenses/LGPLv2.1). */
+/* */
+/**************************************************************************/
+
+/*! ***********************************************************************
+ * \file
+ * \brief Implementation of E-ACSL API for contracts.
+***************************************************************************/
+
+#include <limits.h>
+#include <stdarg.h>
+
+#include "../internals/e_acsl_debug.h"
+
+#include "e_acsl_contract.h"
+
+/*! \brief Return the index of the `char` where the bit number
+ `global_bit_index` is located. */
+static inline size_t find_char_index(size_t global_bit_index) {
+ return global_bit_index / CHAR_BIT;
+}
+
+/*! \brief Return the index of the bit in the `char` given by
+ \ref find_char_index for the bit number `global_bit_index`. */
+static inline size_t find_bit_index(size_t global_bit_index) {
+ return global_bit_index % CHAR_BIT;
+}
+
+/*! \brief Return the number of `char` to allocate to store `bit_count` bits. */
+static inline size_t find_char_count(size_t bit_count) {
+ size_t char_count = bit_count / CHAR_BIT;
+ if (bit_count % CHAR_BIT > 0) {
+ ++char_count;
+ }
+ return char_count;
+}
+
+/*! \brief Normalize the boolean parameter `value` to 0 or 1 */
+static inline int normalize_to_boolean(int value) {
+ return value ? 1 : 0;
+}
+
+/* Documented in e_acsl.h */
+struct contract_t {
+ /*! \brief Number of cells in the char array used to store the results of
+ * the assumes clauses.
+ */
+ size_t char_count;
+
+ /*! \brief Char array to store the results of the assumes clauses. One bit
+ * per behavior.
+ *
+ * The functions \ref find_char_index() and \ref find_bit_index() can be
+ * used to find the location of the bit for a specific behavior. */
+ char * assumes;
+};
+
+/* Documented in e_acsl.h */
+contract_t * contract_init(size_t size) {
+ // Allocate memory for the structure
+ contract_t * c = malloc(sizeof(contract_t));
+ DVASSERT(c != NULL,
+ "Unable to allocate %d bytes of memory for contract_t",
+ sizeof(contract_t));
+
+ // Compute the number of char needed to store `size` behaviors, assuming
+ // that one behavior is stored in one bit.
+ c->char_count = find_char_count(size);
+
+ // Allocate an array of char of the computed count
+ if (c->char_count > 0) {
+ c->assumes = calloc(c->char_count, sizeof(char));
+ DVASSERT(c->assumes != NULL,
+ "Unable to allocate %d cells of %d bytes of memory for contract_t::assumes",
+ c->char_count, sizeof(char));
+ } else {
+ c->assumes = NULL;
+ }
+
+ return c;
+}
+
+/* Documented in e_acsl.h */
+void contract_clean(contract_t * c) {
+ // Free array of char
+ free(c->assumes);
+ // Free structure
+ free(c);
+}
+
+/* Documented in e_acsl.h */
+void contract_set_behavior_assumes(contract_t * c, size_t i, int assumes) {
+ size_t char_idx = find_char_index(i);
+ DVASSERT(char_idx < c->char_count,
+ "Out of bound char index %d (char_count: %d)",
+ char_idx, c->char_count);
+ size_t bit_idx = find_bit_index(i);
+ assumes = normalize_to_boolean(assumes);
+ c->assumes[char_idx] |= (assumes<<bit_idx);
+}
+
+/* Documented in e_acsl.h */
+int contract_get_behavior_assumes(const contract_t * c, size_t i) {
+ size_t char_idx = find_char_index(i);
+ DVASSERT(char_idx < c->char_count,
+ "Out of bound char index %d (char_count: %d)",
+ char_idx, c->char_count);
+ size_t bit_idx = find_bit_index(i);
+ int result = c->assumes[char_idx] & (1<<bit_idx);
+ return normalize_to_boolean(result);
+}
+
+/* Documented in e_acsl.h */
+int contract_partial_count_behaviors(const contract_t * c, size_t count, ...) {
+ va_list args;
+ va_start(args, count);
+
+ int result = 0;
+ for (size_t i = 0 ; i < 2 && i < count ; ++i) {
+ result += contract_get_behavior_assumes(c, va_arg(args, int));
+ }
+
+ va_end(args);
+ return result;
+}
+
+/* Documented in e_acsl.h */
+int contract_partial_count_all_behaviors(const contract_t * c) {
+ int result = 0;
+ for (int i = 0 ; i < c->char_count && result < 2 ; ++i) {
+ // Counting bits set with Kernighan's algorithm, but stopping at two
+ // bits set.
+ // cf. <https://graphics.stanford.edu/~seander/bithacks.html#CountBitsSetKernighan>
+ unsigned char assumes_cell = c->assumes[i];
+ for (; assumes_cell && result < 2 ; ++result) {
+ assumes_cell &= assumes_cell - 1;
+ }
+ }
+ return result;
+}
diff --git a/src/plugins/e-acsl/share/e-acsl/instrumentation_model/e_acsl_contract.h b/src/plugins/e-acsl/share/e-acsl/instrumentation_model/e_acsl_contract.h
new file mode 100644
index 0000000000000000000000000000000000000000..b3349fdf027d604293f5b9c3ced6a0a01507a455
--- /dev/null
+++ b/src/plugins/e-acsl/share/e-acsl/instrumentation_model/e_acsl_contract.h
@@ -0,0 +1,124 @@
+/**************************************************************************/
+/* */
+/* This file is part of the Frama-C's E-ACSL plug-in. */
+/* */
+/* Copyright (C) 2012-2020 */
+/* CEA (Commissariat à l'énergie atomique et aux énergies */
+/* alternatives) */
+/* */
+/* you can redistribute it and/or modify it under the terms of the GNU */
+/* Lesser General Public License as published by the Free Software */
+/* Foundation, version 2.1. */
+/* */
+/* It is distributed in the hope that it will be useful, */
+/* but WITHOUT ANY WARRANTY; without even the implied warranty of */
+/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */
+/* GNU Lesser General Public License for more details. */
+/* */
+/* See the GNU Lesser General Public License version 2.1 */
+/* for more details (enclosed in the file licenses/LGPLv2.1). */
+/* */
+/**************************************************************************/
+
+/*! ***********************************************************************
+ * \file
+ * \brief E-ACSL support of function and statement contracts.
+***************************************************************************/
+
+#ifndef E_ACSL_CONTRACT_H
+#define E_ACSL_CONTRACT_H
+
+#include <stddef.h>
+
+#include "../internals/e_acsl_alias.h"
+
+#ifdef __FC_STDLIB
+#include <__fc_alloc_axiomatic.h>
+#else
+/*@ ghost extern int __fc_heap_status __attribute__((FRAMA_C_MODEL)); */
+#endif
+
+#define contract_t export_alias(contract_t)
+#define contract_init export_alias(contract_init)
+#define contract_clean export_alias(contract_clean)
+#define contract_set_behavior_assumes export_alias(contract_set_behavior_assumes)
+#define contract_get_behavior_assumes export_alias(contract_get_behavior_assumes)
+#define contract_partial_count_behaviors export_alias(contract_partial_count_behaviors)
+#define contract_partial_count_all_behaviors export_alias(contract_partial_count_all_behaviors)
+
+/*! \brief Structure to hold pieces of information about function and statement
+ * contracts at runtime. */
+typedef struct contract_t __attribute__((__FC_BUILTIN__)) contract_t;
+
+/*! \brief Allocate and initialize a structure to hold pieces of information
+ * about `size` behaviors.
+ *
+ * \param size Number of behaviors that the structure should support.
+ * \return A structure to hold pieces of information about contracts at runtime.
+ */
+/*@ assigns \result \from indirect:__fc_heap_status, indirect:size;
+ @ ensures \valid(\result); */
+contract_t * contract_init(size_t size) __attribute__((FC_BUILTIN));
+
+/*! \brief Cleanup the structure `c` previously allocated by
+ * \ref contract_init.
+ *
+ * \param c The structure to deallocate.
+ */
+/*@ requires \valid(c);
+ @ assigns \nothing; */
+void contract_clean(contract_t * c) __attribute__((FC_BUILTIN));
+
+/*! \brief Set the result of the assumes clauses for the behavior `i` in the
+ * structure.
+ *
+ * \param c Valid pointer to the structure to update.
+ * \param i Index of the behavior. The index must be valid.
+ * \param assumes Boolean result of the assumes clauses for the behavior.
+ * \see \ref contract_get_behavior_assumes to retrieve the value.
+ */
+/*@ requires \valid(c);
+ @ assigns *c \from indirect:c, indirect:i, assumes; */
+void contract_set_behavior_assumes(contract_t * c, size_t i, int assumes)
+ __attribute__((FC_BUILTIN));
+
+/*! \brief Retrieve the result of the assumes clauses for the behavior `i` from
+ * the structure.
+ *
+ * \param c Valid pointer to the structure to read.
+ * \param i Index of the behavior. The index must be valid.
+ * \return The result of the assumes clauses for the behavior `i` (1 for true,
+ * 0 for false).
+ * \see \ref contract_set_behavior_assumes to set the value.
+ */
+/*@ requires \valid_read(c);
+ @ assigns \result \from indirect:c, indirect:i;
+ @ ensures \result == 0 || \result == 1; */
+int contract_get_behavior_assumes(const contract_t * c, size_t i)
+ __attribute__((FC_BUILTIN));
+
+/*! \brief Count the number of active behaviors among the `count` given
+ * behaviors.
+ *
+ * \param c Valid pointer to the structure to read.
+ * \param count Number of behaviors to test. There must be `count` values in
+ * `indexes`.
+ * \param ... Indexes of the behaviors to test. The indexes must be valid
+ * and there must be `count` indexes.
+ * \return 0 if no behaviors are active, 1 if exactly one behavior is active,
+ * and 2 if more than one behavior is active.
+ */
+int contract_partial_count_behaviors(const contract_t * c, size_t count, ...)
+ __attribute__((FC_BUILTIN));
+
+/*! \brief Count the number of active behaviors among all the behaviors of the
+ * contract.
+ *
+ * \param c Valid pointer to the structure to read.
+ * \return 0 if no behaviors are active, 1 if exactly one behavior is active,
+ * and 2 if more than one behavior is active.
+ */
+int contract_partial_count_all_behaviors(const contract_t * c)
+ __attribute__((FC_BUILTIN));
+
+#endif
diff --git a/src/plugins/e-acsl/src/analyses/exit_points.mli b/src/plugins/e-acsl/src/analyses/exit_points.mli
index 5af6fb4910d36fb8f03abc6dc8b41ff907f75d2a..9263b798ce56ed78868d953576d86a0a437bfbe7 100644
--- a/src/plugins/e-acsl/src/analyses/exit_points.mli
+++ b/src/plugins/e-acsl/src/analyses/exit_points.mli
@@ -25,8 +25,8 @@
- a call to [__e_acsl_delete_block] at the end of the scope.
This is not always sufficient to track variables because execution
may exit a scope early (for instance via a goto or a break statement).
- This module computes program points at which extra `delete_block` statements
- need to be added to handle such early scope exits. *)
+ This module computes program points at which extra [delete_block]
+ statements need to be added to handle such early scope exits. *)
open Cil_types
open Cil_datatype
diff --git a/src/plugins/e-acsl/src/code_generator/contract.ml b/src/plugins/e-acsl/src/code_generator/contract.ml
new file mode 100644
index 0000000000000000000000000000000000000000..7a8291e0b66e658b7660e7feb38e681c89c084fb
--- /dev/null
+++ b/src/plugins/e-acsl/src/code_generator/contract.ml
@@ -0,0 +1,753 @@
+(**************************************************************************)
+(* *)
+(* This file is part of the Frama-C's E-ACSL plug-in. *)
+(* *)
+(* Copyright (C) 2012-2020 *)
+(* CEA (Commissariat à l'énergie atomique et aux énergies *)
+(* alternatives) *)
+(* *)
+(* you can redistribute it and/or modify it under the terms of the GNU *)
+(* Lesser General Public License as published by the Free Software *)
+(* Foundation, version 2.1. *)
+(* *)
+(* It is distributed in the hope that it will be useful, *)
+(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
+(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *)
+(* GNU Lesser General Public License for more details. *)
+(* *)
+(* See the GNU Lesser General Public License version 2.1 *)
+(* for more details (enclosed in the file licenses/LGPLv2.1). *)
+(* *)
+(**************************************************************************)
+
+open Cil_types
+open Contract_types
+
+(**************************************************************************)
+(********************** Forward references ********************************)
+(**************************************************************************)
+
+let must_translate_ppt_ref : (Property.t -> bool) ref =
+ Extlib.mk_fun "must_translate_ppt_ref"
+
+let must_translate_ppt_opt_ref : (Property.t option -> bool) ref =
+ Extlib.mk_fun "must_translate_ppt_opt_ref"
+
+(**************************************************************************)
+(********************** Contract ********************************)
+(**************************************************************************)
+
+type t = contract
+
+(** Module to ease the access to the C API for contracts *)
+module Rtl_call: sig
+ val init:
+ loc:location -> result_name:string -> Env.t -> kernel_function -> int ->
+ varinfo * exp * Env.t
+ (** Call the C function [__e_acsl_contract_init] *)
+
+ val cleanup:
+ loc:location -> Env.t -> kernel_function -> exp -> Env.t
+ (** Call the C function [__e_acsl_contract_cleanup] *)
+
+ val set_assumes:
+ loc:location -> Env.t -> kernel_function -> exp -> int -> predicate ->
+ Env.t
+ (** Call the C function [__e_acsl_contract_set_behavior_assumes] *)
+
+ val get_assumes:
+ loc:location -> result:varinfo -> Env.t -> kernel_function -> exp -> int ->
+ Env.t
+ (** Call the C function [__e_acsl_contract_get_behavior_assumes] *)
+
+ val partial_count_behaviors:
+ loc:location -> result:varinfo -> Env.t -> kernel_function -> exp ->
+ int list -> Env.t
+ (** Call the C function [__e_acsl_contract_partial_count_behaviors] *)
+
+ val partial_count_all_behaviors:
+ loc:location -> result:varinfo -> Env.t -> kernel_function -> exp -> Env.t
+ (** Call the C function [__e_acsl_contract_partial_count_all_behaviors] *)
+
+end = struct
+ let init_function_name = "contract_init"
+
+ let init_kf_lazy =
+ lazy
+ (Globals.Functions.find_by_name
+ (Functions.RTL.mk_api_name init_function_name))
+
+ let ctyp_lazy =
+ lazy
+ (Globals.Types.find_type
+ Logic_typing.Typedef (Functions.RTL.mk_api_name "contract_t"))
+
+ let init ~loc ~result_name env kf count =
+ (* Tell Eva to use init as a builtin *)
+ let init_kf = Lazy.force init_kf_lazy in
+ Dep_eva.use_builtin init_kf "Frama_C_malloc";
+ (* Add a call to init in the environment *)
+ let ty = TPtr(Lazy.force ctyp_lazy, []) in
+ Env.new_var
+ ~loc
+ ~name:result_name
+ ~scope:Varname.Function
+ env
+ kf
+ None
+ ty
+ (fun vi _e ->
+ let result = Cil.var vi in
+ let count_e = Cil.integer ~loc count in
+ [ Smart_stmt.rtl_call
+ ~loc
+ ~result
+ init_function_name
+ [count_e] ])
+
+ let cleanup ~loc env kf contract =
+ Env.add_stmt
+ env
+ kf
+ (Smart_stmt.rtl_call
+ ~loc
+ "contract_clean"
+ [contract])
+
+ let set_assumes ~loc env kf contract idx assumes =
+ let idx_e = Cil.integer ~loc idx in
+ let assumes_e, env =
+ Translate.generalized_untyped_predicate_to_exp kf env assumes
+ in
+ Env.add_stmt
+ env
+ kf
+ (Smart_stmt.rtl_call
+ ~loc
+ "contract_set_behavior_assumes"
+ [contract; idx_e; assumes_e])
+
+ let get_assumes ~loc ~result env kf contract idx =
+ let idx_e = Cil.integer ~loc idx in
+ let result = Cil.var result in
+ Env.add_stmt
+ env
+ kf
+ (Smart_stmt.rtl_call
+ ~loc
+ ~result
+ "contract_get_behavior_assumes"
+ [contract; idx_e])
+
+ let partial_count_behaviors ~loc ~result env kf contract idxes =
+ let idxes, count =
+ List.fold_right
+ (fun idx (idxes, count) ->
+ Cil.integer ~loc idx :: idxes, count + 1)
+ idxes
+ ([], 0)
+ in
+ let result = Cil.var result in
+ Env.add_stmt
+ env
+ kf
+ (Smart_stmt.rtl_call
+ ~loc
+ ~result
+ "contract_partial_count_behaviors"
+ (contract :: Cil.integer ~loc count :: idxes))
+
+ let partial_count_all_behaviors ~loc ~result env kf contract =
+ let result = Cil.var result in
+ Env.add_stmt
+ env
+ kf
+ (Smart_stmt.rtl_call
+ ~loc
+ ~result
+ "contract_partial_count_all_behaviors"
+ [ contract ])
+end
+
+(** Convert the given assumes clauses list to a single [predicate] *)
+let assumes_predicate assumes =
+ List.fold_left
+ (fun acc p ->
+ let pred = p.ip_content.tp_statement in
+ let loc = pred.pred_loc in
+ Logic_const.pand ~loc
+ (acc,
+ Logic_const.unamed ~loc pred.pred_content))
+ Logic_const.ptrue
+ assumes
+
+(** Create a [predicate] from the requires [identified_predicate] *)
+let requires_predicate requires =
+ let pred = requires.ip_content.tp_statement in
+ let loc = pred.pred_loc in
+ let p = Logic_const.unamed ~loc pred.pred_content
+ in
+ p
+
+(** Create a [predicate] from the ensures [identified_predicate] *)
+let ensures_predicate ensures =
+ let pred = ensures.ip_content.tp_statement in
+ let loc = pred.pred_loc in
+ let p = Logic_const.unamed ~loc pred.pred_content
+ in
+ p
+
+let create ~loc spec =
+ (* Create a hashtable to associate a behavior name with an index *)
+ let name_to_idx_tbl = Hashtbl.create 7 in
+ let named_behaviors_count =
+ List.fold_left
+ (fun idx b ->
+ if Cil.is_default_behavior b then
+ idx
+ else begin
+ Hashtbl.add name_to_idx_tbl b.b_name idx;
+ idx + 1
+ end
+ )
+ 0
+ spec.spec_behavior
+ in
+ let var = None in
+ (* Create the contract *)
+ { location = loc;
+ named_behaviors_count;
+ name_to_idx_tbl;
+ var;
+ all_assumes_translated = true;
+ spec }
+
+(** Initialize the C API for the given contract *)
+let init kf env contract =
+ if contract.named_behaviors_count > 0 then
+ let loc = contract.location in
+ let contract_vi, contract_e, env =
+ Rtl_call.init
+ ~loc
+ ~result_name:"contract"
+ env
+ kf
+ contract.named_behaviors_count
+ in
+ contract.var <- Some (contract_vi, contract_e);
+ env
+ else env
+
+(** Cleanup the C API for the given contract *)
+let cleanup kf env contract =
+ match contract.var with
+ | None -> env
+ | Some (_, e) ->
+ let loc = contract.location in
+ Rtl_call.cleanup ~loc env kf e
+
+(** Retrieve the behavior index from its name for the given contract *)
+let get_bhvr_idx contract bhvr_name =
+ (* by construction, the behavior name is in the hashtable *)
+ try Hashtbl.find contract.name_to_idx_tbl bhvr_name
+ with _ -> assert false
+
+(** Retrieve the C variable with the contract structure for the given contract.
+ Assumes that there is such a variable. *)
+let get_contract_var contract =
+ match contract.var with
+ | Some (contract_vi, contract_e) -> contract_vi, contract_e
+ | None ->
+ Options.fatal
+ "Unexpected call to get_contract_var with a contract without named \
+ behaviors"
+
+(** Setup the assumes values for the C API *)
+let setup_assumes kf env contract =
+ match contract.var with
+ | None -> env
+ | Some (_, contract_e) ->
+ let do_fold env b =
+ let do_it env =
+ try
+ if Cil.is_default_behavior b then
+ env
+ else
+ let assumes = assumes_predicate b.b_assumes in
+ let loc = assumes.pred_loc in
+ Cil.CurrentLoc.set loc;
+ let idx = get_bhvr_idx contract b.b_name in
+ Rtl_call.set_assumes ~loc env kf contract_e idx assumes
+ with exn ->
+ (* Unable to translate the assumes clause. Save that fact and re-raise
+ the exception *)
+ contract.all_assumes_translated <- false;
+ raise exn
+ in
+ Env.handle_error do_it env
+ in
+ List.fold_left do_fold env contract.spec.spec_behavior
+
+(** Returns a closure that will (1) creates a local C variable when first
+ called and (2) returns said variable on subsequent calls. *)
+let mk_get_or_create_var kf typ var_name =
+ let var_ref = ref None in
+ let f ~loc env =
+ match !var_ref with
+ | None ->
+ let vi, e, env =
+ Env.new_var
+ ~loc
+ ~scope:Varname.Block
+ ~name:var_name
+ env
+ kf
+ None
+ typ
+ (fun _ _ -> [])
+ in
+ var_ref := Some (vi, e);
+ vi, e, env
+ | Some (vi, e) -> vi, e, env
+ in
+ f
+
+(** Drop-in replacement for [List.fold_left] with the folding function wrapped
+ in a [handle_error] call *)
+let fold_left_handle_error f env l =
+ (* Reverse input args of f *)
+ let f2 x env = f env x in
+ (* Call fold_left on the list with handle_error at each element *)
+ List.fold_left
+ (fun env x ->
+ Env.handle_error (f2 x) env)
+ env
+ l
+
+(** Drop-in replacement for [List.fold_left] when the accumulator is more than
+ the [env], with the folding function wrapped in a [handle_error] call.
+
+ The accumulator for the fold should be set up with a pair where the first
+ element is the environment and the second element the rest of the
+ accumulator. *)
+let fold_left_handle_error_with_args f (env, acc) l =
+ let f2 x (env, args) = f (env, args) x in
+ List.fold_left
+ (fun (env, args) x ->
+ Env.handle_error_with_args (f2 x) (env, args))
+ (env, acc)
+ l
+
+(** Insert requires check for the given contract in the environment *)
+let check_requires kf kinstr env contract =
+ let get_or_create_assumes_var =
+ mk_get_or_create_var kf Cil.intType "assumes_value"
+ in
+ let do_behavior env b =
+ if Cil.is_default_behavior b then
+ fold_left_handle_error
+ (fun env requires ->
+ if !must_translate_ppt_ref
+ (Property.ip_of_requires kf kinstr b requires) then
+ (* If translating the default behavior, directly translate the
+ predicate *)
+ let requires = requires_predicate requires in
+ let loc = requires.pred_loc in
+ Cil.CurrentLoc.set loc;
+ Translate.translate_predicate kf env requires
+ else
+ env)
+ env
+ b.b_requires
+ else
+ (* Compute the assumes predicate for pretty-printing *)
+ let assumes = assumes_predicate b.b_assumes in
+ (* Push a new env and check the requires of the behavior *)
+ let env = Env.push env in
+ let env, stmts =
+ fold_left_handle_error_with_args
+ (fun (env, stmts) requires ->
+ if !must_translate_ppt_ref
+ (Property.ip_of_requires kf kinstr b requires) then
+ let requires = requires_predicate requires in
+ let loc = requires.pred_loc in
+ Cil.CurrentLoc.set loc;
+ (* Prepend the name of the behavior *)
+ let requires =
+ { requires with pred_name = b.b_name :: requires.pred_name }
+ in
+ (* Create runtime check *)
+ let requires_e, env =
+ Translate.generalized_untyped_predicate_to_exp kf env requires
+ in
+ let stmt =
+ Smart_stmt.runtime_check
+ Smart_stmt.Precondition
+ kf
+ requires_e
+ requires
+ in
+ env, stmt :: stmts
+ else
+ env, stmts)
+ (env, [])
+ b.b_requires
+ in
+ let requires = Smart_stmt.block_from_stmts stmts in
+ (* Pop the env to build the requires check *)
+ let requires_blk, env =
+ Env.pop_and_get
+ env
+ requires
+ ~global_clear:false
+ Env.Middle
+ in
+ match stmts with
+ | [] ->
+ (* If no requires check have been generated, then return immediately *)
+ env
+ | _ :: _ ->
+ (* Generate a predicate that will retrieve and test the
+ already computed assumes value for the behavior *)
+ let loc = assumes.pred_loc in
+ Cil.CurrentLoc.set loc;
+ let assumes_vi, assumes_e, env =
+ get_or_create_assumes_var ~loc env
+ in
+ let _, contract_e = get_contract_var contract in
+ let idx = get_bhvr_idx contract b.b_name in
+ let env =
+ Rtl_call.get_assumes
+ ~loc
+ ~result:assumes_vi
+ env
+ kf
+ contract_e
+ idx
+ in
+ let stmt = Smart_stmt.if_stmt ~loc ~cond:assumes_e requires_blk in
+ Env.add_stmt env kf stmt
+ in
+ List.fold_left
+ do_behavior
+ env
+ contract.spec.spec_behavior
+
+type translate_ppt =
+ | Complete
+ | Disjoint
+ | Both
+
+(** For each set of behavior names in [clauses], [check_active_behaviors] counts
+ the number of active behaviors and creates assertions for the
+ [ppt_to_translate]. *)
+let check_active_behaviors ~ppt_to_translate ~get_or_create_var kf kinstr env contract clauses =
+ let must_translate = !must_translate_ppt_ref in
+ let loc = contract.location in
+ Cil.CurrentLoc.set loc;
+ let do_clause env bhvrs =
+ let bhvrs_list = Datatype.String.Set.elements bhvrs in
+ let active = [] in (* TODO: 'for' behaviors, e-acsl#109 *)
+ let must_translate_complete =
+ match ppt_to_translate with
+ | Both | Complete ->
+ must_translate (Property.ip_of_complete kf kinstr ~active bhvrs_list)
+ | Disjoint -> false
+ in
+ let must_translate_disjoint =
+ match ppt_to_translate with
+ | Both | Disjoint ->
+ must_translate (Property.ip_of_disjoint kf kinstr ~active bhvrs_list)
+ | Complete -> false
+ in
+
+ if must_translate_complete || must_translate_disjoint then
+ (* Retrieve the number of active behaviors *)
+ let active_bhvrs_e, complete_msg, disjoint_msg, env =
+ let _, contract_e = get_contract_var contract in
+ let vi, e, env = get_or_create_var ~loc env in
+ let clause_card = Datatype.String.Set.cardinal bhvrs in
+ let env, complete_msg, disjoint_msg =
+ if Datatype.Int.equal clause_card contract.named_behaviors_count then
+ let env =
+ Rtl_call.partial_count_all_behaviors
+ ~loc
+ ~result:vi
+ env
+ kf
+ contract_e
+ in
+ let complete_msg = "all behaviors complete" in
+ let disjoint_msg = "all behaviors disjoint" in
+ env, complete_msg, disjoint_msg
+ else
+ let args, bhvrs_names =
+ Datatype.String.Set.fold
+ (fun bhvr_name (args, bhvrs_names) ->
+ let args = get_bhvr_idx contract bhvr_name :: args in
+ let bhvrs_names = bhvr_name :: bhvrs_names in
+ args, bhvrs_names)
+ bhvrs
+ ([], [])
+ in
+ let env =
+ Rtl_call.partial_count_behaviors
+ ~loc
+ ~result:vi
+ env
+ kf
+ contract_e
+ args
+ in
+ let bhvrs_names = String.concat ", " bhvrs_names in
+ let complete_msg =
+ Format.sprintf "complete behaviors %s" bhvrs_names
+ in
+ let disjoint_msg =
+ Format.sprintf "disjoint behaviors %s" bhvrs_names
+ in
+ env, complete_msg, disjoint_msg
+ in
+ e, complete_msg, disjoint_msg, env
+ in
+
+ (* Create assertions for complete and disjoint behaviors checks *)
+ let create_assert_stmt bop msg =
+ Smart_stmt.runtime_check_with_msg
+ ~loc
+ msg
+ (Env.annotation_kind env)
+ kf
+ (Cil.mkBinOp ~loc bop active_bhvrs_e (Cil.one ~loc))
+ in
+ let assert_complete_stmt = create_assert_stmt Ge complete_msg in
+ let assert_disjoint_stmt = create_assert_stmt Le disjoint_msg in
+
+ if must_translate_complete && must_translate_disjoint then
+ (* Build an enclosing [if] if both complete and disjoint must be checked
+ for the given clause *)
+ Env.add_stmt
+ env
+ kf
+ (Smart_stmt.if_stmt
+ ~loc
+ ~cond:(Cil.mkBinOp ~loc Ne active_bhvrs_e (Cil.one ~loc))
+ (Cil.mkBlock [ assert_complete_stmt; assert_disjoint_stmt ]))
+ (* Otherwise just get the corresponding assertion *)
+ else if must_translate_complete then
+ Env.add_stmt env kf assert_complete_stmt
+ else if must_translate_disjoint then
+ Env.add_stmt env kf assert_disjoint_stmt
+ else
+ (* By construction, at least either [must_translate_complete] or
+ [must_translate_disjoint] is true *)
+ assert false
+ else
+ (* Nothing to translate *)
+ env
+ in
+ fold_left_handle_error do_clause env clauses
+
+(** Insert complete and disjoint behaviors check for the given contract in the
+ environement *)
+let check_complete_and_disjoint kf kinstr env contract =
+ (* Only translate the complete and disjoint clauses if all the assumes clauses
+ could be translated *)
+ if contract.all_assumes_translated then
+ (* Partition the complete and disjoint clauses of the contract into 3 lists:
+ - The complete and disjoint list
+ - The complete list
+ - The disjoint list
+
+ The behaviors of a clause are stored in a Set so that they are
+ automatically sorted, the duplicates are removed, and they can be compared
+ for equality.
+ *)
+ let completes =
+ List.map
+ Datatype.String.Set.of_list
+ contract.spec.spec_complete_behaviors
+ in
+ let completes_and_disjoints, completes, disjoints =
+ List.fold_left
+ (fun (completes_and_disjoints, completes, disjoints) clause ->
+ let clause = Datatype.String.Set.of_list clause in
+ if List.mem clause completes then
+ let completes_and_disjoints = clause :: completes_and_disjoints in
+ let completes =
+ List.filter
+ (fun c -> not (Datatype.String.Set.equal clause c))
+ completes
+ in
+ completes_and_disjoints, completes, disjoints
+ else
+ let disjoints = clause :: disjoints in
+ completes_and_disjoints, completes, disjoints
+ )
+ ([], completes, [])
+ contract.spec.spec_disjoint_behaviors
+ in
+ (* Create a common variable to hold the number of active behavior for the
+ current check *)
+ let get_or_create_var = mk_get_or_create_var kf Cil.intType "active_bhvrs" in
+ (* Check the complete and disjoint clauses *)
+ let check_bhvrs env ppt_to_translate bhvrs =
+ check_active_behaviors
+ ~ppt_to_translate
+ ~get_or_create_var
+ kf
+ kinstr
+ env
+ contract
+ bhvrs
+ in
+ let env = check_bhvrs env Both completes_and_disjoints in
+ let env = check_bhvrs env Complete completes in
+ let env = check_bhvrs env Disjoint disjoints in
+ env
+ else begin
+ Cil.CurrentLoc.set contract.location;
+ Options.warning
+ ~current:true
+ "@[Some assumes clauses couldn't be translated.@ Ignoring complete and \
+ disjoint behaviors annotations.@]";
+ env
+ end
+
+(** Insert ensures check for the given contract in the environement *)
+let check_post_conds kf kinstr env contract =
+ let get_or_create_assumes_var =
+ mk_get_or_create_var kf Cil.intType "assumes_value"
+ in
+ let do_behavior env b =
+ let env =
+ Env.handle_error
+ (fun env ->
+ let active = [] in (* TODO: 'for' behaviors, e-acsl#109 *)
+ let ppt = Property.ip_assigns_of_behavior kf kinstr ~active b in
+ if b.b_assigns <> WritesAny && !must_translate_ppt_opt_ref ppt
+ then Env.not_yet env "assigns clause in behavior";
+ (* ignore b.b_extended since we never translate them *)
+ env)
+ env
+ in
+ if Cil.is_default_behavior b then
+ fold_left_handle_error
+ (fun env ((termination, post_cond) as tp) ->
+ if !must_translate_ppt_ref
+ (Property.ip_of_ensures kf kinstr b tp) then
+ let post_cond = ensures_predicate post_cond in
+ let loc = post_cond.pred_loc in
+ Cil.CurrentLoc.set loc;
+ match termination with
+ | Normal ->
+ (* If translating the default behavior, directly translate the
+ predicate *)
+ Translate.translate_predicate kf env post_cond
+ | Exits | Breaks | Continues | Returns ->
+ Error.process_error
+ (Error.not_yet "abnormal termination case in behavior");
+ env
+ else
+ env)
+ env
+ b.b_post_cond
+ else
+ (* Compute the assumes predicate for pretty printing *)
+ let assumes = assumes_predicate b.b_assumes in
+ (* Push a new env and check the ensures of the behavior *)
+ let env = Env.push env in
+ let env, stmts =
+ fold_left_handle_error_with_args
+ (fun (env, stmts) ((termination, post_cond) as tp) ->
+ if !must_translate_ppt_ref
+ (Property.ip_of_ensures kf kinstr b tp) then
+ let post_cond = ensures_predicate post_cond in
+ let loc = post_cond.pred_loc in
+ Cil.CurrentLoc.set loc;
+ match termination with
+ | Normal ->
+ (* Prepend the name of the behavior *)
+ let post_cond =
+ { post_cond with pred_name = b.b_name :: post_cond.pred_name }
+ in
+ (* Create runtime check *)
+ let post_cond_e, env =
+ Translate.generalized_untyped_predicate_to_exp kf env post_cond
+ in
+ let stmt =
+ Smart_stmt.runtime_check
+ Smart_stmt.Postcondition
+ kf
+ post_cond_e
+ post_cond
+ in
+ env, stmt :: stmts
+ | Exits | Breaks | Continues | Returns ->
+ Error.process_error (Error.not_yet "abnormal termination case in behavior");
+ env, stmts
+ else
+ env, stmts)
+ (env, [])
+ b.b_post_cond
+ in
+ let post_cond = Smart_stmt.block_from_stmts stmts in
+ (* Pop the env to build the post_cond check *)
+ let post_cond_blk, env =
+ Env.pop_and_get
+ env
+ post_cond
+ ~global_clear:false
+ Env.Middle
+ in
+ match stmts with
+ | [] ->
+ (* If no post_cond check have been generated, then return immediately *)
+ env
+ | _ :: _ ->
+ (* Generate a predicate that retrieves and tests the already
+ computed assumes value for the behavior *)
+ let loc = assumes.pred_loc in
+ let assumes_vi, assumes_e, env =
+ get_or_create_assumes_var ~loc env
+ in
+ let _, contract_e = get_contract_var contract in
+ let idx = get_bhvr_idx contract b.b_name in
+ let env =
+ Rtl_call.get_assumes
+ ~loc
+ ~result:assumes_vi
+ env
+ kf
+ contract_e
+ idx
+ in
+ let stmt = Smart_stmt.if_stmt ~loc ~cond:assumes_e post_cond_blk in
+ Env.add_stmt env kf stmt
+ in
+ List.fold_left
+ do_behavior
+ env
+ contract.spec.spec_behavior
+
+let translate_preconditions kf kinstr env contract =
+ let env = Env.set_annotation_kind env Smart_stmt.Precondition in
+ let env = Env.push_contract env contract in
+ let env = init kf env contract in
+ let env = setup_assumes kf env contract in
+ let do_it env =
+ let env = check_requires kf kinstr env contract in
+ let env = check_complete_and_disjoint kf kinstr env contract in
+ env
+ in
+ Env.handle_error do_it env
+
+let translate_postconditions kf kinstr env =
+ let env = Env.set_annotation_kind env Smart_stmt.Postcondition in
+ let contract, env = Env.pop_and_get_contract env in
+ let do_it env =
+ let env = check_post_conds kf kinstr env contract in
+ env
+ in
+ let env = Env.handle_error do_it env in
+ cleanup kf env contract
diff --git a/src/plugins/e-acsl/src/code_generator/contract.mli b/src/plugins/e-acsl/src/code_generator/contract.mli
new file mode 100644
index 0000000000000000000000000000000000000000..0b7732602334736cc9d258c4867bd6b57e028f66
--- /dev/null
+++ b/src/plugins/e-acsl/src/code_generator/contract.mli
@@ -0,0 +1,47 @@
+(**************************************************************************)
+(* *)
+(* This file is part of the Frama-C's E-ACSL plug-in. *)
+(* *)
+(* Copyright (C) 2012-2020 *)
+(* CEA (Commissariat à l'énergie atomique et aux énergies *)
+(* alternatives) *)
+(* *)
+(* you can redistribute it and/or modify it under the terms of the GNU *)
+(* Lesser General Public License as published by the Free Software *)
+(* Foundation, version 2.1. *)
+(* *)
+(* It is distributed in the hope that it will be useful, *)
+(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
+(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *)
+(* GNU Lesser General Public License for more details. *)
+(* *)
+(* See the GNU Lesser General Public License version 2.1 *)
+(* for more details (enclosed in the file licenses/LGPLv2.1). *)
+(* *)
+(**************************************************************************)
+
+open Cil_types
+open Contract_types
+
+(** Translate a given ACSL contract (function or statement) into the
+ corresponding C statement for runtime assertion checking. *)
+
+type t = contract
+
+val create: loc:location -> spec -> t
+(** Create a contract from a [spec] object (either function spec or statement
+ spec) *)
+
+val translate_preconditions: kernel_function -> kinstr -> Env.t -> t -> Env.t
+(** Translate the preconditions of the given contract into the environement *)
+
+val translate_postconditions: kernel_function -> kinstr -> Env.t -> Env.t
+(** Translate the postconditions of the given contract into the environment *)
+
+(**************************************************************************)
+(********************** Forward references ********************************)
+(**************************************************************************)
+
+val must_translate_ppt_ref: (Property.t -> bool) ref
+
+val must_translate_ppt_opt_ref: (Property.t option -> bool) ref
diff --git a/src/plugins/e-acsl/src/code_generator/contract_types.mli b/src/plugins/e-acsl/src/code_generator/contract_types.mli
new file mode 100644
index 0000000000000000000000000000000000000000..adef414cc84636870d1c2d5167cf48384e6958e5
--- /dev/null
+++ b/src/plugins/e-acsl/src/code_generator/contract_types.mli
@@ -0,0 +1,51 @@
+(**************************************************************************)
+(* *)
+(* This file is part of the Frama-C's E-ACSL plug-in. *)
+(* *)
+(* Copyright (C) 2012-2020 *)
+(* CEA (Commissariat à l'énergie atomique et aux énergies *)
+(* alternatives) *)
+(* *)
+(* you can redistribute it and/or modify it under the terms of the GNU *)
+(* Lesser General Public License as published by the Free Software *)
+(* Foundation, version 2.1. *)
+(* *)
+(* It is distributed in the hope that it will be useful, *)
+(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
+(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *)
+(* GNU Lesser General Public License for more details. *)
+(* *)
+(* See the GNU Lesser General Public License version 2.1 *)
+(* for more details (enclosed in the file licenses/LGPLv2.1). *)
+(* *)
+(**************************************************************************)
+
+open Cil_types
+
+(** Represent a function or statement contract. *)
+type contract = {
+ location: location;
+ (** Location of the function or statement attached to the contract. *)
+
+ named_behaviors_count: int;
+ (** Number of named behaviors in the contract
+ (excluding the default behavior) *)
+
+ name_to_idx_tbl: (string, int) Hashtbl.t;
+ (** Hashtable associating the name of a behavior with its index in the C API
+ structure used to store behaviors information at runtime. *)
+
+ mutable var: (varinfo * exp) option;
+ (** Elements to access the C API structure used to store contracts
+ information at runtime. *)
+
+ mutable all_assumes_translated: bool;
+ (** True if all the assumes clauses of the contract could be translated, false
+ otherwise.
+
+ If even one assume clause can't be translated, then the complete and
+ disjoint clauses can't be computed. *)
+
+ spec: spec
+ (** Specification for the contract *)
+}
diff --git a/src/plugins/e-acsl/src/code_generator/env.ml b/src/plugins/e-acsl/src/code_generator/env.ml
index cfdbe5fdda47bb9b3ea0aab39423b7e26bf8c5c6..595dc566e1e836413c056e3c2c462ff3fedcf11a 100644
--- a/src/plugins/e-acsl/src/code_generator/env.ml
+++ b/src/plugins/e-acsl/src/code_generator/env.ml
@@ -23,6 +23,7 @@
module E_acsl_label = Label
open Cil_types
open Cil_datatype
+open Contract_types
type localized_scope =
| LGlobal
@@ -62,6 +63,8 @@ type t = {
should be added. *)
global_mp_tbl: mp_tbl;
env_stack: local_env list;
+ contract_stack: contract list;
+ (* Stack of contracts for active functions and statements *)
var_mapping: Varinfo.t Stack.t Logic_var.Map.t;
(* records of C bindings for logic vars *)
loop_invariants: predicate list list;
@@ -92,6 +95,7 @@ let empty =
new_global_vars = [];
global_mp_tbl = empty_mp_tbl;
env_stack = [];
+ contract_stack = [];
var_mapping = Logic_var.Map.empty;
loop_invariants = [];
cpt = 0 }
@@ -491,6 +495,40 @@ module Context = struct
end
+let handle_error f env =
+ let env = Error.handle f env in
+ Context.restore env
+
+let handle_error_with_args f (env, args) =
+ let env, args = Error.handle f (env, args) in
+ let env = Context.restore env in
+ env, args
+
+let not_yet env s =
+ Context.save env;
+ Error.not_yet s
+
+let untypable env s =
+ Context.save env;
+ Error.untypable s
+
+let push_contract env contract =
+ { env with contract_stack = contract :: env.contract_stack }
+
+let top_contract env =
+ match env.contract_stack with
+ | [] -> Options.fatal "Contract list is empty in env. That is unexpected"
+ | hd :: tl -> hd, tl
+
+let pop_and_get_contract env =
+ let hd, tl = top_contract env in
+ hd, { env with contract_stack = tl }
+
+let pop_contract env =
+ let _, env = pop_and_get_contract env in
+ env
+
+
(* debugging purpose *)
let pretty fmt env =
let local_env, _ = top env in
diff --git a/src/plugins/e-acsl/src/code_generator/env.mli b/src/plugins/e-acsl/src/code_generator/env.mli
index 94c11335f1c96bbcee2a1def0150be956bb81435..3a5aebf2f5d4f1a0ea67af77099032535365f8e7 100644
--- a/src/plugins/e-acsl/src/code_generator/env.mli
+++ b/src/plugins/e-acsl/src/code_generator/env.mli
@@ -21,6 +21,7 @@
(**************************************************************************)
open Cil_types
+open Contract_types
(** Environments.
@@ -175,6 +176,36 @@ module Context: sig
val restore: t -> t
end
+val handle_error: (t -> t) -> t -> t
+(** Run the closure with the given environment and handle potential errors.
+ Restore the globals of the environment to the last time [Env.Context.save]
+ was called and return it in case of errors. *)
+
+val handle_error_with_args: (t * 'a -> t * 'a) -> t * 'a -> t * 'a
+(** Run the closure with the given environment and arguments and handle
+ potential errors.
+ Restore the globals of the environment to the last time [Env.Context.save]
+ was called and return it in case of errors. *)
+
+val not_yet: t -> string -> 'a
+(** Save the current context and raise [Error.Not_yet] exception. *)
+
+val untypable: t -> string -> 'a
+(** Save the current context and raise [Error.Typing_error] exception. *)
+
+(* ************************************************************************** *)
+(** {2 Contracts} *)
+(* ************************************************************************** *)
+
+val push_contract: t -> contract -> t
+(** Push a contract to the environment's stack *)
+val top_contract: t -> contract * contract list
+(** Return the top contract of the environment's stack *)
+val pop_and_get_contract: t -> contract * t
+(** Pop and return the top contract of the environment's stack *)
+val pop_contract: t -> t
+(** Pop the top contract of the environment's stack *)
+
val pretty: Format.formatter -> t -> unit
(*
diff --git a/src/plugins/e-acsl/src/code_generator/global_observer.ml b/src/plugins/e-acsl/src/code_generator/global_observer.ml
index c53604fc55ff57a738d6725e1c0731cef0104453..352152f2c2a83846935cd323e03bf0838cf5fb99 100644
--- a/src/plugins/e-acsl/src/code_generator/global_observer.ml
+++ b/src/plugins/e-acsl/src/code_generator/global_observer.ml
@@ -60,11 +60,11 @@ let rec literal_in_initializer env kf = function
| CompoundInit (_, l) ->
List.fold_left (fun env (_, i) -> literal_in_initializer env kf i) env l
-(* Create a global kernel function named `name`.
+(* Create a global kernel function named [name].
Return a triple (varinfo * fundec * kernel_function) of the created
global function. *)
let mk_function name =
- (* Create global function `name` *)
+ (* Create global function [name] *)
let vi =
Cil.makeGlobalVar ~source:true
name
diff --git a/src/plugins/e-acsl/src/code_generator/injector.ml b/src/plugins/e-acsl/src/code_generator/injector.ml
index 36c62ebc2dde11aca0c178a12e4728b517068c22..75ec65a7b495488bd454bdf700317ad3e6ad505b 100644
--- a/src/plugins/e-acsl/src/code_generator/injector.ml
+++ b/src/plugins/e-acsl/src/code_generator/injector.ml
@@ -232,7 +232,7 @@ let add_new_block_in_stmt env kf stmt =
in
let mk_post_env env stmt =
Annotations.fold_code_annot
- (fun _ a env -> Translate.translate_post_code_annotation kf stmt env a)
+ (fun _ a env -> Translate_annots.post_code_annotation kf stmt env a)
stmt
env
in
@@ -252,7 +252,7 @@ let add_new_block_in_stmt env kf stmt =
let env = mk_post_env env stmt in
(* also handle the postcondition of the function and clear the
env *)
- Translate.translate_post_spec kf Kglobal env (Annotations.funspec kf)
+ Translate_annots.post_funspec kf Kglobal env
else
env
in
@@ -450,7 +450,7 @@ and inject_in_stmt env kf stmt =
(* translate the precondition of the function *)
if Functions.check kf then
let funspec = Annotations.funspec kf in
- Translate.translate_pre_spec kf Kglobal env funspec
+ Translate_annots.pre_funspec kf Kglobal env funspec
else env
else
env
@@ -459,7 +459,7 @@ and inject_in_stmt env kf stmt =
let env =
if Functions.check kf then
Annotations.fold_code_annot
- (fun _ a env -> Translate.translate_pre_code_annotation kf stmt env a)
+ (fun _ a env -> Translate_annots.pre_code_annotation kf stmt env a)
stmt
env
else
@@ -508,7 +508,7 @@ and inject_in_block (env: Env.t) kf blk =
(* The free statements are passed in the same order than the malloc
ones. In order to free the variable in the reverse order, the list
is reversed before appending the return statement. Moreover,
- `rev_append` is tail recursive contrary to `append` *)
+ [List.rev_append] is tail recursive contrary to [List.append] *)
List.rev_append free_stmts [ return_stmt ]
| None -> []
in
diff --git a/src/plugins/e-acsl/src/code_generator/logic_functions.ml b/src/plugins/e-acsl/src/code_generator/logic_functions.ml
index 97c6523575a25720e3316e1fd0a532bf7331894a..ebac4f3a70f0e9ee966a874f44e52e60225ba20a 100644
--- a/src/plugins/e-acsl/src/code_generator/logic_functions.ml
+++ b/src/plugins/e-acsl/src/code_generator/logic_functions.ml
@@ -27,9 +27,9 @@ open Cil_datatype
(********************** Forward references ********************************)
(**************************************************************************)
-let named_predicate_to_exp_ref
+let predicate_to_exp_ref
: (kernel_function -> Env.t -> predicate -> exp * Env.t) ref
- = Extlib.mk_fun "named_predicate_to_exp_ref"
+ = Extlib.mk_fun "predicate_to_exp_ref"
let term_to_exp_ref
: (kernel_function -> Env.t -> term -> exp * Env.t) ref
@@ -81,7 +81,7 @@ let generate_return_block ~loc env ret_vi e = match e.enode with
(* Generate the function's body for predicates. *)
let pred_to_block ~loc kf env ret_vi p =
Typing.type_named_predicate ~must_clear:false p;
- let e, env = !named_predicate_to_exp_ref kf env p in
+ let e, env = !predicate_to_exp_ref kf env p in
(* for predicate, since the result is either 0 or 1, return it directly (it
cannot be provided as extra argument *)
generate_return_block ~loc env ret_vi e
diff --git a/src/plugins/e-acsl/src/code_generator/logic_functions.mli b/src/plugins/e-acsl/src/code_generator/logic_functions.mli
index 3025a6b94aa7fdd9a2c884a8e906812624e2f8f2..0f8898ffb67155c4231e4f960f4d80b6c15c6ad8 100644
--- a/src/plugins/e-acsl/src/code_generator/logic_functions.mli
+++ b/src/plugins/e-acsl/src/code_generator/logic_functions.mli
@@ -50,7 +50,7 @@ val add_generated_functions: global list -> global list
(********************** Forward references ********************************)
(**************************************************************************)
-val named_predicate_to_exp_ref:
+val predicate_to_exp_ref:
(kernel_function -> Env.t -> predicate -> exp * Env.t) ref
val term_to_exp_ref:
diff --git a/src/plugins/e-acsl/src/code_generator/loops.ml b/src/plugins/e-acsl/src/code_generator/loops.ml
index c8a5f714ddc2b23fab8a20edded2bd7ea2b6d663..0018b0c8fe392b459d27335ec641e152f0e64866 100644
--- a/src/plugins/e-acsl/src/code_generator/loops.ml
+++ b/src/plugins/e-acsl/src/code_generator/loops.ml
@@ -27,13 +27,13 @@ open Cil_types
(********************** Forward references ********************************)
(**************************************************************************)
-let translate_named_predicate_ref
+let translate_predicate_ref
: (kernel_function -> Env.t -> predicate -> Env.t) ref
- = Extlib.mk_fun "translate_named_predicate_ref"
+ = Extlib.mk_fun "translate_predicate_ref"
-let named_predicate_ref
+let predicate_to_exp_ref
: (kernel_function -> Env.t -> predicate -> exp * Env.t) ref
- = Extlib.mk_fun "named_predicate_ref"
+ = Extlib.mk_fun "predicate_to_exp_ref"
let term_to_exp_ref
: (kernel_function -> Env.t -> term -> exp * Env.t) ref
@@ -53,7 +53,7 @@ let preserve_invariant env kf stmt = match stmt.skind with
let invariants, env = Env.pop_loop env in
let env = Env.push env in
let env =
- let translate_named_predicate = !translate_named_predicate_ref in
+ let translate_named_predicate = !translate_predicate_ref in
List.fold_left (translate_named_predicate kf) env invariants
in
let blk, env =
@@ -249,7 +249,7 @@ let rec mk_nested_loops ~loc mk_innermost_block kf env lscope_vars =
| None ->
guard :: body @ [ next ], env
| Some p ->
- let e, env = !named_predicate_ref kf (Env.push env) p in
+ let e, env = !predicate_to_exp_ref kf (Env.push env) p in
let stmt, env =
Smart_stmt.runtime_check Smart_stmt.RTE kf e p, env
in
diff --git a/src/plugins/e-acsl/src/code_generator/loops.mli b/src/plugins/e-acsl/src/code_generator/loops.mli
index 4a450be12350a2ede8a109824c4ad16b53364f3a..06d512d0cf6d2222f06591915262acb9da2835f5 100644
--- a/src/plugins/e-acsl/src/code_generator/loops.mli
+++ b/src/plugins/e-acsl/src/code_generator/loops.mli
@@ -51,10 +51,10 @@ val mk_nested_loops:
(********************** Forward references ********************************)
(**************************************************************************)
-val translate_named_predicate_ref:
+val translate_predicate_ref:
(kernel_function -> Env.t -> predicate -> Env.t) ref
-val named_predicate_ref:
+val predicate_to_exp_ref:
(kernel_function -> Env.t -> predicate -> exp * Env.t) ref
val term_to_exp_ref:
diff --git a/src/plugins/e-acsl/src/code_generator/rational.mli b/src/plugins/e-acsl/src/code_generator/rational.mli
index 3648ecba6021a59f9936d6b634de33b80fc6e7a7..90c4c9a5cfcf534f94b15ab9d8635f24cd760a3f 100644
--- a/src/plugins/e-acsl/src/code_generator/rational.mli
+++ b/src/plugins/e-acsl/src/code_generator/rational.mli
@@ -41,8 +41,8 @@ val init_set: loc:location -> lval -> exp -> exp -> stmt
val normalize_str: string -> string
(** Normalize the string so that it fits the representation used by the
underlying real library. For example, "0.1" is a real number in ACSL
- whereas it is considered as a double by `libgmp` because it is written in
- decimal expansion. In order to make `libgmp` consider it to be a rational,
+ whereas it is considered as a double by [libgmp] because it is written in
+ decimal expansion. In order to make [libgmp] consider it to be a rational,
it must be converted into "1/10". *)
(* TODO: change the call convention *)
diff --git a/src/plugins/e-acsl/src/code_generator/smart_stmt.ml b/src/plugins/e-acsl/src/code_generator/smart_stmt.ml
index dec6438762f3afb494812fa1799af9bb3557ebc6..984188546901494f65d6ab58fc6a88919f95dc49 100644
--- a/src/plugins/e-acsl/src/code_generator/smart_stmt.ml
+++ b/src/plugins/e-acsl/src/code_generator/smart_stmt.ml
@@ -29,6 +29,7 @@ open Cil_types
let stmt sk = Cil.mkStmt ~valid_sid:true sk
let instr i = stmt (Instr i)
let block_stmt blk = stmt (Block blk)
+let block_from_stmts stmts = block_stmt (Cil.mkBlock stmts)
let call ~loc ?result e args = instr (Call(result, e, args, loc))
let assigns ~loc ~result e = instr (Set(result, e, loc))
diff --git a/src/plugins/e-acsl/src/code_generator/smart_stmt.mli b/src/plugins/e-acsl/src/code_generator/smart_stmt.mli
index e0c919a7f8847b7c23e71d536b619837ed59a2f5..3aebb9f4cc27419db8d9337096af57fb2d3cebb6 100644
--- a/src/plugins/e-acsl/src/code_generator/smart_stmt.mli
+++ b/src/plugins/e-acsl/src/code_generator/smart_stmt.mli
@@ -36,6 +36,9 @@ val block: stmt -> block -> stmt
val block_stmt: block -> stmt
(** Create a block statement from a block *)
+val block_from_stmts: stmt list -> stmt
+(** Create a block statement from a statement list. *)
+
val assigns: loc:location -> result:lval -> exp -> stmt
(** [assigns ~loc ~result value] create a statement to assign the [value]
expression to the [result] lval. *)
diff --git a/src/plugins/e-acsl/src/code_generator/translate.ml b/src/plugins/e-acsl/src/code_generator/translate.ml
index 882a4b41f47538d813a323368c356c09f0040c83..81b165d36f9a914a62c2a80baf4a91bccfc23f23 100644
--- a/src/plugins/e-acsl/src/code_generator/translate.ml
+++ b/src/plugins/e-acsl/src/code_generator/translate.ml
@@ -24,17 +24,11 @@ module E_acsl_label = Label
open Cil_types
open Cil_datatype
-let dkey = Options.dkey_translation
-
-let not_yet env s =
- Env.Context.save env;
- Error.not_yet s
+(** *)
-let handle_error f env =
- let env = Error.handle f env in
- Env.Context.restore env
+let dkey = Options.dkey_translation
-(* internal to [named_predicate_to_exp] but put it outside in order to not add
+(* internal to [predicate_to_exp] but put it outside in order to not add
extra tedious parameter.
It is [true] iff we are currently visiting \valid. *)
let is_visiting_valid = ref false
@@ -257,7 +251,7 @@ and toffset_to_offset ?loc kf env = function
let e, env = term_to_exp kf env t in
let offset, env = toffset_to_offset kf env offset in
Index(e, offset), env
- | TModel _ -> not_yet env "model"
+ | TModel _ -> Env.not_yet env "model"
and tlval_to_lval kf env (host, offset) =
let host, env, name = thost_to_host kf env host in
@@ -307,7 +301,7 @@ and context_insensitive_term_to_exp kf env t =
in
e, env, C_number, ""
else if Gmp_types.Q.is_t ty then
- not_yet env "reals: Neg | BNot"
+ Env.not_yet env "reals: Neg | BNot"
else
Cil.new_exp ~loc (UnOp(op, e, ty)), env, C_number, ""
| TUnOp(LNot, t) ->
@@ -602,7 +596,7 @@ and context_insensitive_term_to_exp kf env t =
let ty = Typing.get_typ t in
Cil.new_exp ~loc (BinOp(MinusPP, e1, e2, ty)), env, C_number, ""
| Typing.Gmpz ->
- not_yet env "pointer subtraction resulting in gmp"
+ Env.not_yet env "pointer subtraction resulting in gmp"
| Typing.(C_float _ | Rational | Real | Nan) ->
assert false
end
@@ -673,9 +667,9 @@ and context_insensitive_term_to_exp kf env t =
in
e, env, C_number, "app"
| Tapp(_, _ :: _, _) ->
- not_yet env "logic functions with labels"
- | Tlambda _ -> not_yet env "functional"
- | TDataCons _ -> not_yet env "constructor"
+ Env.not_yet env "logic functions with labels"
+ | Tlambda _ -> Env.not_yet env "functional"
+ | TDataCons _ -> Env.not_yet env "constructor"
| Tif(t1, t2, t3) ->
let e1, env1 = term_to_exp kf (Env.rte env true) t1 in
let (_, env2 as res2) = term_to_exp kf (Env.push env1) t2 in
@@ -699,29 +693,29 @@ and context_insensitive_term_to_exp kf env t =
let name = "base_addr" in
let e, env = Memory_translate.call ~loc kf name Cil.voidPtrType env t in
e, env, C_number, name
- | Tbase_addr _ -> not_yet env "labeled \\base_addr"
+ | Tbase_addr _ -> Env.not_yet env "labeled \\base_addr"
| Toffset(BuiltinLabel Here, t) ->
let size_t = Cil.theMachine.Cil.typeOfSizeOf in
let name = "offset" in
let e, env = Memory_translate.call ~loc kf name size_t env t in
e, env, C_number, name
- | Toffset _ -> not_yet env "labeled \\offset"
+ | Toffset _ -> Env.not_yet env "labeled \\offset"
| Tblock_length(BuiltinLabel Here, t) ->
let size_t = Cil.theMachine.Cil.typeOfSizeOf in
let name = "block_length" in
let e, env = Memory_translate.call ~loc kf name size_t env t in
e, env, C_number, name
- | Tblock_length _ -> not_yet env "labeled \\block_length"
+ | Tblock_length _ -> Env.not_yet env "labeled \\block_length"
| Tnull ->
Cil.mkCast (Cil.zero ~loc) (TPtr(TVoid [], [])), env, C_number, "null"
- | TUpdate _ -> not_yet env "functional update"
- | Ttypeof _ -> not_yet env "typeof"
- | Ttype _ -> not_yet env "C type"
- | Tempty_set -> not_yet env "empty tset"
- | Tunion _ -> not_yet env "union of tsets"
- | Tinter _ -> not_yet env "intersection of tsets"
- | Tcomprehension _ -> not_yet env "tset comprehension"
- | Trange _ -> not_yet env "range"
+ | TUpdate _ -> Env.not_yet env "functional update"
+ | Ttypeof _ -> Env.not_yet env "typeof"
+ | Ttype _ -> Env.not_yet env "C type"
+ | Tempty_set -> Env.not_yet env "empty tset"
+ | Tunion _ -> Env.not_yet env "union of tsets"
+ | Tinter _ -> Env.not_yet env "intersection of tsets"
+ | Tcomprehension _ -> Env.not_yet env "tset comprehension"
+ | Trange _ -> Env.not_yet env "range"
| Tlet(li, t) ->
let lvs = Lscope.Lvs_let(li.l_var_info, Misc.term_of_li li) in
let env = Env.Logic_scope.extend env lvs in
@@ -866,10 +860,10 @@ and env_of_li li kf env loc =
in
Env.add_stmt env kf stmt
-(* Convert an ACSL named predicate into a corresponding C expression (if
- any) in the given environment. Also extend this environment which includes
- the generating constructs. *)
-and named_predicate_content_to_exp ?name kf env p =
+(* Convert an ACSL predicate into a corresponding C expression (if any) in the
+ given environment. Also extend this environment which includes the generating
+ constructs. *)
+and predicate_content_to_exp ?name kf env p =
let loc = p.pred_loc in
match p.pred_content with
| Pfalse -> Cil.zero ~loc, env
@@ -888,39 +882,39 @@ and named_predicate_content_to_exp ?name kf env p =
Typing.type_term ~use_gmp_opt:false ~ctx:Typing.c_int tapp;
let e, env = term_to_exp kf env tapp in
e, env
- | Pseparated _ -> not_yet env "\\separated"
- | Pdangling _ -> not_yet env "\\dangling"
- | Pobject_pointer _ -> not_yet env "\\object_pointer"
- | Pvalid_function _ -> not_yet env "\\valid_function"
+ | Pseparated _ -> Env.not_yet env "\\separated"
+ | Pdangling _ -> Env.not_yet env "\\dangling"
+ | Pobject_pointer _ -> Env.not_yet env "\\object_pointer"
+ | Pvalid_function _ -> Env.not_yet env "\\valid_function"
| Prel(rel, t1, t2) ->
let ity = Typing.get_integer_op_of_predicate p in
comparison_to_exp ~loc kf env ity (relation_to_binop rel) t1 t2 None
| Pand(p1, p2) ->
(* p1 && p2 <==> if p1 then p2 else false *)
- let e1, env1 = named_predicate_to_exp kf (Env.rte env true) p1 in
+ let e1, env1 = predicate_to_exp kf (Env.rte env true) p1 in
let _, env2 as res2 =
- named_predicate_to_exp kf (Env.push env1) p2 in
+ predicate_to_exp kf (Env.push env1) p2 in
let env3 = Env.push env2 in
let name = match name with None -> "and" | Some n -> n in
conditional_to_exp ~name loc kf None e1 res2 (Cil.zero loc, env3)
| Por(p1, p2) ->
(* p1 || p2 <==> if p1 then true else p2 *)
- let e1, env1 = named_predicate_to_exp kf (Env.rte env true) p1 in
+ let e1, env1 = predicate_to_exp kf (Env.rte env true) p1 in
let env' = Env.push env1 in
- let res2 = named_predicate_to_exp kf (Env.push env') p2 in
+ let res2 = predicate_to_exp kf (Env.push env') p2 in
let name = match name with None -> "or" | Some n -> n in
conditional_to_exp ~name loc kf None e1 (Cil.one loc, env') res2
- | Pxor _ -> not_yet env "xor"
+ | Pxor _ -> Env.not_yet env "xor"
| Pimplies(p1, p2) ->
(* (p1 ==> p2) <==> !p1 || p2 *)
- named_predicate_to_exp
+ predicate_to_exp
~name:"implies"
kf
env
(Logic_const.por ~loc ((Logic_const.pnot ~loc p1), p2))
| Piff(p1, p2) ->
(* (p1 <==> p2) <==> (p1 ==> p2 && p2 ==> p1) *)
- named_predicate_to_exp
+ predicate_to_exp
~name:"equiv"
kf
env
@@ -928,24 +922,24 @@ and named_predicate_content_to_exp ?name kf env p =
(Logic_const.pimplies ~loc (p1, p2),
Logic_const.pimplies ~loc (p2, p1)))
| Pnot p ->
- let e, env = named_predicate_to_exp kf env p in
+ let e, env = predicate_to_exp kf env p in
Cil.new_exp ~loc (UnOp(LNot, e, Cil.intType)), env
| Pif(t, p2, p3) ->
let e1, env1 = term_to_exp kf (Env.rte env true) t in
let (_, env2 as res2) =
- named_predicate_to_exp kf (Env.push env1) p2 in
- let res3 = named_predicate_to_exp kf (Env.push env2) p3 in
+ predicate_to_exp kf (Env.push env1) p2 in
+ let res3 = predicate_to_exp kf (Env.push env2) p3 in
conditional_to_exp loc kf None e1 res2 res3
| Plet(li, p) ->
let lvs = Lscope.Lvs_let(li.l_var_info, Misc.term_of_li li) in
let env = Env.Logic_scope.extend env lvs in
let env = env_of_li li kf env loc in
- let e, env = named_predicate_to_exp kf env p in
+ let e, env = predicate_to_exp kf env p in
Interval.Env.remove li.l_var_info;
e, env
| Pforall _ | Pexists _ -> Quantif.quantif_to_exp kf env p
| Pat(p, BuiltinLabel Here) ->
- named_predicate_to_exp kf env p
+ predicate_to_exp kf env p
| Pat(p', label) ->
let lscope = Env.Logic_scope.get env in
let pot = Lscope.PoT_pred p' in
@@ -953,7 +947,7 @@ and named_predicate_content_to_exp ?name kf env p =
At_with_lscope.to_exp ~loc kf env pot label
else begin
(* convert [t'] to [e] in a separated local env *)
- let e, env = named_predicate_to_exp kf (Env.push env) p' in
+ let e, env = predicate_to_exp kf (Env.push env) p' in
let e, env, sty = at_to_exp_no_lscope env kf None label e in
assert (sty = C_number);
e, env
@@ -982,12 +976,12 @@ and named_predicate_content_to_exp ?name kf env p =
Typing.type_named_predicate ~must_clear:false init;
let p = Logic_const.pand ~loc (init, p) in
is_visiting_valid := true;
- named_predicate_to_exp kf env p
+ predicate_to_exp kf env p
| _ ->
call_valid t p
end
- | Pvalid _ -> not_yet env "labeled \\valid"
- | Pvalid_read _ -> not_yet env "labeled \\valid_read"
+ | Pvalid _ -> Env.not_yet env "labeled \\valid"
+ | Pvalid_read _ -> Env.not_yet env "labeled \\valid_read"
| Pinitialized(BuiltinLabel Here, t) ->
(match t.term_node with
(* optimisation when we know that the initialisation is ok *)
@@ -1005,17 +999,17 @@ and named_predicate_content_to_exp ?name kf env p =
env
t
p)
- | Pinitialized _ -> not_yet env "labeled \\initialized"
- | Pallocable _ -> not_yet env "\\allocate"
+ | Pinitialized _ -> Env.not_yet env "labeled \\initialized"
+ | Pallocable _ -> Env.not_yet env "\\allocate"
| Pfreeable(BuiltinLabel Here, t) ->
Memory_translate.call ~loc kf "freeable" Cil.intType env t
- | Pfreeable _ -> not_yet env "labeled \\freeable"
- | Pfresh _ -> not_yet env "\\fresh"
+ | Pfreeable _ -> Env.not_yet env "labeled \\freeable"
+ | Pfresh _ -> Env.not_yet env "\\fresh"
-and named_predicate_to_exp ?name kf ?rte env p =
+and predicate_to_exp ?name kf ?rte env p =
let rte = match rte with None -> Env.generate_rte env | Some b -> b in
let env = Env.rte env false in
- let e, env = named_predicate_content_to_exp ?name kf env p in
+ let e, env = predicate_content_to_exp ?name kf env p in
let env = if rte then translate_rte kf env e else env in
let cast = Typing.get_cast_of_predicate p in
add_cast
@@ -1028,6 +1022,15 @@ and named_predicate_to_exp ?name kf ?rte env p =
None
e
+and generalized_untyped_predicate_to_exp ?name kf ?rte ?must_clear_typing env p =
+ let rte = match rte with None -> Env.generate_rte env | Some b -> b in
+ let must_clear = match must_clear_typing with None -> rte | Some b -> b in
+ Typing.type_named_predicate ~must_clear p;
+ let e, env = predicate_to_exp ?name kf ~rte env p in
+ assert (Typ.equal (Cil.typeOf e) Cil.intType);
+ let env = Env.Logic_scope.reset env in
+ e, env
+
and translate_rte_annots:
'a. (Format.formatter -> 'a -> unit) -> 'a ->
kernel_function -> Env.t -> code_annotation list -> Env.t =
@@ -1039,7 +1042,7 @@ and translate_rte_annots:
List.fold_left
(fun env a -> match a.annot_content with
| AAssert(_, p) ->
- handle_error
+ Env.handle_error
(fun env ->
Options.feedback ~dkey ~level:4 "prevent RTE from %a" pp elt;
(* The logic scope MUST NOT be reset here since we still might
@@ -1048,7 +1051,7 @@ and translate_rte_annots:
let p = p.tp_statement in
let lscope_reset_old = Env.Logic_scope.get_reset env in
let env = Env.Logic_scope.set_reset env false in
- let env = translate_named_predicate kf (Env.rte env false) p in
+ let env = translate_predicate kf (Env.rte env false) p in
let env = Env.Logic_scope.set_reset env lscope_reset_old in
env)
env
@@ -1069,14 +1072,18 @@ and translate_rte ?filter kf env e =
in
translate_rte_annots Printer.pp_exp e kf env l
-and translate_named_predicate kf env p =
+and translate_predicate ?pred_to_print kf env p =
Options.feedback ~dkey ~level:3 "translating predicate %a"
Printer.pp_predicate p;
- let rte = Env.generate_rte env in
- Typing.type_named_predicate ~must_clear:rte p;
- let e, env = named_predicate_to_exp kf ~rte env p in
- assert (Typ.equal (Cil.typeOf e) Cil.intType);
- let env = Env.Logic_scope.reset env in
+ let pred_to_print =
+ match pred_to_print with
+ | Some pred ->
+ Options.feedback ~dkey ~level:3 "(predicate to print %a)"
+ Printer.pp_predicate pred;
+ pred
+ | None -> p
+ in
+ let e, env = generalized_untyped_predicate_to_exp kf env p in
Env.add_stmt
env
kf
@@ -1084,36 +1091,41 @@ and translate_named_predicate kf env p =
(Env.annotation_kind env)
kf
e
- p)
+ pred_to_print)
-let named_predicate_to_exp ?name kf env p =
- named_predicate_to_exp ?name kf env p (* forget optional argument ?rte *)
+let predicate_to_exp_without_rte ?name kf env p =
+ predicate_to_exp ?name kf env p (* forget optional argument ?rte *)
let () =
Loops.term_to_exp_ref := term_to_exp;
- Loops.translate_named_predicate_ref := translate_named_predicate;
- Loops.named_predicate_ref := named_predicate_to_exp;
- Quantif.predicate_to_exp_ref := named_predicate_to_exp;
+ Loops.translate_predicate_ref := translate_predicate;
+ Loops.predicate_to_exp_ref := predicate_to_exp_without_rte;
+ Quantif.predicate_to_exp_ref := predicate_to_exp_without_rte;
At_with_lscope.term_to_exp_ref := term_to_exp;
- At_with_lscope.predicate_to_exp_ref := named_predicate_to_exp;
+ At_with_lscope.predicate_to_exp_ref := predicate_to_exp_without_rte;
Memory_translate.term_to_exp_ref := term_to_exp;
- Memory_translate.predicate_to_exp_ref := named_predicate_to_exp;
+ Memory_translate.predicate_to_exp_ref := predicate_to_exp_without_rte;
Logic_functions.term_to_exp_ref := term_to_exp;
- Logic_functions.named_predicate_to_exp_ref := named_predicate_to_exp;
+ Logic_functions.predicate_to_exp_ref := predicate_to_exp_without_rte;
Logic_array.translate_rte_ref := translate_rte
+exception No_simple_term_translation of term
+exception No_simple_predicate_translation of predicate
+
(* This function is used by Guillaume.
However, it is correct to use it only in specific contexts. *)
-let predicate_to_exp kf p =
- Typing.type_named_predicate ~must_clear:true p;
- let e, _ = named_predicate_to_exp kf Env.empty p in
- assert (Typ.equal (Cil.typeOf e) Cil.intType);
+let untyped_predicate_to_exp p =
+ let env = Env.push Env.empty in
+ let env = Env.rte env false in
+ let e, env =
+ try generalized_untyped_predicate_to_exp ~must_clear_typing:false (Kernel_function.dummy ()) env p
+ with Rtl.Symbols.Unregistered _ -> raise (No_simple_predicate_translation p)
+ in
+ if not (Env.has_no_new_stmt env) then raise (No_simple_predicate_translation p);
e
-exception No_simple_translation of term
-
(* This function is used by plug-in [Cfp]. *)
-let term_to_exp typ t =
+let untyped_term_to_exp typ t =
(* infer a context from the given [typ] whenever possible *)
let ctx_of_typ ty =
if Gmp_types.Z.is_t ty then Typing.gmpz
@@ -1130,221 +1142,11 @@ let term_to_exp typ t =
let env = Env.rte env false in
let e, env =
try term_to_exp (Kernel_function.dummy ()) env t
- with Rtl.Symbols.Unregistered _ -> raise (No_simple_translation t)
+ with Rtl.Symbols.Unregistered _ -> raise (No_simple_term_translation t)
in
- if not (Env.has_no_new_stmt env) then raise (No_simple_translation t);
+ if not (Env.has_no_new_stmt env) then raise (No_simple_term_translation t);
e
-(* ************************************************************************** *)
-(* [translate_*] translates a given ACSL annotation into the corresponding C
- statement (if any) for runtime assertion checking. *)
-(* ************************************************************************** *)
-
-let must_translate ppt =
- Options.Valid.get ()
- || match Property_status.get ppt with
- | Never_tried
- | Inconsistent _
- | Best ((False_if_reachable | False_and_reachable | Dont_know), _) ->
- true
- | Best (True, _) ->
- (* [TODO] generating code for "valid under hypotheses" properties could be
- useful for some use cases (in particular, when E-ACSL does not stop on
- the very first error).
- ==> introduce a new option or modify the behavior of -e-acsl-valid,
- see e-acsl#35 *)
- false
-
-let must_translate_opt = function
- | None -> false
- | Some ppt -> must_translate ppt
-
-let assumes_predicate bhv =
- List.fold_left
- (fun acc p ->
- let pred = p.ip_content.tp_statement in
- let loc = pred.pred_loc in
- Logic_const.pand ~loc
- (acc,
- Logic_const.unamed ~loc pred.pred_content))
- Logic_const.ptrue
- bhv.b_assumes
-
-let translate_preconditions kf kinstr env behaviors =
- let env = Env.set_annotation_kind env Smart_stmt.Precondition in
- let do_behavior env b =
- let assumes_pred = assumes_predicate b in
- List.fold_left
- (fun env p ->
- let pred = p.ip_content.tp_statement in
- let do_it env =
- if must_translate (Property.ip_of_requires kf kinstr b p) then
- let loc = pred.pred_loc in
- let p =
- Logic_const.pimplies
- ~loc
- (assumes_pred,
- Logic_const.unamed ~loc pred.pred_content)
- in
- translate_named_predicate kf env p
- else
- env
- in
- handle_error do_it env)
- env
- b.b_requires
- in
- List.fold_left do_behavior env behaviors
-
-let translate_postconditions kf kinstr env behaviors =
- let env = Env.set_annotation_kind env Smart_stmt.Postcondition in
- (* generate one guard by postcondition of each behavior *)
- let do_behavior env b =
- let env =
- handle_error
- (fun env ->
- let active = [] in (* TODO: 'for' behaviors, e-acsl#109 *)
- let ppt = Property.ip_assigns_of_behavior kf kinstr ~active b in
- if b.b_assigns <> WritesAny && must_translate_opt ppt
- then not_yet env "assigns clause in behavior";
- (* ignore b.b_extended since we never translate them *)
- env)
- env
- in
- let assumes_pred = assumes_predicate b in
- List.fold_left
- (fun env ((t, p) as tp) ->
- if must_translate (Property.ip_of_ensures kf kinstr b tp) then
- let do_it env =
- match t with
- | Normal ->
- let p = p.ip_content.tp_statement in
- let loc = p.pred_loc in
- let p =
- Logic_const.pimplies
- ~loc
- (Logic_const.pold ~loc assumes_pred,
- Logic_const.unamed ~loc p.pred_content)
- in
- translate_named_predicate kf env p
- | Exits | Breaks | Continues | Returns ->
- not_yet env "abnormal termination case in behavior"
- in
- handle_error do_it env
- else env)
- env
- b.b_post_cond
- in
- (* fix ordering of behaviors' iterations *)
- let bhvs =
- List.sort (fun b1 b2 -> String.compare b1.b_name b2.b_name) behaviors
- in
- List.fold_left do_behavior env bhvs
-
-let translate_pre_spec kf kinstr env spec =
- let unsupported f x = ignore (handle_error (fun env -> f x; env) env) in
- let convert_unsupported_clauses env =
- unsupported
- (fun spec ->
- let ppt = Property.ip_decreases_of_spec kf kinstr spec in
- if must_translate_opt ppt then not_yet env "variant clause")
- spec;
- (* TODO: spec.spec_terminates is not part of the E-ACSL subset *)
- unsupported
- (fun spec ->
- let ppt = Property.ip_terminates_of_spec kf kinstr spec in
- if must_translate_opt ppt then not_yet env "terminates clause")
- spec;
- let active = [] in (* TODO: 'for' behaviors, e-acsl#109 *)
- let ppts = Property.ip_complete_of_spec kf kinstr ~active spec in
- unsupported
- (fun ppts ->
- List.iter
- (fun ppt ->
- if must_translate ppt then not_yet env "complete behaviors")
- ppts)
- ppts;
- let ppts = Property.ip_disjoint_of_spec kf kinstr ~active spec in
- unsupported
- (fun ppts ->
- List.iter
- (fun ppt ->
- if must_translate ppt then not_yet env "disjoint behaviors")
- ppts)
- ppts;
- env
- in
- let env = convert_unsupported_clauses env in
- handle_error
- (fun env -> translate_preconditions kf kinstr env spec.spec_behavior)
- env
-
-let translate_post_spec kf kinstr env spec =
- handle_error
- (fun env -> translate_postconditions kf kinstr env spec.spec_behavior)
- env
-
-let translate_pre_code_annotation kf stmt env annot =
- let convert env = match annot.annot_content with
- | AAssert(l, p) ->
- if must_translate (Property.ip_of_code_annot_single kf stmt annot) then
- let env = Env.set_annotation_kind env Smart_stmt.Assertion in
- if l <> [] then
- not_yet env "@[assertion applied only on some behaviors@]";
- translate_named_predicate kf env p.tp_statement
- else
- env
- | AStmtSpec(l, spec) ->
- if l <> [] then
- not_yet env "@[statement contract applied only on some behaviors@]";
- translate_pre_spec kf (Kstmt stmt) env spec ;
- | AInvariant(l, loop_invariant, p) ->
- if must_translate (Property.ip_of_code_annot_single kf stmt annot) then
- let env = Env.set_annotation_kind env Smart_stmt.Invariant in
- if l <> [] then
- not_yet env "@[invariant applied only on some behaviors@]";
- let env = translate_named_predicate kf env p.tp_statement in
- if loop_invariant then
- Env.add_loop_invariant env p.tp_statement
- else env
- else
- env
- | AVariant _ ->
- if must_translate (Property.ip_of_code_annot_single kf stmt annot)
- then not_yet env "variant"
- else env
- | AAssigns _ ->
- (* TODO: it is not a precondition --> should not be handled here,
- to be fixed when implementing e-acsl#29 *)
- let ppts = Property.ip_of_code_annot kf stmt annot in
- List.iter
- (fun ppt -> if must_translate ppt then not_yet env "assigns")
- ppts;
- env
- | AAllocation _ ->
- let ppts = Property.ip_of_code_annot kf stmt annot in
- List.iter
- (fun ppt -> if must_translate ppt then not_yet env "allocation")
- ppts;
- env
- | APragma _ -> not_yet env "pragma"
- | AExtended _ -> env (* never translate extensions. *)
- in
- handle_error convert env
-
-let translate_post_code_annotation kf stmt env annot =
- let convert env = match annot.annot_content with
- | AStmtSpec(_, spec) -> translate_post_spec kf (Kstmt stmt) env spec
- | AAssert _
- | AInvariant _
- | AVariant _
- | AAssigns _
- | AAllocation _
- | APragma _
- | AExtended _ -> env
- in
- handle_error convert env
-
(*
Local Variables:
compile-command: "make -C ../../../../.."
diff --git a/src/plugins/e-acsl/src/code_generator/translate.mli b/src/plugins/e-acsl/src/code_generator/translate.mli
index 64a83c76113bbe3e29142f4d4d6981e74ae81d00..c1e32fa28b950de4333737de8f9b1a4d8d257a8b 100644
--- a/src/plugins/e-acsl/src/code_generator/translate.mli
+++ b/src/plugins/e-acsl/src/code_generator/translate.mli
@@ -22,18 +22,32 @@
open Cil_types
-(** [translate_*] translates a given ACSL annotation into the corresponding C
- statement (if any) for runtime assertion checking. This C statements are
- part of the resulting environment. *)
-
-val translate_pre_spec: kernel_function -> kinstr -> Env.t -> funspec -> Env.t
-val translate_post_spec: kernel_function -> kinstr -> Env.t -> funspec -> Env.t
-val translate_pre_code_annotation:
- kernel_function -> stmt -> Env.t -> code_annotation -> Env.t
-val translate_post_code_annotation:
- kernel_function -> stmt -> Env.t -> code_annotation -> Env.t
-val translate_named_predicate:
- kernel_function -> Env.t -> predicate -> Env.t
+(** Generate C implementations of expressions. *)
+
+val predicate_to_exp:
+ ?name:string ->
+ kernel_function ->
+ ?rte:bool ->
+ Env.t ->
+ predicate ->
+ exp * Env.t
+(** Convert an ACSL predicate into a corresponding C expression. *)
+
+val generalized_untyped_predicate_to_exp:
+ ?name:string ->
+ kernel_function ->
+ ?rte:bool ->
+ ?must_clear_typing:bool ->
+ Env.t ->
+ predicate ->
+ exp * Env.t
+(** Convert an untyped ACSL predicate into a corresponding C expression. *)
+
+val translate_predicate:
+ ?pred_to_print:predicate -> kernel_function -> Env.t -> predicate -> Env.t
+(** Translate the given predicate to a runtime check in the given environment.
+ If [pred_to_print] is set, then the runtime check will use this predicate as
+ message. *)
val translate_rte_annots:
(Format.formatter -> 'a -> unit) ->
@@ -42,11 +56,23 @@ val translate_rte_annots:
Env.t ->
code_annotation list ->
Env.t
+(** Translate the given RTE annotations into runtime checks in the given
+ environment. *)
+
+exception No_simple_term_translation of term
+(** Exceptin raised if [untyped_term_to_exp] would generate new statements in
+ the environment *)
+
+exception No_simple_predicate_translation of predicate
+(** Exceptin raised if [untyped_predicate_to_exp] would generate new statements
+ in the environment *)
-exception No_simple_translation of term
-val term_to_exp: typ option -> term -> exp
+val untyped_term_to_exp: typ option -> term -> exp
+(** Convert an untyped ACSL term into a corresponding C expression. *)
-val predicate_to_exp: kernel_function -> predicate -> exp
+val untyped_predicate_to_exp: predicate -> exp
+(** Convert an untyped ACSL predicate into a corresponding C expression. This
+ expression is valid only in certain contexts and shouldn't be used. *)
(*
Local Variables:
diff --git a/src/plugins/e-acsl/src/code_generator/translate_annots.ml b/src/plugins/e-acsl/src/code_generator/translate_annots.ml
new file mode 100644
index 0000000000000000000000000000000000000000..a65ac3567b95ad3ee2fc4b871ae4bf8dd681b526
--- /dev/null
+++ b/src/plugins/e-acsl/src/code_generator/translate_annots.ml
@@ -0,0 +1,145 @@
+(**************************************************************************)
+(* *)
+(* This file is part of the Frama-C's E-ACSL plug-in. *)
+(* *)
+(* Copyright (C) 2012-2020 *)
+(* CEA (Commissariat à l'énergie atomique et aux énergies *)
+(* alternatives) *)
+(* *)
+(* you can redistribute it and/or modify it under the terms of the GNU *)
+(* Lesser General Public License as published by the Free Software *)
+(* Foundation, version 2.1. *)
+(* *)
+(* It is distributed in the hope that it will be useful, *)
+(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
+(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *)
+(* GNU Lesser General Public License for more details. *)
+(* *)
+(* See the GNU Lesser General Public License version 2.1 *)
+(* for more details (enclosed in the file licenses/LGPLv2.1). *)
+(* *)
+(**************************************************************************)
+
+open Cil_types
+open Cil_datatype
+
+(* ************************************************************************** *)
+(* Functions that translate a given ACSL annotation into the corresponding C
+ statements (if any) for runtime assertion checking. *)
+(* ************************************************************************** *)
+
+let must_translate ppt =
+ Options.Valid.get ()
+ || match Property_status.get ppt with
+ | Never_tried
+ | Inconsistent _
+ | Best ((False_if_reachable | False_and_reachable | Dont_know), _) ->
+ true
+ | Best (True, _) ->
+ (* [TODO] generating code for "valid under hypotheses" properties could be
+ useful for some use cases (in particular, when E-ACSL does not stop on
+ the very first error).
+ ==> introduce a new option or modify the behavior of -e-acsl-valid,
+ see e-acsl#35 *)
+ false
+
+let must_translate_opt = function
+ | None -> false
+ | Some ppt -> must_translate ppt
+
+let () =
+ Contract.must_translate_ppt_ref := must_translate;
+ Contract.must_translate_ppt_opt_ref := must_translate_opt
+
+let pre_funspec kf kinstr env funspec =
+ let unsupported f x = ignore (Env.handle_error (fun env -> f x; env) env) in
+ let convert_unsupported_clauses env =
+ unsupported
+ (fun spec ->
+ let ppt = Property.ip_decreases_of_spec kf kinstr spec in
+ if must_translate_opt ppt then Env.not_yet env "variant clause")
+ funspec;
+ (* TODO: spec.spec_terminates is not part of the E-ACSL subset *)
+ unsupported
+ (fun spec ->
+ let ppt = Property.ip_terminates_of_spec kf kinstr spec in
+ if must_translate_opt ppt then Env.not_yet env "terminates clause")
+ funspec;
+ env
+ in
+ let env = convert_unsupported_clauses env in
+ let loc = Kernel_function.get_location kf in
+ let contract = Contract.create ~loc funspec in
+ Contract.translate_preconditions kf kinstr env contract
+
+let post_funspec kf kinstr env =
+ Contract.translate_postconditions kf kinstr env
+
+let pre_code_annotation kf stmt env annot =
+ let convert env = match annot.annot_content with
+ | AAssert(l, p) ->
+ if must_translate (Property.ip_of_code_annot_single kf stmt annot) then
+ let env = Env.set_annotation_kind env Smart_stmt.Assertion in
+ if l <> [] then
+ Env.not_yet env "@[assertion applied only on some behaviors@]";
+ Translate.translate_predicate kf env p.tp_statement
+ else
+ env
+ | AStmtSpec(l, spec) ->
+ if l <> [] then
+ Env.not_yet env "@[statement contract applied only on some behaviors@]";
+ let loc = Stmt.loc stmt in
+ let contract = Contract.create ~loc spec in
+ Contract.translate_preconditions kf (Kstmt stmt) env contract
+ | AInvariant(l, loop_invariant, p) ->
+ if must_translate (Property.ip_of_code_annot_single kf stmt annot) then
+ let env = Env.set_annotation_kind env Smart_stmt.Invariant in
+ if l <> [] then
+ Env.not_yet env "@[invariant applied only on some behaviors@]";
+ let env = Translate.translate_predicate kf env p.tp_statement in
+ if loop_invariant then
+ Env.add_loop_invariant env p.tp_statement
+ else env
+ else
+ env
+ | AVariant _ ->
+ if must_translate (Property.ip_of_code_annot_single kf stmt annot)
+ then Env.not_yet env "variant"
+ else env
+ | AAssigns _ ->
+ (* TODO: it is not a precondition --> should not be handled here,
+ to be fixed when implementing e-acsl#29 *)
+ let ppts = Property.ip_of_code_annot kf stmt annot in
+ List.iter
+ (fun ppt -> if must_translate ppt then Env.not_yet env "assigns")
+ ppts;
+ env
+ | AAllocation _ ->
+ let ppts = Property.ip_of_code_annot kf stmt annot in
+ List.iter
+ (fun ppt -> if must_translate ppt then Env.not_yet env "allocation")
+ ppts;
+ env
+ | APragma _ -> Env.not_yet env "pragma"
+ | AExtended _ -> env (* never translate extensions. *)
+ in
+ Env.handle_error convert env
+
+let post_code_annotation kf stmt env annot =
+ let convert env = match annot.annot_content with
+ | AStmtSpec(_, _) -> Contract.translate_postconditions kf (Kstmt stmt) env
+ | AAssert _
+ | AInvariant _
+ | AVariant _
+ | AAssigns _
+ | AAllocation _
+ | APragma _
+ | AExtended _ -> env
+ in
+ Env.handle_error convert env
+
+(*
+Local Variables:
+compile-command: "make -C ../../../../.."
+End:
+*)
diff --git a/src/plugins/e-acsl/src/code_generator/translate_annots.mli b/src/plugins/e-acsl/src/code_generator/translate_annots.mli
new file mode 100644
index 0000000000000000000000000000000000000000..8e4504b2ddf8fa22e50ee5f36a9310879be96d85
--- /dev/null
+++ b/src/plugins/e-acsl/src/code_generator/translate_annots.mli
@@ -0,0 +1,77 @@
+(**************************************************************************)
+(* *)
+(* This file is part of the Frama-C's E-ACSL plug-in. *)
+(* *)
+(* Copyright (C) 2012-2020 *)
+(* CEA (Commissariat à l'énergie atomique et aux énergies *)
+(* alternatives) *)
+(* *)
+(* you can redistribute it and/or modify it under the terms of the GNU *)
+(* Lesser General Public License as published by the Free Software *)
+(* Foundation, version 2.1. *)
+(* *)
+(* It is distributed in the hope that it will be useful, *)
+(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
+(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *)
+(* GNU Lesser General Public License for more details. *)
+(* *)
+(* See the GNU Lesser General Public License version 2.1 *)
+(* for more details (enclosed in the file licenses/LGPLv2.1). *)
+(* *)
+(**************************************************************************)
+
+open Cil_types
+
+(** Functions that translate a given ACSL annotation into the corresponding C
+ statements (if any) for runtime assertion checking. These C statements are
+ part of the resulting environment. *)
+
+val must_translate: Property.t -> bool
+(** Return true if the given property must be translated (ie. if the valid
+ properties must be translated or if its status is not [True]), false
+ otherwise. *)
+
+val must_translate_opt: Property.t option -> bool
+(** Same than [must_translate] but for [Property.t option]. Return false if the
+ option is [None]. *)
+
+val pre_funspec: kernel_function -> kinstr -> Env.t -> funspec -> Env.t
+(** Translate the preconditions of the given function contract in the
+ environment. The contract is attached to the kernel_function.
+
+ The function contract is pushed in the environment, some care should be
+ taken to call {!post_funspec} at the right time to pop the right
+ contract. *)
+
+val post_funspec: kernel_function -> kinstr -> Env.t -> Env.t
+(** Translate the postconditions of the current function contract in the
+ environment.
+
+ The function contract previously built by {!pre_funspec} is popped
+ from the environment. Some care should be taken to call this function at
+ the right time to pop the right contract. *)
+
+val pre_code_annotation:
+ kernel_function -> stmt -> Env.t -> code_annotation -> Env.t
+(** Translate the preconditions of the given code annotation in the
+ environment.
+
+ If available, the statement contract is pushed in the environment, some care
+ should be taken to call {!post_code_annotation} at the right time
+ to pop the right contract. *)
+
+val post_code_annotation:
+ kernel_function -> stmt -> Env.t -> code_annotation -> Env.t
+(** Translate the postconditions of the current code annotation in the
+ environment.
+
+ If necessarry, the statement contract previously built by
+ {!pre_code_annotation} is popped from the environment. Some care
+ should be taken to call this function at the right time to pop the right
+ contract. *)
+
+(*
+Local Variables:
+compile-command: "make -C ../.."
+End:
+*)
diff --git a/src/plugins/e-acsl/src/dependencies/dep_eva.disabled.ml b/src/plugins/e-acsl/src/dependencies/dep_eva.disabled.ml
new file mode 100644
index 0000000000000000000000000000000000000000..574d25ed1ab97726b75bbc3171c80783c81da567
--- /dev/null
+++ b/src/plugins/e-acsl/src/dependencies/dep_eva.disabled.ml
@@ -0,0 +1,23 @@
+(**************************************************************************)
+(* *)
+(* This file is part of the Frama-C's E-ACSL plug-in. *)
+(* *)
+(* Copyright (C) 2012-2020 *)
+(* CEA (Commissariat à l'énergie atomique et aux énergies *)
+(* alternatives) *)
+(* *)
+(* you can redistribute it and/or modify it under the terms of the GNU *)
+(* Lesser General Public License as published by the Free Software *)
+(* Foundation, version 2.1. *)
+(* *)
+(* It is distributed in the hope that it will be useful, *)
+(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
+(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *)
+(* GNU Lesser General Public License for more details. *)
+(* *)
+(* See the GNU Lesser General Public License version 2.1 *)
+(* for more details (enclosed in the file licenses/LGPLv2.1). *)
+(* *)
+(**************************************************************************)
+
+let use_builtin _ _ = ()
diff --git a/src/plugins/e-acsl/src/dependencies/dep_eva.enabled.ml b/src/plugins/e-acsl/src/dependencies/dep_eva.enabled.ml
new file mode 100644
index 0000000000000000000000000000000000000000..a1af5ca1cb0ee3d51fb0b83bd2cdbf9c9bdb0ba2
--- /dev/null
+++ b/src/plugins/e-acsl/src/dependencies/dep_eva.enabled.ml
@@ -0,0 +1,23 @@
+(**************************************************************************)
+(* *)
+(* This file is part of the Frama-C's E-ACSL plug-in. *)
+(* *)
+(* Copyright (C) 2012-2020 *)
+(* CEA (Commissariat à l'énergie atomique et aux énergies *)
+(* alternatives) *)
+(* *)
+(* you can redistribute it and/or modify it under the terms of the GNU *)
+(* Lesser General Public License as published by the Free Software *)
+(* Foundation, version 2.1. *)
+(* *)
+(* It is distributed in the hope that it will be useful, *)
+(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
+(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *)
+(* GNU Lesser General Public License for more details. *)
+(* *)
+(* See the GNU Lesser General Public License version 2.1 *)
+(* for more details (enclosed in the file licenses/LGPLv2.1). *)
+(* *)
+(**************************************************************************)
+
+let use_builtin = Eva.Value_parameters.use_builtin
diff --git a/src/plugins/e-acsl/src/dependencies/dep_eva.mli b/src/plugins/e-acsl/src/dependencies/dep_eva.mli
new file mode 100644
index 0000000000000000000000000000000000000000..a151c251eeb62727b283355f458cbbf03a5efb04
--- /dev/null
+++ b/src/plugins/e-acsl/src/dependencies/dep_eva.mli
@@ -0,0 +1,27 @@
+(**************************************************************************)
+(* *)
+(* This file is part of the Frama-C's E-ACSL plug-in. *)
+(* *)
+(* Copyright (C) 2012-2020 *)
+(* CEA (Commissariat à l'énergie atomique et aux énergies *)
+(* alternatives) *)
+(* *)
+(* you can redistribute it and/or modify it under the terms of the GNU *)
+(* Lesser General Public License as published by the Free Software *)
+(* Foundation, version 2.1. *)
+(* *)
+(* It is distributed in the hope that it will be useful, *)
+(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
+(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *)
+(* GNU Lesser General Public License for more details. *)
+(* *)
+(* See the GNU Lesser General Public License version 2.1 *)
+(* for more details (enclosed in the file licenses/LGPLv2.1). *)
+(* *)
+(**************************************************************************)
+
+open Cil_types
+
+val use_builtin: kernel_function -> string -> unit
+(** Call the function Eva.Value_parameters.use_builtin if Eva is enabled,
+ do nothing otherwise. *)
diff --git a/src/plugins/e-acsl/src/libraries/error.ml b/src/plugins/e-acsl/src/libraries/error.ml
index a572ecdffc6a5fe67deeb48d7c080553f05e6174..5c8fec2f96bad497e2fc39ac54922c8cdae233e0 100644
--- a/src/plugins/e-acsl/src/libraries/error.ml
+++ b/src/plugins/e-acsl/src/libraries/error.ml
@@ -48,21 +48,28 @@ module Nb_not_yet =
let nb_not_yet = Nb_not_yet.get
-let generic_handle f res x =
- try
- f x
- with
+let process_error = function
| Typing_error s ->
let msg = Format.sprintf "@[invalid E-ACSL construct@ `%s'.@]" s in
Options.warning ~once:true ~current:true "@[%s@ Ignoring annotation.@]" msg;
- Nb_typing.set (Nb_typing.get () + 1);
- res
+ Nb_typing.set (Nb_typing.get () + 1)
| Not_yet s ->
let msg =
Format.sprintf "@[E-ACSL construct@ `%s'@ is not yet supported.@]" s
in
Options.warning ~once:true ~current:true "@[%s@ Ignoring annotation.@]" msg;
- Nb_not_yet.set (Nb_not_yet.get () + 1);
+ Nb_not_yet.set (Nb_not_yet.get () + 1)
+ | exn ->
+ Options.fatal
+ "Unexpected error in `Error.process_error`: %s"
+ (Printexc.to_string exn)
+
+let generic_handle f res x =
+ try
+ f x
+ with
+ | exn ->
+ process_error exn;
res
let handle f x = generic_handle f x x
diff --git a/src/plugins/e-acsl/src/libraries/error.mli b/src/plugins/e-acsl/src/libraries/error.mli
index 34176dd34e93c7aebf4b0b244560fb0954c2ab98..2cbea96413ad43be6c127fb78694d697b6c86a7c 100644
--- a/src/plugins/e-acsl/src/libraries/error.mli
+++ b/src/plugins/e-acsl/src/libraries/error.mli
@@ -45,6 +45,13 @@ val nb_untypable: unit -> int
val nb_not_yet: unit -> int
(** Number of not-yet-supported annotations. *)
+val process_error: exn -> unit
+(** Process the given error.
+
+ Print a warning message and update the number of not-yet-supported and
+ untypable annotations. Print a fatal message and abort in case of unknown
+ errors. *)
+
(*
Local Variables:
compile-command: "make"
diff --git a/src/plugins/e-acsl/src/libraries/misc.mli b/src/plugins/e-acsl/src/libraries/misc.mli
index 6ea105fd88a00e4e4c3621fc90511f9eb943bdc0..ca3f8fd00e6107a4ba74dba379519f1a6a9806e2 100644
--- a/src/plugins/e-acsl/src/libraries/misc.mli
+++ b/src/plugins/e-acsl/src/libraries/misc.mli
@@ -47,7 +47,7 @@ val cty: logic_type -> typ
val ptr_index: ?loc:location -> ?index:exp -> exp
-> Cil_types.exp * Cil_types.exp
-(** Split pointer-arithmetic expression of the type `p + i` into its
+(** Split pointer-arithmetic expression of the type [p + i] into its
pointer and integer parts. *)
val term_of_li: logic_info -> term
diff --git a/src/plugins/e-acsl/src/main.ml b/src/plugins/e-acsl/src/main.ml
index 703ef6b8c0d8d8d7e6683ebf4a88a48c84c572ce..8de1804974e4fdc9aafd6f7efd79040884f7ccba 100644
--- a/src/plugins/e-acsl/src/main.ml
+++ b/src/plugins/e-acsl/src/main.ml
@@ -106,15 +106,6 @@ let generate_code =
(Datatype.func Datatype.string Project.ty)
generate_code
-let predicate_to_exp =
- Dynamic.register
- ~plugin:"E_ACSL"
- ~journalize:false
- "predicate_to_exp"
- (Datatype.func2
- Kernel_function.ty Cil_datatype.Predicate.ty Cil_datatype.Exp.ty)
- Translate.predicate_to_exp
-
(* The Frama-C standard library contains specific built-in variables prefixed by
"__fc_" and declared as extern: they prevent the generated code to be
linked. This modification of the default printer replaces them by their
diff --git a/src/plugins/e-acsl/tests/bts/oracle_ci/bts1307.res.oracle b/src/plugins/e-acsl/tests/bts/oracle_ci/bts1307.res.oracle
index 0491679011cca98bc2b52203673139ae77988bd6..ef84cf94d261391ff55db72a03f35a11bc6d6c40 100644
--- a/src/plugins/e-acsl/tests/bts/oracle_ci/bts1307.res.oracle
+++ b/src/plugins/e-acsl/tests/bts/oracle_ci/bts1307.res.oracle
@@ -3,7 +3,3 @@
(warn-once: no further messages from category 'parser:decimal-float' will be emitted)
[e-acsl] beginning translation.
[e-acsl] translation done in project "e-acsl".
-[eva:alarm] tests/bts/bts1307.i:11: Warning:
- function __e_acsl_assert: precondition got status unknown.
-[eva:alarm] tests/bts/bts1307.i:11: Warning:
- function __gen_e_acsl_foo, behavior OverEstimate_Motoring: postcondition got status invalid.
diff --git a/src/plugins/e-acsl/tests/bts/oracle_ci/bts1324.res.oracle b/src/plugins/e-acsl/tests/bts/oracle_ci/bts1324.res.oracle
index 8a979d24b47fbca95ad85e05fbdfd4446a7fd8eb..efd026311297e55d8fefb674326118e6ece88624 100644
--- a/src/plugins/e-acsl/tests/bts/oracle_ci/bts1324.res.oracle
+++ b/src/plugins/e-acsl/tests/bts/oracle_ci/bts1324.res.oracle
@@ -1,4 +1,2 @@
[e-acsl] beginning translation.
[e-acsl] translation done in project "e-acsl".
-[eva:alarm] tests/bts/bts1324.i:6: Warning:
- function __e_acsl_assert: precondition got status unknown.
diff --git a/src/plugins/e-acsl/tests/bts/oracle_ci/bts1390.res.oracle b/src/plugins/e-acsl/tests/bts/oracle_ci/bts1390.res.oracle
index 929213a9cd28be0c159806a3a650b1cf7b651dfe..3731cb4dd09cd7786331ee6473a3a0fdf691a7c2 100644
--- a/src/plugins/e-acsl/tests/bts/oracle_ci/bts1390.res.oracle
+++ b/src/plugins/e-acsl/tests/bts/oracle_ci/bts1390.res.oracle
@@ -2,11 +2,3 @@
[e-acsl] translation done in project "e-acsl".
[eva:builtins:missing-spec] tests/bts/bts1390.c:13: Warning:
The builtin for function memchr will not be used, as its frama-c libc specification is not available.
-[eva:alarm] tests/bts/bts1390.c:11: Warning:
- function __e_acsl_assert: precondition got status unknown.
-[eva:alarm] tests/bts/bts1390.c:8: Warning:
- function __e_acsl_assert: precondition got status unknown.
-[eva:alarm] tests/bts/bts1390.c:12: Warning:
- function __gen_e_acsl_memchr, behavior not_exists: postcondition got status unknown. (Behavior may be inactive, no reduction performed.)
-[eva:alarm] tests/bts/bts1390.c:17: Warning:
- out of bounds read. assert \valid_read(s);
diff --git a/src/plugins/e-acsl/tests/bts/oracle_ci/bts2192.res.oracle b/src/plugins/e-acsl/tests/bts/oracle_ci/bts2192.res.oracle
index f96be2395e669ee4f969c86a91991270c922660a..5e19b9d7d6eecf52c360612ac19e7e7406a776f2 100644
--- a/src/plugins/e-acsl/tests/bts/oracle_ci/bts2192.res.oracle
+++ b/src/plugins/e-acsl/tests/bts/oracle_ci/bts2192.res.oracle
@@ -2,7 +2,7 @@
[e-acsl] Warning: annotating undefined function `atoi':
the generated program may miss memory instrumentation
if there are memory-related annotations.
-[e-acsl] FRAMAC_SHARE/libc/stdlib.h:78: Warning:
+[e-acsl] FRAMAC_SHARE/libc/stdlib.h:77: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
[e-acsl] translation done in project "e-acsl".
diff --git a/src/plugins/e-acsl/tests/bts/oracle_ci/bts2252.res.oracle b/src/plugins/e-acsl/tests/bts/oracle_ci/bts2252.res.oracle
index c0d14a505d07b9519cd7815386d12346a4c15e42..994e5e176d8b6f2c1d0a276505cc9b85773538e7 100644
--- a/src/plugins/e-acsl/tests/bts/oracle_ci/bts2252.res.oracle
+++ b/src/plugins/e-acsl/tests/bts/oracle_ci/bts2252.res.oracle
@@ -4,19 +4,30 @@
if there are memory-related annotations.
[e-acsl] FRAMAC_SHARE/libc/string.h:362: Warning:
E-ACSL construct `\separated' is not yet supported. Ignoring annotation.
+[e-acsl] FRAMAC_SHARE/libc/string.h:372: Warning:
+ E-ACSL construct `logic functions performing read accesses'
+ is not yet supported.
+ Ignoring annotation.
+[e-acsl] FRAMAC_SHARE/libc/string.h:375: Warning:
+ E-ACSL construct `logic functions performing read accesses'
+ is not yet supported.
+ Ignoring annotation.
[e-acsl] FRAMAC_SHARE/libc/string.h:363: Warning:
E-ACSL construct `logic functions with labels' is not yet supported.
Ignoring annotation.
[e-acsl] FRAMAC_SHARE/libc/string.h:366: Warning:
E-ACSL construct `\separated' is not yet supported. Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/string.h:372: Warning:
+[e-acsl] FRAMAC_SHARE/libc/string.h:362: Warning:
+ Some assumes clauses couldn't be translated.
+ Ignoring complete and disjoint behaviors annotations.
+[e-acsl] FRAMAC_SHARE/libc/string.h:362: Warning:
+ E-ACSL construct `assigns clause in behavior' is not yet supported.
+ Ignoring annotation.
+[e-acsl] FRAMAC_SHARE/libc/string.h:373: Warning:
E-ACSL construct `logic functions performing read accesses'
is not yet supported.
Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/string.h:372: Warning:
- E-ACSL construct `assigns clause in behavior' is not yet supported.
- Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/string.h:375: Warning:
+[e-acsl] FRAMAC_SHARE/libc/string.h:376: Warning:
E-ACSL construct `logic functions performing read accesses'
is not yet supported.
Ignoring annotation.
diff --git a/src/plugins/e-acsl/tests/bts/oracle_ci/gen_bts1307.c b/src/plugins/e-acsl/tests/bts/oracle_ci/gen_bts1307.c
index 33236edf86c22697136f4cbc4a78fa60a60cecac..803635b65a0f4926d91013284a3f86351cf24aa9 100644
--- a/src/plugins/e-acsl/tests/bts/oracle_ci/gen_bts1307.c
+++ b/src/plugins/e-acsl/tests/bts/oracle_ci/gen_bts1307.c
@@ -96,6 +96,7 @@ void __gen_e_acsl_bar(float *Mtmin_in, float *Mwmin, float *Mtmin_out)
float *__gen_e_acsl_at_3;
float *__gen_e_acsl_at_2;
float *__gen_e_acsl_at;
+ __e_acsl_contract_t *__gen_e_acsl_contract;
{
int __gen_e_acsl_valid;
int __gen_e_acsl_valid_2;
@@ -103,6 +104,8 @@ void __gen_e_acsl_bar(float *Mtmin_in, float *Mwmin, float *Mtmin_out)
__e_acsl_store_block((void *)(& Mtmin_out),(size_t)8);
__e_acsl_store_block((void *)(& Mwmin),(size_t)8);
__e_acsl_store_block((void *)(& Mtmin_in),(size_t)8);
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)1);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)0,1);
__gen_e_acsl_valid = __e_acsl_valid((void *)Mtmin_in,sizeof(float),
(void *)Mtmin_in,
(void *)(& Mtmin_in));
@@ -126,87 +129,93 @@ void __gen_e_acsl_bar(float *Mtmin_in, float *Mwmin, float *Mtmin_out)
__gen_e_acsl_at = Mtmin_out;
bar(Mtmin_in,Mwmin,Mtmin_out);
{
- int __gen_e_acsl_valid_read;
- int __gen_e_acsl_valid_read_2;
- int __gen_e_acsl_and;
- int __gen_e_acsl_if;
- __gen_e_acsl_valid_read = __e_acsl_valid_read((void *)__gen_e_acsl_at_2,
- sizeof(float),
- (void *)__gen_e_acsl_at_2,
- (void *)(& __gen_e_acsl_at_2));
- __e_acsl_assert(__gen_e_acsl_valid_read,"RTE","bar",
- "mem_access: \\valid_read(__gen_e_acsl_at_2)",
- "tests/bts/bts1307.i",26);
- __gen_e_acsl_valid_read_2 = __e_acsl_valid_read((void *)__gen_e_acsl_at,
+ int __gen_e_acsl_assumes_value;
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value) {
+ int __gen_e_acsl_valid_read;
+ int __gen_e_acsl_valid_read_2;
+ int __gen_e_acsl_and;
+ int __gen_e_acsl_if;
+ __gen_e_acsl_valid_read = __e_acsl_valid_read((void *)__gen_e_acsl_at_2,
sizeof(float),
- (void *)__gen_e_acsl_at,
- (void *)(& __gen_e_acsl_at));
- __e_acsl_assert(__gen_e_acsl_valid_read_2,"RTE","bar",
- "mem_access: \\valid_read(__gen_e_acsl_at)",
- "tests/bts/bts1307.i",26);
- if (*__gen_e_acsl_at == *__gen_e_acsl_at_2) {
- __e_acsl_mpq_t __gen_e_acsl_;
- __e_acsl_mpq_t __gen_e_acsl__2;
- __e_acsl_mpq_t __gen_e_acsl_mul;
- __e_acsl_mpq_t __gen_e_acsl__3;
- int __gen_e_acsl_lt;
- __gmpq_init(__gen_e_acsl_);
- __gmpq_set_str(__gen_e_acsl_,"085/100",10);
- __gmpq_init(__gen_e_acsl__2);
- __gmpq_set_d(__gen_e_acsl__2,(double)*__gen_e_acsl_at_4);
- __gmpq_init(__gen_e_acsl_mul);
- __gmpq_mul(__gen_e_acsl_mul,
- (__e_acsl_mpq_struct const *)(__gen_e_acsl_),
- (__e_acsl_mpq_struct const *)(__gen_e_acsl__2));
- __gmpq_init(__gen_e_acsl__3);
- __gmpq_set_d(__gen_e_acsl__3,(double)*__gen_e_acsl_at_3);
- __gen_e_acsl_lt = __gmpq_cmp((__e_acsl_mpq_struct const *)(__gen_e_acsl__3),
- (__e_acsl_mpq_struct const *)(__gen_e_acsl_mul));
- __gen_e_acsl_and = __gen_e_acsl_lt < 0;
- __gmpq_clear(__gen_e_acsl_);
- __gmpq_clear(__gen_e_acsl__2);
- __gmpq_clear(__gen_e_acsl_mul);
- __gmpq_clear(__gen_e_acsl__3);
- }
- else __gen_e_acsl_and = 0;
- if (__gen_e_acsl_and) {
- int __gen_e_acsl_valid_read_3;
- __gen_e_acsl_valid_read_3 = __e_acsl_valid_read((void *)__gen_e_acsl_at_5,
+ (void *)__gen_e_acsl_at_2,
+ (void *)(& __gen_e_acsl_at_2));
+ __e_acsl_assert(__gen_e_acsl_valid_read,"RTE","bar",
+ "mem_access: \\valid_read(__gen_e_acsl_at_2)",
+ "tests/bts/bts1307.i",26);
+ __gen_e_acsl_valid_read_2 = __e_acsl_valid_read((void *)__gen_e_acsl_at,
sizeof(float),
- (void *)__gen_e_acsl_at_5,
- (void *)(& __gen_e_acsl_at_5));
- __e_acsl_assert(__gen_e_acsl_valid_read_3,"RTE","bar",
- "mem_access: \\valid_read(__gen_e_acsl_at_5)",
+ (void *)__gen_e_acsl_at,
+ (void *)(& __gen_e_acsl_at));
+ __e_acsl_assert(__gen_e_acsl_valid_read_2,"RTE","bar",
+ "mem_access: \\valid_read(__gen_e_acsl_at)",
+ "tests/bts/bts1307.i",26);
+ if (*__gen_e_acsl_at == *__gen_e_acsl_at_2) {
+ __e_acsl_mpq_t __gen_e_acsl_;
+ __e_acsl_mpq_t __gen_e_acsl__2;
+ __e_acsl_mpq_t __gen_e_acsl_mul;
+ __e_acsl_mpq_t __gen_e_acsl__3;
+ int __gen_e_acsl_lt;
+ __gmpq_init(__gen_e_acsl_);
+ __gmpq_set_str(__gen_e_acsl_,"085/100",10);
+ __gmpq_init(__gen_e_acsl__2);
+ __gmpq_set_d(__gen_e_acsl__2,(double)*__gen_e_acsl_at_4);
+ __gmpq_init(__gen_e_acsl_mul);
+ __gmpq_mul(__gen_e_acsl_mul,
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl_),
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl__2));
+ __gmpq_init(__gen_e_acsl__3);
+ __gmpq_set_d(__gen_e_acsl__3,(double)*__gen_e_acsl_at_3);
+ __gen_e_acsl_lt = __gmpq_cmp((__e_acsl_mpq_struct const *)(__gen_e_acsl__3),
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl_mul));
+ __gen_e_acsl_and = __gen_e_acsl_lt < 0;
+ __gmpq_clear(__gen_e_acsl_);
+ __gmpq_clear(__gen_e_acsl__2);
+ __gmpq_clear(__gen_e_acsl_mul);
+ __gmpq_clear(__gen_e_acsl__3);
+ }
+ else __gen_e_acsl_and = 0;
+ if (__gen_e_acsl_and) {
+ int __gen_e_acsl_valid_read_3;
+ __gen_e_acsl_valid_read_3 = __e_acsl_valid_read((void *)__gen_e_acsl_at_5,
+ sizeof(float),
+ (void *)__gen_e_acsl_at_5,
+ (void *)(& __gen_e_acsl_at_5));
+ __e_acsl_assert(__gen_e_acsl_valid_read_3,"RTE","bar",
+ "mem_access: \\valid_read(__gen_e_acsl_at_5)",
+ "tests/bts/bts1307.i",26);
+ __gen_e_acsl_if = (double)*__gen_e_acsl_at_5 != 0.;
+ }
+ else {
+ __e_acsl_mpq_t __gen_e_acsl__4;
+ __e_acsl_mpq_t __gen_e_acsl__5;
+ __e_acsl_mpq_t __gen_e_acsl_mul_2;
+ __e_acsl_mpq_t __gen_e_acsl__6;
+ int __gen_e_acsl_ne;
+ __gmpq_init(__gen_e_acsl__4);
+ __gmpq_set_str(__gen_e_acsl__4,"085/100",10);
+ __gmpq_init(__gen_e_acsl__5);
+ __gmpq_set_d(__gen_e_acsl__5,(double)*__gen_e_acsl_at_6);
+ __gmpq_init(__gen_e_acsl_mul_2);
+ __gmpq_mul(__gen_e_acsl_mul_2,
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl__4),
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl__5));
+ __gmpq_init(__gen_e_acsl__6);
+ __gmpq_set_d(__gen_e_acsl__6,0.);
+ __gen_e_acsl_ne = __gmpq_cmp((__e_acsl_mpq_struct const *)(__gen_e_acsl_mul_2),
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl__6));
+ __gen_e_acsl_if = __gen_e_acsl_ne != 0;
+ __gmpq_clear(__gen_e_acsl__4);
+ __gmpq_clear(__gen_e_acsl__5);
+ __gmpq_clear(__gen_e_acsl_mul_2);
+ __gmpq_clear(__gen_e_acsl__6);
+ }
+ __e_acsl_assert(__gen_e_acsl_if,"Postcondition","bar",
+ "UnderEstimate_Motoring:\n *\\old(Mtmin_out) == *\\old(Mtmin_in) < 0.85 * *\\old(Mwmin)?\n *\\old(Mtmin_in) != 0.:\n 0.85 * *\\old(Mwmin) != 0.",
"tests/bts/bts1307.i",26);
- __gen_e_acsl_if = (double)*__gen_e_acsl_at_5 != 0.;
- }
- else {
- __e_acsl_mpq_t __gen_e_acsl__4;
- __e_acsl_mpq_t __gen_e_acsl__5;
- __e_acsl_mpq_t __gen_e_acsl_mul_2;
- __e_acsl_mpq_t __gen_e_acsl__6;
- int __gen_e_acsl_ne;
- __gmpq_init(__gen_e_acsl__4);
- __gmpq_set_str(__gen_e_acsl__4,"085/100",10);
- __gmpq_init(__gen_e_acsl__5);
- __gmpq_set_d(__gen_e_acsl__5,(double)*__gen_e_acsl_at_6);
- __gmpq_init(__gen_e_acsl_mul_2);
- __gmpq_mul(__gen_e_acsl_mul_2,
- (__e_acsl_mpq_struct const *)(__gen_e_acsl__4),
- (__e_acsl_mpq_struct const *)(__gen_e_acsl__5));
- __gmpq_init(__gen_e_acsl__6);
- __gmpq_set_d(__gen_e_acsl__6,0.);
- __gen_e_acsl_ne = __gmpq_cmp((__e_acsl_mpq_struct const *)(__gen_e_acsl_mul_2),
- (__e_acsl_mpq_struct const *)(__gen_e_acsl__6));
- __gen_e_acsl_if = __gen_e_acsl_ne != 0;
- __gmpq_clear(__gen_e_acsl__4);
- __gmpq_clear(__gen_e_acsl__5);
- __gmpq_clear(__gen_e_acsl_mul_2);
- __gmpq_clear(__gen_e_acsl__6);
}
- __e_acsl_assert(__gen_e_acsl_if,"Postcondition","bar",
- "*\\old(Mtmin_out) == *\\old(Mtmin_in) < 0.85 * *\\old(Mwmin)?\n *\\old(Mtmin_in) != 0.:\n 0.85 * *\\old(Mwmin) != 0.",
- "tests/bts/bts1307.i",26);
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
__e_acsl_delete_block((void *)(& Mtmin_out));
__e_acsl_delete_block((void *)(& Mwmin));
__e_acsl_delete_block((void *)(& Mtmin_in));
@@ -229,6 +238,7 @@ void __gen_e_acsl_foo(float *Mtmax_in, float *Mwmax, float *Mtmax_out)
float *__gen_e_acsl_at_3;
float *__gen_e_acsl_at_2;
float *__gen_e_acsl_at;
+ __e_acsl_contract_t *__gen_e_acsl_contract;
{
int __gen_e_acsl_valid;
int __gen_e_acsl_valid_2;
@@ -236,6 +246,8 @@ void __gen_e_acsl_foo(float *Mtmax_in, float *Mwmax, float *Mtmax_out)
__e_acsl_store_block((void *)(& Mtmax_out),(size_t)8);
__e_acsl_store_block((void *)(& Mwmax),(size_t)8);
__e_acsl_store_block((void *)(& Mtmax_in),(size_t)8);
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)1);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)0,1);
__gen_e_acsl_valid = __e_acsl_valid((void *)Mtmax_in,sizeof(float),
(void *)Mtmax_in,
(void *)(& Mtmax_in));
@@ -256,72 +268,79 @@ void __gen_e_acsl_foo(float *Mtmax_in, float *Mwmax, float *Mtmax_out)
__gen_e_acsl_at = Mtmax_out;
foo(Mtmax_in,Mwmax,Mtmax_out);
{
- __e_acsl_mpq_t __gen_e_acsl_;
- __e_acsl_mpq_t __gen_e_acsl__2;
- __e_acsl_mpq_t __gen_e_acsl__3;
- __e_acsl_mpq_t __gen_e_acsl_div;
- __e_acsl_mpq_t __gen_e_acsl__4;
- __e_acsl_mpq_t __gen_e_acsl_mul;
- __e_acsl_mpq_t __gen_e_acsl__5;
- __e_acsl_mpq_t __gen_e_acsl_mul_2;
- __e_acsl_mpq_t __gen_e_acsl_sub;
- __e_acsl_mpq_t __gen_e_acsl__6;
- __e_acsl_mpq_t __gen_e_acsl_add;
- __e_acsl_mpq_t __gen_e_acsl__7;
- int __gen_e_acsl_ne;
- __gmpq_init(__gen_e_acsl_);
- __gmpq_set_str(__gen_e_acsl_,"5",10);
- __gmpq_init(__gen_e_acsl__2);
- __gmpq_set_si(__gen_e_acsl__2,5L,1UL);
- __gmpq_init(__gen_e_acsl__3);
- __gmpq_set_si(__gen_e_acsl__3,80L,1UL);
- __gmpq_init(__gen_e_acsl_div);
- __gmpq_div(__gen_e_acsl_div,
- (__e_acsl_mpq_struct const *)(__gen_e_acsl__2),
- (__e_acsl_mpq_struct const *)(__gen_e_acsl__3));
- __gmpq_init(__gen_e_acsl__4);
- __gmpq_set_d(__gen_e_acsl__4,(double)*__gen_e_acsl_at_3);
- __gmpq_init(__gen_e_acsl_mul);
- __gmpq_mul(__gen_e_acsl_mul,
- (__e_acsl_mpq_struct const *)(__gen_e_acsl_div),
- (__e_acsl_mpq_struct const *)(__gen_e_acsl__4));
- __gmpq_init(__gen_e_acsl__5);
- __gmpq_set_str(__gen_e_acsl__5,"04/10",10);
- __gmpq_init(__gen_e_acsl_mul_2);
- __gmpq_mul(__gen_e_acsl_mul_2,
- (__e_acsl_mpq_struct const *)(__gen_e_acsl_mul),
- (__e_acsl_mpq_struct const *)(__gen_e_acsl__5));
- __gmpq_init(__gen_e_acsl_sub);
- __gmpq_sub(__gen_e_acsl_sub,(__e_acsl_mpq_struct const *)(__gen_e_acsl_),
- (__e_acsl_mpq_struct const *)(__gen_e_acsl_mul_2));
- __gmpq_init(__gen_e_acsl__6);
- __gmpq_set_d(__gen_e_acsl__6,(double)*__gen_e_acsl_at_2);
- __gmpq_init(__gen_e_acsl_add);
- __gmpq_add(__gen_e_acsl_add,
- (__e_acsl_mpq_struct const *)(__gen_e_acsl__6),
- (__e_acsl_mpq_struct const *)(__gen_e_acsl_sub));
- __gmpq_init(__gen_e_acsl__7);
- __gmpq_set_d(__gen_e_acsl__7,(double)*__gen_e_acsl_at);
- __gen_e_acsl_ne = __gmpq_cmp((__e_acsl_mpq_struct const *)(__gen_e_acsl__7),
- (__e_acsl_mpq_struct const *)(__gen_e_acsl_add));
- __e_acsl_assert(__gen_e_acsl_ne != 0,"Postcondition","foo",
- "*\\old(Mtmax_out) != *\\old(Mtmax_in) + (5 - ((5 / 80) * *\\old(Mwmax)) * 0.4)",
- "tests/bts/bts1307.i",11);
+ int __gen_e_acsl_assumes_value;
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value) {
+ __e_acsl_mpq_t __gen_e_acsl_;
+ __e_acsl_mpq_t __gen_e_acsl__2;
+ __e_acsl_mpq_t __gen_e_acsl__3;
+ __e_acsl_mpq_t __gen_e_acsl_div;
+ __e_acsl_mpq_t __gen_e_acsl__4;
+ __e_acsl_mpq_t __gen_e_acsl_mul;
+ __e_acsl_mpq_t __gen_e_acsl__5;
+ __e_acsl_mpq_t __gen_e_acsl_mul_2;
+ __e_acsl_mpq_t __gen_e_acsl_sub;
+ __e_acsl_mpq_t __gen_e_acsl__6;
+ __e_acsl_mpq_t __gen_e_acsl_add;
+ __e_acsl_mpq_t __gen_e_acsl__7;
+ int __gen_e_acsl_ne;
+ __gmpq_init(__gen_e_acsl_);
+ __gmpq_set_str(__gen_e_acsl_,"5",10);
+ __gmpq_init(__gen_e_acsl__2);
+ __gmpq_set_si(__gen_e_acsl__2,5L,1UL);
+ __gmpq_init(__gen_e_acsl__3);
+ __gmpq_set_si(__gen_e_acsl__3,80L,1UL);
+ __gmpq_init(__gen_e_acsl_div);
+ __gmpq_div(__gen_e_acsl_div,
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl__2),
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl__3));
+ __gmpq_init(__gen_e_acsl__4);
+ __gmpq_set_d(__gen_e_acsl__4,(double)*__gen_e_acsl_at_3);
+ __gmpq_init(__gen_e_acsl_mul);
+ __gmpq_mul(__gen_e_acsl_mul,
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl_div),
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl__4));
+ __gmpq_init(__gen_e_acsl__5);
+ __gmpq_set_str(__gen_e_acsl__5,"04/10",10);
+ __gmpq_init(__gen_e_acsl_mul_2);
+ __gmpq_mul(__gen_e_acsl_mul_2,
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl_mul),
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl__5));
+ __gmpq_init(__gen_e_acsl_sub);
+ __gmpq_sub(__gen_e_acsl_sub,
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl_),
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl_mul_2));
+ __gmpq_init(__gen_e_acsl__6);
+ __gmpq_set_d(__gen_e_acsl__6,(double)*__gen_e_acsl_at_2);
+ __gmpq_init(__gen_e_acsl_add);
+ __gmpq_add(__gen_e_acsl_add,
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl__6),
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl_sub));
+ __gmpq_init(__gen_e_acsl__7);
+ __gmpq_set_d(__gen_e_acsl__7,(double)*__gen_e_acsl_at);
+ __gen_e_acsl_ne = __gmpq_cmp((__e_acsl_mpq_struct const *)(__gen_e_acsl__7),
+ (__e_acsl_mpq_struct const *)(__gen_e_acsl_add));
+ __e_acsl_assert(__gen_e_acsl_ne != 0,"Postcondition","foo",
+ "OverEstimate_Motoring:\n *\\old(Mtmax_out) != *\\old(Mtmax_in) + (5 - ((5 / 80) * *\\old(Mwmax)) * 0.4)",
+ "tests/bts/bts1307.i",11);
+ __gmpq_clear(__gen_e_acsl_);
+ __gmpq_clear(__gen_e_acsl__2);
+ __gmpq_clear(__gen_e_acsl__3);
+ __gmpq_clear(__gen_e_acsl_div);
+ __gmpq_clear(__gen_e_acsl__4);
+ __gmpq_clear(__gen_e_acsl_mul);
+ __gmpq_clear(__gen_e_acsl__5);
+ __gmpq_clear(__gen_e_acsl_mul_2);
+ __gmpq_clear(__gen_e_acsl_sub);
+ __gmpq_clear(__gen_e_acsl__6);
+ __gmpq_clear(__gen_e_acsl_add);
+ __gmpq_clear(__gen_e_acsl__7);
+ }
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
__e_acsl_delete_block((void *)(& Mtmax_out));
__e_acsl_delete_block((void *)(& Mwmax));
__e_acsl_delete_block((void *)(& Mtmax_in));
- __gmpq_clear(__gen_e_acsl_);
- __gmpq_clear(__gen_e_acsl__2);
- __gmpq_clear(__gen_e_acsl__3);
- __gmpq_clear(__gen_e_acsl_div);
- __gmpq_clear(__gen_e_acsl__4);
- __gmpq_clear(__gen_e_acsl_mul);
- __gmpq_clear(__gen_e_acsl__5);
- __gmpq_clear(__gen_e_acsl_mul_2);
- __gmpq_clear(__gen_e_acsl_sub);
- __gmpq_clear(__gen_e_acsl__6);
- __gmpq_clear(__gen_e_acsl_add);
- __gmpq_clear(__gen_e_acsl__7);
return;
}
}
diff --git a/src/plugins/e-acsl/tests/bts/oracle_ci/gen_bts1324.c b/src/plugins/e-acsl/tests/bts/oracle_ci/gen_bts1324.c
index a0a428c6ea0988debf0aad02354d54c2e9f1bab4..5e4a49720f5feeb37d719e78341692224a12d81f 100644
--- a/src/plugins/e-acsl/tests/bts/oracle_ci/gen_bts1324.c
+++ b/src/plugins/e-acsl/tests/bts/oracle_ci/gen_bts1324.c
@@ -52,12 +52,13 @@ int main(void)
*/
int __gen_e_acsl_sorted(int *t, int n)
{
- int __gen_e_acsl_at;
+ __e_acsl_contract_t *__gen_e_acsl_contract;
int __retres;
- __e_acsl_store_block((void *)(& t),(size_t)8);
{
int __gen_e_acsl_forall;
int __gen_e_acsl_i;
+ __e_acsl_store_block((void *)(& t),(size_t)8);
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)1);
__gen_e_acsl_forall = 1;
__gen_e_acsl_i = 0 + 1;
while (1) {
@@ -88,16 +89,19 @@ int __gen_e_acsl_sorted(int *t, int n)
__gen_e_acsl_i ++;
}
e_acsl_end_loop1: ;
- __gen_e_acsl_at = __gen_e_acsl_forall;
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)0,
+ __gen_e_acsl_forall);
}
__retres = sorted(t,n);
{
- int __gen_e_acsl_implies;
- if (! __gen_e_acsl_at) __gen_e_acsl_implies = 1;
- else __gen_e_acsl_implies = __retres == 1;
- __e_acsl_assert(__gen_e_acsl_implies,"Postcondition","sorted",
- "\\old(\\forall int i; 0 < i < n ==> *(t + (i - 1)) <= *(t + i)) ==>\n\\result == 1",
- "tests/bts/bts1324.i",7);
+ int __gen_e_acsl_assumes_value;
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(__retres == 1,
+ "Postcondition","sorted",
+ "yes: \\result == 1",
+ "tests/bts/bts1324.i",7);
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
__e_acsl_delete_block((void *)(& t));
return __retres;
}
diff --git a/src/plugins/e-acsl/tests/bts/oracle_ci/gen_bts1390.c b/src/plugins/e-acsl/tests/bts/oracle_ci/gen_bts1390.c
index 058f7b605d8f8d53d6ce9381ff5d84428bc63a14..c771114ecdc191d1419d51435dab70942430b47f 100644
--- a/src/plugins/e-acsl/tests/bts/oracle_ci/gen_bts1390.c
+++ b/src/plugins/e-acsl/tests/bts/oracle_ci/gen_bts1390.c
@@ -30,7 +30,6 @@ void *memchr(void const *buf, int c, size_t n)
__e_acsl_full_init((void *)(& s));
i = 0;
while ((size_t)i < n) {
- /*@ assert Eva: mem_access: \valid_read(s); */
if ((int)*s == c) {
__e_acsl_full_init((void *)(& __retres));
__retres = (void *)s;
@@ -64,46 +63,18 @@ void *memchr(void const *buf, int c, size_t n)
*/
void *__gen_e_acsl_memchr(void const *buf, int c, size_t n)
{
- int __gen_e_acsl_at_4;
- int __gen_e_acsl_at_3;
- void const *__gen_e_acsl_at_2;
- int __gen_e_acsl_at;
+ int __gen_e_acsl_at_2;
+ void const *__gen_e_acsl_at;
+ __e_acsl_contract_t *__gen_e_acsl_contract;
void *__retres;
__e_acsl_store_block((void *)(& __retres),(size_t)8);
- __e_acsl_store_block((void *)(& buf),(size_t)8);
- {
- int __gen_e_acsl_forall_2;
- unsigned int __gen_e_acsl_k;
- __gen_e_acsl_forall_2 = 1;
- __gen_e_acsl_k = 0U;
- while (1) {
- if (__gen_e_acsl_k < (unsigned int)((int)((unsigned int)n))) ;
- else break;
- {
- int __gen_e_acsl_valid_read_3;
- __gen_e_acsl_valid_read_3 = __e_acsl_valid_read((void *)((char *)buf + __gen_e_acsl_k),
- sizeof(char),
- (void *)buf,
- (void *)(& buf));
- __e_acsl_assert(__gen_e_acsl_valid_read_3,"RTE","memchr",
- "mem_access: \\valid_read((char *)buf + __gen_e_acsl_k)",
- "tests/bts/bts1390.c",11);
- if ((int)*((char *)buf + __gen_e_acsl_k) != c) ;
- else {
- __gen_e_acsl_forall_2 = 0;
- goto e_acsl_end_loop3;
- }
- }
- __gen_e_acsl_k ++;
- }
- e_acsl_end_loop3: ;
- __gen_e_acsl_at_4 = __gen_e_acsl_forall_2;
- }
- __gen_e_acsl_at_3 = c;
- __gen_e_acsl_at_2 = buf;
{
int __gen_e_acsl_exists;
unsigned int __gen_e_acsl_i;
+ int __gen_e_acsl_forall;
+ unsigned int __gen_e_acsl_k;
+ __e_acsl_store_block((void *)(& buf),(size_t)8);
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)2);
__gen_e_acsl_exists = 0;
__gen_e_acsl_i = 0U;
while (1) {
@@ -127,17 +98,45 @@ void *__gen_e_acsl_memchr(void const *buf, int c, size_t n)
__gen_e_acsl_i ++;
}
e_acsl_end_loop1: ;
- __gen_e_acsl_at = __gen_e_acsl_exists;
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)0,
+ __gen_e_acsl_exists);
+ __gen_e_acsl_forall = 1;
+ __gen_e_acsl_k = 0U;
+ while (1) {
+ if (__gen_e_acsl_k < (unsigned int)((int)((unsigned int)n))) ;
+ else break;
+ {
+ int __gen_e_acsl_valid_read_2;
+ __gen_e_acsl_valid_read_2 = __e_acsl_valid_read((void *)((char *)buf + __gen_e_acsl_k),
+ sizeof(char),
+ (void *)buf,
+ (void *)(& buf));
+ __e_acsl_assert(__gen_e_acsl_valid_read_2,"RTE","memchr",
+ "mem_access: \\valid_read((char *)buf + __gen_e_acsl_k)",
+ "tests/bts/bts1390.c",11);
+ if ((int)*((char *)buf + __gen_e_acsl_k) != c) ;
+ else {
+ __gen_e_acsl_forall = 0;
+ goto e_acsl_end_loop2;
+ }
+ }
+ __gen_e_acsl_k ++;
+ }
+ e_acsl_end_loop2: ;
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)1,
+ __gen_e_acsl_forall);
}
+ __gen_e_acsl_at_2 = c;
+ __gen_e_acsl_at = buf;
__retres = memchr(buf,c,n);
{
- int __gen_e_acsl_implies;
- int __gen_e_acsl_implies_2;
- if (! __gen_e_acsl_at) __gen_e_acsl_implies = 1;
- else {
- int __gen_e_acsl_forall;
+ int __gen_e_acsl_assumes_value;
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value) {
+ int __gen_e_acsl_forall_2;
unsigned int __gen_e_acsl_j;
- __gen_e_acsl_forall = 1;
+ __gen_e_acsl_forall_2 = 1;
__gen_e_acsl_j = 0;
while (1) {
{
@@ -148,34 +147,35 @@ void *__gen_e_acsl_memchr(void const *buf, int c, size_t n)
else break;
}
{
- int __gen_e_acsl_valid_read_2;
- __gen_e_acsl_valid_read_2 = __e_acsl_valid_read((void *)((char *)__gen_e_acsl_at_2 + __gen_e_acsl_j),
+ int __gen_e_acsl_valid_read_3;
+ __gen_e_acsl_valid_read_3 = __e_acsl_valid_read((void *)((char *)__gen_e_acsl_at + __gen_e_acsl_j),
sizeof(char),
- (void *)__gen_e_acsl_at_2,
- (void *)(& __gen_e_acsl_at_2));
- __e_acsl_assert(__gen_e_acsl_valid_read_2,"RTE","memchr",
- "mem_access: \\valid_read((char *)__gen_e_acsl_at_2 + __gen_e_acsl_j)",
+ (void *)__gen_e_acsl_at,
+ (void *)(& __gen_e_acsl_at));
+ __e_acsl_assert(__gen_e_acsl_valid_read_3,"RTE","memchr",
+ "mem_access: \\valid_read((char *)__gen_e_acsl_at + __gen_e_acsl_j)",
"tests/bts/bts1390.c",9);
- if ((int)*((char *)__gen_e_acsl_at_2 + __gen_e_acsl_j) != __gen_e_acsl_at_3)
+ if ((int)*((char *)__gen_e_acsl_at + __gen_e_acsl_j) != __gen_e_acsl_at_2)
;
else {
- __gen_e_acsl_forall = 0;
- goto e_acsl_end_loop2;
+ __gen_e_acsl_forall_2 = 0;
+ goto e_acsl_end_loop3;
}
}
__gen_e_acsl_j ++;
}
- e_acsl_end_loop2: ;
- __gen_e_acsl_implies = __gen_e_acsl_forall;
+ e_acsl_end_loop3: ;
+ __e_acsl_assert(__gen_e_acsl_forall_2,"Postcondition","memchr",
+ "exists:\n \\forall int j;\n 0 <= j < (int)\\offset((char *)\\result) ==>\n (int)*((char *)\\old(buf) + j) != \\old(c)",
+ "tests/bts/bts1390.c",9);
}
- __e_acsl_assert(__gen_e_acsl_implies,"Postcondition","memchr",
- "\\old(\\exists integer i; 0 <= i < (int)n && (int)*((char *)buf + i) == c) ==>\n(\\forall int j;\n 0 <= j < (int)\\offset((char *)\\result) ==>\n (int)*((char *)\\old(buf) + j) != \\old(c))",
- "tests/bts/bts1390.c",9);
- if (! __gen_e_acsl_at_4) __gen_e_acsl_implies_2 = 1;
- else __gen_e_acsl_implies_2 = __retres == (void *)0;
- __e_acsl_assert(__gen_e_acsl_implies_2,"Postcondition","memchr",
- "\\old(\\forall integer k; 0 <= k < (int)n ==> (int)*((char *)buf + k) != c) ==>\n\\result == (void *)0",
- "tests/bts/bts1390.c",12);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(__retres == (void *)0,
+ "Postcondition","memchr",
+ "not_exists: \\result == (void *)0",
+ "tests/bts/bts1390.c",12);
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
__e_acsl_delete_block((void *)(& buf));
__e_acsl_delete_block((void *)(& __retres));
return __retres;
diff --git a/src/plugins/e-acsl/tests/bts/oracle_ci/gen_bts2252.c b/src/plugins/e-acsl/tests/bts/oracle_ci/gen_bts2252.c
index bbf7b668bdeb592b79c4c964bcaffffc11ab6bcd..58c0df1de84e4233601befe38ea728af74dfe708 100644
--- a/src/plugins/e-acsl/tests/bts/oracle_ci/gen_bts2252.c
+++ b/src/plugins/e-acsl/tests/bts/oracle_ci/gen_bts2252.c
@@ -53,6 +53,7 @@ char *__gen_e_acsl_strncpy(char * __restrict dest,
__e_acsl_mpz_t __gen_e_acsl_at_3;
char *__gen_e_acsl_at_2;
char *__gen_e_acsl_at;
+ __e_acsl_contract_t *__gen_e_acsl_contract;
char *__retres;
{
__e_acsl_mpz_t __gen_e_acsl_n;
@@ -64,6 +65,7 @@ char *__gen_e_acsl_strncpy(char * __restrict dest,
unsigned long __gen_e_acsl__3;
int __gen_e_acsl_valid;
__e_acsl_store_block((void *)(& dest),(size_t)8);
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)2);
__gmpz_init_set_ui(__gen_e_acsl_n,n);
__gmpz_init_set_si(__gen_e_acsl_,1L);
__gmpz_init(__gen_e_acsl_sub);
@@ -135,6 +137,7 @@ char *__gen_e_acsl_strncpy(char * __restrict dest,
__e_acsl_assert(__gen_e_acsl_initialized,"Postcondition","strncpy",
"\\initialized(\\old(dest) + (0 .. \\old(n) - 1))",
"FRAMAC_SHARE/libc/string.h",370);
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
__e_acsl_delete_block((void *)(& dest));
__gmpz_clear(__gen_e_acsl__4);
__gmpz_clear(__gen_e_acsl_sub_3);
diff --git a/src/plugins/e-acsl/tests/constructs/function_contract.i b/src/plugins/e-acsl/tests/constructs/function_contract.i
index 90eca5e7829d3e1e7911aca5d02d25ff4b61a872..512c41f6474f048d0bf26e64360764d289df8b21 100644
--- a/src/plugins/e-acsl/tests/constructs/function_contract.i
+++ b/src/plugins/e-acsl/tests/constructs/function_contract.i
@@ -45,9 +45,9 @@ void k(void) { X += Y; }
// mix ensures + contract on return
/*@ ensures X == 5; */
-int l() {
+int l() {
/*@ assert Y == 2; */
- return X;
+ return X;
}
// mix ensures and assumes
@@ -72,6 +72,40 @@ void m(void) { X += Y; }
@ ensures X == 98; */
void n(void) { X ++; }
+// several complete and disjoint clauses
+/*@
+ requires X > -1000;
+ ensures X == \old(Y);
+
+ behavior neg:
+ assumes Y < 0;
+ requires Y < 1;
+ ensures X == \old(Y);
+
+ behavior pos:
+ assumes Y >= 0;
+ requires Y > -1;
+ ensures X == \old(Y);
+
+ behavior odd:
+ assumes Y % 2 == 1;
+ requires (Y % 2) - 1 == 0;
+ ensures X == \old(Y);
+
+ behavior even:
+ assumes Y % 2 == 0;
+ requires (Y % 2) + 1 == 1;
+ ensures X == \old(Y);
+
+ complete behaviors neg, pos;
+ complete behaviors odd, even;
+ complete behaviors;
+
+ disjoint behaviors neg, pos;
+ disjoint behaviors odd, even;
+*/
+void o(void) { X = Y; }
+
int main(void) {
f();
g();
@@ -82,5 +116,6 @@ int main(void) {
l();
m();
n();
+ o();
return 0;
}
diff --git a/src/plugins/e-acsl/tests/constructs/oracle_ci/gen_function_contract.c b/src/plugins/e-acsl/tests/constructs/oracle_ci/gen_function_contract.c
index c1d683e5f6d17e3e7acd9762ac651218ce782be7..6a00983f31056b0fcd24ff0e3cfd5c23ef11b549 100644
--- a/src/plugins/e-acsl/tests/constructs/oracle_ci/gen_function_contract.c
+++ b/src/plugins/e-acsl/tests/constructs/oracle_ci/gen_function_contract.c
@@ -126,6 +126,43 @@ void n(void)
return;
}
+/*@ requires X > -1000;
+ ensures X ≡ \old(Y);
+
+ behavior neg:
+ assumes Y < 0;
+ requires Y < 1;
+ ensures X ≡ \old(Y);
+
+ behavior pos:
+ assumes Y ≥ 0;
+ requires Y > -1;
+ ensures X ≡ \old(Y);
+
+ behavior odd:
+ assumes Y % 2 ≡ 1;
+ requires Y % 2 - 1 ≡ 0;
+ ensures X ≡ \old(Y);
+
+ behavior even:
+ assumes Y % 2 ≡ 0;
+ requires Y % 2 + 1 ≡ 1;
+ ensures X ≡ \old(Y);
+
+ complete behaviors even, odd, pos, neg;
+ complete behaviors odd, even;
+ complete behaviors neg, pos;
+ disjoint behaviors odd, even;
+ disjoint behaviors neg, pos;
+ */
+void __gen_e_acsl_o(void);
+
+void o(void)
+{
+ X = Y;
+ return;
+}
+
int main(void)
{
int __retres;
@@ -138,10 +175,157 @@ int main(void)
__gen_e_acsl_l();
__gen_e_acsl_m();
__gen_e_acsl_n();
+ __gen_e_acsl_o();
__retres = 0;
return __retres;
}
+/*@ requires X > -1000;
+ ensures X ≡ \old(Y);
+
+ behavior neg:
+ assumes Y < 0;
+ requires Y < 1;
+ ensures X ≡ \old(Y);
+
+ behavior pos:
+ assumes Y ≥ 0;
+ requires Y > -1;
+ ensures X ≡ \old(Y);
+
+ behavior odd:
+ assumes Y % 2 ≡ 1;
+ requires Y % 2 - 1 ≡ 0;
+ ensures X ≡ \old(Y);
+
+ behavior even:
+ assumes Y % 2 ≡ 0;
+ requires Y % 2 + 1 ≡ 1;
+ ensures X ≡ \old(Y);
+
+ complete behaviors even, odd, pos, neg;
+ complete behaviors odd, even;
+ complete behaviors neg, pos;
+ disjoint behaviors odd, even;
+ disjoint behaviors neg, pos;
+ */
+void __gen_e_acsl_o(void)
+{
+ int __gen_e_acsl_at_5;
+ int __gen_e_acsl_at_4;
+ int __gen_e_acsl_at_3;
+ int __gen_e_acsl_at_2;
+ int __gen_e_acsl_at;
+ __e_acsl_contract_t *__gen_e_acsl_contract;
+ {
+ int __gen_e_acsl_assumes_value;
+ int __gen_e_acsl_active_bhvrs;
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)4);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)0,
+ Y < 0);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)1,
+ Y >= 0);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)2,
+ Y % 2 == 1);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)3,
+ Y % 2 == 0);
+ __e_acsl_assert(X > -1000,"Precondition","o","X > -1000",
+ "tests/constructs/function_contract.i",77);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(Y < 1,"Precondition","o",
+ "neg: Y < 1",
+ "tests/constructs/function_contract.i",
+ 82);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(Y > -1,"Precondition",
+ "o","pos: Y > -1",
+ "tests/constructs/function_contract.i",
+ 87);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)2);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(Y % 2 - 1 == 0,
+ "Precondition","o",
+ "odd: Y % 2 - 1 == 0",
+ "tests/constructs/function_contract.i",
+ 92);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)3);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(Y % 2 + 1 == 1,
+ "Precondition","o",
+ "even: Y % 2 + 1 == 1",
+ "tests/constructs/function_contract.i",
+ 97);
+ __gen_e_acsl_active_bhvrs = __e_acsl_contract_partial_count_behaviors
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)2,1,0);
+ if (__gen_e_acsl_active_bhvrs != 1) {
+ __e_acsl_assert(__gen_e_acsl_active_bhvrs >= 1,"Precondition","o",
+ "complete behaviors pos, neg",
+ "tests/constructs/function_contract.i",107);
+ __e_acsl_assert(__gen_e_acsl_active_bhvrs <= 1,"Precondition","o",
+ "disjoint behaviors pos, neg",
+ "tests/constructs/function_contract.i",107);
+ }
+ __gen_e_acsl_active_bhvrs = __e_acsl_contract_partial_count_behaviors
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)2,2,3);
+ if (__gen_e_acsl_active_bhvrs != 1) {
+ __e_acsl_assert(__gen_e_acsl_active_bhvrs >= 1,"Precondition","o",
+ "complete behaviors odd, even",
+ "tests/constructs/function_contract.i",107);
+ __e_acsl_assert(__gen_e_acsl_active_bhvrs <= 1,"Precondition","o",
+ "disjoint behaviors odd, even",
+ "tests/constructs/function_contract.i",107);
+ }
+ __gen_e_acsl_active_bhvrs = __e_acsl_contract_partial_count_all_behaviors
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract);
+ __e_acsl_assert(__gen_e_acsl_active_bhvrs >= 1,"Precondition","o",
+ "all behaviors complete",
+ "tests/constructs/function_contract.i",107);
+ }
+ __gen_e_acsl_at_5 = Y;
+ __gen_e_acsl_at_4 = Y;
+ __gen_e_acsl_at_3 = Y;
+ __gen_e_acsl_at_2 = Y;
+ __gen_e_acsl_at = Y;
+ o();
+ {
+ int __gen_e_acsl_assumes_value_2;
+ __e_acsl_assert(X == __gen_e_acsl_at,"Postcondition","o","X == \\old(Y)",
+ "tests/constructs/function_contract.i",78);
+ __gen_e_acsl_assumes_value_2 = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value_2) __e_acsl_assert(X == __gen_e_acsl_at_2,
+ "Postcondition","o",
+ "neg: X == \\old(Y)",
+ "tests/constructs/function_contract.i",
+ 83);
+ __gen_e_acsl_assumes_value_2 = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value_2) __e_acsl_assert(X == __gen_e_acsl_at_3,
+ "Postcondition","o",
+ "pos: X == \\old(Y)",
+ "tests/constructs/function_contract.i",
+ 88);
+ __gen_e_acsl_assumes_value_2 = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)2);
+ if (__gen_e_acsl_assumes_value_2) __e_acsl_assert(X == __gen_e_acsl_at_4,
+ "Postcondition","o",
+ "odd: X == \\old(Y)",
+ "tests/constructs/function_contract.i",
+ 93);
+ __gen_e_acsl_assumes_value_2 = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)3);
+ if (__gen_e_acsl_assumes_value_2) __e_acsl_assert(X == __gen_e_acsl_at_5,
+ "Postcondition","o",
+ "even: X == \\old(Y)",
+ "tests/constructs/function_contract.i",
+ 98);
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
+ return;
+ }
+}
+
/*@ requires X > 0;
requires X < 10;
@@ -155,28 +339,32 @@ int main(void)
*/
void __gen_e_acsl_n(void)
{
- int __gen_e_acsl_at_2;
- int __gen_e_acsl_at;
+ __e_acsl_contract_t *__gen_e_acsl_contract;
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)2);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)0,
+ X == 7);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)1,
+ X == 5);
__e_acsl_assert(X > 0,"Precondition","n","X > 0",
"tests/constructs/function_contract.i",65);
__e_acsl_assert(X < 10,"Precondition","n","X < 10",
"tests/constructs/function_contract.i",66);
- __gen_e_acsl_at_2 = X == 5;
- __gen_e_acsl_at = X == 7;
n();
{
- int __gen_e_acsl_implies;
- int __gen_e_acsl_implies_2;
- if (! __gen_e_acsl_at) __gen_e_acsl_implies = 1;
- else __gen_e_acsl_implies = X == 8;
- __e_acsl_assert(__gen_e_acsl_implies,"Postcondition","n",
- "\\old(X == 7) ==> X == 8",
- "tests/constructs/function_contract.i",69);
- if (! __gen_e_acsl_at_2) __gen_e_acsl_implies_2 = 1;
- else __gen_e_acsl_implies_2 = X == 98;
- __e_acsl_assert(__gen_e_acsl_implies_2,"Postcondition","n",
- "\\old(X == 5) ==> X == 98",
- "tests/constructs/function_contract.i",72);
+ int __gen_e_acsl_assumes_value;
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(X == 8,"Postcondition",
+ "n","b1: X == 8",
+ "tests/constructs/function_contract.i",
+ 69);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(X == 98,"Postcondition",
+ "n","b2: X == 98",
+ "tests/constructs/function_contract.i",
+ 72);
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
return;
}
}
@@ -193,42 +381,37 @@ void __gen_e_acsl_n(void)
*/
void __gen_e_acsl_m(void)
{
- long __gen_e_acsl_at_4;
- int __gen_e_acsl_at_3;
- int __gen_e_acsl_at_2;
- int __gen_e_acsl_at;
- __gen_e_acsl_at_4 = (long)X;
- {
- int __gen_e_acsl_and_2;
- if (X == 5) __gen_e_acsl_and_2 = Y == 2; else __gen_e_acsl_and_2 = 0;
- __gen_e_acsl_at_3 = __gen_e_acsl_and_2;
- }
+ long __gen_e_acsl_at;
+ __e_acsl_contract_t *__gen_e_acsl_contract;
{
int __gen_e_acsl_and;
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)2);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)0,
+ X == 7);
if (X == 5) __gen_e_acsl_and = Y == 2; else __gen_e_acsl_and = 0;
- __gen_e_acsl_at_2 = __gen_e_acsl_and;
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)1,
+ __gen_e_acsl_and);
}
- __gen_e_acsl_at = X == 7;
+ __gen_e_acsl_at = (long)X;
m();
{
- int __gen_e_acsl_implies;
- int __gen_e_acsl_implies_2;
- int __gen_e_acsl_implies_3;
- if (! __gen_e_acsl_at) __gen_e_acsl_implies = 1;
- else __gen_e_acsl_implies = X == 95;
- __e_acsl_assert(__gen_e_acsl_implies,"Postcondition","m",
- "\\old(X == 7) ==> X == 95",
- "tests/constructs/function_contract.i",56);
- if (! __gen_e_acsl_at_2) __gen_e_acsl_implies_2 = 1;
- else __gen_e_acsl_implies_2 = X == 7;
- __e_acsl_assert(__gen_e_acsl_implies_2,"Postcondition","m",
- "\\old(X == 5 && Y == 2) ==> X == 7",
- "tests/constructs/function_contract.i",60);
- if (! __gen_e_acsl_at_3) __gen_e_acsl_implies_3 = 1;
- else __gen_e_acsl_implies_3 = (long)X == __gen_e_acsl_at_4 + Y;
- __e_acsl_assert(__gen_e_acsl_implies_3,"Postcondition","m",
- "\\old(X == 5 && Y == 2) ==> X == \\old(X) + Y",
- "tests/constructs/function_contract.i",61);
+ int __gen_e_acsl_assumes_value;
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(X == 95,"Postcondition",
+ "m","b1: X == 95",
+ "tests/constructs/function_contract.i",
+ 56);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value) {
+ __e_acsl_assert((long)X == __gen_e_acsl_at + Y,"Postcondition","m",
+ "b2: X == \\old(X) + Y",
+ "tests/constructs/function_contract.i",61);
+ __e_acsl_assert(X == 7,"Postcondition","m","b2: X == 7",
+ "tests/constructs/function_contract.i",60);
+ }
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
return;
}
}
@@ -255,31 +438,33 @@ int __gen_e_acsl_l(void)
*/
void __gen_e_acsl_k(void)
{
+ __e_acsl_contract_t *__gen_e_acsl_contract;
{
- int __gen_e_acsl_implies;
int __gen_e_acsl_and;
- int __gen_e_acsl_implies_2;
- int __gen_e_acsl_and_2;
- int __gen_e_acsl_implies_3;
- if (! (X == 1)) __gen_e_acsl_implies = 1;
- else __gen_e_acsl_implies = X == 0;
- __e_acsl_assert(__gen_e_acsl_implies,"Precondition","k",
- "X == 1 ==> X == 0",
- "tests/constructs/function_contract.i",38);
+ int __gen_e_acsl_assumes_value;
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)2);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)0,
+ X == 1);
if (X == 3) __gen_e_acsl_and = Y == 2; else __gen_e_acsl_and = 0;
- if (! __gen_e_acsl_and) __gen_e_acsl_implies_2 = 1;
- else __gen_e_acsl_implies_2 = X == 3;
- __e_acsl_assert(__gen_e_acsl_implies_2,"Precondition","k",
- "X == 3 && Y == 2 ==> X == 3",
- "tests/constructs/function_contract.i",42);
- if (X == 3) __gen_e_acsl_and_2 = Y == 2; else __gen_e_acsl_and_2 = 0;
- if (! __gen_e_acsl_and_2) __gen_e_acsl_implies_3 = 1;
- else __gen_e_acsl_implies_3 = X + (long)Y == 5L;
- __e_acsl_assert(__gen_e_acsl_implies_3,"Precondition","k",
- "X == 3 && Y == 2 ==> X + Y == 5",
- "tests/constructs/function_contract.i",43);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)1,
+ __gen_e_acsl_and);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(X == 0,"Precondition",
+ "k","b1: X == 0",
+ "tests/constructs/function_contract.i",
+ 38);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value) {
+ __e_acsl_assert(X + (long)Y == 5L,"Precondition","k","b2: X + Y == 5",
+ "tests/constructs/function_contract.i",43);
+ __e_acsl_assert(X == 3,"Precondition","k","b2: X == 3",
+ "tests/constructs/function_contract.i",42);
+ }
}
k();
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
return;
}
@@ -294,18 +479,46 @@ void __gen_e_acsl_k(void)
*/
void __gen_e_acsl_j(void)
{
- __e_acsl_assert(X == 5,"Precondition","j","X == 5",
- "tests/constructs/function_contract.i",27);
- __e_acsl_assert((long)X == 3L + Y,"Precondition","j","X == 3 + Y",
- "tests/constructs/function_contract.i",30);
- __e_acsl_assert(Y == 2,"Precondition","j","Y == 2",
- "tests/constructs/function_contract.i",31);
+ __e_acsl_contract_t *__gen_e_acsl_contract;
+ {
+ int __gen_e_acsl_assumes_value;
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)2);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)0,1);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)1,1);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(X == 5,"Precondition",
+ "j","b1: X == 5",
+ "tests/constructs/function_contract.i",
+ 27);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value) {
+ __e_acsl_assert(Y == 2,"Precondition","j","b2: Y == 2",
+ "tests/constructs/function_contract.i",31);
+ __e_acsl_assert((long)X == 3L + Y,"Precondition","j","b2: X == 3 + Y",
+ "tests/constructs/function_contract.i",30);
+ }
+ }
j();
- __e_acsl_assert(X == 3,"Postcondition","j","X == 3",
- "tests/constructs/function_contract.i",28);
- __e_acsl_assert((long)X == Y + 1L,"Postcondition","j","X == Y + 1",
- "tests/constructs/function_contract.i",32);
- return;
+ {
+ int __gen_e_acsl_assumes_value_2;
+ __gen_e_acsl_assumes_value_2 = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value_2) __e_acsl_assert(X == 3,"Postcondition",
+ "j","b1: X == 3",
+ "tests/constructs/function_contract.i",
+ 28);
+ __gen_e_acsl_assumes_value_2 = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value_2) __e_acsl_assert((long)X == Y + 1L,
+ "Postcondition","j",
+ "b2: X == Y + 1",
+ "tests/constructs/function_contract.i",
+ 32);
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
+ return;
+ }
}
/*@ requires X ≡ 3;
diff --git a/src/plugins/e-acsl/tests/constructs/oracle_ci/gen_stmt_contract.c b/src/plugins/e-acsl/tests/constructs/oracle_ci/gen_stmt_contract.c
index e088e9e145e72e17c2e2febe71f962453dfbf2e0..af5ff59ccca7697363bb104e4ea13add52b0d793 100644
--- a/src/plugins/e-acsl/tests/constructs/oracle_ci/gen_stmt_contract.c
+++ b/src/plugins/e-acsl/tests/constructs/oracle_ci/gen_stmt_contract.c
@@ -3,7 +3,11 @@
#include "stdio.h"
int main(void)
{
+ __e_acsl_contract_t *__gen_e_acsl_contract_3;
+ __e_acsl_contract_t *__gen_e_acsl_contract_2;
+ __e_acsl_contract_t *__gen_e_acsl_contract;
int __retres;
+ int z;
int x = 0;
int y = 2;
/*@ ensures x ≡ 1; */
@@ -35,49 +39,79 @@ int main(void)
/*@ requires x ≡ 3;
requires y ≡ 2; */
x += y;
- __e_acsl_assert(x == 5,"Precondition","main","x == 5",
- "tests/constructs/stmt_contract.i",25);
- __e_acsl_assert((long)x == 3L + y,"Precondition","main","x == 3 + y",
- "tests/constructs/stmt_contract.i",28);
- __e_acsl_assert(y == 2,"Precondition","main","y == 2",
- "tests/constructs/stmt_contract.i",29);
- /*@ behavior b1:
- requires x ≡ 5;
- ensures x ≡ 3;
-
- behavior b2:
- requires x ≡ 3 + y;
- requires y ≡ 2;
- ensures x ≡ y + 1;
- */
- x = 3;
- __e_acsl_assert(x == 3,"Postcondition","main","x == 3",
- "tests/constructs/stmt_contract.i",26);
- __e_acsl_assert((long)x == y + 1L,"Postcondition","main","x == y + 1",
- "tests/constructs/stmt_contract.i",30);
{
- int __gen_e_acsl_implies;
+ int __gen_e_acsl_assumes_value_2;
+ {
+ int __gen_e_acsl_assumes_value;
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)2);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)0,
+ 1);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)1,
+ 1);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(x == 5,"Precondition",
+ "main","b1: x == 5",
+ "tests/constructs/stmt_contract.i",
+ 25);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value) {
+ __e_acsl_assert(y == 2,"Precondition","main","b2: y == 2",
+ "tests/constructs/stmt_contract.i",29);
+ __e_acsl_assert((long)x == 3L + y,"Precondition","main",
+ "b2: x == 3 + y","tests/constructs/stmt_contract.i",
+ 28);
+ }
+ }
+ /*@ behavior b1:
+ requires x ≡ 5;
+ ensures x ≡ 3;
+
+ behavior b2:
+ requires x ≡ 3 + y;
+ requires y ≡ 2;
+ ensures x ≡ y + 1;
+ */
+ x = 3;
+ __gen_e_acsl_assumes_value_2 = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value_2) __e_acsl_assert(x == 3,"Postcondition",
+ "main","b1: x == 3",
+ "tests/constructs/stmt_contract.i",
+ 26);
+ __gen_e_acsl_assumes_value_2 = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value_2) __e_acsl_assert((long)x == y + 1L,
+ "Postcondition","main",
+ "b2: x == y + 1",
+ "tests/constructs/stmt_contract.i",
+ 30);
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
+ }
+ {
int __gen_e_acsl_and_2;
- int __gen_e_acsl_implies_2;
- int __gen_e_acsl_and_3;
- int __gen_e_acsl_implies_3;
- if (! (x == 1)) __gen_e_acsl_implies = 1;
- else __gen_e_acsl_implies = x == 0;
- __e_acsl_assert(__gen_e_acsl_implies,"Precondition","main",
- "x == 1 ==> x == 0","tests/constructs/stmt_contract.i",
- 35);
+ int __gen_e_acsl_assumes_value_3;
+ __gen_e_acsl_contract_2 = __e_acsl_contract_init((size_t)2);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract_2,(size_t)0,
+ x == 1);
if (x == 3) __gen_e_acsl_and_2 = y == 2; else __gen_e_acsl_and_2 = 0;
- if (! __gen_e_acsl_and_2) __gen_e_acsl_implies_2 = 1;
- else __gen_e_acsl_implies_2 = x == 3;
- __e_acsl_assert(__gen_e_acsl_implies_2,"Precondition","main",
- "x == 3 && y == 2 ==> x == 3",
- "tests/constructs/stmt_contract.i",39);
- if (x == 3) __gen_e_acsl_and_3 = y == 2; else __gen_e_acsl_and_3 = 0;
- if (! __gen_e_acsl_and_3) __gen_e_acsl_implies_3 = 1;
- else __gen_e_acsl_implies_3 = x + (long)y == 5L;
- __e_acsl_assert(__gen_e_acsl_implies_3,"Precondition","main",
- "x == 3 && y == 2 ==> x + y == 5",
- "tests/constructs/stmt_contract.i",40);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract_2,(size_t)1,
+ __gen_e_acsl_and_2);
+ __gen_e_acsl_assumes_value_3 = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract_2,(size_t)0);
+ if (__gen_e_acsl_assumes_value_3) __e_acsl_assert(x == 0,"Precondition",
+ "main","b1: x == 0",
+ "tests/constructs/stmt_contract.i",
+ 35);
+ __gen_e_acsl_assumes_value_3 = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract_2,(size_t)1);
+ if (__gen_e_acsl_assumes_value_3) {
+ __e_acsl_assert(x + (long)y == 5L,"Precondition","main",
+ "b2: x + y == 5","tests/constructs/stmt_contract.i",40);
+ __e_acsl_assert(x == 3,"Precondition","main","b2: x == 3",
+ "tests/constructs/stmt_contract.i",39);
+ }
}
/*@ behavior b1:
assumes x ≡ 1;
@@ -90,6 +124,7 @@ int main(void)
requires x + y ≡ 5;
*/
x += y;
+ __e_acsl_contract_clean(__gen_e_acsl_contract_2);
__e_acsl_assert(x == 5,"Precondition","main","x == 5",
"tests/constructs/stmt_contract.i",43);
/*@ requires x ≡ 5; */
@@ -99,8 +134,63 @@ int main(void)
/*@ requires y ≡ 2; */
x += y;
}
+ {
+ int __gen_e_acsl_assumes_value_4;
+ {
+ int __gen_e_acsl_active_bhvrs;
+ __gen_e_acsl_contract_3 = __e_acsl_contract_init((size_t)2);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract_3,
+ (size_t)0,x >= 0);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract_3,
+ (size_t)1,x < 0);
+ __e_acsl_assert(x > -1000,"Precondition","main","x > -1000",
+ "tests/constructs/stmt_contract.i",49);
+ __gen_e_acsl_active_bhvrs = __e_acsl_contract_partial_count_all_behaviors
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract_3);
+ if (__gen_e_acsl_active_bhvrs != 1) {
+ __e_acsl_assert(__gen_e_acsl_active_bhvrs >= 1,"Precondition","main",
+ "all behaviors complete",
+ "tests/constructs/stmt_contract.i",64);
+ __e_acsl_assert(__gen_e_acsl_active_bhvrs <= 1,"Precondition","main",
+ "all behaviors disjoint",
+ "tests/constructs/stmt_contract.i",64);
+ }
+ }
+ /*@ requires x > -1000;
+ ensures z ≥ 0;
+ assigns x;
+
+ behavior pos:
+ assumes x ≥ 0;
+ ensures z ≡ x;
+
+ behavior neg:
+ assumes x < 0;
+ ensures z ≡ -x;
+
+ complete behaviors neg, pos;
+ disjoint behaviors neg, pos;
+ */
+ if (x < 0) z = - x; else z = x;
+ __e_acsl_assert(z >= 0,"Postcondition","main","z >= 0",
+ "tests/constructs/stmt_contract.i",51);
+ __gen_e_acsl_assumes_value_4 = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract_3,(size_t)0);
+ if (__gen_e_acsl_assumes_value_4) __e_acsl_assert(z == x,"Postcondition",
+ "main","pos: z == x",
+ "tests/constructs/stmt_contract.i",
+ 55);
+ __gen_e_acsl_assumes_value_4 = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract_3,(size_t)1);
+ if (__gen_e_acsl_assumes_value_4) __e_acsl_assert((long)z == - ((long)x),
+ "Postcondition","main",
+ "neg: z == -x",
+ "tests/constructs/stmt_contract.i",
+ 59);
+ __e_acsl_contract_clean(__gen_e_acsl_contract_3);
+ }
__e_acsl_assert(x == 7,"Precondition","main","x == 7",
- "tests/constructs/stmt_contract.i",47);
+ "tests/constructs/stmt_contract.i",70);
/*@ requires x ≡ 7;
ensures x ≡ 7; */
{
@@ -108,7 +198,7 @@ int main(void)
goto return_label;
}
__e_acsl_assert(x == 7,"Postcondition","main","x == 7",
- "tests/constructs/stmt_contract.i",48);
+ "tests/constructs/stmt_contract.i",71);
return_label: return __retres;
}
diff --git a/src/plugins/e-acsl/tests/constructs/oracle_ci/stmt_contract.res.oracle b/src/plugins/e-acsl/tests/constructs/oracle_ci/stmt_contract.res.oracle
index efd026311297e55d8fefb674326118e6ece88624..b1c4f6eb72229f64ba5bf67742a6f9968e207c4c 100644
--- a/src/plugins/e-acsl/tests/constructs/oracle_ci/stmt_contract.res.oracle
+++ b/src/plugins/e-acsl/tests/constructs/oracle_ci/stmt_contract.res.oracle
@@ -1,2 +1,5 @@
[e-acsl] beginning translation.
+[e-acsl] tests/constructs/stmt_contract.i:64: Warning:
+ E-ACSL construct `assigns clause in behavior' is not yet supported.
+ Ignoring annotation.
[e-acsl] translation done in project "e-acsl".
diff --git a/src/plugins/e-acsl/tests/constructs/stmt_contract.i b/src/plugins/e-acsl/tests/constructs/stmt_contract.i
index 3d105913dedf80485537533a730982636ee6ac4b..a8d4595526c599e502c9aa55f92111d6b38b2e31 100644
--- a/src/plugins/e-acsl/tests/constructs/stmt_contract.i
+++ b/src/plugins/e-acsl/tests/constructs/stmt_contract.i
@@ -3,7 +3,7 @@
*/
int main(void) {
- int x = 0, y = 2;
+ int x = 0, y = 2, z;
// one ensures
/*@ ensures x == 1; */
x = 1;
@@ -21,9 +21,9 @@ int main(void) {
@ requires y == 2; */
x = x + y;
// several behaviors
- /*@ behavior b1:
+ /*@ behavior b1:
@ requires x == 5;
- @ ensures x == 3;
+ @ ensures x == 3;
@ behavior b2:
@ requires x == 3+y;
@ requires y == 2;
@@ -32,7 +32,7 @@ int main(void) {
// mix requires and assumes
/*@ behavior b1:
@ assumes x == 1;
- @ requires x == 0;
+ @ requires x == 0;
@ behavior b2:
@ assumes x == 3;
@ assumes y == 2;
@@ -44,7 +44,30 @@ int main(void) {
/*@ requires y == 2; */
x = x + y;
- /*@ requires x == 7;
+ // complete and disjoint behaviors
+ /*@
+ requires x > -1000;
+ assigns x;
+ ensures z >= 0;
+
+ behavior pos:
+ assumes x >= 0;
+ ensures z == x;
+
+ behavior neg:
+ assumes x < 0;
+ ensures z == -x;
+
+ complete behaviors;
+ disjoint behaviors;
+ */
+ if (x < 0) {
+ z = -x;
+ } else {
+ z = x;
+ }
+
+ /*@ requires x == 7;
@ ensures x == 7; */
return 0;
}
diff --git a/src/plugins/e-acsl/tests/examples/oracle_ci/gen_linear_search.c b/src/plugins/e-acsl/tests/examples/oracle_ci/gen_linear_search.c
index 7e89333ec36d22ebdedfa96617458c5ea8bc0cd1..421fdfe0f58470d21711a0f432e2e77add1b2f4e 100644
--- a/src/plugins/e-acsl/tests/examples/oracle_ci/gen_linear_search.c
+++ b/src/plugins/e-acsl/tests/examples/oracle_ci/gen_linear_search.c
@@ -133,44 +133,37 @@ int main(void)
*/
int __gen_e_acsl_search(int elt)
{
- int __gen_e_acsl_at_2;
- int __gen_e_acsl_at;
+ __e_acsl_contract_t *__gen_e_acsl_contract;
int __retres;
{
+ int __gen_e_acsl_exists;
+ int __gen_e_acsl_j;
int __gen_e_acsl_forall;
+ int __gen_e_acsl_j_2;
+ int __gen_e_acsl_forall_2;
int __gen_e_acsl_i;
- __gen_e_acsl_forall = 1;
- __gen_e_acsl_i = 0;
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)2);
+ __gen_e_acsl_exists = 0;
+ __gen_e_acsl_j = 0;
while (1) {
- if (__gen_e_acsl_i < 9) ; else break;
- __e_acsl_assert((int)(__gen_e_acsl_i + 1L) < 10,"RTE","search",
- "index_bound: (int)(__gen_e_acsl_i + 1) < 10",
- "tests/examples/linear_search.i",7);
- __e_acsl_assert(0 <= (int)(__gen_e_acsl_i + 1L),"RTE","search",
- "index_bound: 0 <= (int)(__gen_e_acsl_i + 1)",
- "tests/examples/linear_search.i",7);
- __e_acsl_assert(__gen_e_acsl_i < 10,"RTE","search",
- "index_bound: __gen_e_acsl_i < 10",
- "tests/examples/linear_search.i",7);
- __e_acsl_assert(0 <= __gen_e_acsl_i,"RTE","search",
- "index_bound: 0 <= __gen_e_acsl_i",
- "tests/examples/linear_search.i",7);
- if (A[__gen_e_acsl_i] <= A[__gen_e_acsl_i + 1]) ;
+ if (__gen_e_acsl_j < 10) ; else break;
+ __e_acsl_assert(__gen_e_acsl_j < 10,"RTE","search",
+ "index_bound: __gen_e_acsl_j < 10",
+ "tests/examples/linear_search.i",9);
+ __e_acsl_assert(0 <= __gen_e_acsl_j,"RTE","search",
+ "index_bound: 0 <= __gen_e_acsl_j",
+ "tests/examples/linear_search.i",9);
+ if (! (A[__gen_e_acsl_j] == elt)) ;
else {
- __gen_e_acsl_forall = 0;
+ __gen_e_acsl_exists = 1;
goto e_acsl_end_loop3;
}
- __gen_e_acsl_i ++;
+ __gen_e_acsl_j ++;
}
e_acsl_end_loop3: ;
- __e_acsl_assert(__gen_e_acsl_forall,"Precondition","search",
- "\\forall integer i; 0 <= i < 9 ==> A[i] <= A[i + 1]",
- "tests/examples/linear_search.i",7);
- }
- {
- int __gen_e_acsl_forall_2;
- int __gen_e_acsl_j_2;
- __gen_e_acsl_forall_2 = 1;
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)0,
+ __gen_e_acsl_exists);
+ __gen_e_acsl_forall = 1;
__gen_e_acsl_j_2 = 0;
while (1) {
if (__gen_e_acsl_j_2 < 10) ; else break;
@@ -182,51 +175,60 @@ int __gen_e_acsl_search(int elt)
"tests/examples/linear_search.i",12);
if (A[__gen_e_acsl_j_2] != elt) ;
else {
- __gen_e_acsl_forall_2 = 0;
- goto e_acsl_end_loop5;
+ __gen_e_acsl_forall = 0;
+ goto e_acsl_end_loop4;
}
__gen_e_acsl_j_2 ++;
}
- e_acsl_end_loop5: ;
- __gen_e_acsl_at_2 = __gen_e_acsl_forall_2;
- }
- {
- int __gen_e_acsl_exists;
- int __gen_e_acsl_j;
- __gen_e_acsl_exists = 0;
- __gen_e_acsl_j = 0;
+ e_acsl_end_loop4: ;
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)1,
+ __gen_e_acsl_forall);
+ __gen_e_acsl_forall_2 = 1;
+ __gen_e_acsl_i = 0;
while (1) {
- if (__gen_e_acsl_j < 10) ; else break;
- __e_acsl_assert(__gen_e_acsl_j < 10,"RTE","search",
- "index_bound: __gen_e_acsl_j < 10",
- "tests/examples/linear_search.i",9);
- __e_acsl_assert(0 <= __gen_e_acsl_j,"RTE","search",
- "index_bound: 0 <= __gen_e_acsl_j",
- "tests/examples/linear_search.i",9);
- if (! (A[__gen_e_acsl_j] == elt)) ;
+ if (__gen_e_acsl_i < 9) ; else break;
+ __e_acsl_assert((int)(__gen_e_acsl_i + 1L) < 10,"RTE","search",
+ "index_bound: (int)(__gen_e_acsl_i + 1) < 10",
+ "tests/examples/linear_search.i",7);
+ __e_acsl_assert(0 <= (int)(__gen_e_acsl_i + 1L),"RTE","search",
+ "index_bound: 0 <= (int)(__gen_e_acsl_i + 1)",
+ "tests/examples/linear_search.i",7);
+ __e_acsl_assert(__gen_e_acsl_i < 10,"RTE","search",
+ "index_bound: __gen_e_acsl_i < 10",
+ "tests/examples/linear_search.i",7);
+ __e_acsl_assert(0 <= __gen_e_acsl_i,"RTE","search",
+ "index_bound: 0 <= __gen_e_acsl_i",
+ "tests/examples/linear_search.i",7);
+ if (A[__gen_e_acsl_i] <= A[__gen_e_acsl_i + 1]) ;
else {
- __gen_e_acsl_exists = 1;
- goto e_acsl_end_loop4;
+ __gen_e_acsl_forall_2 = 0;
+ goto e_acsl_end_loop5;
}
- __gen_e_acsl_j ++;
+ __gen_e_acsl_i ++;
}
- e_acsl_end_loop4: ;
- __gen_e_acsl_at = __gen_e_acsl_exists;
+ e_acsl_end_loop5: ;
+ __e_acsl_assert(__gen_e_acsl_forall_2,"Precondition","search",
+ "\\forall integer i; 0 <= i < 9 ==> A[i] <= A[i + 1]",
+ "tests/examples/linear_search.i",7);
}
__retres = search(elt);
{
- int __gen_e_acsl_implies;
- int __gen_e_acsl_implies_2;
- if (! __gen_e_acsl_at) __gen_e_acsl_implies = 1;
- else __gen_e_acsl_implies = __retres == 1;
- __e_acsl_assert(__gen_e_acsl_implies,"Postcondition","search",
- "\\old(\\exists integer j; 0 <= j < 10 && A[j] == elt) ==> \\result == 1",
- "tests/examples/linear_search.i",10);
- if (! __gen_e_acsl_at_2) __gen_e_acsl_implies_2 = 1;
- else __gen_e_acsl_implies_2 = __retres == 0;
- __e_acsl_assert(__gen_e_acsl_implies_2,"Postcondition","search",
- "\\old(\\forall integer j; 0 <= j < 10 ==> A[j] != elt) ==> \\result == 0",
- "tests/examples/linear_search.i",13);
+ int __gen_e_acsl_assumes_value;
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(__retres == 1,
+ "Postcondition","search",
+ "exists: \\result == 1",
+ "tests/examples/linear_search.i",
+ 10);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(__retres == 0,
+ "Postcondition","search",
+ "not_exists: \\result == 0",
+ "tests/examples/linear_search.i",
+ 13);
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
return __retres;
}
}
diff --git a/src/plugins/e-acsl/tests/examples/oracle_ci/linear_search.res.oracle b/src/plugins/e-acsl/tests/examples/oracle_ci/linear_search.res.oracle
index 99a62eef221249385b08dee71e0d519b78fc0716..7440543ece019a5c93a6944f9668cd7afbe7aa64 100644
--- a/src/plugins/e-acsl/tests/examples/oracle_ci/linear_search.res.oracle
+++ b/src/plugins/e-acsl/tests/examples/oracle_ci/linear_search.res.oracle
@@ -2,23 +2,3 @@
[e-acsl] translation done in project "e-acsl".
[eva:alarm] tests/examples/linear_search.i:30: Warning:
function __gen_e_acsl_search: precondition got status unknown.
-[eva:alarm] tests/examples/linear_search.i:7: Warning:
- function __e_acsl_assert: precondition got status unknown.
-[eva:alarm] tests/examples/linear_search.i:18: Warning:
- function __e_acsl_assert: precondition got status unknown.
-[eva:alarm] tests/examples/linear_search.i:18: Warning:
- loop invariant got status unknown.
-[eva:alarm] tests/examples/linear_search.i:10: Warning:
- function __e_acsl_assert: precondition got status unknown.
-[eva:alarm] tests/examples/linear_search.i:13: Warning:
- function __e_acsl_assert: precondition got status unknown.
-[eva:alarm] tests/examples/linear_search.i:10: Warning:
- function __gen_e_acsl_search, behavior exists: postcondition got status unknown. (Behavior may be inactive, no reduction performed.)
-[eva:alarm] tests/examples/linear_search.i:13: Warning:
- function __gen_e_acsl_search, behavior not_exists: postcondition got status unknown. (Behavior may be inactive, no reduction performed.)
-[eva:alarm] tests/examples/linear_search.i:31: Warning:
- function __e_acsl_assert: precondition got status unknown.
-[eva:alarm] tests/examples/linear_search.i:33: Warning:
- function __gen_e_acsl_search: precondition got status unknown.
-[eva:alarm] tests/examples/linear_search.i:34: Warning:
- function __e_acsl_assert: precondition got status unknown.
diff --git a/src/plugins/e-acsl/tests/format/oracle_ci/fprintf.res.oracle b/src/plugins/e-acsl/tests/format/oracle_ci/fprintf.res.oracle
index ff43a1afe080ae9d69fc234a872bed6bf18923b8..161e12fd16ae235aa8141ba0bb62f4d4a33703e0 100644
--- a/src/plugins/e-acsl/tests/format/oracle_ci/fprintf.res.oracle
+++ b/src/plugins/e-acsl/tests/format/oracle_ci/fprintf.res.oracle
@@ -14,29 +14,29 @@
[e-acsl] Warning: annotating undefined function `fork':
the generated program may miss memory instrumentation
if there are memory-related annotations.
-[e-acsl] tests/format/fprintf.c:10: Warning:
+[e-acsl] FRAMAC_SHARE/libc/unistd.h:854: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/sys/wait.h:92: Warning:
+[e-acsl] FRAMAC_SHARE/libc/sys/wait.h:79: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
[e-acsl] FRAMAC_SHARE/libc/sys/wait.h:86: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/stdio.h:120: Warning:
+[e-acsl] FRAMAC_SHARE/libc/stdio.h:118: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/stdio.h:122: Warning:
+[e-acsl] FRAMAC_SHARE/libc/stdio.h:94: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
[e-acsl] FRAMAC_SHARE/libc/stdio.h:97: Warning:
E-ACSL construct `predicate with no definition nor reads clause'
is not yet supported.
Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/stdio.h:97: Warning:
+[e-acsl] FRAMAC_SHARE/libc/stdlib.h:470: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/stdio.h:97: Warning:
+[e-acsl] FRAMAC_SHARE/libc/stdlib.h:472: Warning:
E-ACSL construct `abnormal termination case in behavior'
is not yet supported.
Ignoring annotation.
@@ -47,70 +47,3 @@
function __gen_e_acsl_fork: postcondition 'result_ok_child_or_error' got status unknown.
[kernel:annot:missing-spec] tests/format/fprintf.c:15: Warning:
Neither code nor specification for function __e_acsl_builtin_fprintf, generating default assigns from the prototype
-[eva:alarm] FRAMAC_SHARE/libc/sys/wait.h:86: Warning:
- function __e_acsl_assert: precondition got status unknown.
-[eva:alarm] FRAMAC_SHARE/libc/sys/wait.h:86: Warning:
- function __gen_e_acsl_waitpid: postcondition 'initialization,stat_loc_init_on_success' got status unknown.
-[eva:alarm] tests/format/fprintf.c:15: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status);
-[eva:invalid-assigns] tests/format/fprintf.c:16:
- Completely invalid destination for assigns clause *stream. Ignoring.
-[eva:alarm] tests/format/fprintf.c:16: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_0);
-[eva:alarm] tests/format/fprintf.c:19: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_1);
-[eva:alarm] FRAMAC_SHARE/libc/stdio.h:120: Warning:
- function __e_acsl_assert: precondition got status unknown.
-[eva:alarm] tests/format/fprintf.c:21: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_2);
-[eva:invalid-assigns] tests/format/fprintf.c:22:
- Completely invalid destination for assigns clause *stream. Ignoring.
-[eva:alarm] tests/format/fprintf.c:22: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_3);
-[kernel:annot:missing-spec] tests/format/fprintf.c:27: Warning:
- Neither code nor specification for function __e_acsl_builtin_dprintf, generating default assigns from the prototype
-[eva:alarm] tests/format/fprintf.c:27: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_4);
-[eva:alarm] tests/format/fprintf.c:28: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_5);
-[kernel:annot:missing-spec] tests/format/fprintf.c:34: Warning:
- Neither code nor specification for function __e_acsl_builtin_sprintf, generating default assigns from the prototype
-[eva:alarm] tests/format/fprintf.c:34: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_6);
-[eva:alarm] tests/format/fprintf.c:35: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_7);
-[eva:alarm] tests/format/fprintf.c:36: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_8);
-[eva:invalid-assigns] tests/format/fprintf.c:37:
- Completely invalid destination for assigns clause *(buffer + (0 ..)).
- Ignoring.
-[eva:alarm] tests/format/fprintf.c:37: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_9);
-[eva:invalid-assigns] tests/format/fprintf.c:38:
- Completely invalid destination for assigns clause *(buffer + (0 ..)).
- Ignoring.
-[eva:alarm] tests/format/fprintf.c:38: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_10);
-[kernel:annot:missing-spec] tests/format/fprintf.c:41: Warning:
- Neither code nor specification for function __e_acsl_builtin_snprintf, generating default assigns from the prototype
-[eva:alarm] tests/format/fprintf.c:41: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_11);
-[eva:alarm] tests/format/fprintf.c:42: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_12);
-[eva:invalid-assigns] tests/format/fprintf.c:43:
- Completely invalid destination for assigns clause *(buffer + (0 ..)).
- Ignoring.
-[eva:alarm] tests/format/fprintf.c:43: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_13);
-[eva:alarm] tests/format/fprintf.c:44: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_14);
-[eva:invalid-assigns] tests/format/fprintf.c:45:
- Completely invalid destination for assigns clause *(buffer + (0 ..)).
- Ignoring.
-[eva:alarm] tests/format/fprintf.c:45: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_15);
-[eva:invalid-assigns] tests/format/fprintf.c:46:
- Completely invalid destination for assigns clause *(buffer + (0 ..)).
- Ignoring.
-[eva:alarm] tests/format/fprintf.c:46: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_16);
diff --git a/src/plugins/e-acsl/tests/format/oracle_ci/gen_fprintf.c b/src/plugins/e-acsl/tests/format/oracle_ci/gen_fprintf.c
index 4a64f9d92fb70c755451b60949dcaafcf82036f6..4df6d3c070c6019f667faceb9916a9efb8740000 100644
--- a/src/plugins/e-acsl/tests/format/oracle_ci/gen_fprintf.c
+++ b/src/plugins/e-acsl/tests/format/oracle_ci/gen_fprintf.c
@@ -137,21 +137,27 @@ pid_t __gen_e_acsl_waitpid(pid_t pid, int *stat_loc, int options)
{
int *__gen_e_acsl_at_2;
int *__gen_e_acsl_at;
+ __e_acsl_contract_t *__gen_e_acsl_contract;
pid_t __retres;
{
- int __gen_e_acsl_implies;
+ int __gen_e_acsl_assumes_value;
__e_acsl_store_block((void *)(& stat_loc),(size_t)8);
- if (! (stat_loc != (int *)0)) __gen_e_acsl_implies = 1;
- else {
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)2);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)0,
+ stat_loc == (int *)0);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)1,
+ stat_loc != (int *)0);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value) {
int __gen_e_acsl_valid;
__gen_e_acsl_valid = __e_acsl_valid((void *)stat_loc,sizeof(int),
(void *)stat_loc,
(void *)(& stat_loc));
- __gen_e_acsl_implies = __gen_e_acsl_valid;
+ __e_acsl_assert(__gen_e_acsl_valid,"Precondition","waitpid",
+ "stat_loc_non_null: \\valid(stat_loc)",
+ "FRAMAC_SHARE/libc/sys/wait.h",92);
}
- __e_acsl_assert(__gen_e_acsl_implies,"Precondition","waitpid",
- "stat_loc != \\null ==> \\valid(stat_loc)",
- "FRAMAC_SHARE/libc/sys/wait.h",92);
}
__gen_e_acsl_at_2 = stat_loc;
__gen_e_acsl_at = stat_loc;
@@ -159,7 +165,7 @@ pid_t __gen_e_acsl_waitpid(pid_t pid, int *stat_loc, int options)
{
int __gen_e_acsl_or;
int __gen_e_acsl_and;
- int __gen_e_acsl_implies_2;
+ int __gen_e_acsl_implies;
if (__retres == -1) __gen_e_acsl_or = 1;
else __gen_e_acsl_or = __retres >= 0;
__e_acsl_assert(__gen_e_acsl_or,"Postcondition","waitpid",
@@ -167,16 +173,17 @@ pid_t __gen_e_acsl_waitpid(pid_t pid, int *stat_loc, int options)
"FRAMAC_SHARE/libc/sys/wait.h",84);
if (__retres >= 0) __gen_e_acsl_and = __gen_e_acsl_at != (int *)0;
else __gen_e_acsl_and = 0;
- if (! __gen_e_acsl_and) __gen_e_acsl_implies_2 = 1;
+ if (! __gen_e_acsl_and) __gen_e_acsl_implies = 1;
else {
int __gen_e_acsl_initialized;
__gen_e_acsl_initialized = __e_acsl_initialized((void *)__gen_e_acsl_at_2,
sizeof(int));
- __gen_e_acsl_implies_2 = __gen_e_acsl_initialized;
+ __gen_e_acsl_implies = __gen_e_acsl_initialized;
}
- __e_acsl_assert(__gen_e_acsl_implies_2,"Postcondition","waitpid",
+ __e_acsl_assert(__gen_e_acsl_implies,"Postcondition","waitpid",
"\\result >= 0 && \\old(stat_loc) != \\null ==> \\initialized(\\old(stat_loc))",
"FRAMAC_SHARE/libc/sys/wait.h",86);
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
__e_acsl_delete_block((void *)(& stat_loc));
return __retres;
}
@@ -419,7 +426,6 @@ int main(int argc, char const **argv)
int process_status;
__e_acsl_store_block((void *)(& process_status),(size_t)4);
__gen_e_acsl_waitpid(pid,& process_status,0);
- /*@ assert Eva: initialization: \initialized(&process_status); */
signal_eval(process_status,0,__gen_e_acsl_literal_string_8);
__e_acsl_delete_block((void *)(& process_status));
}
@@ -434,7 +440,6 @@ int main(int argc, char const **argv)
int process_status_0;
__e_acsl_store_block((void *)(& process_status_0),(size_t)4);
__gen_e_acsl_waitpid(pid_0,& process_status_0,0);
- /*@ assert Eva: initialization: \initialized(&process_status_0); */
signal_eval(process_status_0,1,__gen_e_acsl_literal_string_9);
__e_acsl_delete_block((void *)(& process_status_0));
}
@@ -454,7 +459,6 @@ int main(int argc, char const **argv)
int process_status_1;
__e_acsl_store_block((void *)(& process_status_1),(size_t)4);
__gen_e_acsl_waitpid(pid_1,& process_status_1,0);
- /*@ assert Eva: initialization: \initialized(&process_status_1); */
signal_eval(process_status_1,0,__gen_e_acsl_literal_string_12);
__e_acsl_delete_block((void *)(& process_status_1));
}
@@ -471,7 +475,6 @@ int main(int argc, char const **argv)
int process_status_2;
__e_acsl_store_block((void *)(& process_status_2),(size_t)4);
__gen_e_acsl_waitpid(pid_2,& process_status_2,0);
- /*@ assert Eva: initialization: \initialized(&process_status_2); */
signal_eval(process_status_2,1,__gen_e_acsl_literal_string_13);
__e_acsl_delete_block((void *)(& process_status_2));
}
@@ -488,7 +491,6 @@ int main(int argc, char const **argv)
int process_status_3;
__e_acsl_store_block((void *)(& process_status_3),(size_t)4);
__gen_e_acsl_waitpid(pid_3,& process_status_3,0);
- /*@ assert Eva: initialization: \initialized(&process_status_3); */
signal_eval(process_status_3,1,__gen_e_acsl_literal_string_14);
__e_acsl_delete_block((void *)(& process_status_3));
}
@@ -504,7 +506,6 @@ int main(int argc, char const **argv)
int process_status_4;
__e_acsl_store_block((void *)(& process_status_4),(size_t)4);
__gen_e_acsl_waitpid(pid_4,& process_status_4,0);
- /*@ assert Eva: initialization: \initialized(&process_status_4); */
signal_eval(process_status_4,0,__gen_e_acsl_literal_string_15);
__e_acsl_delete_block((void *)(& process_status_4));
}
@@ -519,7 +520,6 @@ int main(int argc, char const **argv)
int process_status_5;
__e_acsl_store_block((void *)(& process_status_5),(size_t)4);
__gen_e_acsl_waitpid(pid_5,& process_status_5,0);
- /*@ assert Eva: initialization: \initialized(&process_status_5); */
signal_eval(process_status_5,1,__gen_e_acsl_literal_string_16);
__e_acsl_delete_block((void *)(& process_status_5));
}
@@ -535,7 +535,6 @@ int main(int argc, char const **argv)
int process_status_6;
__e_acsl_store_block((void *)(& process_status_6),(size_t)4);
__gen_e_acsl_waitpid(pid_6,& process_status_6,0);
- /*@ assert Eva: initialization: \initialized(&process_status_6); */
signal_eval(process_status_6,0,__gen_e_acsl_literal_string_19);
__e_acsl_delete_block((void *)(& process_status_6));
}
@@ -551,7 +550,6 @@ int main(int argc, char const **argv)
int process_status_7;
__e_acsl_store_block((void *)(& process_status_7),(size_t)4);
__gen_e_acsl_waitpid(pid_7,& process_status_7,0);
- /*@ assert Eva: initialization: \initialized(&process_status_7); */
signal_eval(process_status_7,0,__gen_e_acsl_literal_string_21);
__e_acsl_delete_block((void *)(& process_status_7));
}
@@ -567,7 +565,6 @@ int main(int argc, char const **argv)
int process_status_8;
__e_acsl_store_block((void *)(& process_status_8),(size_t)4);
__gen_e_acsl_waitpid(pid_8,& process_status_8,0);
- /*@ assert Eva: initialization: \initialized(&process_status_8); */
signal_eval(process_status_8,1,__gen_e_acsl_literal_string_23);
__e_acsl_delete_block((void *)(& process_status_8));
}
@@ -583,7 +580,6 @@ int main(int argc, char const **argv)
int process_status_9;
__e_acsl_store_block((void *)(& process_status_9),(size_t)4);
__gen_e_acsl_waitpid(pid_9,& process_status_9,0);
- /*@ assert Eva: initialization: \initialized(&process_status_9); */
signal_eval(process_status_9,1,__gen_e_acsl_literal_string_24);
__e_acsl_delete_block((void *)(& process_status_9));
}
@@ -599,7 +595,6 @@ int main(int argc, char const **argv)
int process_status_10;
__e_acsl_store_block((void *)(& process_status_10),(size_t)4);
__gen_e_acsl_waitpid(pid_10,& process_status_10,0);
- /*@ assert Eva: initialization: \initialized(&process_status_10); */
signal_eval(process_status_10,1,__gen_e_acsl_literal_string_25);
__e_acsl_delete_block((void *)(& process_status_10));
}
@@ -616,7 +611,6 @@ int main(int argc, char const **argv)
int process_status_11;
__e_acsl_store_block((void *)(& process_status_11),(size_t)4);
__gen_e_acsl_waitpid(pid_11,& process_status_11,0);
- /*@ assert Eva: initialization: \initialized(&process_status_11); */
signal_eval(process_status_11,0,__gen_e_acsl_literal_string_26);
__e_acsl_delete_block((void *)(& process_status_11));
}
@@ -633,7 +627,6 @@ int main(int argc, char const **argv)
int process_status_12;
__e_acsl_store_block((void *)(& process_status_12),(size_t)4);
__gen_e_acsl_waitpid(pid_12,& process_status_12,0);
- /*@ assert Eva: initialization: \initialized(&process_status_12); */
signal_eval(process_status_12,0,__gen_e_acsl_literal_string_27);
__e_acsl_delete_block((void *)(& process_status_12));
}
@@ -650,7 +643,6 @@ int main(int argc, char const **argv)
int process_status_13;
__e_acsl_store_block((void *)(& process_status_13),(size_t)4);
__gen_e_acsl_waitpid(pid_13,& process_status_13,0);
- /*@ assert Eva: initialization: \initialized(&process_status_13); */
signal_eval(process_status_13,1,__gen_e_acsl_literal_string_28);
__e_acsl_delete_block((void *)(& process_status_13));
}
@@ -667,7 +659,6 @@ int main(int argc, char const **argv)
int process_status_14;
__e_acsl_store_block((void *)(& process_status_14),(size_t)4);
__gen_e_acsl_waitpid(pid_14,& process_status_14,0);
- /*@ assert Eva: initialization: \initialized(&process_status_14); */
signal_eval(process_status_14,1,__gen_e_acsl_literal_string_29);
__e_acsl_delete_block((void *)(& process_status_14));
}
@@ -684,7 +675,6 @@ int main(int argc, char const **argv)
int process_status_15;
__e_acsl_store_block((void *)(& process_status_15),(size_t)4);
__gen_e_acsl_waitpid(pid_15,& process_status_15,0);
- /*@ assert Eva: initialization: \initialized(&process_status_15); */
signal_eval(process_status_15,1,__gen_e_acsl_literal_string_30);
__e_acsl_delete_block((void *)(& process_status_15));
}
@@ -701,7 +691,6 @@ int main(int argc, char const **argv)
int process_status_16;
__e_acsl_store_block((void *)(& process_status_16),(size_t)4);
__gen_e_acsl_waitpid(pid_16,& process_status_16,0);
- /*@ assert Eva: initialization: \initialized(&process_status_16); */
signal_eval(process_status_16,0,__gen_e_acsl_literal_string_31);
__e_acsl_delete_block((void *)(& process_status_16));
}
diff --git a/src/plugins/e-acsl/tests/format/oracle_ci/gen_printf.c b/src/plugins/e-acsl/tests/format/oracle_ci/gen_printf.c
index 74db87f2f2cf38f6ea5fde6db54d0c38cdf73c16..86a8665ee99080f618094bcf2f7a7024b80ca31f 100644
--- a/src/plugins/e-acsl/tests/format/oracle_ci/gen_printf.c
+++ b/src/plugins/e-acsl/tests/format/oracle_ci/gen_printf.c
@@ -552,9 +552,6 @@ void test_specifier_application(char const *allowed, char const *fmt,
int process_status;
__e_acsl_store_block((void *)(& process_status),(size_t)4);
__gen_e_acsl_waitpid(pid,& process_status,0);
- /*@ assert
- Eva: initialization: \initialized(&process_status);
- */
signal_eval(process_status,0,(char const *)at);
__e_acsl_delete_block((void *)(& process_status));
}
@@ -572,9 +569,6 @@ void test_specifier_application(char const *allowed, char const *fmt,
int process_status_0;
__e_acsl_store_block((void *)(& process_status_0),(size_t)4);
__gen_e_acsl_waitpid(pid_0,& process_status_0,0);
- /*@ assert
- Eva: initialization: \initialized(&process_status_0);
- */
signal_eval(process_status_0,1,(char const *)at);
__e_acsl_delete_block((void *)(& process_status_0));
}
@@ -614,21 +608,27 @@ pid_t __gen_e_acsl_waitpid(pid_t pid, int *stat_loc, int options)
{
int *__gen_e_acsl_at_2;
int *__gen_e_acsl_at;
+ __e_acsl_contract_t *__gen_e_acsl_contract;
pid_t __retres;
{
- int __gen_e_acsl_implies;
+ int __gen_e_acsl_assumes_value;
__e_acsl_store_block((void *)(& stat_loc),(size_t)8);
- if (! (stat_loc != (int *)0)) __gen_e_acsl_implies = 1;
- else {
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)2);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)0,
+ stat_loc == (int *)0);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)1,
+ stat_loc != (int *)0);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value) {
int __gen_e_acsl_valid;
__gen_e_acsl_valid = __e_acsl_valid((void *)stat_loc,sizeof(int),
(void *)stat_loc,
(void *)(& stat_loc));
- __gen_e_acsl_implies = __gen_e_acsl_valid;
+ __e_acsl_assert(__gen_e_acsl_valid,"Precondition","waitpid",
+ "stat_loc_non_null: \\valid(stat_loc)",
+ "FRAMAC_SHARE/libc/sys/wait.h",92);
}
- __e_acsl_assert(__gen_e_acsl_implies,"Precondition","waitpid",
- "stat_loc != \\null ==> \\valid(stat_loc)",
- "FRAMAC_SHARE/libc/sys/wait.h",92);
}
__gen_e_acsl_at_2 = stat_loc;
__gen_e_acsl_at = stat_loc;
@@ -636,7 +636,7 @@ pid_t __gen_e_acsl_waitpid(pid_t pid, int *stat_loc, int options)
{
int __gen_e_acsl_or;
int __gen_e_acsl_and;
- int __gen_e_acsl_implies_2;
+ int __gen_e_acsl_implies;
if (__retres == -1) __gen_e_acsl_or = 1;
else __gen_e_acsl_or = __retres >= 0;
__e_acsl_assert(__gen_e_acsl_or,"Postcondition","waitpid",
@@ -644,16 +644,17 @@ pid_t __gen_e_acsl_waitpid(pid_t pid, int *stat_loc, int options)
"FRAMAC_SHARE/libc/sys/wait.h",84);
if (__retres >= 0) __gen_e_acsl_and = __gen_e_acsl_at != (int *)0;
else __gen_e_acsl_and = 0;
- if (! __gen_e_acsl_and) __gen_e_acsl_implies_2 = 1;
+ if (! __gen_e_acsl_and) __gen_e_acsl_implies = 1;
else {
int __gen_e_acsl_initialized;
__gen_e_acsl_initialized = __e_acsl_initialized((void *)__gen_e_acsl_at_2,
sizeof(int));
- __gen_e_acsl_implies_2 = __gen_e_acsl_initialized;
+ __gen_e_acsl_implies = __gen_e_acsl_initialized;
}
- __e_acsl_assert(__gen_e_acsl_implies_2,"Postcondition","waitpid",
+ __e_acsl_assert(__gen_e_acsl_implies,"Postcondition","waitpid",
"\\result >= 0 && \\old(stat_loc) != \\null ==> \\initialized(\\old(stat_loc))",
"FRAMAC_SHARE/libc/sys/wait.h",86);
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
__e_acsl_delete_block((void *)(& stat_loc));
return __retres;
}
@@ -735,25 +736,77 @@ char *__gen_e_acsl_strcpy(char * __restrict dest, char const * __restrict src)
*/
char *__gen_e_acsl_strchr(char const *s, int c)
{
- char const *__gen_e_acsl_at;
+ char const *__gen_e_acsl_at_3;
+ char const *__gen_e_acsl_at_2;
+ int __gen_e_acsl_at;
+ __e_acsl_contract_t *__gen_e_acsl_contract;
char *__retres;
__e_acsl_store_block((void *)(& __retres),(size_t)8);
__e_acsl_store_block((void *)(& s),(size_t)8);
- __gen_e_acsl_at = s;
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)3);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)2,1);
+ __gen_e_acsl_at_3 = s;
+ __gen_e_acsl_at_2 = s;
+ __gen_e_acsl_at = c;
__retres = strchr(s,c);
{
- int __gen_e_acsl_or;
- if (__retres == (char *)0) __gen_e_acsl_or = 1;
- else {
+ int __gen_e_acsl_assumes_value;
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value) {
+ int __gen_e_acsl_initialized;
+ int __gen_e_acsl_and;
void *__gen_e_acsl_base_addr;
void *__gen_e_acsl_base_addr_2;
+ __gen_e_acsl_initialized = __e_acsl_initialized((void *)(& __retres),
+ sizeof(char *));
+ if (__gen_e_acsl_initialized) {
+ int __gen_e_acsl_valid_read;
+ __gen_e_acsl_valid_read = __e_acsl_valid_read((void *)__retres,
+ sizeof(char),
+ (void *)__retres,
+ (void *)(& __retres));
+ __gen_e_acsl_and = __gen_e_acsl_valid_read;
+ }
+ else __gen_e_acsl_and = 0;
+ __e_acsl_assert(__gen_e_acsl_and,"RTE","strchr",
+ "mem_access: \\valid_read(__retres)",
+ "FRAMAC_SHARE/libc/string.h",161);
__gen_e_acsl_base_addr = __e_acsl_base_addr((void *)__retres);
- __gen_e_acsl_base_addr_2 = __e_acsl_base_addr((void *)__gen_e_acsl_at);
- __gen_e_acsl_or = __gen_e_acsl_base_addr == __gen_e_acsl_base_addr_2;
+ __gen_e_acsl_base_addr_2 = __e_acsl_base_addr((void *)__gen_e_acsl_at_2);
+ __e_acsl_assert(__gen_e_acsl_base_addr == __gen_e_acsl_base_addr_2,
+ "Postcondition","strchr",
+ "found: \\base_addr(\\result) == \\base_addr(\\old(s))",
+ "FRAMAC_SHARE/libc/string.h",162);
+ __e_acsl_assert((int)*__retres == (int)((char)__gen_e_acsl_at),
+ "Postcondition","strchr",
+ "found: *\\result == (char)\\old(c)",
+ "FRAMAC_SHARE/libc/string.h",161);
+ }
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(__retres == (char *)0,
+ "Postcondition","strchr",
+ "not_found: \\result == \\null",
+ "FRAMAC_SHARE/libc/string.h",
+ 168);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)2);
+ if (__gen_e_acsl_assumes_value) {
+ int __gen_e_acsl_or;
+ if (__retres == (char *)0) __gen_e_acsl_or = 1;
+ else {
+ void *__gen_e_acsl_base_addr_3;
+ void *__gen_e_acsl_base_addr_4;
+ __gen_e_acsl_base_addr_3 = __e_acsl_base_addr((void *)__retres);
+ __gen_e_acsl_base_addr_4 = __e_acsl_base_addr((void *)__gen_e_acsl_at_3);
+ __gen_e_acsl_or = __gen_e_acsl_base_addr_3 == __gen_e_acsl_base_addr_4;
+ }
+ __e_acsl_assert(__gen_e_acsl_or,"Postcondition","strchr",
+ "default: \\result == \\null || \\base_addr(\\result) == \\base_addr(\\old(s))",
+ "FRAMAC_SHARE/libc/string.h",171);
}
- __e_acsl_assert(__gen_e_acsl_or,"Postcondition","strchr",
- "\\result == \\null || \\base_addr(\\result) == \\base_addr(\\old(s))",
- "FRAMAC_SHARE/libc/string.h",171);
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
__e_acsl_delete_block((void *)(& s));
__e_acsl_delete_block((void *)(& __retres));
return __retres;
@@ -2545,7 +2598,6 @@ int main(int argc, char const **argv)
int process_status;
__e_acsl_store_block((void *)(& process_status),(size_t)4);
__gen_e_acsl_waitpid(pid,& process_status,0);
- /*@ assert Eva: initialization: \initialized(&process_status); */
signal_eval(process_status,0,__gen_e_acsl_literal_string_12);
__e_acsl_delete_block((void *)(& process_status));
}
@@ -2561,7 +2613,6 @@ int main(int argc, char const **argv)
int process_status_0;
__e_acsl_store_block((void *)(& process_status_0),(size_t)4);
__gen_e_acsl_waitpid(pid_0,& process_status_0,0);
- /*@ assert Eva: initialization: \initialized(&process_status_0); */
signal_eval(process_status_0,0,__gen_e_acsl_literal_string_14);
__e_acsl_delete_block((void *)(& process_status_0));
}
@@ -2577,7 +2628,6 @@ int main(int argc, char const **argv)
int process_status_1;
__e_acsl_store_block((void *)(& process_status_1),(size_t)4);
__gen_e_acsl_waitpid(pid_1,& process_status_1,0);
- /*@ assert Eva: initialization: \initialized(&process_status_1); */
signal_eval(process_status_1,1,__gen_e_acsl_literal_string_16);
__e_acsl_delete_block((void *)(& process_status_1));
}
@@ -2593,7 +2643,6 @@ int main(int argc, char const **argv)
int process_status_2;
__e_acsl_store_block((void *)(& process_status_2),(size_t)4);
__gen_e_acsl_waitpid(pid_2,& process_status_2,0);
- /*@ assert Eva: initialization: \initialized(&process_status_2); */
signal_eval(process_status_2,0,__gen_e_acsl_literal_string_18);
__e_acsl_delete_block((void *)(& process_status_2));
}
@@ -2617,7 +2666,6 @@ int main(int argc, char const **argv)
int process_status_3;
__e_acsl_store_block((void *)(& process_status_3),(size_t)4);
__gen_e_acsl_waitpid(pid_3,& process_status_3,0);
- /*@ assert Eva: initialization: \initialized(&process_status_3); */
signal_eval(process_status_3,1,__gen_e_acsl_literal_string_19);
__e_acsl_delete_block((void *)(& process_status_3));
}
@@ -2632,7 +2680,6 @@ int main(int argc, char const **argv)
int process_status_4;
__e_acsl_store_block((void *)(& process_status_4),(size_t)4);
__gen_e_acsl_waitpid(pid_4,& process_status_4,0);
- /*@ assert Eva: initialization: \initialized(&process_status_4); */
signal_eval(process_status_4,0,__gen_e_acsl_literal_string_21);
__e_acsl_delete_block((void *)(& process_status_4));
}
@@ -2647,7 +2694,6 @@ int main(int argc, char const **argv)
int process_status_5;
__e_acsl_store_block((void *)(& process_status_5),(size_t)4);
__gen_e_acsl_waitpid(pid_5,& process_status_5,0);
- /*@ assert Eva: initialization: \initialized(&process_status_5); */
signal_eval(process_status_5,1,__gen_e_acsl_literal_string_23);
__e_acsl_delete_block((void *)(& process_status_5));
}
@@ -2662,7 +2708,6 @@ int main(int argc, char const **argv)
int process_status_6;
__e_acsl_store_block((void *)(& process_status_6),(size_t)4);
__gen_e_acsl_waitpid(pid_6,& process_status_6,0);
- /*@ assert Eva: initialization: \initialized(&process_status_6); */
signal_eval(process_status_6,1,__gen_e_acsl_literal_string_25);
__e_acsl_delete_block((void *)(& process_status_6));
}
@@ -2677,7 +2722,6 @@ int main(int argc, char const **argv)
int process_status_7;
__e_acsl_store_block((void *)(& process_status_7),(size_t)4);
__gen_e_acsl_waitpid(pid_7,& process_status_7,0);
- /*@ assert Eva: initialization: \initialized(&process_status_7); */
signal_eval(process_status_7,1,__gen_e_acsl_literal_string_27);
__e_acsl_delete_block((void *)(& process_status_7));
}
@@ -2692,7 +2736,6 @@ int main(int argc, char const **argv)
int process_status_8;
__e_acsl_store_block((void *)(& process_status_8),(size_t)4);
__gen_e_acsl_waitpid(pid_8,& process_status_8,0);
- /*@ assert Eva: initialization: \initialized(&process_status_8); */
signal_eval(process_status_8,0,__gen_e_acsl_literal_string_29);
__e_acsl_delete_block((void *)(& process_status_8));
}
@@ -2716,7 +2759,6 @@ int main(int argc, char const **argv)
int process_status_9;
__e_acsl_store_block((void *)(& process_status_9),(size_t)4);
__gen_e_acsl_waitpid(pid_9,& process_status_9,0);
- /*@ assert Eva: initialization: \initialized(&process_status_9); */
signal_eval(process_status_9,0,__gen_e_acsl_literal_string_40);
__e_acsl_delete_block((void *)(& process_status_9));
}
@@ -2731,7 +2773,6 @@ int main(int argc, char const **argv)
int process_status_10;
__e_acsl_store_block((void *)(& process_status_10),(size_t)4);
__gen_e_acsl_waitpid(pid_10,& process_status_10,0);
- /*@ assert Eva: initialization: \initialized(&process_status_10); */
signal_eval(process_status_10,0,__gen_e_acsl_literal_string_42);
__e_acsl_delete_block((void *)(& process_status_10));
}
@@ -2746,7 +2787,6 @@ int main(int argc, char const **argv)
int process_status_11;
__e_acsl_store_block((void *)(& process_status_11),(size_t)4);
__gen_e_acsl_waitpid(pid_11,& process_status_11,0);
- /*@ assert Eva: initialization: \initialized(&process_status_11); */
signal_eval(process_status_11,1,__gen_e_acsl_literal_string_44);
__e_acsl_delete_block((void *)(& process_status_11));
}
@@ -2764,7 +2804,6 @@ int main(int argc, char const **argv)
int process_status_12;
__e_acsl_store_block((void *)(& process_status_12),(size_t)4);
__gen_e_acsl_waitpid(pid_12,& process_status_12,0);
- /*@ assert Eva: initialization: \initialized(&process_status_12); */
signal_eval(process_status_12,0,__gen_e_acsl_literal_string_49);
__e_acsl_delete_block((void *)(& process_status_12));
}
@@ -2779,7 +2818,6 @@ int main(int argc, char const **argv)
int process_status_13;
__e_acsl_store_block((void *)(& process_status_13),(size_t)4);
__gen_e_acsl_waitpid(pid_13,& process_status_13,0);
- /*@ assert Eva: initialization: \initialized(&process_status_13); */
signal_eval(process_status_13,0,__gen_e_acsl_literal_string_49);
__e_acsl_delete_block((void *)(& process_status_13));
}
@@ -2794,7 +2832,6 @@ int main(int argc, char const **argv)
int process_status_14;
__e_acsl_store_block((void *)(& process_status_14),(size_t)4);
__gen_e_acsl_waitpid(pid_14,& process_status_14,0);
- /*@ assert Eva: initialization: \initialized(&process_status_14); */
signal_eval(process_status_14,0,__gen_e_acsl_literal_string_52);
__e_acsl_delete_block((void *)(& process_status_14));
}
@@ -2809,7 +2846,6 @@ int main(int argc, char const **argv)
int process_status_15;
__e_acsl_store_block((void *)(& process_status_15),(size_t)4);
__gen_e_acsl_waitpid(pid_15,& process_status_15,0);
- /*@ assert Eva: initialization: \initialized(&process_status_15); */
signal_eval(process_status_15,0,__gen_e_acsl_literal_string_52);
__e_acsl_delete_block((void *)(& process_status_15));
}
@@ -2824,7 +2860,6 @@ int main(int argc, char const **argv)
int process_status_16;
__e_acsl_store_block((void *)(& process_status_16),(size_t)4);
__gen_e_acsl_waitpid(pid_16,& process_status_16,0);
- /*@ assert Eva: initialization: \initialized(&process_status_16); */
signal_eval(process_status_16,0,__gen_e_acsl_literal_string_55);
__e_acsl_delete_block((void *)(& process_status_16));
}
@@ -2839,7 +2874,6 @@ int main(int argc, char const **argv)
int process_status_17;
__e_acsl_store_block((void *)(& process_status_17),(size_t)4);
__gen_e_acsl_waitpid(pid_17,& process_status_17,0);
- /*@ assert Eva: initialization: \initialized(&process_status_17); */
signal_eval(process_status_17,0,__gen_e_acsl_literal_string_55);
__e_acsl_delete_block((void *)(& process_status_17));
}
@@ -2854,7 +2888,6 @@ int main(int argc, char const **argv)
int process_status_18;
__e_acsl_store_block((void *)(& process_status_18),(size_t)4);
__gen_e_acsl_waitpid(pid_18,& process_status_18,0);
- /*@ assert Eva: initialization: \initialized(&process_status_18); */
signal_eval(process_status_18,0,__gen_e_acsl_literal_string_55);
__e_acsl_delete_block((void *)(& process_status_18));
}
@@ -2872,7 +2905,6 @@ int main(int argc, char const **argv)
int process_status_19;
__e_acsl_store_block((void *)(& process_status_19),(size_t)4);
__gen_e_acsl_waitpid(pid_19,& process_status_19,0);
- /*@ assert Eva: initialization: \initialized(&process_status_19); */
signal_eval(process_status_19,0,__gen_e_acsl_literal_string_60);
__e_acsl_delete_block((void *)(& process_status_19));
}
@@ -2887,7 +2919,6 @@ int main(int argc, char const **argv)
int process_status_20;
__e_acsl_store_block((void *)(& process_status_20),(size_t)4);
__gen_e_acsl_waitpid(pid_20,& process_status_20,0);
- /*@ assert Eva: initialization: \initialized(&process_status_20); */
signal_eval(process_status_20,0,__gen_e_acsl_literal_string_60);
__e_acsl_delete_block((void *)(& process_status_20));
}
@@ -2902,7 +2933,6 @@ int main(int argc, char const **argv)
int process_status_21;
__e_acsl_store_block((void *)(& process_status_21),(size_t)4);
__gen_e_acsl_waitpid(pid_21,& process_status_21,0);
- /*@ assert Eva: initialization: \initialized(&process_status_21); */
signal_eval(process_status_21,0,__gen_e_acsl_literal_string_63);
__e_acsl_delete_block((void *)(& process_status_21));
}
@@ -2917,7 +2947,6 @@ int main(int argc, char const **argv)
int process_status_22;
__e_acsl_store_block((void *)(& process_status_22),(size_t)4);
__gen_e_acsl_waitpid(pid_22,& process_status_22,0);
- /*@ assert Eva: initialization: \initialized(&process_status_22); */
signal_eval(process_status_22,0,__gen_e_acsl_literal_string_63);
__e_acsl_delete_block((void *)(& process_status_22));
}
@@ -2932,7 +2961,6 @@ int main(int argc, char const **argv)
int process_status_23;
__e_acsl_store_block((void *)(& process_status_23),(size_t)4);
__gen_e_acsl_waitpid(pid_23,& process_status_23,0);
- /*@ assert Eva: initialization: \initialized(&process_status_23); */
signal_eval(process_status_23,0,__gen_e_acsl_literal_string_66);
__e_acsl_delete_block((void *)(& process_status_23));
}
@@ -2947,7 +2975,6 @@ int main(int argc, char const **argv)
int process_status_24;
__e_acsl_store_block((void *)(& process_status_24),(size_t)4);
__gen_e_acsl_waitpid(pid_24,& process_status_24,0);
- /*@ assert Eva: initialization: \initialized(&process_status_24); */
signal_eval(process_status_24,0,__gen_e_acsl_literal_string_66);
__e_acsl_delete_block((void *)(& process_status_24));
}
@@ -2962,7 +2989,6 @@ int main(int argc, char const **argv)
int process_status_25;
__e_acsl_store_block((void *)(& process_status_25),(size_t)4);
__gen_e_acsl_waitpid(pid_25,& process_status_25,0);
- /*@ assert Eva: initialization: \initialized(&process_status_25); */
signal_eval(process_status_25,0,__gen_e_acsl_literal_string_66);
__e_acsl_delete_block((void *)(& process_status_25));
}
@@ -2980,7 +3006,6 @@ int main(int argc, char const **argv)
int process_status_26;
__e_acsl_store_block((void *)(& process_status_26),(size_t)4);
__gen_e_acsl_waitpid(pid_26,& process_status_26,0);
- /*@ assert Eva: initialization: \initialized(&process_status_26); */
signal_eval(process_status_26,0,__gen_e_acsl_literal_string_72);
__e_acsl_delete_block((void *)(& process_status_26));
}
@@ -2995,7 +3020,6 @@ int main(int argc, char const **argv)
int process_status_27;
__e_acsl_store_block((void *)(& process_status_27),(size_t)4);
__gen_e_acsl_waitpid(pid_27,& process_status_27,0);
- /*@ assert Eva: initialization: \initialized(&process_status_27); */
signal_eval(process_status_27,0,__gen_e_acsl_literal_string_72);
__e_acsl_delete_block((void *)(& process_status_27));
}
@@ -3010,7 +3034,6 @@ int main(int argc, char const **argv)
int process_status_28;
__e_acsl_store_block((void *)(& process_status_28),(size_t)4);
__gen_e_acsl_waitpid(pid_28,& process_status_28,0);
- /*@ assert Eva: initialization: \initialized(&process_status_28); */
signal_eval(process_status_28,0,__gen_e_acsl_literal_string_75);
__e_acsl_delete_block((void *)(& process_status_28));
}
@@ -3025,7 +3048,6 @@ int main(int argc, char const **argv)
int process_status_29;
__e_acsl_store_block((void *)(& process_status_29),(size_t)4);
__gen_e_acsl_waitpid(pid_29,& process_status_29,0);
- /*@ assert Eva: initialization: \initialized(&process_status_29); */
signal_eval(process_status_29,0,__gen_e_acsl_literal_string_75);
__e_acsl_delete_block((void *)(& process_status_29));
}
@@ -3040,7 +3062,6 @@ int main(int argc, char const **argv)
int process_status_30;
__e_acsl_store_block((void *)(& process_status_30),(size_t)4);
__gen_e_acsl_waitpid(pid_30,& process_status_30,0);
- /*@ assert Eva: initialization: \initialized(&process_status_30); */
signal_eval(process_status_30,0,__gen_e_acsl_literal_string_78);
__e_acsl_delete_block((void *)(& process_status_30));
}
@@ -3055,7 +3076,6 @@ int main(int argc, char const **argv)
int process_status_31;
__e_acsl_store_block((void *)(& process_status_31),(size_t)4);
__gen_e_acsl_waitpid(pid_31,& process_status_31,0);
- /*@ assert Eva: initialization: \initialized(&process_status_31); */
signal_eval(process_status_31,0,__gen_e_acsl_literal_string_78);
__e_acsl_delete_block((void *)(& process_status_31));
}
@@ -3070,7 +3090,6 @@ int main(int argc, char const **argv)
int process_status_32;
__e_acsl_store_block((void *)(& process_status_32),(size_t)4);
__gen_e_acsl_waitpid(pid_32,& process_status_32,0);
- /*@ assert Eva: initialization: \initialized(&process_status_32); */
signal_eval(process_status_32,0,__gen_e_acsl_literal_string_80);
__e_acsl_delete_block((void *)(& process_status_32));
}
@@ -3085,7 +3104,6 @@ int main(int argc, char const **argv)
int process_status_33;
__e_acsl_store_block((void *)(& process_status_33),(size_t)4);
__gen_e_acsl_waitpid(pid_33,& process_status_33,0);
- /*@ assert Eva: initialization: \initialized(&process_status_33); */
signal_eval(process_status_33,0,__gen_e_acsl_literal_string_80);
__e_acsl_delete_block((void *)(& process_status_33));
}
@@ -3100,7 +3118,6 @@ int main(int argc, char const **argv)
int process_status_34;
__e_acsl_store_block((void *)(& process_status_34),(size_t)4);
__gen_e_acsl_waitpid(pid_34,& process_status_34,0);
- /*@ assert Eva: initialization: \initialized(&process_status_34); */
signal_eval(process_status_34,0,__gen_e_acsl_literal_string_83);
__e_acsl_delete_block((void *)(& process_status_34));
}
@@ -3115,7 +3132,6 @@ int main(int argc, char const **argv)
int process_status_35;
__e_acsl_store_block((void *)(& process_status_35),(size_t)4);
__gen_e_acsl_waitpid(pid_35,& process_status_35,0);
- /*@ assert Eva: initialization: \initialized(&process_status_35); */
signal_eval(process_status_35,0,__gen_e_acsl_literal_string_83);
__e_acsl_delete_block((void *)(& process_status_35));
}
@@ -3130,7 +3146,6 @@ int main(int argc, char const **argv)
int process_status_36;
__e_acsl_store_block((void *)(& process_status_36),(size_t)4);
__gen_e_acsl_waitpid(pid_36,& process_status_36,0);
- /*@ assert Eva: initialization: \initialized(&process_status_36); */
signal_eval(process_status_36,0,__gen_e_acsl_literal_string_86);
__e_acsl_delete_block((void *)(& process_status_36));
}
@@ -3145,7 +3160,6 @@ int main(int argc, char const **argv)
int process_status_37;
__e_acsl_store_block((void *)(& process_status_37),(size_t)4);
__gen_e_acsl_waitpid(pid_37,& process_status_37,0);
- /*@ assert Eva: initialization: \initialized(&process_status_37); */
signal_eval(process_status_37,0,__gen_e_acsl_literal_string_86);
__e_acsl_delete_block((void *)(& process_status_37));
}
@@ -3160,7 +3174,6 @@ int main(int argc, char const **argv)
int process_status_38;
__e_acsl_store_block((void *)(& process_status_38),(size_t)4);
__gen_e_acsl_waitpid(pid_38,& process_status_38,0);
- /*@ assert Eva: initialization: \initialized(&process_status_38); */
signal_eval(process_status_38,0,__gen_e_acsl_literal_string_89);
__e_acsl_delete_block((void *)(& process_status_38));
}
@@ -3175,7 +3188,6 @@ int main(int argc, char const **argv)
int process_status_39;
__e_acsl_store_block((void *)(& process_status_39),(size_t)4);
__gen_e_acsl_waitpid(pid_39,& process_status_39,0);
- /*@ assert Eva: initialization: \initialized(&process_status_39); */
signal_eval(process_status_39,0,__gen_e_acsl_literal_string_89);
__e_acsl_delete_block((void *)(& process_status_39));
}
@@ -3190,7 +3202,6 @@ int main(int argc, char const **argv)
int process_status_40;
__e_acsl_store_block((void *)(& process_status_40),(size_t)4);
__gen_e_acsl_waitpid(pid_40,& process_status_40,0);
- /*@ assert Eva: initialization: \initialized(&process_status_40); */
signal_eval(process_status_40,0,__gen_e_acsl_literal_string_92);
__e_acsl_delete_block((void *)(& process_status_40));
}
@@ -3205,7 +3216,6 @@ int main(int argc, char const **argv)
int process_status_41;
__e_acsl_store_block((void *)(& process_status_41),(size_t)4);
__gen_e_acsl_waitpid(pid_41,& process_status_41,0);
- /*@ assert Eva: initialization: \initialized(&process_status_41); */
signal_eval(process_status_41,0,__gen_e_acsl_literal_string_94);
__e_acsl_delete_block((void *)(& process_status_41));
}
@@ -3220,7 +3230,6 @@ int main(int argc, char const **argv)
int process_status_42;
__e_acsl_store_block((void *)(& process_status_42),(size_t)4);
__gen_e_acsl_waitpid(pid_42,& process_status_42,0);
- /*@ assert Eva: initialization: \initialized(&process_status_42); */
signal_eval(process_status_42,0,__gen_e_acsl_literal_string_96);
__e_acsl_delete_block((void *)(& process_status_42));
}
@@ -3235,7 +3244,6 @@ int main(int argc, char const **argv)
int process_status_43;
__e_acsl_store_block((void *)(& process_status_43),(size_t)4);
__gen_e_acsl_waitpid(pid_43,& process_status_43,0);
- /*@ assert Eva: initialization: \initialized(&process_status_43); */
signal_eval(process_status_43,0,__gen_e_acsl_literal_string_96);
__e_acsl_delete_block((void *)(& process_status_43));
}
@@ -3250,7 +3258,6 @@ int main(int argc, char const **argv)
int process_status_44;
__e_acsl_store_block((void *)(& process_status_44),(size_t)4);
__gen_e_acsl_waitpid(pid_44,& process_status_44,0);
- /*@ assert Eva: initialization: \initialized(&process_status_44); */
signal_eval(process_status_44,0,__gen_e_acsl_literal_string_99);
__e_acsl_delete_block((void *)(& process_status_44));
}
@@ -3265,7 +3272,6 @@ int main(int argc, char const **argv)
int process_status_45;
__e_acsl_store_block((void *)(& process_status_45),(size_t)4);
__gen_e_acsl_waitpid(pid_45,& process_status_45,0);
- /*@ assert Eva: initialization: \initialized(&process_status_45); */
signal_eval(process_status_45,0,__gen_e_acsl_literal_string_99);
__e_acsl_delete_block((void *)(& process_status_45));
}
@@ -3280,7 +3286,6 @@ int main(int argc, char const **argv)
int process_status_46;
__e_acsl_store_block((void *)(& process_status_46),(size_t)4);
__gen_e_acsl_waitpid(pid_46,& process_status_46,0);
- /*@ assert Eva: initialization: \initialized(&process_status_46); */
signal_eval(process_status_46,0,__gen_e_acsl_literal_string_102);
__e_acsl_delete_block((void *)(& process_status_46));
}
@@ -3295,7 +3300,6 @@ int main(int argc, char const **argv)
int process_status_47;
__e_acsl_store_block((void *)(& process_status_47),(size_t)4);
__gen_e_acsl_waitpid(pid_47,& process_status_47,0);
- /*@ assert Eva: initialization: \initialized(&process_status_47); */
signal_eval(process_status_47,0,__gen_e_acsl_literal_string_102);
__e_acsl_delete_block((void *)(& process_status_47));
}
@@ -3310,7 +3314,6 @@ int main(int argc, char const **argv)
int process_status_48;
__e_acsl_store_block((void *)(& process_status_48),(size_t)4);
__gen_e_acsl_waitpid(pid_48,& process_status_48,0);
- /*@ assert Eva: initialization: \initialized(&process_status_48); */
signal_eval(process_status_48,0,__gen_e_acsl_literal_string_102);
__e_acsl_delete_block((void *)(& process_status_48));
}
@@ -3328,7 +3331,6 @@ int main(int argc, char const **argv)
int process_status_49;
__e_acsl_store_block((void *)(& process_status_49),(size_t)4);
__gen_e_acsl_waitpid(pid_49,& process_status_49,0);
- /*@ assert Eva: initialization: \initialized(&process_status_49); */
signal_eval(process_status_49,0,__gen_e_acsl_literal_string_108);
__e_acsl_delete_block((void *)(& process_status_49));
}
@@ -3343,7 +3345,6 @@ int main(int argc, char const **argv)
int process_status_50;
__e_acsl_store_block((void *)(& process_status_50),(size_t)4);
__gen_e_acsl_waitpid(pid_50,& process_status_50,0);
- /*@ assert Eva: initialization: \initialized(&process_status_50); */
signal_eval(process_status_50,0,__gen_e_acsl_literal_string_108);
__e_acsl_delete_block((void *)(& process_status_50));
}
@@ -3358,7 +3359,6 @@ int main(int argc, char const **argv)
int process_status_51;
__e_acsl_store_block((void *)(& process_status_51),(size_t)4);
__gen_e_acsl_waitpid(pid_51,& process_status_51,0);
- /*@ assert Eva: initialization: \initialized(&process_status_51); */
signal_eval(process_status_51,0,__gen_e_acsl_literal_string_111);
__e_acsl_delete_block((void *)(& process_status_51));
}
@@ -3373,7 +3373,6 @@ int main(int argc, char const **argv)
int process_status_52;
__e_acsl_store_block((void *)(& process_status_52),(size_t)4);
__gen_e_acsl_waitpid(pid_52,& process_status_52,0);
- /*@ assert Eva: initialization: \initialized(&process_status_52); */
signal_eval(process_status_52,0,__gen_e_acsl_literal_string_111);
__e_acsl_delete_block((void *)(& process_status_52));
}
@@ -3388,7 +3387,6 @@ int main(int argc, char const **argv)
int process_status_53;
__e_acsl_store_block((void *)(& process_status_53),(size_t)4);
__gen_e_acsl_waitpid(pid_53,& process_status_53,0);
- /*@ assert Eva: initialization: \initialized(&process_status_53); */
signal_eval(process_status_53,0,__gen_e_acsl_literal_string_114);
__e_acsl_delete_block((void *)(& process_status_53));
}
@@ -3403,7 +3401,6 @@ int main(int argc, char const **argv)
int process_status_54;
__e_acsl_store_block((void *)(& process_status_54),(size_t)4);
__gen_e_acsl_waitpid(pid_54,& process_status_54,0);
- /*@ assert Eva: initialization: \initialized(&process_status_54); */
signal_eval(process_status_54,0,__gen_e_acsl_literal_string_114);
__e_acsl_delete_block((void *)(& process_status_54));
}
@@ -3418,7 +3415,6 @@ int main(int argc, char const **argv)
int process_status_55;
__e_acsl_store_block((void *)(& process_status_55),(size_t)4);
__gen_e_acsl_waitpid(pid_55,& process_status_55,0);
- /*@ assert Eva: initialization: \initialized(&process_status_55); */
signal_eval(process_status_55,0,__gen_e_acsl_literal_string_114);
__e_acsl_delete_block((void *)(& process_status_55));
}
@@ -3436,7 +3432,6 @@ int main(int argc, char const **argv)
int process_status_56;
__e_acsl_store_block((void *)(& process_status_56),(size_t)4);
__gen_e_acsl_waitpid(pid_56,& process_status_56,0);
- /*@ assert Eva: initialization: \initialized(&process_status_56); */
signal_eval(process_status_56,0,__gen_e_acsl_literal_string_119);
__e_acsl_delete_block((void *)(& process_status_56));
}
@@ -3451,7 +3446,6 @@ int main(int argc, char const **argv)
int process_status_57;
__e_acsl_store_block((void *)(& process_status_57),(size_t)4);
__gen_e_acsl_waitpid(pid_57,& process_status_57,0);
- /*@ assert Eva: initialization: \initialized(&process_status_57); */
signal_eval(process_status_57,0,__gen_e_acsl_literal_string_119);
__e_acsl_delete_block((void *)(& process_status_57));
}
@@ -3466,7 +3460,6 @@ int main(int argc, char const **argv)
int process_status_58;
__e_acsl_store_block((void *)(& process_status_58),(size_t)4);
__gen_e_acsl_waitpid(pid_58,& process_status_58,0);
- /*@ assert Eva: initialization: \initialized(&process_status_58); */
signal_eval(process_status_58,0,__gen_e_acsl_literal_string_122);
__e_acsl_delete_block((void *)(& process_status_58));
}
@@ -3481,7 +3474,6 @@ int main(int argc, char const **argv)
int process_status_59;
__e_acsl_store_block((void *)(& process_status_59),(size_t)4);
__gen_e_acsl_waitpid(pid_59,& process_status_59,0);
- /*@ assert Eva: initialization: \initialized(&process_status_59); */
signal_eval(process_status_59,0,__gen_e_acsl_literal_string_122);
__e_acsl_delete_block((void *)(& process_status_59));
}
@@ -3496,7 +3488,6 @@ int main(int argc, char const **argv)
int process_status_60;
__e_acsl_store_block((void *)(& process_status_60),(size_t)4);
__gen_e_acsl_waitpid(pid_60,& process_status_60,0);
- /*@ assert Eva: initialization: \initialized(&process_status_60); */
signal_eval(process_status_60,0,__gen_e_acsl_literal_string_125);
__e_acsl_delete_block((void *)(& process_status_60));
}
@@ -3511,7 +3502,6 @@ int main(int argc, char const **argv)
int process_status_61;
__e_acsl_store_block((void *)(& process_status_61),(size_t)4);
__gen_e_acsl_waitpid(pid_61,& process_status_61,0);
- /*@ assert Eva: initialization: \initialized(&process_status_61); */
signal_eval(process_status_61,0,__gen_e_acsl_literal_string_125);
__e_acsl_delete_block((void *)(& process_status_61));
}
@@ -3526,7 +3516,6 @@ int main(int argc, char const **argv)
int process_status_62;
__e_acsl_store_block((void *)(& process_status_62),(size_t)4);
__gen_e_acsl_waitpid(pid_62,& process_status_62,0);
- /*@ assert Eva: initialization: \initialized(&process_status_62); */
signal_eval(process_status_62,0,__gen_e_acsl_literal_string_125);
__e_acsl_delete_block((void *)(& process_status_62));
}
@@ -3544,7 +3533,6 @@ int main(int argc, char const **argv)
int process_status_63;
__e_acsl_store_block((void *)(& process_status_63),(size_t)4);
__gen_e_acsl_waitpid(pid_63,& process_status_63,0);
- /*@ assert Eva: initialization: \initialized(&process_status_63); */
signal_eval(process_status_63,0,__gen_e_acsl_literal_string_130);
__e_acsl_delete_block((void *)(& process_status_63));
}
@@ -3559,7 +3547,6 @@ int main(int argc, char const **argv)
int process_status_64;
__e_acsl_store_block((void *)(& process_status_64),(size_t)4);
__gen_e_acsl_waitpid(pid_64,& process_status_64,0);
- /*@ assert Eva: initialization: \initialized(&process_status_64); */
signal_eval(process_status_64,0,__gen_e_acsl_literal_string_130);
__e_acsl_delete_block((void *)(& process_status_64));
}
@@ -3574,7 +3561,6 @@ int main(int argc, char const **argv)
int process_status_65;
__e_acsl_store_block((void *)(& process_status_65),(size_t)4);
__gen_e_acsl_waitpid(pid_65,& process_status_65,0);
- /*@ assert Eva: initialization: \initialized(&process_status_65); */
signal_eval(process_status_65,0,__gen_e_acsl_literal_string_133);
__e_acsl_delete_block((void *)(& process_status_65));
}
@@ -3589,7 +3575,6 @@ int main(int argc, char const **argv)
int process_status_66;
__e_acsl_store_block((void *)(& process_status_66),(size_t)4);
__gen_e_acsl_waitpid(pid_66,& process_status_66,0);
- /*@ assert Eva: initialization: \initialized(&process_status_66); */
signal_eval(process_status_66,0,__gen_e_acsl_literal_string_133);
__e_acsl_delete_block((void *)(& process_status_66));
}
@@ -3604,7 +3589,6 @@ int main(int argc, char const **argv)
int process_status_67;
__e_acsl_store_block((void *)(& process_status_67),(size_t)4);
__gen_e_acsl_waitpid(pid_67,& process_status_67,0);
- /*@ assert Eva: initialization: \initialized(&process_status_67); */
signal_eval(process_status_67,0,__gen_e_acsl_literal_string_135);
__e_acsl_delete_block((void *)(& process_status_67));
}
@@ -3619,7 +3603,6 @@ int main(int argc, char const **argv)
int process_status_68;
__e_acsl_store_block((void *)(& process_status_68),(size_t)4);
__gen_e_acsl_waitpid(pid_68,& process_status_68,0);
- /*@ assert Eva: initialization: \initialized(&process_status_68); */
signal_eval(process_status_68,0,__gen_e_acsl_literal_string_135);
__e_acsl_delete_block((void *)(& process_status_68));
}
@@ -3634,7 +3617,6 @@ int main(int argc, char const **argv)
int process_status_69;
__e_acsl_store_block((void *)(& process_status_69),(size_t)4);
__gen_e_acsl_waitpid(pid_69,& process_status_69,0);
- /*@ assert Eva: initialization: \initialized(&process_status_69); */
signal_eval(process_status_69,0,__gen_e_acsl_literal_string_138);
__e_acsl_delete_block((void *)(& process_status_69));
}
@@ -3652,7 +3634,6 @@ int main(int argc, char const **argv)
int process_status_70;
__e_acsl_store_block((void *)(& process_status_70),(size_t)4);
__gen_e_acsl_waitpid(pid_70,& process_status_70,0);
- /*@ assert Eva: initialization: \initialized(&process_status_70); */
signal_eval(process_status_70,0,__gen_e_acsl_literal_string_143);
__e_acsl_delete_block((void *)(& process_status_70));
}
@@ -3667,7 +3648,6 @@ int main(int argc, char const **argv)
int process_status_71;
__e_acsl_store_block((void *)(& process_status_71),(size_t)4);
__gen_e_acsl_waitpid(pid_71,& process_status_71,0);
- /*@ assert Eva: initialization: \initialized(&process_status_71); */
signal_eval(process_status_71,0,__gen_e_acsl_literal_string_143);
__e_acsl_delete_block((void *)(& process_status_71));
}
@@ -3682,7 +3662,6 @@ int main(int argc, char const **argv)
int process_status_72;
__e_acsl_store_block((void *)(& process_status_72),(size_t)4);
__gen_e_acsl_waitpid(pid_72,& process_status_72,0);
- /*@ assert Eva: initialization: \initialized(&process_status_72); */
signal_eval(process_status_72,0,__gen_e_acsl_literal_string_146);
__e_acsl_delete_block((void *)(& process_status_72));
}
@@ -3697,7 +3676,6 @@ int main(int argc, char const **argv)
int process_status_73;
__e_acsl_store_block((void *)(& process_status_73),(size_t)4);
__gen_e_acsl_waitpid(pid_73,& process_status_73,0);
- /*@ assert Eva: initialization: \initialized(&process_status_73); */
signal_eval(process_status_73,0,__gen_e_acsl_literal_string_146);
__e_acsl_delete_block((void *)(& process_status_73));
}
@@ -3712,7 +3690,6 @@ int main(int argc, char const **argv)
int process_status_74;
__e_acsl_store_block((void *)(& process_status_74),(size_t)4);
__gen_e_acsl_waitpid(pid_74,& process_status_74,0);
- /*@ assert Eva: initialization: \initialized(&process_status_74); */
signal_eval(process_status_74,0,__gen_e_acsl_literal_string_149);
__e_acsl_delete_block((void *)(& process_status_74));
}
@@ -3727,7 +3704,6 @@ int main(int argc, char const **argv)
int process_status_75;
__e_acsl_store_block((void *)(& process_status_75),(size_t)4);
__gen_e_acsl_waitpid(pid_75,& process_status_75,0);
- /*@ assert Eva: initialization: \initialized(&process_status_75); */
signal_eval(process_status_75,0,__gen_e_acsl_literal_string_149);
__e_acsl_delete_block((void *)(& process_status_75));
}
@@ -3742,7 +3718,6 @@ int main(int argc, char const **argv)
int process_status_76;
__e_acsl_store_block((void *)(& process_status_76),(size_t)4);
__gen_e_acsl_waitpid(pid_76,& process_status_76,0);
- /*@ assert Eva: initialization: \initialized(&process_status_76); */
signal_eval(process_status_76,0,__gen_e_acsl_literal_string_152);
__e_acsl_delete_block((void *)(& process_status_76));
}
@@ -3757,7 +3732,6 @@ int main(int argc, char const **argv)
int process_status_77;
__e_acsl_store_block((void *)(& process_status_77),(size_t)4);
__gen_e_acsl_waitpid(pid_77,& process_status_77,0);
- /*@ assert Eva: initialization: \initialized(&process_status_77); */
signal_eval(process_status_77,0,__gen_e_acsl_literal_string_152);
__e_acsl_delete_block((void *)(& process_status_77));
}
@@ -3772,7 +3746,6 @@ int main(int argc, char const **argv)
int process_status_78;
__e_acsl_store_block((void *)(& process_status_78),(size_t)4);
__gen_e_acsl_waitpid(pid_78,& process_status_78,0);
- /*@ assert Eva: initialization: \initialized(&process_status_78); */
signal_eval(process_status_78,1,__gen_e_acsl_literal_string_155);
__e_acsl_delete_block((void *)(& process_status_78));
}
@@ -3787,7 +3760,6 @@ int main(int argc, char const **argv)
int process_status_79;
__e_acsl_store_block((void *)(& process_status_79),(size_t)4);
__gen_e_acsl_waitpid(pid_79,& process_status_79,0);
- /*@ assert Eva: initialization: \initialized(&process_status_79); */
signal_eval(process_status_79,1,__gen_e_acsl_literal_string_157);
__e_acsl_delete_block((void *)(& process_status_79));
}
@@ -3802,7 +3774,6 @@ int main(int argc, char const **argv)
int process_status_80;
__e_acsl_store_block((void *)(& process_status_80),(size_t)4);
__gen_e_acsl_waitpid(pid_80,& process_status_80,0);
- /*@ assert Eva: initialization: \initialized(&process_status_80); */
signal_eval(process_status_80,1,__gen_e_acsl_literal_string_159);
__e_acsl_delete_block((void *)(& process_status_80));
}
@@ -3817,7 +3788,6 @@ int main(int argc, char const **argv)
int process_status_81;
__e_acsl_store_block((void *)(& process_status_81),(size_t)4);
__gen_e_acsl_waitpid(pid_81,& process_status_81,0);
- /*@ assert Eva: initialization: \initialized(&process_status_81); */
signal_eval(process_status_81,0,__gen_e_acsl_literal_string_161);
__e_acsl_delete_block((void *)(& process_status_81));
}
@@ -3832,7 +3802,6 @@ int main(int argc, char const **argv)
int process_status_82;
__e_acsl_store_block((void *)(& process_status_82),(size_t)4);
__gen_e_acsl_waitpid(pid_82,& process_status_82,0);
- /*@ assert Eva: initialization: \initialized(&process_status_82); */
signal_eval(process_status_82,0,__gen_e_acsl_literal_string_161);
__e_acsl_delete_block((void *)(& process_status_82));
}
@@ -3847,7 +3816,6 @@ int main(int argc, char const **argv)
int process_status_83;
__e_acsl_store_block((void *)(& process_status_83),(size_t)4);
__gen_e_acsl_waitpid(pid_83,& process_status_83,0);
- /*@ assert Eva: initialization: \initialized(&process_status_83); */
signal_eval(process_status_83,0,__gen_e_acsl_literal_string_163);
__e_acsl_delete_block((void *)(& process_status_83));
}
@@ -3862,7 +3830,6 @@ int main(int argc, char const **argv)
int process_status_84;
__e_acsl_store_block((void *)(& process_status_84),(size_t)4);
__gen_e_acsl_waitpid(pid_84,& process_status_84,0);
- /*@ assert Eva: initialization: \initialized(&process_status_84); */
signal_eval(process_status_84,0,__gen_e_acsl_literal_string_163);
__e_acsl_delete_block((void *)(& process_status_84));
}
@@ -3877,7 +3844,6 @@ int main(int argc, char const **argv)
int process_status_85;
__e_acsl_store_block((void *)(& process_status_85),(size_t)4);
__gen_e_acsl_waitpid(pid_85,& process_status_85,0);
- /*@ assert Eva: initialization: \initialized(&process_status_85); */
signal_eval(process_status_85,0,__gen_e_acsl_literal_string_164);
__e_acsl_delete_block((void *)(& process_status_85));
}
@@ -3892,7 +3858,6 @@ int main(int argc, char const **argv)
int process_status_86;
__e_acsl_store_block((void *)(& process_status_86),(size_t)4);
__gen_e_acsl_waitpid(pid_86,& process_status_86,0);
- /*@ assert Eva: initialization: \initialized(&process_status_86); */
signal_eval(process_status_86,0,__gen_e_acsl_literal_string_164);
__e_acsl_delete_block((void *)(& process_status_86));
}
@@ -3907,7 +3872,6 @@ int main(int argc, char const **argv)
int process_status_87;
__e_acsl_store_block((void *)(& process_status_87),(size_t)4);
__gen_e_acsl_waitpid(pid_87,& process_status_87,0);
- /*@ assert Eva: initialization: \initialized(&process_status_87); */
signal_eval(process_status_87,1,__gen_e_acsl_literal_string_165);
__e_acsl_delete_block((void *)(& process_status_87));
}
@@ -3922,7 +3886,6 @@ int main(int argc, char const **argv)
int process_status_88;
__e_acsl_store_block((void *)(& process_status_88),(size_t)4);
__gen_e_acsl_waitpid(pid_88,& process_status_88,0);
- /*@ assert Eva: initialization: \initialized(&process_status_88); */
signal_eval(process_status_88,1,__gen_e_acsl_literal_string_165);
__e_acsl_delete_block((void *)(& process_status_88));
}
@@ -3937,7 +3900,6 @@ int main(int argc, char const **argv)
int process_status_89;
__e_acsl_store_block((void *)(& process_status_89),(size_t)4);
__gen_e_acsl_waitpid(pid_89,& process_status_89,0);
- /*@ assert Eva: initialization: \initialized(&process_status_89); */
signal_eval(process_status_89,1,__gen_e_acsl_literal_string_166);
__e_acsl_delete_block((void *)(& process_status_89));
}
@@ -3952,7 +3914,6 @@ int main(int argc, char const **argv)
int process_status_90;
__e_acsl_store_block((void *)(& process_status_90),(size_t)4);
__gen_e_acsl_waitpid(pid_90,& process_status_90,0);
- /*@ assert Eva: initialization: \initialized(&process_status_90); */
signal_eval(process_status_90,1,__gen_e_acsl_literal_string_166);
__e_acsl_delete_block((void *)(& process_status_90));
}
@@ -3967,7 +3928,6 @@ int main(int argc, char const **argv)
int process_status_91;
__e_acsl_store_block((void *)(& process_status_91),(size_t)4);
__gen_e_acsl_waitpid(pid_91,& process_status_91,0);
- /*@ assert Eva: initialization: \initialized(&process_status_91); */
signal_eval(process_status_91,1,__gen_e_acsl_literal_string_167);
__e_acsl_delete_block((void *)(& process_status_91));
}
@@ -3982,7 +3942,6 @@ int main(int argc, char const **argv)
int process_status_92;
__e_acsl_store_block((void *)(& process_status_92),(size_t)4);
__gen_e_acsl_waitpid(pid_92,& process_status_92,0);
- /*@ assert Eva: initialization: \initialized(&process_status_92); */
signal_eval(process_status_92,1,__gen_e_acsl_literal_string_167);
__e_acsl_delete_block((void *)(& process_status_92));
}
@@ -3998,7 +3957,6 @@ int main(int argc, char const **argv)
int process_status_93;
__e_acsl_store_block((void *)(& process_status_93),(size_t)4);
__gen_e_acsl_waitpid(pid_93,& process_status_93,0);
- /*@ assert Eva: initialization: \initialized(&process_status_93); */
signal_eval(process_status_93,1,__gen_e_acsl_literal_string_168);
__e_acsl_delete_block((void *)(& process_status_93));
}
@@ -4014,7 +3972,6 @@ int main(int argc, char const **argv)
int process_status_94;
__e_acsl_store_block((void *)(& process_status_94),(size_t)4);
__gen_e_acsl_waitpid(pid_94,& process_status_94,0);
- /*@ assert Eva: initialization: \initialized(&process_status_94); */
signal_eval(process_status_94,1,__gen_e_acsl_literal_string_168);
__e_acsl_delete_block((void *)(& process_status_94));
}
@@ -4029,7 +3986,6 @@ int main(int argc, char const **argv)
int process_status_95;
__e_acsl_store_block((void *)(& process_status_95),(size_t)4);
__gen_e_acsl_waitpid(pid_95,& process_status_95,0);
- /*@ assert Eva: initialization: \initialized(&process_status_95); */
signal_eval(process_status_95,0,__gen_e_acsl_literal_string_170);
__e_acsl_delete_block((void *)(& process_status_95));
}
@@ -4044,7 +4000,6 @@ int main(int argc, char const **argv)
int process_status_96;
__e_acsl_store_block((void *)(& process_status_96),(size_t)4);
__gen_e_acsl_waitpid(pid_96,& process_status_96,0);
- /*@ assert Eva: initialization: \initialized(&process_status_96); */
signal_eval(process_status_96,0,__gen_e_acsl_literal_string_170);
__e_acsl_delete_block((void *)(& process_status_96));
}
@@ -4059,7 +4014,6 @@ int main(int argc, char const **argv)
int process_status_97;
__e_acsl_store_block((void *)(& process_status_97),(size_t)4);
__gen_e_acsl_waitpid(pid_97,& process_status_97,0);
- /*@ assert Eva: initialization: \initialized(&process_status_97); */
signal_eval(process_status_97,0,__gen_e_acsl_literal_string_172);
__e_acsl_delete_block((void *)(& process_status_97));
}
@@ -4074,7 +4028,6 @@ int main(int argc, char const **argv)
int process_status_98;
__e_acsl_store_block((void *)(& process_status_98),(size_t)4);
__gen_e_acsl_waitpid(pid_98,& process_status_98,0);
- /*@ assert Eva: initialization: \initialized(&process_status_98); */
signal_eval(process_status_98,0,__gen_e_acsl_literal_string_172);
__e_acsl_delete_block((void *)(& process_status_98));
}
@@ -4089,7 +4042,6 @@ int main(int argc, char const **argv)
int process_status_99;
__e_acsl_store_block((void *)(& process_status_99),(size_t)4);
__gen_e_acsl_waitpid(pid_99,& process_status_99,0);
- /*@ assert Eva: initialization: \initialized(&process_status_99); */
signal_eval(process_status_99,0,__gen_e_acsl_literal_string_174);
__e_acsl_delete_block((void *)(& process_status_99));
}
@@ -4104,7 +4056,6 @@ int main(int argc, char const **argv)
int process_status_100;
__e_acsl_store_block((void *)(& process_status_100),(size_t)4);
__gen_e_acsl_waitpid(pid_100,& process_status_100,0);
- /*@ assert Eva: initialization: \initialized(&process_status_100); */
signal_eval(process_status_100,0,__gen_e_acsl_literal_string_174);
__e_acsl_delete_block((void *)(& process_status_100));
}
@@ -4119,7 +4070,6 @@ int main(int argc, char const **argv)
int process_status_101;
__e_acsl_store_block((void *)(& process_status_101),(size_t)4);
__gen_e_acsl_waitpid(pid_101,& process_status_101,0);
- /*@ assert Eva: initialization: \initialized(&process_status_101); */
signal_eval(process_status_101,0,__gen_e_acsl_literal_string_177);
__e_acsl_delete_block((void *)(& process_status_101));
}
@@ -4134,7 +4084,6 @@ int main(int argc, char const **argv)
int process_status_102;
__e_acsl_store_block((void *)(& process_status_102),(size_t)4);
__gen_e_acsl_waitpid(pid_102,& process_status_102,0);
- /*@ assert Eva: initialization: \initialized(&process_status_102); */
signal_eval(process_status_102,0,__gen_e_acsl_literal_string_177);
__e_acsl_delete_block((void *)(& process_status_102));
}
@@ -4149,7 +4098,6 @@ int main(int argc, char const **argv)
int process_status_103;
__e_acsl_store_block((void *)(& process_status_103),(size_t)4);
__gen_e_acsl_waitpid(pid_103,& process_status_103,0);
- /*@ assert Eva: initialization: \initialized(&process_status_103); */
signal_eval(process_status_103,0,__gen_e_acsl_literal_string_180);
__e_acsl_delete_block((void *)(& process_status_103));
}
@@ -4164,7 +4112,6 @@ int main(int argc, char const **argv)
int process_status_104;
__e_acsl_store_block((void *)(& process_status_104),(size_t)4);
__gen_e_acsl_waitpid(pid_104,& process_status_104,0);
- /*@ assert Eva: initialization: \initialized(&process_status_104); */
signal_eval(process_status_104,0,__gen_e_acsl_literal_string_180);
__e_acsl_delete_block((void *)(& process_status_104));
}
@@ -4179,7 +4126,6 @@ int main(int argc, char const **argv)
int process_status_105;
__e_acsl_store_block((void *)(& process_status_105),(size_t)4);
__gen_e_acsl_waitpid(pid_105,& process_status_105,0);
- /*@ assert Eva: initialization: \initialized(&process_status_105); */
signal_eval(process_status_105,0,__gen_e_acsl_literal_string_183);
__e_acsl_delete_block((void *)(& process_status_105));
}
@@ -4194,7 +4140,6 @@ int main(int argc, char const **argv)
int process_status_106;
__e_acsl_store_block((void *)(& process_status_106),(size_t)4);
__gen_e_acsl_waitpid(pid_106,& process_status_106,0);
- /*@ assert Eva: initialization: \initialized(&process_status_106); */
signal_eval(process_status_106,0,__gen_e_acsl_literal_string_183);
__e_acsl_delete_block((void *)(& process_status_106));
}
@@ -4209,7 +4154,6 @@ int main(int argc, char const **argv)
int process_status_107;
__e_acsl_store_block((void *)(& process_status_107),(size_t)4);
__gen_e_acsl_waitpid(pid_107,& process_status_107,0);
- /*@ assert Eva: initialization: \initialized(&process_status_107); */
signal_eval(process_status_107,0,__gen_e_acsl_literal_string_186);
__e_acsl_delete_block((void *)(& process_status_107));
}
@@ -4224,7 +4168,6 @@ int main(int argc, char const **argv)
int process_status_108;
__e_acsl_store_block((void *)(& process_status_108),(size_t)4);
__gen_e_acsl_waitpid(pid_108,& process_status_108,0);
- /*@ assert Eva: initialization: \initialized(&process_status_108); */
signal_eval(process_status_108,0,__gen_e_acsl_literal_string_186);
__e_acsl_delete_block((void *)(& process_status_108));
}
@@ -4239,7 +4182,6 @@ int main(int argc, char const **argv)
int process_status_109;
__e_acsl_store_block((void *)(& process_status_109),(size_t)4);
__gen_e_acsl_waitpid(pid_109,& process_status_109,0);
- /*@ assert Eva: initialization: \initialized(&process_status_109); */
signal_eval(process_status_109,0,__gen_e_acsl_literal_string_186);
__e_acsl_delete_block((void *)(& process_status_109));
}
@@ -4254,7 +4196,6 @@ int main(int argc, char const **argv)
int process_status_110;
__e_acsl_store_block((void *)(& process_status_110),(size_t)4);
__gen_e_acsl_waitpid(pid_110,& process_status_110,0);
- /*@ assert Eva: initialization: \initialized(&process_status_110); */
signal_eval(process_status_110,0,__gen_e_acsl_literal_string_186);
__e_acsl_delete_block((void *)(& process_status_110));
}
@@ -4269,7 +4210,6 @@ int main(int argc, char const **argv)
int process_status_111;
__e_acsl_store_block((void *)(& process_status_111),(size_t)4);
__gen_e_acsl_waitpid(pid_111,& process_status_111,0);
- /*@ assert Eva: initialization: \initialized(&process_status_111); */
signal_eval(process_status_111,1,__gen_e_acsl_literal_string_190);
__e_acsl_delete_block((void *)(& process_status_111));
}
@@ -4284,7 +4224,6 @@ int main(int argc, char const **argv)
int process_status_112;
__e_acsl_store_block((void *)(& process_status_112),(size_t)4);
__gen_e_acsl_waitpid(pid_112,& process_status_112,0);
- /*@ assert Eva: initialization: \initialized(&process_status_112); */
signal_eval(process_status_112,1,__gen_e_acsl_literal_string_190);
__e_acsl_delete_block((void *)(& process_status_112));
}
@@ -4299,7 +4238,6 @@ int main(int argc, char const **argv)
int process_status_113;
__e_acsl_store_block((void *)(& process_status_113),(size_t)4);
__gen_e_acsl_waitpid(pid_113,& process_status_113,0);
- /*@ assert Eva: initialization: \initialized(&process_status_113); */
signal_eval(process_status_113,1,__gen_e_acsl_literal_string_190);
__e_acsl_delete_block((void *)(& process_status_113));
}
@@ -4314,7 +4252,6 @@ int main(int argc, char const **argv)
int process_status_114;
__e_acsl_store_block((void *)(& process_status_114),(size_t)4);
__gen_e_acsl_waitpid(pid_114,& process_status_114,0);
- /*@ assert Eva: initialization: \initialized(&process_status_114); */
signal_eval(process_status_114,1,__gen_e_acsl_literal_string_190);
__e_acsl_delete_block((void *)(& process_status_114));
}
@@ -4329,7 +4266,6 @@ int main(int argc, char const **argv)
int process_status_115;
__e_acsl_store_block((void *)(& process_status_115),(size_t)4);
__gen_e_acsl_waitpid(pid_115,& process_status_115,0);
- /*@ assert Eva: initialization: \initialized(&process_status_115); */
signal_eval(process_status_115,1,__gen_e_acsl_literal_string_191);
__e_acsl_delete_block((void *)(& process_status_115));
}
@@ -4344,7 +4280,6 @@ int main(int argc, char const **argv)
int process_status_116;
__e_acsl_store_block((void *)(& process_status_116),(size_t)4);
__gen_e_acsl_waitpid(pid_116,& process_status_116,0);
- /*@ assert Eva: initialization: \initialized(&process_status_116); */
signal_eval(process_status_116,1,__gen_e_acsl_literal_string_191);
__e_acsl_delete_block((void *)(& process_status_116));
}
@@ -4359,7 +4294,6 @@ int main(int argc, char const **argv)
int process_status_117;
__e_acsl_store_block((void *)(& process_status_117),(size_t)4);
__gen_e_acsl_waitpid(pid_117,& process_status_117,0);
- /*@ assert Eva: initialization: \initialized(&process_status_117); */
signal_eval(process_status_117,1,__gen_e_acsl_literal_string_191);
__e_acsl_delete_block((void *)(& process_status_117));
}
@@ -4374,7 +4308,6 @@ int main(int argc, char const **argv)
int process_status_118;
__e_acsl_store_block((void *)(& process_status_118),(size_t)4);
__gen_e_acsl_waitpid(pid_118,& process_status_118,0);
- /*@ assert Eva: initialization: \initialized(&process_status_118); */
signal_eval(process_status_118,1,__gen_e_acsl_literal_string_191);
__e_acsl_delete_block((void *)(& process_status_118));
}
@@ -4390,7 +4323,6 @@ int main(int argc, char const **argv)
int process_status_119;
__e_acsl_store_block((void *)(& process_status_119),(size_t)4);
__gen_e_acsl_waitpid(pid_119,& process_status_119,0);
- /*@ assert Eva: initialization: \initialized(&process_status_119); */
signal_eval(process_status_119,1,__gen_e_acsl_literal_string_192);
__e_acsl_delete_block((void *)(& process_status_119));
}
@@ -4406,7 +4338,6 @@ int main(int argc, char const **argv)
int process_status_120;
__e_acsl_store_block((void *)(& process_status_120),(size_t)4);
__gen_e_acsl_waitpid(pid_120,& process_status_120,0);
- /*@ assert Eva: initialization: \initialized(&process_status_120); */
signal_eval(process_status_120,1,__gen_e_acsl_literal_string_192);
__e_acsl_delete_block((void *)(& process_status_120));
}
@@ -4422,7 +4353,6 @@ int main(int argc, char const **argv)
int process_status_121;
__e_acsl_store_block((void *)(& process_status_121),(size_t)4);
__gen_e_acsl_waitpid(pid_121,& process_status_121,0);
- /*@ assert Eva: initialization: \initialized(&process_status_121); */
signal_eval(process_status_121,1,__gen_e_acsl_literal_string_192);
__e_acsl_delete_block((void *)(& process_status_121));
}
@@ -4438,7 +4368,6 @@ int main(int argc, char const **argv)
int process_status_122;
__e_acsl_store_block((void *)(& process_status_122),(size_t)4);
__gen_e_acsl_waitpid(pid_122,& process_status_122,0);
- /*@ assert Eva: initialization: \initialized(&process_status_122); */
signal_eval(process_status_122,1,__gen_e_acsl_literal_string_192);
__e_acsl_delete_block((void *)(& process_status_122));
}
@@ -4453,7 +4382,6 @@ int main(int argc, char const **argv)
int process_status_123;
__e_acsl_store_block((void *)(& process_status_123),(size_t)4);
__gen_e_acsl_waitpid(pid_123,& process_status_123,0);
- /*@ assert Eva: initialization: \initialized(&process_status_123); */
signal_eval(process_status_123,1,__gen_e_acsl_literal_string_193);
__e_acsl_delete_block((void *)(& process_status_123));
}
@@ -4468,7 +4396,6 @@ int main(int argc, char const **argv)
int process_status_124;
__e_acsl_store_block((void *)(& process_status_124),(size_t)4);
__gen_e_acsl_waitpid(pid_124,& process_status_124,0);
- /*@ assert Eva: initialization: \initialized(&process_status_124); */
signal_eval(process_status_124,1,__gen_e_acsl_literal_string_193);
__e_acsl_delete_block((void *)(& process_status_124));
}
@@ -4483,7 +4410,6 @@ int main(int argc, char const **argv)
int process_status_125;
__e_acsl_store_block((void *)(& process_status_125),(size_t)4);
__gen_e_acsl_waitpid(pid_125,& process_status_125,0);
- /*@ assert Eva: initialization: \initialized(&process_status_125); */
signal_eval(process_status_125,1,__gen_e_acsl_literal_string_193);
__e_acsl_delete_block((void *)(& process_status_125));
}
@@ -4498,7 +4424,6 @@ int main(int argc, char const **argv)
int process_status_126;
__e_acsl_store_block((void *)(& process_status_126),(size_t)4);
__gen_e_acsl_waitpid(pid_126,& process_status_126,0);
- /*@ assert Eva: initialization: \initialized(&process_status_126); */
signal_eval(process_status_126,1,__gen_e_acsl_literal_string_193);
__e_acsl_delete_block((void *)(& process_status_126));
}
@@ -4513,7 +4438,6 @@ int main(int argc, char const **argv)
int process_status_127;
__e_acsl_store_block((void *)(& process_status_127),(size_t)4);
__gen_e_acsl_waitpid(pid_127,& process_status_127,0);
- /*@ assert Eva: initialization: \initialized(&process_status_127); */
signal_eval(process_status_127,1,__gen_e_acsl_literal_string_194);
__e_acsl_delete_block((void *)(& process_status_127));
}
@@ -4528,7 +4452,6 @@ int main(int argc, char const **argv)
int process_status_128;
__e_acsl_store_block((void *)(& process_status_128),(size_t)4);
__gen_e_acsl_waitpid(pid_128,& process_status_128,0);
- /*@ assert Eva: initialization: \initialized(&process_status_128); */
signal_eval(process_status_128,1,__gen_e_acsl_literal_string_194);
__e_acsl_delete_block((void *)(& process_status_128));
}
@@ -4543,7 +4466,6 @@ int main(int argc, char const **argv)
int process_status_129;
__e_acsl_store_block((void *)(& process_status_129),(size_t)4);
__gen_e_acsl_waitpid(pid_129,& process_status_129,0);
- /*@ assert Eva: initialization: \initialized(&process_status_129); */
signal_eval(process_status_129,1,__gen_e_acsl_literal_string_194);
__e_acsl_delete_block((void *)(& process_status_129));
}
@@ -4558,7 +4480,6 @@ int main(int argc, char const **argv)
int process_status_130;
__e_acsl_store_block((void *)(& process_status_130),(size_t)4);
__gen_e_acsl_waitpid(pid_130,& process_status_130,0);
- /*@ assert Eva: initialization: \initialized(&process_status_130); */
signal_eval(process_status_130,1,__gen_e_acsl_literal_string_194);
__e_acsl_delete_block((void *)(& process_status_130));
}
@@ -4573,7 +4494,6 @@ int main(int argc, char const **argv)
int process_status_131;
__e_acsl_store_block((void *)(& process_status_131),(size_t)4);
__gen_e_acsl_waitpid(pid_131,& process_status_131,0);
- /*@ assert Eva: initialization: \initialized(&process_status_131); */
signal_eval(process_status_131,0,__gen_e_acsl_literal_string_196);
__e_acsl_delete_block((void *)(& process_status_131));
}
@@ -4588,7 +4508,6 @@ int main(int argc, char const **argv)
int process_status_132;
__e_acsl_store_block((void *)(& process_status_132),(size_t)4);
__gen_e_acsl_waitpid(pid_132,& process_status_132,0);
- /*@ assert Eva: initialization: \initialized(&process_status_132); */
signal_eval(process_status_132,0,__gen_e_acsl_literal_string_196);
__e_acsl_delete_block((void *)(& process_status_132));
}
@@ -4603,7 +4522,6 @@ int main(int argc, char const **argv)
int process_status_133;
__e_acsl_store_block((void *)(& process_status_133),(size_t)4);
__gen_e_acsl_waitpid(pid_133,& process_status_133,0);
- /*@ assert Eva: initialization: \initialized(&process_status_133); */
signal_eval(process_status_133,0,__gen_e_acsl_literal_string_196);
__e_acsl_delete_block((void *)(& process_status_133));
}
@@ -4618,7 +4536,6 @@ int main(int argc, char const **argv)
int process_status_134;
__e_acsl_store_block((void *)(& process_status_134),(size_t)4);
__gen_e_acsl_waitpid(pid_134,& process_status_134,0);
- /*@ assert Eva: initialization: \initialized(&process_status_134); */
signal_eval(process_status_134,0,__gen_e_acsl_literal_string_196);
__e_acsl_delete_block((void *)(& process_status_134));
}
@@ -4633,7 +4550,6 @@ int main(int argc, char const **argv)
int process_status_135;
__e_acsl_store_block((void *)(& process_status_135),(size_t)4);
__gen_e_acsl_waitpid(pid_135,& process_status_135,0);
- /*@ assert Eva: initialization: \initialized(&process_status_135); */
signal_eval(process_status_135,0,__gen_e_acsl_literal_string_201);
__e_acsl_delete_block((void *)(& process_status_135));
}
@@ -4648,7 +4564,6 @@ int main(int argc, char const **argv)
int process_status_136;
__e_acsl_store_block((void *)(& process_status_136),(size_t)4);
__gen_e_acsl_waitpid(pid_136,& process_status_136,0);
- /*@ assert Eva: initialization: \initialized(&process_status_136); */
signal_eval(process_status_136,0,__gen_e_acsl_literal_string_201);
__e_acsl_delete_block((void *)(& process_status_136));
}
@@ -4663,7 +4578,6 @@ int main(int argc, char const **argv)
int process_status_137;
__e_acsl_store_block((void *)(& process_status_137),(size_t)4);
__gen_e_acsl_waitpid(pid_137,& process_status_137,0);
- /*@ assert Eva: initialization: \initialized(&process_status_137); */
signal_eval(process_status_137,0,__gen_e_acsl_literal_string_201);
__e_acsl_delete_block((void *)(& process_status_137));
}
@@ -4678,7 +4592,6 @@ int main(int argc, char const **argv)
int process_status_138;
__e_acsl_store_block((void *)(& process_status_138),(size_t)4);
__gen_e_acsl_waitpid(pid_138,& process_status_138,0);
- /*@ assert Eva: initialization: \initialized(&process_status_138); */
signal_eval(process_status_138,0,__gen_e_acsl_literal_string_201);
__e_acsl_delete_block((void *)(& process_status_138));
}
@@ -4693,7 +4606,6 @@ int main(int argc, char const **argv)
int process_status_139;
__e_acsl_store_block((void *)(& process_status_139),(size_t)4);
__gen_e_acsl_waitpid(pid_139,& process_status_139,0);
- /*@ assert Eva: initialization: \initialized(&process_status_139); */
signal_eval(process_status_139,0,__gen_e_acsl_literal_string_206);
__e_acsl_delete_block((void *)(& process_status_139));
}
@@ -4708,7 +4620,6 @@ int main(int argc, char const **argv)
int process_status_140;
__e_acsl_store_block((void *)(& process_status_140),(size_t)4);
__gen_e_acsl_waitpid(pid_140,& process_status_140,0);
- /*@ assert Eva: initialization: \initialized(&process_status_140); */
signal_eval(process_status_140,0,__gen_e_acsl_literal_string_206);
__e_acsl_delete_block((void *)(& process_status_140));
}
@@ -4723,7 +4634,6 @@ int main(int argc, char const **argv)
int process_status_141;
__e_acsl_store_block((void *)(& process_status_141),(size_t)4);
__gen_e_acsl_waitpid(pid_141,& process_status_141,0);
- /*@ assert Eva: initialization: \initialized(&process_status_141); */
signal_eval(process_status_141,0,__gen_e_acsl_literal_string_206);
__e_acsl_delete_block((void *)(& process_status_141));
}
@@ -4738,7 +4648,6 @@ int main(int argc, char const **argv)
int process_status_142;
__e_acsl_store_block((void *)(& process_status_142),(size_t)4);
__gen_e_acsl_waitpid(pid_142,& process_status_142,0);
- /*@ assert Eva: initialization: \initialized(&process_status_142); */
signal_eval(process_status_142,0,__gen_e_acsl_literal_string_206);
__e_acsl_delete_block((void *)(& process_status_142));
}
@@ -4753,7 +4662,6 @@ int main(int argc, char const **argv)
int process_status_143;
__e_acsl_store_block((void *)(& process_status_143),(size_t)4);
__gen_e_acsl_waitpid(pid_143,& process_status_143,0);
- /*@ assert Eva: initialization: \initialized(&process_status_143); */
signal_eval(process_status_143,0,__gen_e_acsl_literal_string_211);
__e_acsl_delete_block((void *)(& process_status_143));
}
@@ -4768,7 +4676,6 @@ int main(int argc, char const **argv)
int process_status_144;
__e_acsl_store_block((void *)(& process_status_144),(size_t)4);
__gen_e_acsl_waitpid(pid_144,& process_status_144,0);
- /*@ assert Eva: initialization: \initialized(&process_status_144); */
signal_eval(process_status_144,0,__gen_e_acsl_literal_string_211);
__e_acsl_delete_block((void *)(& process_status_144));
}
@@ -4783,7 +4690,6 @@ int main(int argc, char const **argv)
int process_status_145;
__e_acsl_store_block((void *)(& process_status_145),(size_t)4);
__gen_e_acsl_waitpid(pid_145,& process_status_145,0);
- /*@ assert Eva: initialization: \initialized(&process_status_145); */
signal_eval(process_status_145,0,__gen_e_acsl_literal_string_211);
__e_acsl_delete_block((void *)(& process_status_145));
}
@@ -4798,7 +4704,6 @@ int main(int argc, char const **argv)
int process_status_146;
__e_acsl_store_block((void *)(& process_status_146),(size_t)4);
__gen_e_acsl_waitpid(pid_146,& process_status_146,0);
- /*@ assert Eva: initialization: \initialized(&process_status_146); */
signal_eval(process_status_146,0,__gen_e_acsl_literal_string_211);
__e_acsl_delete_block((void *)(& process_status_146));
}
@@ -4813,7 +4718,6 @@ int main(int argc, char const **argv)
int process_status_147;
__e_acsl_store_block((void *)(& process_status_147),(size_t)4);
__gen_e_acsl_waitpid(pid_147,& process_status_147,0);
- /*@ assert Eva: initialization: \initialized(&process_status_147); */
signal_eval(process_status_147,0,__gen_e_acsl_literal_string_216);
__e_acsl_delete_block((void *)(& process_status_147));
}
@@ -4828,7 +4732,6 @@ int main(int argc, char const **argv)
int process_status_148;
__e_acsl_store_block((void *)(& process_status_148),(size_t)4);
__gen_e_acsl_waitpid(pid_148,& process_status_148,0);
- /*@ assert Eva: initialization: \initialized(&process_status_148); */
signal_eval(process_status_148,0,__gen_e_acsl_literal_string_216);
__e_acsl_delete_block((void *)(& process_status_148));
}
@@ -4843,7 +4746,6 @@ int main(int argc, char const **argv)
int process_status_149;
__e_acsl_store_block((void *)(& process_status_149),(size_t)4);
__gen_e_acsl_waitpid(pid_149,& process_status_149,0);
- /*@ assert Eva: initialization: \initialized(&process_status_149); */
signal_eval(process_status_149,0,__gen_e_acsl_literal_string_216);
__e_acsl_delete_block((void *)(& process_status_149));
}
@@ -4858,7 +4760,6 @@ int main(int argc, char const **argv)
int process_status_150;
__e_acsl_store_block((void *)(& process_status_150),(size_t)4);
__gen_e_acsl_waitpid(pid_150,& process_status_150,0);
- /*@ assert Eva: initialization: \initialized(&process_status_150); */
signal_eval(process_status_150,0,__gen_e_acsl_literal_string_216);
__e_acsl_delete_block((void *)(& process_status_150));
}
@@ -4873,7 +4774,6 @@ int main(int argc, char const **argv)
int process_status_151;
__e_acsl_store_block((void *)(& process_status_151),(size_t)4);
__gen_e_acsl_waitpid(pid_151,& process_status_151,0);
- /*@ assert Eva: initialization: \initialized(&process_status_151); */
signal_eval(process_status_151,0,__gen_e_acsl_literal_string_221);
__e_acsl_delete_block((void *)(& process_status_151));
}
@@ -4888,7 +4788,6 @@ int main(int argc, char const **argv)
int process_status_152;
__e_acsl_store_block((void *)(& process_status_152),(size_t)4);
__gen_e_acsl_waitpid(pid_152,& process_status_152,0);
- /*@ assert Eva: initialization: \initialized(&process_status_152); */
signal_eval(process_status_152,0,__gen_e_acsl_literal_string_221);
__e_acsl_delete_block((void *)(& process_status_152));
}
@@ -4903,7 +4802,6 @@ int main(int argc, char const **argv)
int process_status_153;
__e_acsl_store_block((void *)(& process_status_153),(size_t)4);
__gen_e_acsl_waitpid(pid_153,& process_status_153,0);
- /*@ assert Eva: initialization: \initialized(&process_status_153); */
signal_eval(process_status_153,0,__gen_e_acsl_literal_string_221);
__e_acsl_delete_block((void *)(& process_status_153));
}
@@ -4918,7 +4816,6 @@ int main(int argc, char const **argv)
int process_status_154;
__e_acsl_store_block((void *)(& process_status_154),(size_t)4);
__gen_e_acsl_waitpid(pid_154,& process_status_154,0);
- /*@ assert Eva: initialization: \initialized(&process_status_154); */
signal_eval(process_status_154,0,__gen_e_acsl_literal_string_221);
__e_acsl_delete_block((void *)(& process_status_154));
}
@@ -4933,7 +4830,6 @@ int main(int argc, char const **argv)
int process_status_155;
__e_acsl_store_block((void *)(& process_status_155),(size_t)4);
__gen_e_acsl_waitpid(pid_155,& process_status_155,0);
- /*@ assert Eva: initialization: \initialized(&process_status_155); */
signal_eval(process_status_155,0,__gen_e_acsl_literal_string_226);
__e_acsl_delete_block((void *)(& process_status_155));
}
@@ -4948,7 +4844,6 @@ int main(int argc, char const **argv)
int process_status_156;
__e_acsl_store_block((void *)(& process_status_156),(size_t)4);
__gen_e_acsl_waitpid(pid_156,& process_status_156,0);
- /*@ assert Eva: initialization: \initialized(&process_status_156); */
signal_eval(process_status_156,0,__gen_e_acsl_literal_string_226);
__e_acsl_delete_block((void *)(& process_status_156));
}
@@ -4963,7 +4858,6 @@ int main(int argc, char const **argv)
int process_status_157;
__e_acsl_store_block((void *)(& process_status_157),(size_t)4);
__gen_e_acsl_waitpid(pid_157,& process_status_157,0);
- /*@ assert Eva: initialization: \initialized(&process_status_157); */
signal_eval(process_status_157,0,__gen_e_acsl_literal_string_226);
__e_acsl_delete_block((void *)(& process_status_157));
}
@@ -4978,7 +4872,6 @@ int main(int argc, char const **argv)
int process_status_158;
__e_acsl_store_block((void *)(& process_status_158),(size_t)4);
__gen_e_acsl_waitpid(pid_158,& process_status_158,0);
- /*@ assert Eva: initialization: \initialized(&process_status_158); */
signal_eval(process_status_158,0,__gen_e_acsl_literal_string_226);
__e_acsl_delete_block((void *)(& process_status_158));
}
@@ -4993,7 +4886,6 @@ int main(int argc, char const **argv)
int process_status_159;
__e_acsl_store_block((void *)(& process_status_159),(size_t)4);
__gen_e_acsl_waitpid(pid_159,& process_status_159,0);
- /*@ assert Eva: initialization: \initialized(&process_status_159); */
signal_eval(process_status_159,0,__gen_e_acsl_literal_string_231);
__e_acsl_delete_block((void *)(& process_status_159));
}
@@ -5008,7 +4900,6 @@ int main(int argc, char const **argv)
int process_status_160;
__e_acsl_store_block((void *)(& process_status_160),(size_t)4);
__gen_e_acsl_waitpid(pid_160,& process_status_160,0);
- /*@ assert Eva: initialization: \initialized(&process_status_160); */
signal_eval(process_status_160,0,__gen_e_acsl_literal_string_231);
__e_acsl_delete_block((void *)(& process_status_160));
}
@@ -5023,7 +4914,6 @@ int main(int argc, char const **argv)
int process_status_161;
__e_acsl_store_block((void *)(& process_status_161),(size_t)4);
__gen_e_acsl_waitpid(pid_161,& process_status_161,0);
- /*@ assert Eva: initialization: \initialized(&process_status_161); */
signal_eval(process_status_161,1,__gen_e_acsl_literal_string_233);
__e_acsl_delete_block((void *)(& process_status_161));
}
@@ -5038,7 +4928,6 @@ int main(int argc, char const **argv)
int process_status_162;
__e_acsl_store_block((void *)(& process_status_162),(size_t)4);
__gen_e_acsl_waitpid(pid_162,& process_status_162,0);
- /*@ assert Eva: initialization: \initialized(&process_status_162); */
signal_eval(process_status_162,1,__gen_e_acsl_literal_string_233);
__e_acsl_delete_block((void *)(& process_status_162));
}
@@ -5053,7 +4942,6 @@ int main(int argc, char const **argv)
int process_status_163;
__e_acsl_store_block((void *)(& process_status_163),(size_t)4);
__gen_e_acsl_waitpid(pid_163,& process_status_163,0);
- /*@ assert Eva: initialization: \initialized(&process_status_163); */
signal_eval(process_status_163,1,__gen_e_acsl_literal_string_234);
__e_acsl_delete_block((void *)(& process_status_163));
}
@@ -5068,7 +4956,6 @@ int main(int argc, char const **argv)
int process_status_164;
__e_acsl_store_block((void *)(& process_status_164),(size_t)4);
__gen_e_acsl_waitpid(pid_164,& process_status_164,0);
- /*@ assert Eva: initialization: \initialized(&process_status_164); */
signal_eval(process_status_164,1,__gen_e_acsl_literal_string_234);
__e_acsl_delete_block((void *)(& process_status_164));
}
@@ -5083,7 +4970,6 @@ int main(int argc, char const **argv)
int process_status_165;
__e_acsl_store_block((void *)(& process_status_165),(size_t)4);
__gen_e_acsl_waitpid(pid_165,& process_status_165,0);
- /*@ assert Eva: initialization: \initialized(&process_status_165); */
signal_eval(process_status_165,1,__gen_e_acsl_literal_string_235);
__e_acsl_delete_block((void *)(& process_status_165));
}
@@ -5098,7 +4984,6 @@ int main(int argc, char const **argv)
int process_status_166;
__e_acsl_store_block((void *)(& process_status_166),(size_t)4);
__gen_e_acsl_waitpid(pid_166,& process_status_166,0);
- /*@ assert Eva: initialization: \initialized(&process_status_166); */
signal_eval(process_status_166,1,__gen_e_acsl_literal_string_235);
__e_acsl_delete_block((void *)(& process_status_166));
}
@@ -5113,7 +4998,6 @@ int main(int argc, char const **argv)
int process_status_167;
__e_acsl_store_block((void *)(& process_status_167),(size_t)4);
__gen_e_acsl_waitpid(pid_167,& process_status_167,0);
- /*@ assert Eva: initialization: \initialized(&process_status_167); */
signal_eval(process_status_167,0,__gen_e_acsl_literal_string_237);
__e_acsl_delete_block((void *)(& process_status_167));
}
@@ -5128,7 +5012,6 @@ int main(int argc, char const **argv)
int process_status_168;
__e_acsl_store_block((void *)(& process_status_168),(size_t)4);
__gen_e_acsl_waitpid(pid_168,& process_status_168,0);
- /*@ assert Eva: initialization: \initialized(&process_status_168); */
signal_eval(process_status_168,0,__gen_e_acsl_literal_string_237);
__e_acsl_delete_block((void *)(& process_status_168));
}
@@ -5143,7 +5026,6 @@ int main(int argc, char const **argv)
int process_status_169;
__e_acsl_store_block((void *)(& process_status_169),(size_t)4);
__gen_e_acsl_waitpid(pid_169,& process_status_169,0);
- /*@ assert Eva: initialization: \initialized(&process_status_169); */
signal_eval(process_status_169,1,__gen_e_acsl_literal_string_239);
__e_acsl_delete_block((void *)(& process_status_169));
}
@@ -5158,7 +5040,6 @@ int main(int argc, char const **argv)
int process_status_170;
__e_acsl_store_block((void *)(& process_status_170),(size_t)4);
__gen_e_acsl_waitpid(pid_170,& process_status_170,0);
- /*@ assert Eva: initialization: \initialized(&process_status_170); */
signal_eval(process_status_170,1,__gen_e_acsl_literal_string_239);
__e_acsl_delete_block((void *)(& process_status_170));
}
@@ -5173,7 +5054,6 @@ int main(int argc, char const **argv)
int process_status_171;
__e_acsl_store_block((void *)(& process_status_171),(size_t)4);
__gen_e_acsl_waitpid(pid_171,& process_status_171,0);
- /*@ assert Eva: initialization: \initialized(&process_status_171); */
signal_eval(process_status_171,1,__gen_e_acsl_literal_string_240);
__e_acsl_delete_block((void *)(& process_status_171));
}
@@ -5188,7 +5068,6 @@ int main(int argc, char const **argv)
int process_status_172;
__e_acsl_store_block((void *)(& process_status_172),(size_t)4);
__gen_e_acsl_waitpid(pid_172,& process_status_172,0);
- /*@ assert Eva: initialization: \initialized(&process_status_172); */
signal_eval(process_status_172,1,__gen_e_acsl_literal_string_240);
__e_acsl_delete_block((void *)(& process_status_172));
}
@@ -5203,7 +5082,6 @@ int main(int argc, char const **argv)
int process_status_173;
__e_acsl_store_block((void *)(& process_status_173),(size_t)4);
__gen_e_acsl_waitpid(pid_173,& process_status_173,0);
- /*@ assert Eva: initialization: \initialized(&process_status_173); */
signal_eval(process_status_173,1,__gen_e_acsl_literal_string_241);
__e_acsl_delete_block((void *)(& process_status_173));
}
@@ -5218,7 +5096,6 @@ int main(int argc, char const **argv)
int process_status_174;
__e_acsl_store_block((void *)(& process_status_174),(size_t)4);
__gen_e_acsl_waitpid(pid_174,& process_status_174,0);
- /*@ assert Eva: initialization: \initialized(&process_status_174); */
signal_eval(process_status_174,1,__gen_e_acsl_literal_string_241);
__e_acsl_delete_block((void *)(& process_status_174));
}
@@ -5233,7 +5110,6 @@ int main(int argc, char const **argv)
int process_status_175;
__e_acsl_store_block((void *)(& process_status_175),(size_t)4);
__gen_e_acsl_waitpid(pid_175,& process_status_175,0);
- /*@ assert Eva: initialization: \initialized(&process_status_175); */
signal_eval(process_status_175,0,__gen_e_acsl_literal_string_243);
__e_acsl_delete_block((void *)(& process_status_175));
}
@@ -5248,7 +5124,6 @@ int main(int argc, char const **argv)
int process_status_176;
__e_acsl_store_block((void *)(& process_status_176),(size_t)4);
__gen_e_acsl_waitpid(pid_176,& process_status_176,0);
- /*@ assert Eva: initialization: \initialized(&process_status_176); */
signal_eval(process_status_176,0,__gen_e_acsl_literal_string_243);
__e_acsl_delete_block((void *)(& process_status_176));
}
@@ -5263,7 +5138,6 @@ int main(int argc, char const **argv)
int process_status_177;
__e_acsl_store_block((void *)(& process_status_177),(size_t)4);
__gen_e_acsl_waitpid(pid_177,& process_status_177,0);
- /*@ assert Eva: initialization: \initialized(&process_status_177); */
signal_eval(process_status_177,1,__gen_e_acsl_literal_string_245);
__e_acsl_delete_block((void *)(& process_status_177));
}
@@ -5278,7 +5152,6 @@ int main(int argc, char const **argv)
int process_status_178;
__e_acsl_store_block((void *)(& process_status_178),(size_t)4);
__gen_e_acsl_waitpid(pid_178,& process_status_178,0);
- /*@ assert Eva: initialization: \initialized(&process_status_178); */
signal_eval(process_status_178,1,__gen_e_acsl_literal_string_245);
__e_acsl_delete_block((void *)(& process_status_178));
}
@@ -5293,7 +5166,6 @@ int main(int argc, char const **argv)
int process_status_179;
__e_acsl_store_block((void *)(& process_status_179),(size_t)4);
__gen_e_acsl_waitpid(pid_179,& process_status_179,0);
- /*@ assert Eva: initialization: \initialized(&process_status_179); */
signal_eval(process_status_179,1,__gen_e_acsl_literal_string_246);
__e_acsl_delete_block((void *)(& process_status_179));
}
@@ -5308,7 +5180,6 @@ int main(int argc, char const **argv)
int process_status_180;
__e_acsl_store_block((void *)(& process_status_180),(size_t)4);
__gen_e_acsl_waitpid(pid_180,& process_status_180,0);
- /*@ assert Eva: initialization: \initialized(&process_status_180); */
signal_eval(process_status_180,1,__gen_e_acsl_literal_string_246);
__e_acsl_delete_block((void *)(& process_status_180));
}
@@ -5323,7 +5194,6 @@ int main(int argc, char const **argv)
int process_status_181;
__e_acsl_store_block((void *)(& process_status_181),(size_t)4);
__gen_e_acsl_waitpid(pid_181,& process_status_181,0);
- /*@ assert Eva: initialization: \initialized(&process_status_181); */
signal_eval(process_status_181,1,__gen_e_acsl_literal_string_247);
__e_acsl_delete_block((void *)(& process_status_181));
}
@@ -5338,7 +5208,6 @@ int main(int argc, char const **argv)
int process_status_182;
__e_acsl_store_block((void *)(& process_status_182),(size_t)4);
__gen_e_acsl_waitpid(pid_182,& process_status_182,0);
- /*@ assert Eva: initialization: \initialized(&process_status_182); */
signal_eval(process_status_182,1,__gen_e_acsl_literal_string_247);
__e_acsl_delete_block((void *)(& process_status_182));
}
@@ -5353,7 +5222,6 @@ int main(int argc, char const **argv)
int process_status_183;
__e_acsl_store_block((void *)(& process_status_183),(size_t)4);
__gen_e_acsl_waitpid(pid_183,& process_status_183,0);
- /*@ assert Eva: initialization: \initialized(&process_status_183); */
signal_eval(process_status_183,0,__gen_e_acsl_literal_string_249);
__e_acsl_delete_block((void *)(& process_status_183));
}
@@ -5368,7 +5236,6 @@ int main(int argc, char const **argv)
int process_status_184;
__e_acsl_store_block((void *)(& process_status_184),(size_t)4);
__gen_e_acsl_waitpid(pid_184,& process_status_184,0);
- /*@ assert Eva: initialization: \initialized(&process_status_184); */
signal_eval(process_status_184,0,__gen_e_acsl_literal_string_249);
__e_acsl_delete_block((void *)(& process_status_184));
}
@@ -5383,7 +5250,6 @@ int main(int argc, char const **argv)
int process_status_185;
__e_acsl_store_block((void *)(& process_status_185),(size_t)4);
__gen_e_acsl_waitpid(pid_185,& process_status_185,0);
- /*@ assert Eva: initialization: \initialized(&process_status_185); */
signal_eval(process_status_185,1,__gen_e_acsl_literal_string_251);
__e_acsl_delete_block((void *)(& process_status_185));
}
@@ -5398,7 +5264,6 @@ int main(int argc, char const **argv)
int process_status_186;
__e_acsl_store_block((void *)(& process_status_186),(size_t)4);
__gen_e_acsl_waitpid(pid_186,& process_status_186,0);
- /*@ assert Eva: initialization: \initialized(&process_status_186); */
signal_eval(process_status_186,1,__gen_e_acsl_literal_string_251);
__e_acsl_delete_block((void *)(& process_status_186));
}
@@ -5413,7 +5278,6 @@ int main(int argc, char const **argv)
int process_status_187;
__e_acsl_store_block((void *)(& process_status_187),(size_t)4);
__gen_e_acsl_waitpid(pid_187,& process_status_187,0);
- /*@ assert Eva: initialization: \initialized(&process_status_187); */
signal_eval(process_status_187,1,__gen_e_acsl_literal_string_252);
__e_acsl_delete_block((void *)(& process_status_187));
}
@@ -5428,7 +5292,6 @@ int main(int argc, char const **argv)
int process_status_188;
__e_acsl_store_block((void *)(& process_status_188),(size_t)4);
__gen_e_acsl_waitpid(pid_188,& process_status_188,0);
- /*@ assert Eva: initialization: \initialized(&process_status_188); */
signal_eval(process_status_188,1,__gen_e_acsl_literal_string_252);
__e_acsl_delete_block((void *)(& process_status_188));
}
@@ -5443,7 +5306,6 @@ int main(int argc, char const **argv)
int process_status_189;
__e_acsl_store_block((void *)(& process_status_189),(size_t)4);
__gen_e_acsl_waitpid(pid_189,& process_status_189,0);
- /*@ assert Eva: initialization: \initialized(&process_status_189); */
signal_eval(process_status_189,1,__gen_e_acsl_literal_string_253);
__e_acsl_delete_block((void *)(& process_status_189));
}
@@ -5458,7 +5320,6 @@ int main(int argc, char const **argv)
int process_status_190;
__e_acsl_store_block((void *)(& process_status_190),(size_t)4);
__gen_e_acsl_waitpid(pid_190,& process_status_190,0);
- /*@ assert Eva: initialization: \initialized(&process_status_190); */
signal_eval(process_status_190,1,__gen_e_acsl_literal_string_253);
__e_acsl_delete_block((void *)(& process_status_190));
}
@@ -5473,7 +5334,6 @@ int main(int argc, char const **argv)
int process_status_191;
__e_acsl_store_block((void *)(& process_status_191),(size_t)4);
__gen_e_acsl_waitpid(pid_191,& process_status_191,0);
- /*@ assert Eva: initialization: \initialized(&process_status_191); */
signal_eval(process_status_191,1,__gen_e_acsl_literal_string_255);
__e_acsl_delete_block((void *)(& process_status_191));
}
@@ -5488,7 +5348,6 @@ int main(int argc, char const **argv)
int process_status_192;
__e_acsl_store_block((void *)(& process_status_192),(size_t)4);
__gen_e_acsl_waitpid(pid_192,& process_status_192,0);
- /*@ assert Eva: initialization: \initialized(&process_status_192); */
signal_eval(process_status_192,1,__gen_e_acsl_literal_string_255);
__e_acsl_delete_block((void *)(& process_status_192));
}
@@ -5503,7 +5362,6 @@ int main(int argc, char const **argv)
int process_status_193;
__e_acsl_store_block((void *)(& process_status_193),(size_t)4);
__gen_e_acsl_waitpid(pid_193,& process_status_193,0);
- /*@ assert Eva: initialization: \initialized(&process_status_193); */
signal_eval(process_status_193,0,__gen_e_acsl_literal_string_257);
__e_acsl_delete_block((void *)(& process_status_193));
}
@@ -5518,7 +5376,6 @@ int main(int argc, char const **argv)
int process_status_194;
__e_acsl_store_block((void *)(& process_status_194),(size_t)4);
__gen_e_acsl_waitpid(pid_194,& process_status_194,0);
- /*@ assert Eva: initialization: \initialized(&process_status_194); */
signal_eval(process_status_194,0,__gen_e_acsl_literal_string_257);
__e_acsl_delete_block((void *)(& process_status_194));
}
@@ -5533,7 +5390,6 @@ int main(int argc, char const **argv)
int process_status_195;
__e_acsl_store_block((void *)(& process_status_195),(size_t)4);
__gen_e_acsl_waitpid(pid_195,& process_status_195,0);
- /*@ assert Eva: initialization: \initialized(&process_status_195); */
signal_eval(process_status_195,1,__gen_e_acsl_literal_string_258);
__e_acsl_delete_block((void *)(& process_status_195));
}
@@ -5548,7 +5404,6 @@ int main(int argc, char const **argv)
int process_status_196;
__e_acsl_store_block((void *)(& process_status_196),(size_t)4);
__gen_e_acsl_waitpid(pid_196,& process_status_196,0);
- /*@ assert Eva: initialization: \initialized(&process_status_196); */
signal_eval(process_status_196,1,__gen_e_acsl_literal_string_258);
__e_acsl_delete_block((void *)(& process_status_196));
}
@@ -5563,7 +5418,6 @@ int main(int argc, char const **argv)
int process_status_197;
__e_acsl_store_block((void *)(& process_status_197),(size_t)4);
__gen_e_acsl_waitpid(pid_197,& process_status_197,0);
- /*@ assert Eva: initialization: \initialized(&process_status_197); */
signal_eval(process_status_197,1,__gen_e_acsl_literal_string_259);
__e_acsl_delete_block((void *)(& process_status_197));
}
@@ -5578,7 +5432,6 @@ int main(int argc, char const **argv)
int process_status_198;
__e_acsl_store_block((void *)(& process_status_198),(size_t)4);
__gen_e_acsl_waitpid(pid_198,& process_status_198,0);
- /*@ assert Eva: initialization: \initialized(&process_status_198); */
signal_eval(process_status_198,1,__gen_e_acsl_literal_string_259);
__e_acsl_delete_block((void *)(& process_status_198));
}
@@ -5593,7 +5446,6 @@ int main(int argc, char const **argv)
int process_status_199;
__e_acsl_store_block((void *)(& process_status_199),(size_t)4);
__gen_e_acsl_waitpid(pid_199,& process_status_199,0);
- /*@ assert Eva: initialization: \initialized(&process_status_199); */
signal_eval(process_status_199,1,__gen_e_acsl_literal_string_261);
__e_acsl_delete_block((void *)(& process_status_199));
}
@@ -5608,7 +5460,6 @@ int main(int argc, char const **argv)
int process_status_200;
__e_acsl_store_block((void *)(& process_status_200),(size_t)4);
__gen_e_acsl_waitpid(pid_200,& process_status_200,0);
- /*@ assert Eva: initialization: \initialized(&process_status_200); */
signal_eval(process_status_200,1,__gen_e_acsl_literal_string_261);
__e_acsl_delete_block((void *)(& process_status_200));
}
@@ -5623,7 +5474,6 @@ int main(int argc, char const **argv)
int process_status_201;
__e_acsl_store_block((void *)(& process_status_201),(size_t)4);
__gen_e_acsl_waitpid(pid_201,& process_status_201,0);
- /*@ assert Eva: initialization: \initialized(&process_status_201); */
signal_eval(process_status_201,0,__gen_e_acsl_literal_string_263);
__e_acsl_delete_block((void *)(& process_status_201));
}
@@ -5638,7 +5488,6 @@ int main(int argc, char const **argv)
int process_status_202;
__e_acsl_store_block((void *)(& process_status_202),(size_t)4);
__gen_e_acsl_waitpid(pid_202,& process_status_202,0);
- /*@ assert Eva: initialization: \initialized(&process_status_202); */
signal_eval(process_status_202,0,__gen_e_acsl_literal_string_263);
__e_acsl_delete_block((void *)(& process_status_202));
}
@@ -5653,7 +5502,6 @@ int main(int argc, char const **argv)
int process_status_203;
__e_acsl_store_block((void *)(& process_status_203),(size_t)4);
__gen_e_acsl_waitpid(pid_203,& process_status_203,0);
- /*@ assert Eva: initialization: \initialized(&process_status_203); */
signal_eval(process_status_203,1,__gen_e_acsl_literal_string_264);
__e_acsl_delete_block((void *)(& process_status_203));
}
@@ -5668,7 +5516,6 @@ int main(int argc, char const **argv)
int process_status_204;
__e_acsl_store_block((void *)(& process_status_204),(size_t)4);
__gen_e_acsl_waitpid(pid_204,& process_status_204,0);
- /*@ assert Eva: initialization: \initialized(&process_status_204); */
signal_eval(process_status_204,1,__gen_e_acsl_literal_string_264);
__e_acsl_delete_block((void *)(& process_status_204));
}
@@ -5683,7 +5530,6 @@ int main(int argc, char const **argv)
int process_status_205;
__e_acsl_store_block((void *)(& process_status_205),(size_t)4);
__gen_e_acsl_waitpid(pid_205,& process_status_205,0);
- /*@ assert Eva: initialization: \initialized(&process_status_205); */
signal_eval(process_status_205,1,__gen_e_acsl_literal_string_265);
__e_acsl_delete_block((void *)(& process_status_205));
}
@@ -5698,7 +5544,6 @@ int main(int argc, char const **argv)
int process_status_206;
__e_acsl_store_block((void *)(& process_status_206),(size_t)4);
__gen_e_acsl_waitpid(pid_206,& process_status_206,0);
- /*@ assert Eva: initialization: \initialized(&process_status_206); */
signal_eval(process_status_206,1,__gen_e_acsl_literal_string_265);
__e_acsl_delete_block((void *)(& process_status_206));
}
@@ -5713,7 +5558,6 @@ int main(int argc, char const **argv)
int process_status_207;
__e_acsl_store_block((void *)(& process_status_207),(size_t)4);
__gen_e_acsl_waitpid(pid_207,& process_status_207,0);
- /*@ assert Eva: initialization: \initialized(&process_status_207); */
signal_eval(process_status_207,1,__gen_e_acsl_literal_string_267);
__e_acsl_delete_block((void *)(& process_status_207));
}
@@ -5728,7 +5572,6 @@ int main(int argc, char const **argv)
int process_status_208;
__e_acsl_store_block((void *)(& process_status_208),(size_t)4);
__gen_e_acsl_waitpid(pid_208,& process_status_208,0);
- /*@ assert Eva: initialization: \initialized(&process_status_208); */
signal_eval(process_status_208,1,__gen_e_acsl_literal_string_267);
__e_acsl_delete_block((void *)(& process_status_208));
}
@@ -5743,7 +5586,6 @@ int main(int argc, char const **argv)
int process_status_209;
__e_acsl_store_block((void *)(& process_status_209),(size_t)4);
__gen_e_acsl_waitpid(pid_209,& process_status_209,0);
- /*@ assert Eva: initialization: \initialized(&process_status_209); */
signal_eval(process_status_209,0,__gen_e_acsl_literal_string_269);
__e_acsl_delete_block((void *)(& process_status_209));
}
@@ -5758,7 +5600,6 @@ int main(int argc, char const **argv)
int process_status_210;
__e_acsl_store_block((void *)(& process_status_210),(size_t)4);
__gen_e_acsl_waitpid(pid_210,& process_status_210,0);
- /*@ assert Eva: initialization: \initialized(&process_status_210); */
signal_eval(process_status_210,0,__gen_e_acsl_literal_string_269);
__e_acsl_delete_block((void *)(& process_status_210));
}
@@ -5773,7 +5614,6 @@ int main(int argc, char const **argv)
int process_status_211;
__e_acsl_store_block((void *)(& process_status_211),(size_t)4);
__gen_e_acsl_waitpid(pid_211,& process_status_211,0);
- /*@ assert Eva: initialization: \initialized(&process_status_211); */
signal_eval(process_status_211,1,__gen_e_acsl_literal_string_270);
__e_acsl_delete_block((void *)(& process_status_211));
}
@@ -5788,7 +5628,6 @@ int main(int argc, char const **argv)
int process_status_212;
__e_acsl_store_block((void *)(& process_status_212),(size_t)4);
__gen_e_acsl_waitpid(pid_212,& process_status_212,0);
- /*@ assert Eva: initialization: \initialized(&process_status_212); */
signal_eval(process_status_212,1,__gen_e_acsl_literal_string_270);
__e_acsl_delete_block((void *)(& process_status_212));
}
@@ -5803,7 +5642,6 @@ int main(int argc, char const **argv)
int process_status_213;
__e_acsl_store_block((void *)(& process_status_213),(size_t)4);
__gen_e_acsl_waitpid(pid_213,& process_status_213,0);
- /*@ assert Eva: initialization: \initialized(&process_status_213); */
signal_eval(process_status_213,1,__gen_e_acsl_literal_string_271);
__e_acsl_delete_block((void *)(& process_status_213));
}
@@ -5818,7 +5656,6 @@ int main(int argc, char const **argv)
int process_status_214;
__e_acsl_store_block((void *)(& process_status_214),(size_t)4);
__gen_e_acsl_waitpid(pid_214,& process_status_214,0);
- /*@ assert Eva: initialization: \initialized(&process_status_214); */
signal_eval(process_status_214,1,__gen_e_acsl_literal_string_271);
__e_acsl_delete_block((void *)(& process_status_214));
}
@@ -5833,7 +5670,6 @@ int main(int argc, char const **argv)
int process_status_215;
__e_acsl_store_block((void *)(& process_status_215),(size_t)4);
__gen_e_acsl_waitpid(pid_215,& process_status_215,0);
- /*@ assert Eva: initialization: \initialized(&process_status_215); */
signal_eval(process_status_215,1,__gen_e_acsl_literal_string_273);
__e_acsl_delete_block((void *)(& process_status_215));
}
@@ -5848,7 +5684,6 @@ int main(int argc, char const **argv)
int process_status_216;
__e_acsl_store_block((void *)(& process_status_216),(size_t)4);
__gen_e_acsl_waitpid(pid_216,& process_status_216,0);
- /*@ assert Eva: initialization: \initialized(&process_status_216); */
signal_eval(process_status_216,1,__gen_e_acsl_literal_string_273);
__e_acsl_delete_block((void *)(& process_status_216));
}
@@ -5863,7 +5698,6 @@ int main(int argc, char const **argv)
int process_status_217;
__e_acsl_store_block((void *)(& process_status_217),(size_t)4);
__gen_e_acsl_waitpid(pid_217,& process_status_217,0);
- /*@ assert Eva: initialization: \initialized(&process_status_217); */
signal_eval(process_status_217,0,__gen_e_acsl_literal_string_275);
__e_acsl_delete_block((void *)(& process_status_217));
}
@@ -5878,7 +5712,6 @@ int main(int argc, char const **argv)
int process_status_218;
__e_acsl_store_block((void *)(& process_status_218),(size_t)4);
__gen_e_acsl_waitpid(pid_218,& process_status_218,0);
- /*@ assert Eva: initialization: \initialized(&process_status_218); */
signal_eval(process_status_218,0,__gen_e_acsl_literal_string_275);
__e_acsl_delete_block((void *)(& process_status_218));
}
@@ -5893,7 +5726,6 @@ int main(int argc, char const **argv)
int process_status_219;
__e_acsl_store_block((void *)(& process_status_219),(size_t)4);
__gen_e_acsl_waitpid(pid_219,& process_status_219,0);
- /*@ assert Eva: initialization: \initialized(&process_status_219); */
signal_eval(process_status_219,1,__gen_e_acsl_literal_string_276);
__e_acsl_delete_block((void *)(& process_status_219));
}
@@ -5908,7 +5740,6 @@ int main(int argc, char const **argv)
int process_status_220;
__e_acsl_store_block((void *)(& process_status_220),(size_t)4);
__gen_e_acsl_waitpid(pid_220,& process_status_220,0);
- /*@ assert Eva: initialization: \initialized(&process_status_220); */
signal_eval(process_status_220,1,__gen_e_acsl_literal_string_276);
__e_acsl_delete_block((void *)(& process_status_220));
}
@@ -5923,7 +5754,6 @@ int main(int argc, char const **argv)
int process_status_221;
__e_acsl_store_block((void *)(& process_status_221),(size_t)4);
__gen_e_acsl_waitpid(pid_221,& process_status_221,0);
- /*@ assert Eva: initialization: \initialized(&process_status_221); */
signal_eval(process_status_221,1,__gen_e_acsl_literal_string_277);
__e_acsl_delete_block((void *)(& process_status_221));
}
@@ -5938,7 +5768,6 @@ int main(int argc, char const **argv)
int process_status_222;
__e_acsl_store_block((void *)(& process_status_222),(size_t)4);
__gen_e_acsl_waitpid(pid_222,& process_status_222,0);
- /*@ assert Eva: initialization: \initialized(&process_status_222); */
signal_eval(process_status_222,1,__gen_e_acsl_literal_string_277);
__e_acsl_delete_block((void *)(& process_status_222));
}
@@ -5953,7 +5782,6 @@ int main(int argc, char const **argv)
int process_status_223;
__e_acsl_store_block((void *)(& process_status_223),(size_t)4);
__gen_e_acsl_waitpid(pid_223,& process_status_223,0);
- /*@ assert Eva: initialization: \initialized(&process_status_223); */
signal_eval(process_status_223,0,__gen_e_acsl_literal_string_279);
__e_acsl_delete_block((void *)(& process_status_223));
}
@@ -5968,7 +5796,6 @@ int main(int argc, char const **argv)
int process_status_224;
__e_acsl_store_block((void *)(& process_status_224),(size_t)4);
__gen_e_acsl_waitpid(pid_224,& process_status_224,0);
- /*@ assert Eva: initialization: \initialized(&process_status_224); */
signal_eval(process_status_224,0,__gen_e_acsl_literal_string_280);
__e_acsl_delete_block((void *)(& process_status_224));
}
@@ -5983,7 +5810,6 @@ int main(int argc, char const **argv)
int process_status_225;
__e_acsl_store_block((void *)(& process_status_225),(size_t)4);
__gen_e_acsl_waitpid(pid_225,& process_status_225,0);
- /*@ assert Eva: initialization: \initialized(&process_status_225); */
signal_eval(process_status_225,0,__gen_e_acsl_literal_string_281);
__e_acsl_delete_block((void *)(& process_status_225));
}
@@ -5998,7 +5824,6 @@ int main(int argc, char const **argv)
int process_status_226;
__e_acsl_store_block((void *)(& process_status_226),(size_t)4);
__gen_e_acsl_waitpid(pid_226,& process_status_226,0);
- /*@ assert Eva: initialization: \initialized(&process_status_226); */
signal_eval(process_status_226,1,__gen_e_acsl_literal_string_282);
__e_acsl_delete_block((void *)(& process_status_226));
}
@@ -6013,7 +5838,6 @@ int main(int argc, char const **argv)
int process_status_227;
__e_acsl_store_block((void *)(& process_status_227),(size_t)4);
__gen_e_acsl_waitpid(pid_227,& process_status_227,0);
- /*@ assert Eva: initialization: \initialized(&process_status_227); */
signal_eval(process_status_227,1,__gen_e_acsl_literal_string_283);
__e_acsl_delete_block((void *)(& process_status_227));
}
@@ -6029,7 +5853,6 @@ int main(int argc, char const **argv)
int process_status_228;
__e_acsl_store_block((void *)(& process_status_228),(size_t)4);
__gen_e_acsl_waitpid(pid_228,& process_status_228,0);
- /*@ assert Eva: initialization: \initialized(&process_status_228); */
signal_eval(process_status_228,1,__gen_e_acsl_literal_string_284);
__e_acsl_delete_block((void *)(& process_status_228));
}
@@ -6044,7 +5867,6 @@ int main(int argc, char const **argv)
int process_status_229;
__e_acsl_store_block((void *)(& process_status_229),(size_t)4);
__gen_e_acsl_waitpid(pid_229,& process_status_229,0);
- /*@ assert Eva: initialization: \initialized(&process_status_229); */
signal_eval(process_status_229,1,__gen_e_acsl_literal_string_285);
__e_acsl_delete_block((void *)(& process_status_229));
}
@@ -6059,7 +5881,6 @@ int main(int argc, char const **argv)
int process_status_230;
__e_acsl_store_block((void *)(& process_status_230),(size_t)4);
__gen_e_acsl_waitpid(pid_230,& process_status_230,0);
- /*@ assert Eva: initialization: \initialized(&process_status_230); */
signal_eval(process_status_230,0,__gen_e_acsl_literal_string_287);
__e_acsl_delete_block((void *)(& process_status_230));
}
@@ -6074,7 +5895,6 @@ int main(int argc, char const **argv)
int process_status_231;
__e_acsl_store_block((void *)(& process_status_231),(size_t)4);
__gen_e_acsl_waitpid(pid_231,& process_status_231,0);
- /*@ assert Eva: initialization: \initialized(&process_status_231); */
signal_eval(process_status_231,1,__gen_e_acsl_literal_string_288);
__e_acsl_delete_block((void *)(& process_status_231));
}
@@ -6089,7 +5909,6 @@ int main(int argc, char const **argv)
int process_status_232;
__e_acsl_store_block((void *)(& process_status_232),(size_t)4);
__gen_e_acsl_waitpid(pid_232,& process_status_232,0);
- /*@ assert Eva: initialization: \initialized(&process_status_232); */
signal_eval(process_status_232,0,__gen_e_acsl_literal_string_290);
__e_acsl_delete_block((void *)(& process_status_232));
}
@@ -6104,7 +5923,6 @@ int main(int argc, char const **argv)
int process_status_233;
__e_acsl_store_block((void *)(& process_status_233),(size_t)4);
__gen_e_acsl_waitpid(pid_233,& process_status_233,0);
- /*@ assert Eva: initialization: \initialized(&process_status_233); */
signal_eval(process_status_233,0,__gen_e_acsl_literal_string_291);
__e_acsl_delete_block((void *)(& process_status_233));
}
@@ -6119,7 +5937,6 @@ int main(int argc, char const **argv)
int process_status_234;
__e_acsl_store_block((void *)(& process_status_234),(size_t)4);
__gen_e_acsl_waitpid(pid_234,& process_status_234,0);
- /*@ assert Eva: initialization: \initialized(&process_status_234); */
signal_eval(process_status_234,1,__gen_e_acsl_literal_string_292);
__e_acsl_delete_block((void *)(& process_status_234));
}
@@ -6134,7 +5951,6 @@ int main(int argc, char const **argv)
int process_status_235;
__e_acsl_store_block((void *)(& process_status_235),(size_t)4);
__gen_e_acsl_waitpid(pid_235,& process_status_235,0);
- /*@ assert Eva: initialization: \initialized(&process_status_235); */
signal_eval(process_status_235,1,__gen_e_acsl_literal_string_293);
__e_acsl_delete_block((void *)(& process_status_235));
}
@@ -6150,7 +5966,6 @@ int main(int argc, char const **argv)
int process_status_236;
__e_acsl_store_block((void *)(& process_status_236),(size_t)4);
__gen_e_acsl_waitpid(pid_236,& process_status_236,0);
- /*@ assert Eva: initialization: \initialized(&process_status_236); */
signal_eval(process_status_236,1,__gen_e_acsl_literal_string_294);
__e_acsl_delete_block((void *)(& process_status_236));
}
@@ -6158,7 +5973,6 @@ int main(int argc, char const **argv)
{
pid_t pid_237 = __gen_e_acsl_fork();
if (! pid_237) {
- /*@ assert Eva: initialization: \initialized(&s2); */
__e_acsl_builtin_printf("s",__gen_e_acsl_literal_string_289,s2);
__gen_e_acsl_exit(0);
}
@@ -6166,7 +5980,6 @@ int main(int argc, char const **argv)
int process_status_237;
__e_acsl_store_block((void *)(& process_status_237),(size_t)4);
__gen_e_acsl_waitpid(pid_237,& process_status_237,0);
- /*@ assert Eva: initialization: \initialized(&process_status_237); */
signal_eval(process_status_237,1,__gen_e_acsl_literal_string_295);
__e_acsl_delete_block((void *)(& process_status_237));
}
@@ -6182,7 +5995,6 @@ int main(int argc, char const **argv)
int process_status_238;
__e_acsl_store_block((void *)(& process_status_238),(size_t)4);
__gen_e_acsl_waitpid(pid_238,& process_status_238,0);
- /*@ assert Eva: initialization: \initialized(&process_status_238); */
signal_eval(process_status_238,0,__gen_e_acsl_literal_string_296);
__e_acsl_delete_block((void *)(& process_status_238));
}
@@ -6198,7 +6010,6 @@ int main(int argc, char const **argv)
int process_status_239;
__e_acsl_store_block((void *)(& process_status_239),(size_t)4);
__gen_e_acsl_waitpid(pid_239,& process_status_239,0);
- /*@ assert Eva: initialization: \initialized(&process_status_239); */
signal_eval(process_status_239,1,__gen_e_acsl_literal_string_297);
__e_acsl_delete_block((void *)(& process_status_239));
}
@@ -6213,7 +6024,6 @@ int main(int argc, char const **argv)
int process_status_240;
__e_acsl_store_block((void *)(& process_status_240),(size_t)4);
__gen_e_acsl_waitpid(pid_240,& process_status_240,0);
- /*@ assert Eva: initialization: \initialized(&process_status_240); */
signal_eval(process_status_240,0,__gen_e_acsl_literal_string_299);
__e_acsl_delete_block((void *)(& process_status_240));
}
@@ -6228,7 +6038,6 @@ int main(int argc, char const **argv)
int process_status_241;
__e_acsl_store_block((void *)(& process_status_241),(size_t)4);
__gen_e_acsl_waitpid(pid_241,& process_status_241,0);
- /*@ assert Eva: initialization: \initialized(&process_status_241); */
signal_eval(process_status_241,0,__gen_e_acsl_literal_string_301);
__e_acsl_delete_block((void *)(& process_status_241));
}
@@ -6243,7 +6052,6 @@ int main(int argc, char const **argv)
int process_status_242;
__e_acsl_store_block((void *)(& process_status_242),(size_t)4);
__gen_e_acsl_waitpid(pid_242,& process_status_242,0);
- /*@ assert Eva: initialization: \initialized(&process_status_242); */
signal_eval(process_status_242,0,__gen_e_acsl_literal_string_303);
__e_acsl_delete_block((void *)(& process_status_242));
}
@@ -6258,7 +6066,6 @@ int main(int argc, char const **argv)
int process_status_243;
__e_acsl_store_block((void *)(& process_status_243),(size_t)4);
__gen_e_acsl_waitpid(pid_243,& process_status_243,0);
- /*@ assert Eva: initialization: \initialized(&process_status_243); */
signal_eval(process_status_243,0,__gen_e_acsl_literal_string_305);
__e_acsl_delete_block((void *)(& process_status_243));
}
@@ -6273,7 +6080,6 @@ int main(int argc, char const **argv)
int process_status_244;
__e_acsl_store_block((void *)(& process_status_244),(size_t)4);
__gen_e_acsl_waitpid(pid_244,& process_status_244,0);
- /*@ assert Eva: initialization: \initialized(&process_status_244); */
signal_eval(process_status_244,1,__gen_e_acsl_literal_string_307);
__e_acsl_delete_block((void *)(& process_status_244));
}
@@ -6288,7 +6094,6 @@ int main(int argc, char const **argv)
int process_status_245;
__e_acsl_store_block((void *)(& process_status_245),(size_t)4);
__gen_e_acsl_waitpid(pid_245,& process_status_245,0);
- /*@ assert Eva: initialization: \initialized(&process_status_245); */
signal_eval(process_status_245,0,__gen_e_acsl_literal_string_309);
__e_acsl_delete_block((void *)(& process_status_245));
}
@@ -6303,7 +6108,6 @@ int main(int argc, char const **argv)
int process_status_246;
__e_acsl_store_block((void *)(& process_status_246),(size_t)4);
__gen_e_acsl_waitpid(pid_246,& process_status_246,0);
- /*@ assert Eva: initialization: \initialized(&process_status_246); */
signal_eval(process_status_246,1,__gen_e_acsl_literal_string_310);
__e_acsl_delete_block((void *)(& process_status_246));
}
@@ -6318,7 +6122,6 @@ int main(int argc, char const **argv)
int process_status_247;
__e_acsl_store_block((void *)(& process_status_247),(size_t)4);
__gen_e_acsl_waitpid(pid_247,& process_status_247,0);
- /*@ assert Eva: initialization: \initialized(&process_status_247); */
signal_eval(process_status_247,1,__gen_e_acsl_literal_string_311);
__e_acsl_delete_block((void *)(& process_status_247));
}
@@ -6333,7 +6136,6 @@ int main(int argc, char const **argv)
int process_status_248;
__e_acsl_store_block((void *)(& process_status_248),(size_t)4);
__gen_e_acsl_waitpid(pid_248,& process_status_248,0);
- /*@ assert Eva: initialization: \initialized(&process_status_248); */
signal_eval(process_status_248,0,__gen_e_acsl_literal_string_313);
__e_acsl_delete_block((void *)(& process_status_248));
}
@@ -6348,7 +6150,6 @@ int main(int argc, char const **argv)
int process_status_249;
__e_acsl_store_block((void *)(& process_status_249),(size_t)4);
__gen_e_acsl_waitpid(pid_249,& process_status_249,0);
- /*@ assert Eva: initialization: \initialized(&process_status_249); */
signal_eval(process_status_249,1,__gen_e_acsl_literal_string_314);
__e_acsl_delete_block((void *)(& process_status_249));
}
@@ -6363,7 +6164,6 @@ int main(int argc, char const **argv)
int process_status_250;
__e_acsl_store_block((void *)(& process_status_250),(size_t)4);
__gen_e_acsl_waitpid(pid_250,& process_status_250,0);
- /*@ assert Eva: initialization: \initialized(&process_status_250); */
signal_eval(process_status_250,1,__gen_e_acsl_literal_string_315);
__e_acsl_delete_block((void *)(& process_status_250));
}
@@ -6379,7 +6179,6 @@ int main(int argc, char const **argv)
int process_status_251;
__e_acsl_store_block((void *)(& process_status_251),(size_t)4);
__gen_e_acsl_waitpid(pid_251,& process_status_251,0);
- /*@ assert Eva: initialization: \initialized(&process_status_251); */
signal_eval(process_status_251,1,__gen_e_acsl_literal_string_316);
__e_acsl_delete_block((void *)(& process_status_251));
}
@@ -6394,7 +6193,6 @@ int main(int argc, char const **argv)
int process_status_252;
__e_acsl_store_block((void *)(& process_status_252),(size_t)4);
__gen_e_acsl_waitpid(pid_252,& process_status_252,0);
- /*@ assert Eva: initialization: \initialized(&process_status_252); */
signal_eval(process_status_252,1,__gen_e_acsl_literal_string_318);
__e_acsl_delete_block((void *)(& process_status_252));
}
@@ -6409,7 +6207,6 @@ int main(int argc, char const **argv)
int process_status_253;
__e_acsl_store_block((void *)(& process_status_253),(size_t)4);
__gen_e_acsl_waitpid(pid_253,& process_status_253,0);
- /*@ assert Eva: initialization: \initialized(&process_status_253); */
signal_eval(process_status_253,1,__gen_e_acsl_literal_string_320);
__e_acsl_delete_block((void *)(& process_status_253));
}
@@ -6424,7 +6221,6 @@ int main(int argc, char const **argv)
int process_status_254;
__e_acsl_store_block((void *)(& process_status_254),(size_t)4);
__gen_e_acsl_waitpid(pid_254,& process_status_254,0);
- /*@ assert Eva: initialization: \initialized(&process_status_254); */
signal_eval(process_status_254,1,__gen_e_acsl_literal_string_322);
__e_acsl_delete_block((void *)(& process_status_254));
}
@@ -6439,7 +6235,6 @@ int main(int argc, char const **argv)
int process_status_255;
__e_acsl_store_block((void *)(& process_status_255),(size_t)4);
__gen_e_acsl_waitpid(pid_255,& process_status_255,0);
- /*@ assert Eva: initialization: \initialized(&process_status_255); */
signal_eval(process_status_255,1,__gen_e_acsl_literal_string_324);
__e_acsl_delete_block((void *)(& process_status_255));
}
@@ -6454,7 +6249,6 @@ int main(int argc, char const **argv)
int process_status_256;
__e_acsl_store_block((void *)(& process_status_256),(size_t)4);
__gen_e_acsl_waitpid(pid_256,& process_status_256,0);
- /*@ assert Eva: initialization: \initialized(&process_status_256); */
signal_eval(process_status_256,1,__gen_e_acsl_literal_string_326);
__e_acsl_delete_block((void *)(& process_status_256));
}
@@ -6469,7 +6263,6 @@ int main(int argc, char const **argv)
int process_status_257;
__e_acsl_store_block((void *)(& process_status_257),(size_t)4);
__gen_e_acsl_waitpid(pid_257,& process_status_257,0);
- /*@ assert Eva: initialization: \initialized(&process_status_257); */
signal_eval(process_status_257,1,__gen_e_acsl_literal_string_328);
__e_acsl_delete_block((void *)(& process_status_257));
}
@@ -6484,7 +6277,6 @@ int main(int argc, char const **argv)
int process_status_258;
__e_acsl_store_block((void *)(& process_status_258),(size_t)4);
__gen_e_acsl_waitpid(pid_258,& process_status_258,0);
- /*@ assert Eva: initialization: \initialized(&process_status_258); */
signal_eval(process_status_258,1,__gen_e_acsl_literal_string_330);
__e_acsl_delete_block((void *)(& process_status_258));
}
@@ -6499,7 +6291,6 @@ int main(int argc, char const **argv)
int process_status_259;
__e_acsl_store_block((void *)(& process_status_259),(size_t)4);
__gen_e_acsl_waitpid(pid_259,& process_status_259,0);
- /*@ assert Eva: initialization: \initialized(&process_status_259); */
signal_eval(process_status_259,1,__gen_e_acsl_literal_string_332);
__e_acsl_delete_block((void *)(& process_status_259));
}
@@ -6514,7 +6305,6 @@ int main(int argc, char const **argv)
int process_status_260;
__e_acsl_store_block((void *)(& process_status_260),(size_t)4);
__gen_e_acsl_waitpid(pid_260,& process_status_260,0);
- /*@ assert Eva: initialization: \initialized(&process_status_260); */
signal_eval(process_status_260,1,__gen_e_acsl_literal_string_333);
__e_acsl_delete_block((void *)(& process_status_260));
}
@@ -6529,7 +6319,6 @@ int main(int argc, char const **argv)
int process_status_261;
__e_acsl_store_block((void *)(& process_status_261),(size_t)4);
__gen_e_acsl_waitpid(pid_261,& process_status_261,0);
- /*@ assert Eva: initialization: \initialized(&process_status_261); */
signal_eval(process_status_261,1,__gen_e_acsl_literal_string_335);
__e_acsl_delete_block((void *)(& process_status_261));
}
@@ -6544,7 +6333,6 @@ int main(int argc, char const **argv)
int process_status_262;
__e_acsl_store_block((void *)(& process_status_262),(size_t)4);
__gen_e_acsl_waitpid(pid_262,& process_status_262,0);
- /*@ assert Eva: initialization: \initialized(&process_status_262); */
signal_eval(process_status_262,1,__gen_e_acsl_literal_string_337);
__e_acsl_delete_block((void *)(& process_status_262));
}
diff --git a/src/plugins/e-acsl/tests/format/oracle_ci/printf.res.oracle b/src/plugins/e-acsl/tests/format/oracle_ci/printf.res.oracle
index 61b4cbef62c5fb1201aee5ba31e520cc5c13c490..7e9dbd5e9e4cc0ccf159e9c4c9bdbb7ba25a2110 100644
--- a/src/plugins/e-acsl/tests/format/oracle_ci/printf.res.oracle
+++ b/src/plugins/e-acsl/tests/format/oracle_ci/printf.res.oracle
@@ -25,12 +25,15 @@
if there are memory-related annotations.
[e-acsl] FRAMAC_SHARE/libc/string.h:351: Warning:
E-ACSL construct `\separated' is not yet supported. Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/sys/wait.h:92: Warning:
+[e-acsl] FRAMAC_SHARE/libc/sys/wait.h:79: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
[e-acsl] FRAMAC_SHARE/libc/sys/wait.h:86: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
+[e-acsl] FRAMAC_SHARE/libc/unistd.h:854: Warning:
+ E-ACSL construct `assigns clause in behavior' is not yet supported.
+ Ignoring annotation.
[e-acsl] FRAMAC_SHARE/libc/string.h:351: Warning:
E-ACSL construct `logic functions with labels' is not yet supported.
Ignoring annotation.
@@ -40,24 +43,39 @@
Ignoring annotation.
[e-acsl] FRAMAC_SHARE/libc/string.h:354: Warning:
E-ACSL construct `\separated' is not yet supported. Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/string.h:354: Warning:
+[e-acsl] FRAMAC_SHARE/libc/string.h:351: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
[e-acsl] FRAMAC_SHARE/libc/string.h:357: Warning:
E-ACSL construct `logic functions performing read accesses'
is not yet supported.
Ignoring annotation.
+[e-acsl] FRAMAC_SHARE/libc/string.h:160: Warning:
+ E-ACSL construct `user-defined logic type' is not yet supported.
+ Ignoring annotation.
+[e-acsl] FRAMAC_SHARE/libc/string.h:167: Warning:
+ E-ACSL construct `user-defined logic type' is not yet supported.
+ Ignoring annotation.
[e-acsl] FRAMAC_SHARE/libc/string.h:157: Warning:
E-ACSL construct `logic functions with labels' is not yet supported.
Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/string.h:171: Warning:
+[e-acsl] FRAMAC_SHARE/libc/string.h:157: Warning:
+ Some assumes clauses couldn't be translated.
+ Ignoring complete and disjoint behaviors annotations.
+[e-acsl] FRAMAC_SHARE/libc/string.h:157: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/string.h:160: Warning:
- E-ACSL construct `user-defined logic type' is not yet supported.
+[e-acsl] FRAMAC_SHARE/libc/string.h:163: Warning:
+ E-ACSL construct `logic functions performing read accesses'
+ is not yet supported.
Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/string.h:167: Warning:
- E-ACSL construct `user-defined logic type' is not yet supported.
+[e-acsl] FRAMAC_SHARE/libc/string.h:164: Warning:
+ E-ACSL construct `logic functions with labels' is not yet supported.
+ Ignoring annotation.
+[e-acsl] FRAMAC_SHARE/libc/string.h:165: Warning:
+ invalid E-ACSL construct
+ `non integer variable p in quantification
+ found: ∀ char *p; \old(s) ≤ p < \result ⇒ *p ≢ (char)\old(c)'.
Ignoring annotation.
[e-acsl] FRAMAC_SHARE/libc/string.h:125: Warning:
E-ACSL construct `logic functions with labels' is not yet supported.
@@ -69,17 +87,17 @@
E-ACSL construct `logic functions performing read accesses'
is not yet supported.
Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/string.h:127: Warning:
+[e-acsl] FRAMAC_SHARE/libc/stdlib.h:470: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/string.h:127: Warning:
+[e-acsl] FRAMAC_SHARE/libc/stdlib.h:472: Warning:
E-ACSL construct `abnormal termination case in behavior'
is not yet supported.
Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/stdlib.h:473: Warning:
+[e-acsl] FRAMAC_SHARE/libc/stdlib.h:457: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/stdlib.h:473: Warning:
+[e-acsl] FRAMAC_SHARE/libc/stdlib.h:459: Warning:
E-ACSL construct `abnormal termination case in behavior'
is not yet supported.
Ignoring annotation.
@@ -90,565 +108,3 @@
function __gen_e_acsl_fork: postcondition 'result_ok_child_or_error' got status unknown.
[kernel:annot:missing-spec] tests/format/printf.c:180: Warning:
Neither code nor specification for function __e_acsl_builtin_printf, generating default assigns from the prototype
-[eva:alarm] FRAMAC_SHARE/libc/sys/wait.h:86: Warning:
- function __e_acsl_assert: precondition got status unknown.
-[eva:alarm] FRAMAC_SHARE/libc/sys/wait.h:86: Warning:
- function __gen_e_acsl_waitpid: postcondition 'initialization,stat_loc_init_on_success' got status unknown.
-[eva:alarm] tests/format/printf.c:180: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status);
-[kernel:annot:missing-spec] tests/format/signalled.h:17: Warning:
- Neither code nor specification for function __e_acsl_builtin_fprintf, generating default assigns from the prototype
-[eva:alarm] tests/format/printf.c:183: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_0);
-[eva:alarm] tests/format/printf.c:186: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_1);
-[eva:alarm] tests/format/printf.c:189: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_2);
-[eva:alarm] tests/format/printf.c:194: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_3);
-[eva:alarm] tests/format/printf.c:197: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_4);
-[eva:alarm] tests/format/printf.c:199: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_5);
-[eva:alarm] tests/format/printf.c:201: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_6);
-[eva:alarm] tests/format/printf.c:204: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_7);
-[eva:alarm] tests/format/printf.c:206: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_8);
-[eva:alarm] tests/format/printf.c:51: Warning:
- function __e_acsl_assert: precondition got status unknown.
-[eva:alarm] FRAMAC_SHARE/libc/string.h:357: Warning:
- function __gen_e_acsl_strcpy: postcondition 'equal_contents' got status unknown.
-[eva:alarm] FRAMAC_SHARE/libc/string.h:165: Warning:
- function __gen_e_acsl_strchr, behavior found: postcondition 'result_first_occur' got status unknown.
-[eva:alarm] tests/format/printf.c:59: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status);
-[eva:alarm] FRAMAC_SHARE/libc/string.h:161: Warning:
- function __gen_e_acsl_strchr, behavior found: postcondition 'result_char' got status unknown.
-[eva:alarm] FRAMAC_SHARE/libc/string.h:161: Warning:
- function __gen_e_acsl_strchr, behavior found: postcondition 'result_char' got status unknown. (Behavior may be inactive, no reduction performed.)
-[eva:alarm] FRAMAC_SHARE/libc/string.h:162: Warning:
- function __gen_e_acsl_strchr, behavior found: postcondition 'result_same_base' got status unknown. (Behavior may be inactive, no reduction performed.)
-[eva:alarm] FRAMAC_SHARE/libc/string.h:163: Warning:
- function __gen_e_acsl_strchr, behavior found: postcondition 'result_in_length' got status unknown. (Behavior may be inactive, no reduction performed.)
-[eva:alarm] FRAMAC_SHARE/libc/string.h:164: Warning:
- function __gen_e_acsl_strchr, behavior found: postcondition 'result_valid_string' got status unknown. (Behavior may be inactive, no reduction performed.)
-[eva:alarm] FRAMAC_SHARE/libc/string.h:165: Warning:
- function __gen_e_acsl_strchr, behavior found: postcondition 'result_first_occur' got status unknown. (Behavior may be inactive, no reduction performed.)
-[eva:alarm] FRAMAC_SHARE/libc/string.h:168: Warning:
- function __gen_e_acsl_strchr, behavior not_found: postcondition 'result_null' got status unknown. (Behavior may be inactive, no reduction performed.)
-[eva:alarm] tests/format/printf.c:62: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_0);
-[eva:alarm] tests/format/signalled.h:17: Warning:
- signed overflow. assert testno + 1 ≤ 2147483647;
-[eva:alarm] tests/format/printf.c:224: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_9);
-[eva:alarm] tests/format/printf.c:225: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_10);
-[eva:alarm] tests/format/printf.c:226: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_11);
-[eva:alarm] tests/format/printf.c:233: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_12);
-[eva:alarm] tests/format/printf.c:233: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_13);
-[eva:alarm] tests/format/printf.c:234: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_14);
-[eva:alarm] tests/format/printf.c:234: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_15);
-[eva:alarm] tests/format/printf.c:235: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_16);
-[eva:alarm] tests/format/printf.c:235: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_17);
-[eva:alarm] tests/format/printf.c:235: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_18);
-[eva:alarm] tests/format/printf.c:239: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_19);
-[eva:alarm] tests/format/printf.c:239: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_20);
-[eva:alarm] tests/format/printf.c:240: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_21);
-[eva:alarm] tests/format/printf.c:240: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_22);
-[eva:alarm] tests/format/printf.c:241: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_23);
-[eva:alarm] tests/format/printf.c:241: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_24);
-[eva:alarm] tests/format/printf.c:241: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_25);
-[eva:alarm] tests/format/printf.c:245: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_26);
-[eva:alarm] tests/format/printf.c:245: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_27);
-[eva:alarm] tests/format/printf.c:246: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_28);
-[eva:alarm] tests/format/printf.c:246: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_29);
-[eva:alarm] tests/format/printf.c:247: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_30);
-[eva:alarm] tests/format/printf.c:247: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_31);
-[eva:alarm] tests/format/printf.c:249: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_32);
-[eva:alarm] tests/format/printf.c:249: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_33);
-[eva:alarm] tests/format/printf.c:250: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_34);
-[eva:alarm] tests/format/printf.c:250: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_35);
-[eva:alarm] tests/format/printf.c:251: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_36);
-[eva:alarm] tests/format/printf.c:251: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_37);
-[eva:alarm] tests/format/printf.c:252: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_38);
-[eva:alarm] tests/format/printf.c:252: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_39);
-[eva:alarm] tests/format/printf.c:254: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_40);
-[eva:alarm] tests/format/printf.c:257: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_41);
-[eva:alarm] tests/format/printf.c:261: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_42);
-[eva:alarm] tests/format/printf.c:261: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_43);
-[eva:alarm] tests/format/printf.c:262: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_44);
-[eva:alarm] tests/format/printf.c:262: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_45);
-[eva:alarm] tests/format/printf.c:263: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_46);
-[eva:alarm] tests/format/printf.c:263: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_47);
-[eva:alarm] tests/format/printf.c:263: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_48);
-[eva:alarm] tests/format/printf.c:267: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_49);
-[eva:alarm] tests/format/printf.c:267: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_50);
-[eva:alarm] tests/format/printf.c:268: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_51);
-[eva:alarm] tests/format/printf.c:268: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_52);
-[eva:alarm] tests/format/printf.c:269: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_53);
-[eva:alarm] tests/format/printf.c:269: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_54);
-[eva:alarm] tests/format/printf.c:269: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_55);
-[eva:alarm] tests/format/printf.c:277: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_56);
-[eva:alarm] tests/format/printf.c:277: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_57);
-[eva:alarm] tests/format/printf.c:281: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_58);
-[eva:alarm] tests/format/printf.c:281: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_59);
-[eva:alarm] tests/format/printf.c:282: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_60);
-[eva:alarm] tests/format/printf.c:282: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_61);
-[eva:alarm] tests/format/printf.c:282: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_62);
-[eva:alarm] tests/format/printf.c:289: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_63);
-[eva:alarm] tests/format/printf.c:289: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_64);
-[eva:alarm] tests/format/printf.c:290: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_65);
-[eva:alarm] tests/format/printf.c:290: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_66);
-[eva:alarm] tests/format/printf.c:295: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_67);
-[eva:alarm] tests/format/printf.c:295: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_68);
-[eva:alarm] tests/format/printf.c:296: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_69);
-[eva:alarm] tests/format/printf.c:300: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_70);
-[eva:alarm] tests/format/printf.c:300: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_71);
-[eva:alarm] tests/format/printf.c:301: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_72);
-[eva:alarm] tests/format/printf.c:301: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_73);
-[eva:alarm] tests/format/printf.c:302: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_74);
-[eva:alarm] tests/format/printf.c:302: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_75);
-[eva:alarm] tests/format/printf.c:303: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_76);
-[eva:alarm] tests/format/printf.c:303: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_77);
-[eva:alarm] tests/format/printf.c:307: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_78);
-[eva:alarm] tests/format/printf.c:308: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_79);
-[eva:alarm] tests/format/printf.c:309: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_80);
-[eva:alarm] tests/format/printf.c:312: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_81);
-[eva:alarm] tests/format/printf.c:312: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_82);
-[eva:alarm] tests/format/printf.c:313: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_83);
-[eva:alarm] tests/format/printf.c:313: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_84);
-[eva:alarm] tests/format/printf.c:314: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_85);
-[eva:alarm] tests/format/printf.c:314: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_86);
-[eva:alarm] tests/format/printf.c:315: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_87);
-[eva:alarm] tests/format/printf.c:315: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_88);
-[eva:alarm] tests/format/printf.c:316: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_89);
-[eva:alarm] tests/format/printf.c:316: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_90);
-[eva:alarm] tests/format/printf.c:317: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_91);
-[eva:alarm] tests/format/printf.c:317: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_92);
-[eva:alarm] tests/format/printf.c:318: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_93);
-[eva:alarm] tests/format/printf.c:318: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_94);
-[eva:alarm] tests/format/printf.c:321: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_95);
-[eva:alarm] tests/format/printf.c:321: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_96);
-[eva:alarm] tests/format/printf.c:322: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_97);
-[eva:alarm] tests/format/printf.c:322: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_98);
-[eva:alarm] tests/format/printf.c:323: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_99);
-[eva:alarm] tests/format/printf.c:323: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_100);
-[eva:alarm] tests/format/printf.c:324: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_101);
-[eva:alarm] tests/format/printf.c:324: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_102);
-[eva:alarm] tests/format/printf.c:326: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_103);
-[eva:alarm] tests/format/printf.c:326: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_104);
-[eva:alarm] tests/format/printf.c:330: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_105);
-[eva:alarm] tests/format/printf.c:330: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_106);
-[eva:alarm] tests/format/printf.c:333: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_107);
-[eva:alarm] tests/format/printf.c:333: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_108);
-[eva:alarm] tests/format/printf.c:333: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_109);
-[eva:alarm] tests/format/printf.c:333: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_110);
-[eva:alarm] tests/format/printf.c:334: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_111);
-[eva:alarm] tests/format/printf.c:334: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_112);
-[eva:alarm] tests/format/printf.c:334: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_113);
-[eva:alarm] tests/format/printf.c:334: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_114);
-[eva:alarm] tests/format/printf.c:335: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_115);
-[eva:alarm] tests/format/printf.c:335: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_116);
-[eva:alarm] tests/format/printf.c:335: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_117);
-[eva:alarm] tests/format/printf.c:335: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_118);
-[eva:alarm] tests/format/printf.c:336: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_119);
-[eva:alarm] tests/format/printf.c:336: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_120);
-[eva:alarm] tests/format/printf.c:336: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_121);
-[eva:alarm] tests/format/printf.c:336: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_122);
-[eva:alarm] tests/format/printf.c:337: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_123);
-[eva:alarm] tests/format/printf.c:337: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_124);
-[eva:alarm] tests/format/printf.c:337: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_125);
-[eva:alarm] tests/format/printf.c:337: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_126);
-[eva:alarm] tests/format/printf.c:338: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_127);
-[eva:alarm] tests/format/printf.c:338: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_128);
-[eva:alarm] tests/format/printf.c:338: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_129);
-[eva:alarm] tests/format/printf.c:338: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_130);
-[eva:alarm] tests/format/printf.c:341: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_131);
-[eva:alarm] tests/format/printf.c:341: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_132);
-[eva:alarm] tests/format/printf.c:341: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_133);
-[eva:alarm] tests/format/printf.c:341: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_134);
-[eva:alarm] tests/format/printf.c:342: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_135);
-[eva:alarm] tests/format/printf.c:342: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_136);
-[eva:alarm] tests/format/printf.c:342: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_137);
-[eva:alarm] tests/format/printf.c:342: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_138);
-[eva:alarm] tests/format/printf.c:344: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_139);
-[eva:alarm] tests/format/printf.c:344: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_140);
-[eva:alarm] tests/format/printf.c:344: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_141);
-[eva:alarm] tests/format/printf.c:344: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_142);
-[eva:alarm] tests/format/printf.c:346: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_143);
-[eva:alarm] tests/format/printf.c:346: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_144);
-[eva:alarm] tests/format/printf.c:346: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_145);
-[eva:alarm] tests/format/printf.c:346: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_146);
-[eva:alarm] tests/format/printf.c:347: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_147);
-[eva:alarm] tests/format/printf.c:347: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_148);
-[eva:alarm] tests/format/printf.c:347: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_149);
-[eva:alarm] tests/format/printf.c:347: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_150);
-[eva:alarm] tests/format/printf.c:348: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_151);
-[eva:alarm] tests/format/printf.c:348: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_152);
-[eva:alarm] tests/format/printf.c:348: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_153);
-[eva:alarm] tests/format/printf.c:348: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_154);
-[eva:alarm] tests/format/printf.c:350: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_155);
-[eva:alarm] tests/format/printf.c:350: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_156);
-[eva:alarm] tests/format/printf.c:350: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_157);
-[eva:alarm] tests/format/printf.c:350: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_158);
-[eva:alarm] tests/format/printf.c:354: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_159);
-[eva:alarm] tests/format/printf.c:354: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_160);
-[eva:alarm] tests/format/printf.c:355: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_161);
-[eva:alarm] tests/format/printf.c:355: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_162);
-[eva:alarm] tests/format/printf.c:356: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_163);
-[eva:alarm] tests/format/printf.c:356: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_164);
-[eva:alarm] tests/format/printf.c:357: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_165);
-[eva:alarm] tests/format/printf.c:357: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_166);
-[eva:alarm] tests/format/printf.c:358: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_167);
-[eva:alarm] tests/format/printf.c:358: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_168);
-[eva:alarm] tests/format/printf.c:359: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_169);
-[eva:alarm] tests/format/printf.c:359: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_170);
-[eva:alarm] tests/format/printf.c:360: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_171);
-[eva:alarm] tests/format/printf.c:360: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_172);
-[eva:alarm] tests/format/printf.c:361: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_173);
-[eva:alarm] tests/format/printf.c:361: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_174);
-[eva:alarm] tests/format/printf.c:362: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_175);
-[eva:alarm] tests/format/printf.c:362: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_176);
-[eva:alarm] tests/format/printf.c:363: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_177);
-[eva:alarm] tests/format/printf.c:363: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_178);
-[eva:alarm] tests/format/printf.c:364: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_179);
-[eva:alarm] tests/format/printf.c:364: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_180);
-[eva:alarm] tests/format/printf.c:365: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_181);
-[eva:alarm] tests/format/printf.c:365: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_182);
-[eva:alarm] tests/format/printf.c:366: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_183);
-[eva:alarm] tests/format/printf.c:366: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_184);
-[eva:alarm] tests/format/printf.c:367: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_185);
-[eva:alarm] tests/format/printf.c:367: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_186);
-[eva:alarm] tests/format/printf.c:368: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_187);
-[eva:alarm] tests/format/printf.c:368: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_188);
-[eva:alarm] tests/format/printf.c:369: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_189);
-[eva:alarm] tests/format/printf.c:369: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_190);
-[eva:alarm] tests/format/printf.c:372: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_191);
-[eva:alarm] tests/format/printf.c:372: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_192);
-[eva:alarm] tests/format/printf.c:373: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_193);
-[eva:alarm] tests/format/printf.c:373: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_194);
-[eva:alarm] tests/format/printf.c:374: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_195);
-[eva:alarm] tests/format/printf.c:374: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_196);
-[eva:alarm] tests/format/printf.c:375: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_197);
-[eva:alarm] tests/format/printf.c:375: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_198);
-[eva:alarm] tests/format/printf.c:376: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_199);
-[eva:alarm] tests/format/printf.c:376: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_200);
-[eva:alarm] tests/format/printf.c:377: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_201);
-[eva:alarm] tests/format/printf.c:377: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_202);
-[eva:alarm] tests/format/printf.c:378: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_203);
-[eva:alarm] tests/format/printf.c:378: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_204);
-[eva:alarm] tests/format/printf.c:379: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_205);
-[eva:alarm] tests/format/printf.c:379: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_206);
-[eva:alarm] tests/format/printf.c:380: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_207);
-[eva:alarm] tests/format/printf.c:380: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_208);
-[eva:alarm] tests/format/printf.c:381: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_209);
-[eva:alarm] tests/format/printf.c:381: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_210);
-[eva:alarm] tests/format/printf.c:382: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_211);
-[eva:alarm] tests/format/printf.c:382: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_212);
-[eva:alarm] tests/format/printf.c:383: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_213);
-[eva:alarm] tests/format/printf.c:383: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_214);
-[eva:alarm] tests/format/printf.c:384: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_215);
-[eva:alarm] tests/format/printf.c:384: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_216);
-[eva:alarm] tests/format/printf.c:385: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_217);
-[eva:alarm] tests/format/printf.c:385: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_218);
-[eva:alarm] tests/format/printf.c:386: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_219);
-[eva:alarm] tests/format/printf.c:386: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_220);
-[eva:alarm] tests/format/printf.c:387: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_221);
-[eva:alarm] tests/format/printf.c:387: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_222);
-[eva:alarm] tests/format/printf.c:390: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_223);
-[eva:alarm] tests/format/printf.c:391: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_224);
-[eva:alarm] tests/format/printf.c:392: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_225);
-[eva:alarm] tests/format/printf.c:393: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_226);
-[eva:alarm] tests/format/printf.c:394: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_227);
-[eva:alarm] tests/format/printf.c:395: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_228);
-[eva:alarm] tests/format/printf.c:396: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_229);
-[eva:alarm] tests/format/printf.c:399: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_230);
-[eva:alarm] tests/format/printf.c:400: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_231);
-[eva:alarm] tests/format/printf.c:407: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_232);
-[eva:alarm] tests/format/printf.c:408: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_233);
-[eva:alarm] tests/format/printf.c:409: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_234);
-[eva:alarm] tests/format/printf.c:410: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_235);
-[eva:alarm] tests/format/printf.c:415: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_236);
-[eva:alarm] tests/format/printf.c:416: Warning:
- accessing uninitialized left-value. assert \initialized(&s2);
-[eva:alarm] tests/format/printf.c:416: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_237);
-[eva:alarm] tests/format/printf.c:419: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_238);
-[eva:alarm] tests/format/printf.c:421: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_239);
-[eva:alarm] tests/format/printf.c:424: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_240);
-[eva:alarm] tests/format/printf.c:425: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_241);
-[eva:alarm] tests/format/printf.c:426: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_242);
-[eva:alarm] tests/format/printf.c:427: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_243);
-[eva:alarm] tests/format/printf.c:428: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_244);
-[eva:alarm] tests/format/printf.c:453: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_245);
-[eva:alarm] tests/format/printf.c:454: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_246);
-[eva:alarm] tests/format/printf.c:455: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_247);
-[eva:alarm] tests/format/printf.c:458: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_248);
-[eva:alarm] tests/format/printf.c:459: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_249);
-[eva:alarm] tests/format/printf.c:460: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_250);
-[eva:alarm] tests/format/printf.c:461: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_251);
-[eva:alarm] tests/format/printf.c:464: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_252);
-[eva:alarm] tests/format/printf.c:465: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_253);
-[eva:alarm] tests/format/printf.c:466: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_254);
-[eva:alarm] tests/format/printf.c:467: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_255);
-[eva:alarm] tests/format/printf.c:468: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_256);
-[eva:alarm] tests/format/printf.c:469: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_257);
-[eva:alarm] tests/format/printf.c:470: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_258);
-[eva:alarm] tests/format/printf.c:471: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_259);
-[eva:alarm] tests/format/printf.c:472: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_260);
-[eva:alarm] tests/format/printf.c:473: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_261);
-[eva:alarm] tests/format/printf.c:476: Warning:
- accessing uninitialized left-value. assert \initialized(&process_status_262);
diff --git a/src/plugins/e-acsl/tests/memory/oracle_ci/ctype_macros.res.oracle b/src/plugins/e-acsl/tests/memory/oracle_ci/ctype_macros.res.oracle
index 270dcdb0d84448a3889a178d504aa1b53f9de220..bdd131d8e73293fe5368b6c090950b25c70897d4 100644
--- a/src/plugins/e-acsl/tests/memory/oracle_ci/ctype_macros.res.oracle
+++ b/src/plugins/e-acsl/tests/memory/oracle_ci/ctype_macros.res.oracle
@@ -2,22 +2,9 @@
[e-acsl] Warning: annotating undefined function `isupper':
the generated program may miss memory instrumentation
if there are memory-related annotations.
-[e-acsl] tests/memory/ctype_macros.c:39: Warning:
- E-ACSL construct `disjoint behaviors' is not yet supported.
- Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/ctype.h:174: Warning:
+[e-acsl] FRAMAC_SHARE/libc/ctype.h:173: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
[e-acsl] translation done in project "e-acsl".
[eva:alarm] tests/memory/ctype_macros.c:37: Warning:
function __gen_e_acsl_isupper: precondition 'c_uchar_or_eof' got status unknown.
-[eva:alarm] FRAMAC_SHARE/libc/ctype.h:174: Warning:
- function __e_acsl_assert: precondition got status unknown.
-[eva:alarm] FRAMAC_SHARE/libc/ctype.h:178: Warning:
- function __e_acsl_assert: precondition got status unknown.
-[eva:alarm] FRAMAC_SHARE/libc/ctype.h:181: Warning:
- function __e_acsl_assert: precondition got status unknown.
-[eva:alarm] FRAMAC_SHARE/libc/ctype.h:178: Warning:
- function __gen_e_acsl_isupper, behavior definitely_match: postcondition 'nonzero_result' got status unknown. (Behavior may be inactive, no reduction performed.)
-[eva:alarm] FRAMAC_SHARE/libc/ctype.h:181: Warning:
- function __gen_e_acsl_isupper, behavior definitely_not_match: postcondition 'zero_result' got status unknown. (Behavior may be inactive, no reduction performed.)
diff --git a/src/plugins/e-acsl/tests/memory/oracle_ci/gen_ctype_macros.c b/src/plugins/e-acsl/tests/memory/oracle_ci/gen_ctype_macros.c
index 2a3a6d2b1575bed6649e16d34d73779167cac8dc..cbf17bff568232f8b793732e40a59e0997ce068c 100644
--- a/src/plugins/e-acsl/tests/memory/oracle_ci/gen_ctype_macros.c
+++ b/src/plugins/e-acsl/tests/memory/oracle_ci/gen_ctype_macros.c
@@ -73,60 +73,66 @@ int main(int argc, char const **argv)
*/
int __gen_e_acsl_isupper(int c)
{
- int __gen_e_acsl_at_2;
- int __gen_e_acsl_at;
+ __e_acsl_contract_t *__gen_e_acsl_contract;
int __retres;
{
int __gen_e_acsl_and;
int __gen_e_acsl_or;
- if (0 <= c) __gen_e_acsl_and = c <= 255; else __gen_e_acsl_and = 0;
- if (__gen_e_acsl_and) __gen_e_acsl_or = 1;
- else __gen_e_acsl_or = c == -1;
- __e_acsl_assert(__gen_e_acsl_or,"Precondition","isupper",
- "(0 <= c <= 255) || c == -1","FRAMAC_SHARE/libc/ctype.h",
- 174);
- }
- {
+ int __gen_e_acsl_or_2;
+ int __gen_e_acsl_and_4;
int __gen_e_acsl_or_3;
- int __gen_e_acsl_or_4;
- if (c == -1) __gen_e_acsl_or_3 = 1;
+ int __gen_e_acsl_active_bhvrs;
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)2);
+ if (65 <= c) __gen_e_acsl_and = c <= 90; else __gen_e_acsl_and = 0;
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)0,
+ __gen_e_acsl_and);
+ if (c == -1) __gen_e_acsl_or = 1;
else {
- int __gen_e_acsl_and_3;
- if (0 <= c) __gen_e_acsl_and_3 = c < 65; else __gen_e_acsl_and_3 = 0;
- __gen_e_acsl_or_3 = __gen_e_acsl_and_3;
+ int __gen_e_acsl_and_2;
+ if (0 <= c) __gen_e_acsl_and_2 = c < 65; else __gen_e_acsl_and_2 = 0;
+ __gen_e_acsl_or = __gen_e_acsl_and_2;
}
- if (__gen_e_acsl_or_3) __gen_e_acsl_or_4 = 1;
+ if (__gen_e_acsl_or) __gen_e_acsl_or_2 = 1;
else {
- int __gen_e_acsl_and_4;
- if (90 < c) __gen_e_acsl_and_4 = c <= 127; else __gen_e_acsl_and_4 = 0;
- __gen_e_acsl_or_4 = __gen_e_acsl_and_4;
+ int __gen_e_acsl_and_3;
+ if (90 < c) __gen_e_acsl_and_3 = c <= 127; else __gen_e_acsl_and_3 = 0;
+ __gen_e_acsl_or_2 = __gen_e_acsl_and_3;
}
- __gen_e_acsl_at_2 = __gen_e_acsl_or_4;
- }
- {
- int __gen_e_acsl_and_2;
- if (65 <= c) __gen_e_acsl_and_2 = c <= 90; else __gen_e_acsl_and_2 = 0;
- __gen_e_acsl_at = __gen_e_acsl_and_2;
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)1,
+ __gen_e_acsl_or_2);
+ if (0 <= c) __gen_e_acsl_and_4 = c <= 255; else __gen_e_acsl_and_4 = 0;
+ if (__gen_e_acsl_and_4) __gen_e_acsl_or_3 = 1;
+ else __gen_e_acsl_or_3 = c == -1;
+ __e_acsl_assert(__gen_e_acsl_or_3,"Precondition","isupper",
+ "(0 <= c <= 255) || c == -1","FRAMAC_SHARE/libc/ctype.h",
+ 174);
+ __gen_e_acsl_active_bhvrs = __e_acsl_contract_partial_count_all_behaviors
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract);
+ __e_acsl_assert(__gen_e_acsl_active_bhvrs <= 1,"Precondition","isupper",
+ "all behaviors disjoint","FRAMAC_SHARE/libc/ctype.h",173);
}
__retres = isupper(c);
{
- int __gen_e_acsl_implies;
- int __gen_e_acsl_implies_2;
- if (! __gen_e_acsl_at) __gen_e_acsl_implies = 1;
- else {
- int __gen_e_acsl_or_2;
- if (__retres < 0) __gen_e_acsl_or_2 = 1;
- else __gen_e_acsl_or_2 = __retres > 0;
- __gen_e_acsl_implies = __gen_e_acsl_or_2;
+ int __gen_e_acsl_assumes_value;
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value) {
+ int __gen_e_acsl_or_4;
+ if (__retres < 0) __gen_e_acsl_or_4 = 1;
+ else __gen_e_acsl_or_4 = __retres > 0;
+ __e_acsl_assert(__gen_e_acsl_or_4,"Postcondition","isupper",
+ "definitely_match: \\result < 0 || \\result > 0",
+ "FRAMAC_SHARE/libc/ctype.h",178);
}
- __e_acsl_assert(__gen_e_acsl_implies,"Postcondition","isupper",
- "\\old(\'A\' <= c <= \'Z\') ==> \\result < 0 || \\result > 0",
- "FRAMAC_SHARE/libc/ctype.h",178);
- if (! __gen_e_acsl_at_2) __gen_e_acsl_implies_2 = 1;
- else __gen_e_acsl_implies_2 = __retres == 0;
- __e_acsl_assert(__gen_e_acsl_implies_2,"Postcondition","isupper",
- "\\old(c == -1 || (0 <= c < \'A\') || (\'Z\' < c <= 127)) ==> \\result == 0",
- "FRAMAC_SHARE/libc/ctype.h",181);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(__retres == 0,
+ "Postcondition",
+ "isupper",
+ "definitely_not_match: \\result == 0",
+ "FRAMAC_SHARE/libc/ctype.h",
+ 181);
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
return __retres;
}
}
diff --git a/src/plugins/e-acsl/tests/memory/oracle_ci/gen_memalign.c b/src/plugins/e-acsl/tests/memory/oracle_ci/gen_memalign.c
index 53c57ee917932634a7b3679989189b5acb02a2ca..594eb809025228428f8d77a55c247c7157cab650 100644
--- a/src/plugins/e-acsl/tests/memory/oracle_ci/gen_memalign.c
+++ b/src/plugins/e-acsl/tests/memory/oracle_ci/gen_memalign.c
@@ -54,7 +54,6 @@ int main(int argc, char const **argv)
int res2 =
__gen_e_acsl_posix_memalign((void **)memptr,(unsigned long)256,
(unsigned long)15);
- /*@ assert Eva: initialization: \initialized(memptr); */
char *p = *memptr;
__e_acsl_store_block((void *)(& p),(size_t)8);
__e_acsl_full_init((void *)(& p));
@@ -216,11 +215,13 @@ int main(int argc, char const **argv)
*/
int __gen_e_acsl_posix_memalign(void **memptr, size_t alignment, size_t size)
{
+ __e_acsl_contract_t *__gen_e_acsl_contract;
int __retres;
{
int __gen_e_acsl_valid;
int __gen_e_acsl_and;
__e_acsl_store_block((void *)(& memptr),(size_t)8);
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)2);
__gen_e_acsl_valid = __e_acsl_valid((void *)memptr,sizeof(void *),
(void *)memptr,(void *)(& memptr));
__e_acsl_assert(__gen_e_acsl_valid,"Precondition","posix_memalign",
@@ -254,8 +255,30 @@ int __gen_e_acsl_posix_memalign(void **memptr, size_t alignment, size_t size)
"FRAMAC_SHARE/libc/stdlib.h",668);
}
__retres = posix_memalign(memptr,alignment,size);
- __e_acsl_delete_block((void *)(& memptr));
- return __retres;
+ {
+ int __gen_e_acsl_assumes_value;
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(__retres == 0,
+ "Postcondition",
+ "posix_memalign",
+ "allocation: \\result == 0",
+ "FRAMAC_SHARE/libc/stdlib.h",
+ 680);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value) {
+ int __gen_e_acsl_or;
+ if (__retres < 0) __gen_e_acsl_or = 1;
+ else __gen_e_acsl_or = __retres > 0;
+ __e_acsl_assert(__gen_e_acsl_or,"Postcondition","posix_memalign",
+ "no_allocation: \\result < 0 || \\result > 0",
+ "FRAMAC_SHARE/libc/stdlib.h",685);
+ }
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
+ __e_acsl_delete_block((void *)(& memptr));
+ return __retres;
+ }
}
diff --git a/src/plugins/e-acsl/tests/memory/oracle_ci/gen_valid_in_contract.c b/src/plugins/e-acsl/tests/memory/oracle_ci/gen_valid_in_contract.c
index 384a5a75de5fb66faa03dd8cbb4933b1c4c1cbd5..a41cd36b70d5ce51151560e0f1658d9b1a2b1af0 100644
--- a/src/plugins/e-acsl/tests/memory/oracle_ci/gen_valid_in_contract.c
+++ b/src/plugins/e-acsl/tests/memory/oracle_ci/gen_valid_in_contract.c
@@ -63,17 +63,18 @@ int main(void)
*/
struct list *__gen_e_acsl_f(struct list *l)
{
- struct list *__gen_e_acsl_at_4;
- int __gen_e_acsl_at_3;
struct list *__gen_e_acsl_at_2;
- int __gen_e_acsl_at;
+ struct list *__gen_e_acsl_at;
+ __e_acsl_contract_t *__gen_e_acsl_contract;
struct list *__retres;
__e_acsl_store_block((void *)(& __retres),(size_t)8);
- __e_acsl_store_block((void *)(& l),(size_t)8);
- __gen_e_acsl_at_4 = l;
{
int __gen_e_acsl_valid;
int __gen_e_acsl_or;
+ __e_acsl_store_block((void *)(& l),(size_t)8);
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)2);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)0,
+ l == (struct list *)0);
__gen_e_acsl_valid = __e_acsl_valid((void *)l,sizeof(struct list),
(void *)l,(void *)(& l));
if (! __gen_e_acsl_valid) __gen_e_acsl_or = 1;
@@ -101,24 +102,29 @@ struct list *__gen_e_acsl_f(struct list *l)
else __gen_e_acsl_and = 0;
__gen_e_acsl_or = ! __gen_e_acsl_and;
}
- __gen_e_acsl_at_3 = __gen_e_acsl_or;
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)1,
+ __gen_e_acsl_or);
}
__gen_e_acsl_at_2 = l;
- __gen_e_acsl_at = l == (struct list *)0;
+ __gen_e_acsl_at = l;
__retres = f(l);
{
- int __gen_e_acsl_implies;
- int __gen_e_acsl_implies_2;
- if (! __gen_e_acsl_at) __gen_e_acsl_implies = 1;
- else __gen_e_acsl_implies = __retres == __gen_e_acsl_at_2;
- __e_acsl_assert(__gen_e_acsl_implies,"Postcondition","f",
- "\\old(l == \\null) ==> \\result == \\old(l)",
- "tests/memory/valid_in_contract.c",15);
- if (! __gen_e_acsl_at_3) __gen_e_acsl_implies_2 = 1;
- else __gen_e_acsl_implies_2 = __retres == __gen_e_acsl_at_4;
- __e_acsl_assert(__gen_e_acsl_implies_2,"Postcondition","f",
- "\\old(!\\valid{Here}(l) || !\\valid{Here}(l->next)) ==> \\result == \\old(l)",
- "tests/memory/valid_in_contract.c",18);
+ int __gen_e_acsl_assumes_value;
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(__retres == __gen_e_acsl_at,
+ "Postcondition","f",
+ "B1: \\result == \\old(l)",
+ "tests/memory/valid_in_contract.c",
+ 15);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value) __e_acsl_assert(__retres == __gen_e_acsl_at_2,
+ "Postcondition","f",
+ "B2: \\result == \\old(l)",
+ "tests/memory/valid_in_contract.c",
+ 18);
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
__e_acsl_delete_block((void *)(& l));
__e_acsl_delete_block((void *)(& __retres));
return __retres;
diff --git a/src/plugins/e-acsl/tests/memory/oracle_ci/memalign.res.oracle b/src/plugins/e-acsl/tests/memory/oracle_ci/memalign.res.oracle
index bcfe10a812c72940b682369df2ac5f11caaaecba..a08399a71e09e3fde121d5d0a7439511ae6e23f0 100644
--- a/src/plugins/e-acsl/tests/memory/oracle_ci/memalign.res.oracle
+++ b/src/plugins/e-acsl/tests/memory/oracle_ci/memalign.res.oracle
@@ -4,30 +4,21 @@
if there are memory-related annotations.
[e-acsl] FRAMAC_SHARE/libc/stdlib.h:665: Warning:
E-ACSL construct `\fresh' is not yet supported. Ignoring annotation.
-[e-acsl] tests/memory/memalign.c:38: Warning:
- E-ACSL construct `complete behaviors' is not yet supported.
- Ignoring annotation.
-[e-acsl] tests/memory/memalign.c:38: Warning:
- E-ACSL construct `disjoint behaviors' is not yet supported.
- Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/stdlib.h:669: Warning:
- E-ACSL construct `assigns clause in behavior' is not yet supported.
- Ignoring annotation.
[e-acsl] FRAMAC_SHARE/libc/stdlib.h:675: Warning:
E-ACSL construct `predicate performing read accesses' is not yet supported.
Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/stdlib.h:675: Warning:
- E-ACSL construct `assigns clause in behavior' is not yet supported.
- Ignoring annotation.
[e-acsl] FRAMAC_SHARE/libc/stdlib.h:682: Warning:
E-ACSL construct `predicate performing read accesses' is not yet supported.
Ignoring annotation.
+[e-acsl] FRAMAC_SHARE/libc/stdlib.h:665: Warning:
+ Some assumes clauses couldn't be translated.
+ Ignoring complete and disjoint behaviors annotations.
+[e-acsl] FRAMAC_SHARE/libc/stdlib.h:665: Warning:
+ E-ACSL construct `assigns clause in behavior' is not yet supported.
+ Ignoring annotation.
+[e-acsl] FRAMAC_SHARE/libc/stdlib.h:679: Warning:
+ E-ACSL construct `\fresh' is not yet supported. Ignoring annotation.
+[e-acsl] FRAMAC_SHARE/libc/stdlib.h:680: Warning:
+ E-ACSL construct `assigns clause in behavior' is not yet supported.
+ Ignoring annotation.
[e-acsl] translation done in project "e-acsl".
-[eva:alarm] FRAMAC_SHARE/libc/stdlib.h:668: Warning:
- function __e_acsl_assert: precondition got status unknown.
-[eva] FRAMAC_SHARE/libc/stdlib.h:665: Warning:
- ignoring unsupported \allocates clause
-[eva:alarm] FRAMAC_SHARE/libc/stdlib.h:679: Warning:
- function __gen_e_acsl_posix_memalign, behavior allocation: postcondition 'allocation' got status unknown.
-[eva:alarm] tests/memory/memalign.c:14: Warning:
- accessing uninitialized left-value. assert \initialized(memptr);
diff --git a/src/plugins/e-acsl/tests/special/oracle_ci/e-acsl-valid.res.oracle b/src/plugins/e-acsl/tests/special/oracle_ci/e-acsl-valid.res.oracle
index 504ec1ce5e1e7ec93e53ba27fd59cb2f6fd01097..2a20efd543f570f710b1f32d7177806c057ed931 100644
--- a/src/plugins/e-acsl/tests/special/oracle_ci/e-acsl-valid.res.oracle
+++ b/src/plugins/e-acsl/tests/special/oracle_ci/e-acsl-valid.res.oracle
@@ -1,18 +1,15 @@
[eva:alarm] tests/special/e-acsl-valid.c:37: Warning:
function f: precondition \valid(y) got status unknown.
[e-acsl] beginning translation.
-[e-acsl] tests/special/e-acsl-valid.c:25: Warning:
+[e-acsl] tests/special/e-acsl-valid.c:28: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
[e-acsl] tests/special/e-acsl-valid.c:26: Warning:
E-ACSL construct `variant' is not yet supported. Ignoring annotation.
-[e-acsl] tests/special/e-acsl-valid.c:26: Warning:
- E-ACSL construct `complete behaviors' is not yet supported.
- Ignoring annotation.
-[e-acsl] tests/special/e-acsl-valid.c:26: Warning:
- E-ACSL construct `disjoint behaviors' is not yet supported.
+[e-acsl] tests/special/e-acsl-valid.c:24: Warning:
+ E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
-[e-acsl] tests/special/e-acsl-valid.c:10: Warning:
+[e-acsl] tests/special/e-acsl-valid.c:12: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
[e-acsl] translation done in project "e-acsl".
diff --git a/src/plugins/e-acsl/tests/special/oracle_ci/gen_e-acsl-valid.c b/src/plugins/e-acsl/tests/special/oracle_ci/gen_e-acsl-valid.c
index 1df7f9c88591481a05ac5957fbda8240e2a866ff..890e84bc928baf7442348bff76b96f4437330ebc 100644
--- a/src/plugins/e-acsl/tests/special/oracle_ci/gen_e-acsl-valid.c
+++ b/src/plugins/e-acsl/tests/special/oracle_ci/gen_e-acsl-valid.c
@@ -100,19 +100,97 @@ int main(void)
*/
void __gen_e_acsl_f(int *x, int *y)
{
+ int *__gen_e_acsl_at_4;
+ int *__gen_e_acsl_at_3;
+ long __gen_e_acsl_at_2;
+ int *__gen_e_acsl_at;
+ __e_acsl_contract_t *__gen_e_acsl_contract;
{
int __gen_e_acsl_valid;
+ int __gen_e_acsl_active_bhvrs;
__e_acsl_store_block((void *)(& y),(size_t)8);
__e_acsl_store_block((void *)(& x),(size_t)8);
+ __gen_e_acsl_contract = __e_acsl_contract_init((size_t)2);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)0,
+ *x == 1);
+ __e_acsl_contract_set_behavior_assumes(__gen_e_acsl_contract,(size_t)1,
+ *x == 0);
__gen_e_acsl_valid = __e_acsl_valid((void *)y,sizeof(int),(void *)y,
(void *)(& y));
__e_acsl_assert(__gen_e_acsl_valid,"Precondition","f","\\valid(y)",
"tests/special/e-acsl-valid.c",10);
+ __e_acsl_assert(*x >= 0,"Precondition","f","*x >= 0",
+ "tests/special/e-acsl-valid.c",11);
+ __gen_e_acsl_active_bhvrs = __e_acsl_contract_partial_count_all_behaviors
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract);
+ __e_acsl_assert(__gen_e_acsl_active_bhvrs >= 1,"Precondition","f",
+ "all behaviors complete","tests/special/e-acsl-valid.c",
+ 24);
+ __gen_e_acsl_active_bhvrs = __e_acsl_contract_partial_count_all_behaviors
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract);
+ __e_acsl_assert(__gen_e_acsl_active_bhvrs <= 1,"Precondition","f",
+ "all behaviors disjoint","tests/special/e-acsl-valid.c",
+ 24);
+ }
+ __gen_e_acsl_at_4 = x;
+ __gen_e_acsl_at_3 = x;
+ {
+ int __gen_e_acsl_valid_read;
+ __gen_e_acsl_valid_read = __e_acsl_valid_read((void *)x,sizeof(int),
+ (void *)x,(void *)(& x));
+ __e_acsl_assert(__gen_e_acsl_valid_read,"RTE","f",
+ "mem_access: \\valid_read(x)",
+ "tests/special/e-acsl-valid.c",12);
+ __gen_e_acsl_at_2 = (long)*x;
}
+ __gen_e_acsl_at = x;
f(x,y);
- __e_acsl_delete_block((void *)(& y));
- __e_acsl_delete_block((void *)(& x));
- return;
+ {
+ int __gen_e_acsl_valid_read_2;
+ int __gen_e_acsl_assumes_value;
+ __gen_e_acsl_valid_read_2 = __e_acsl_valid_read((void *)__gen_e_acsl_at,
+ sizeof(int),
+ (void *)__gen_e_acsl_at,
+ (void *)(& __gen_e_acsl_at));
+ __e_acsl_assert(__gen_e_acsl_valid_read_2,"RTE","f",
+ "mem_access: \\valid_read(__gen_e_acsl_at)",
+ "tests/special/e-acsl-valid.c",12);
+ __e_acsl_assert((long)*__gen_e_acsl_at == __gen_e_acsl_at_2 + 1L,
+ "Postcondition","f","*\\old(x) == \\old(*x) + 1",
+ "tests/special/e-acsl-valid.c",12);
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)0);
+ if (__gen_e_acsl_assumes_value) {
+ int __gen_e_acsl_valid_read_3;
+ __gen_e_acsl_valid_read_3 = __e_acsl_valid_read((void *)__gen_e_acsl_at_3,
+ sizeof(int),
+ (void *)__gen_e_acsl_at_3,
+ (void *)(& __gen_e_acsl_at_3));
+ __e_acsl_assert(__gen_e_acsl_valid_read_3,"RTE","f",
+ "mem_access: \\valid_read(__gen_e_acsl_at_3)",
+ "tests/special/e-acsl-valid.c",17);
+ __e_acsl_assert(*__gen_e_acsl_at_3 < 0,"Postcondition","f",
+ "b1: *\\old(x) < 0","tests/special/e-acsl-valid.c",17);
+ }
+ __gen_e_acsl_assumes_value = __e_acsl_contract_get_behavior_assumes
+ ((__e_acsl_contract_t const *)__gen_e_acsl_contract,(size_t)1);
+ if (__gen_e_acsl_assumes_value) {
+ int __gen_e_acsl_valid_read_4;
+ __gen_e_acsl_valid_read_4 = __e_acsl_valid_read((void *)__gen_e_acsl_at_4,
+ sizeof(int),
+ (void *)__gen_e_acsl_at_4,
+ (void *)(& __gen_e_acsl_at_4));
+ __e_acsl_assert(__gen_e_acsl_valid_read_4,"RTE","f",
+ "mem_access: \\valid_read(__gen_e_acsl_at_4)",
+ "tests/special/e-acsl-valid.c",20);
+ __e_acsl_assert(*__gen_e_acsl_at_4 == 1,"Postcondition","f",
+ "b2: *\\old(x) == 1","tests/special/e-acsl-valid.c",20);
+ }
+ __e_acsl_contract_clean(__gen_e_acsl_contract);
+ __e_acsl_delete_block((void *)(& y));
+ __e_acsl_delete_block((void *)(& x));
+ return;
+ }
}
diff --git a/src/plugins/e-acsl/tests/temporal/oracle_ci/t_getenv.res.oracle b/src/plugins/e-acsl/tests/temporal/oracle_ci/t_getenv.res.oracle
index b55cb5a92eafcf2f00321298635858249ab4b402..466e50c6150635682a7fa2664722e39de64c0707 100644
--- a/src/plugins/e-acsl/tests/temporal/oracle_ci/t_getenv.res.oracle
+++ b/src/plugins/e-acsl/tests/temporal/oracle_ci/t_getenv.res.oracle
@@ -5,7 +5,7 @@
[e-acsl] FRAMAC_SHARE/libc/stdlib.h:486: Warning:
E-ACSL construct `logic functions with labels' is not yet supported.
Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/stdlib.h:486: Warning:
+[e-acsl] FRAMAC_SHARE/libc/stdlib.h:485: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
[e-acsl] translation done in project "e-acsl".
diff --git a/src/plugins/e-acsl/tests/temporal/oracle_ci/t_memcpy.res.oracle b/src/plugins/e-acsl/tests/temporal/oracle_ci/t_memcpy.res.oracle
index c88bb93bb619661810e3435aa84bf288519fdd55..101a07c7fb68b6985cbe8896de359855582c12bd 100644
--- a/src/plugins/e-acsl/tests/temporal/oracle_ci/t_memcpy.res.oracle
+++ b/src/plugins/e-acsl/tests/temporal/oracle_ci/t_memcpy.res.oracle
@@ -24,7 +24,7 @@
Ignoring annotation.
[e-acsl] FRAMAC_SHARE/libc/string.h:95: Warning:
E-ACSL construct `\separated' is not yet supported. Ignoring annotation.
-[e-acsl] FRAMAC_SHARE/libc/string.h:95: Warning:
+[e-acsl] FRAMAC_SHARE/libc/string.h:92: Warning:
E-ACSL construct `assigns clause in behavior' is not yet supported.
Ignoring annotation.
[e-acsl] FRAMAC_SHARE/libc/string.h:98: Warning:
diff --git a/src/plugins/wp/tests/wp/oracle/wp_behav.res.oracle b/src/plugins/wp/tests/wp/oracle/wp_behav.res.oracle
index 5d027100e9993d57ffab79a3eaf4675645c65204..1482e87b434d9c3b0567abedd3464113b9cda5b2 100644
--- a/src/plugins/wp/tests/wp/oracle/wp_behav.res.oracle
+++ b/src/plugins/wp/tests/wp/oracle/wp_behav.res.oracle
@@ -30,7 +30,7 @@ Prove: true.
Function bhv
------------------------------------------------------------
-Goal Complete behaviors 'pos', 'neg':
+Goal Complete behaviors 'neg', 'pos':
Assume { Type: is_sint32(n). (* Pre-condition *) Have: n != 0. }
Prove: (0 < n) \/ (n < 0).
diff --git a/src/plugins/wp/tests/wp/oracle/wp_behavior.0.res.oracle b/src/plugins/wp/tests/wp/oracle/wp_behavior.0.res.oracle
index c28768d2976ffbf2d6c9b20e5988bcf6b50cb208..c377eb93bf7fa1a03983b67f6950c86b1e851748 100644
--- a/src/plugins/wp/tests/wp/oracle/wp_behavior.0.res.oracle
+++ b/src/plugins/wp/tests/wp/oracle/wp_behavior.0.res.oracle
@@ -6,7 +6,7 @@
Function behaviors
------------------------------------------------------------
-Goal Complete behaviors 'Y', 'X':
+Goal Complete behaviors 'X', 'Y':
Assume {
(* Pre-condition *)
Have: P_R.
@@ -19,7 +19,7 @@ Prove: P_CX \/ P_CY.
------------------------------------------------------------
-Goal Disjoint behaviors 'Y', 'X':
+Goal Disjoint behaviors 'X', 'Y':
Assume {
(* Pre-condition *)
Have: P_R.
diff --git a/src/plugins/wp/tests/wp/oracle/wp_behavior.1.res.oracle b/src/plugins/wp/tests/wp/oracle/wp_behavior.1.res.oracle
index e6e7eac38d3a52d4a34a9410eee8e1b1a7b2a27b..8d98a45587a8418840253e104b34f8591534e2d9 100644
--- a/src/plugins/wp/tests/wp/oracle/wp_behavior.1.res.oracle
+++ b/src/plugins/wp/tests/wp/oracle/wp_behavior.1.res.oracle
@@ -6,13 +6,13 @@
Function behaviors
------------------------------------------------------------
-Goal Complete behaviors 'Y', 'X':
+Goal Complete behaviors 'X', 'Y':
Assume { (* Pre-condition *) Have: P_R. }
Prove: P_CX \/ P_CY.
------------------------------------------------------------
-Goal Disjoint behaviors 'Y', 'X':
+Goal Disjoint behaviors 'X', 'Y':
Assume { (* Pre-condition *) Have: P_R. }
Prove: (!P_CX) \/ (!P_CY).
diff --git a/src/plugins/wp/tests/wp/oracle_qualif/wp_behav.0.res.oracle b/src/plugins/wp/tests/wp/oracle_qualif/wp_behav.0.res.oracle
index 367808737638d33e42c15d3193b3e69cb7dde789..faa679c96697f66156e01511131f9dc0cf867911 100644
--- a/src/plugins/wp/tests/wp/oracle_qualif/wp_behav.0.res.oracle
+++ b/src/plugins/wp/tests/wp/oracle_qualif/wp_behav.0.res.oracle
@@ -22,7 +22,7 @@
[wp] [Qed] Goal typed_min_disjoint_bx_by : Valid
[wp] [Qed] Goal typed_min_bx_ensures_qed_ok : Valid
[wp] [Qed] Goal typed_min_by_ensures_qed_ok : Valid
-[wp] [Alt-Ergo] Goal typed_bhv_complete_pos_neg : Valid
+[wp] [Alt-Ergo] Goal typed_bhv_complete_neg_pos : Valid
[wp] [Qed] Goal typed_bhv_pos_ensures_qed_ok : Valid
[wp] [Qed] Goal typed_bhv_neg_ensures_qed_ok : Valid
[wp] [Qed] Goal typed_stmt_contract_requires_qed_ok : Valid
diff --git a/src/plugins/wp/tests/wp_gallery/oracle/frama_c_hashtbl_solved.res.oracle b/src/plugins/wp/tests/wp_gallery/oracle/frama_c_hashtbl_solved.res.oracle
index b4db2ed7bddb4b89ef0bb5252ec75a712daea063..2429963d412aaa3b426504d27c25d7c2fc60722a 100644
--- a/src/plugins/wp/tests/wp_gallery/oracle/frama_c_hashtbl_solved.res.oracle
+++ b/src/plugins/wp/tests/wp_gallery/oracle/frama_c_hashtbl_solved.res.oracle
@@ -7,8 +7,8 @@
[rte] annotating function init
[rte] annotating function mem_binding
[rte] annotating function size
-[wp] Goal typed_eq_string_complete_not_eq_eq : trivial
-[wp] Goal typed_eq_string_disjoint_not_eq_eq : trivial
+[wp] Goal typed_eq_string_complete_eq_not_eq : trivial
+[wp] Goal typed_eq_string_disjoint_eq_not_eq : trivial
[wp] Goal typed_eq_string_loop_invariant_preserved : not tried
[wp] Goal typed_eq_string_loop_invariant_established : not tried
[wp] Goal typed_eq_string_loop_invariant_2_preserved : not tried
@@ -111,8 +111,8 @@
[wp] Goal typed_add_full_assigns_normal_part7 : not tried
[wp] Goal typed_add_full_assigns_normal_part8 : not tried
[wp] Goal typed_add_full_assigns_normal_part9 : not tried
-[wp] Goal typed_mem_binding_complete_not_found_found : not tried
-[wp] Goal typed_mem_binding_disjoint_not_found_found : not tried
+[wp] Goal typed_mem_binding_complete_found_not_found : not tried
+[wp] Goal typed_mem_binding_disjoint_found_not_found : not tried
[wp] Goal typed_mem_binding_loop_invariant_preserved : not tried
[wp] Goal typed_mem_binding_loop_invariant_established : not tried
[wp] Goal typed_mem_binding_loop_invariant_2_preserved : not tried
diff --git a/src/plugins/wp/tests/wp_gallery/oracle_qualif/frama_c_hashtbl_solved.res.oracle b/src/plugins/wp/tests/wp_gallery/oracle_qualif/frama_c_hashtbl_solved.res.oracle
index aa0a56a75fb331b2a4da497baecf2d428424c801..b9066d9921a764ee6e240b742d1f8f5c6387d265 100644
--- a/src/plugins/wp/tests/wp_gallery/oracle_qualif/frama_c_hashtbl_solved.res.oracle
+++ b/src/plugins/wp/tests/wp_gallery/oracle_qualif/frama_c_hashtbl_solved.res.oracle
@@ -3,8 +3,8 @@
[wp] Running WP plugin...
[wp] Warning: Missing RTE guards
[wp] 102 goals scheduled
-[wp] [Qed] Goal typed_eq_string_complete_not_eq_eq : Valid
-[wp] [Qed] Goal typed_eq_string_disjoint_not_eq_eq : Valid
+[wp] [Qed] Goal typed_eq_string_complete_eq_not_eq : Valid
+[wp] [Qed] Goal typed_eq_string_disjoint_eq_not_eq : Valid
[wp] [Alt-Ergo] Goal typed_eq_string_loop_invariant_preserved : Valid
[wp] [Qed] Goal typed_eq_string_loop_invariant_established : Valid
[wp] [Alt-Ergo] Goal typed_eq_string_loop_invariant_2_preserved : Valid
@@ -79,8 +79,8 @@
[wp] [Alt-Ergo] Goal typed_add_full_assigns_normal_part7 : Valid
[wp] [Alt-Ergo] Goal typed_add_full_assigns_normal_part8 : Valid
[wp] [Qed] Goal typed_add_full_assigns_normal_part9 : Valid
-[wp] [Alt-Ergo] Goal typed_mem_binding_complete_not_found_found : Valid
-[wp] [Alt-Ergo] Goal typed_mem_binding_disjoint_not_found_found : Valid
+[wp] [Alt-Ergo] Goal typed_mem_binding_complete_found_not_found : Valid
+[wp] [Alt-Ergo] Goal typed_mem_binding_disjoint_found_not_found : Valid
[wp] [Alt-Ergo] Goal typed_mem_binding_loop_invariant_preserved : Valid
[wp] [Alt-Ergo] Goal typed_mem_binding_loop_invariant_established : Valid
[wp] [Alt-Ergo] Goal typed_mem_binding_loop_invariant_2_preserved : Valid
diff --git a/src/plugins/wp/wpPropId.ml b/src/plugins/wp/wpPropId.ml
index 22988574935a64368c3c240dcd1811f688623d81..441d8cbfb9a77ad409cac7eaec0ee71afb1318db 100644
--- a/src/plugins/wp/wpPropId.ml
+++ b/src/plugins/wp/wpPropId.ml
@@ -458,8 +458,11 @@ let get_propid = Names.get_prop_id_name
let pp_propid fmt pid =
Format.pp_print_string fmt (get_propid pid)
-let pp_names fmt l = match l with [] -> () | _ ->
- Format.fprintf fmt "_%a" (Wp_error.pp_string_list ~empty:"" ~sep:"_") l
+let pp_names fmt l =
+ let l = Datatype.String.Set.elements l in
+ match l with
+ | [] -> ()
+ | _ -> Format.fprintf fmt "_%a" (Wp_error.pp_string_list ~empty:"" ~sep:"_") l
let ident_names names =
List.filter (function "" -> true
@@ -670,7 +673,7 @@ let property_hints hs =
List.iter (add_required hs) (il_name::il_pred.tp_statement.pred_name)
| IPBehavior _ -> ()
| IPComplete {ic_bhvs} | IPDisjoint {ic_bhvs} ->
- List.iter (add_required hs) ic_bhvs
+ Datatype.String.Set.iter (add_required hs) ic_bhvs
| IPPredicate {ip_pred} ->
List.iter (add_hint hs) ip_pred.ip_content.tp_statement.pred_name
| IPExtended {ie_ext={ext_name}} -> List.iter (add_hint hs) [ext_name]