From 825b77fe8b4eb0919564e51cfaae69a6dfae24e3 Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Fri, 2 Oct 2020 21:54:34 +0200 Subject: so that all architectures compile --- x86/PrepassSchedulingOracle.ml | 5 +++++ 1 file changed, 5 insertions(+) create mode 100644 x86/PrepassSchedulingOracle.ml (limited to 'x86') diff --git a/x86/PrepassSchedulingOracle.ml b/x86/PrepassSchedulingOracle.ml new file mode 100644 index 00000000..7b6a1b14 --- /dev/null +++ b/x86/PrepassSchedulingOracle.ml @@ -0,0 +1,5 @@ +open RTL +open Registers + +(* Do not do anything *) +let schedule_sequence (seqa : (instruction*Regset.t) array) = None -- cgit From 38f808a4b2a26d1ae71d9a0866e49a5207385e23 Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Mon, 19 Oct 2020 19:08:09 +0200 Subject: op_valid_pointer_eq x86 --- x86/Op.v | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'x86') diff --git a/x86/Op.v b/x86/Op.v index 28e6dbd8..776f9495 100644 --- a/x86/Op.v +++ b/x86/Op.v @@ -1037,6 +1037,20 @@ Proof. auto. Qed. +Lemma op_valid_pointer_eq: + forall (F V: Type) (ge: Genv.t F V) sp op args m1 m2, + (forall b z, Mem.valid_pointer m1 b z = Mem.valid_pointer m2 b z) -> + eval_operation ge sp op args m1 = eval_operation ge sp op args m2. +Proof. + intros until m2. destruct op eqn:OP; simpl; try congruence. + - intros MEM; destruct cond; simpl; try congruence; + repeat (destruct args; simpl; try congruence); + erewrite cmpu_bool_valid_pointer_eq || erewrite cmplu_bool_valid_pointer_eq; eauto. + - intro MEM; destruct c; simpl; try congruence; + repeat (destruct args; simpl; try congruence); + erewrite cmpu_bool_valid_pointer_eq || erewrite cmplu_bool_valid_pointer_eq; eauto. +Qed. + (** Global variables mentioned in an operation or addressing mode *) Definition globals_addressing (addr: addressing) : list ident := -- cgit