Section RELSEM.
Inductive RTL_corestep (ge:genv): RTL_core -> mem -> RTL_core -> mem -> Prop :=
| rtl_corestep_exec_Inop:
forall s f sp pc rs m pc',
(fn_code f)!pc = Some(Inop pc') ->
RTL_corestep ge (RTL_State s f sp pc rs) m
(RTL_State s f sp pc' rs) m
| rtl_corestep_exec_Iop:
forall s f sp pc rs m op args res pc' v,
(fn_code f)!pc = Some(Iop op args res pc') ->
eval_operation ge sp op rs##args m = Some v ->
RTL_corestep ge (RTL_State s f sp pc rs) m
(RTL_State s f sp pc' (rs#res <- v)) m
| rtl_corestep_exec_Iload:
forall s f sp pc rs m chunk addr args dst pc' a v,
(fn_code f)!pc = Some(Iload chunk addr args dst pc') ->
eval_addressing ge sp addr rs##args = Some a ->
Mem.loadv chunk m a = Some v ->
RTL_corestep ge (RTL_State s f sp pc rs) m
(RTL_State s f sp pc' (rs#dst <- v)) m
| rtl_corestep_exec_Istore:
forall s f sp pc rs m chunk addr args src pc' a m',
(fn_code f)!pc = Some(Istore chunk addr args src pc') ->
eval_addressing ge sp addr rs##args = Some a ->
Mem.storev chunk m a rs#src = Some m' ->
RTL_corestep ge (RTL_State s f sp pc rs) m
(RTL_State s f sp pc' rs) m'
| rtl_corestep_exec_Icall:
forall s f sp pc rs m sig ros args res pc' fd,
(fn_code f)!pc = Some(Icall sig ros args res pc') ->
find_function ge ros rs = Some fd ->
funsig fd = sig ->
RTL_corestep ge (RTL_State s f sp pc rs) m
(RTL_Callstate (Stackframe res f sp pc' rs :: s) fd rs##args) m
| rtl_corestep_exec_Itailcall:
forall s f stk pc rs m sig ros args fd m',
(fn_code f)!pc = Some(Itailcall sig ros args) ->
find_function ge ros rs = Some fd ->
funsig fd = sig ->
Mem.free m stk 0 f.(fn_stacksize) = Some m' ->
RTL_corestep ge (RTL_State s f (Vptr stk Int.zero) pc rs) m
(RTL_Callstate s fd rs##args) m'
(* WE DO NOT TREAT BUILTINS | rtl_corestep_exec_Ibuiltin: forall s f sp pc rs m ef args res pc' t v m', (fn_code f)!pc = Some(Ibuiltin ef args res pc') -> external_call ef ge rs##args m t v m' -> RTL_corestep ge (RTL_State s f sp pc rs) m (RTL_State s f sp pc' (rs#res <- v)) m' *)
| rtl_corestep_exec_Icond:
forall s f sp pc rs m cond args ifso ifnot b pc',
(fn_code f)!pc = Some(Icond cond args ifso ifnot) ->
eval_condition cond rs##args m = Some b ->
pc' = (if b then ifso else ifnot) ->
RTL_corestep ge (RTL_State s f sp pc rs) m
(RTL_State s f sp pc' rs) m
| rtl_corestep_exec_Ijumptable:
forall s f sp pc rs m arg tbl n pc',
(fn_code f)!pc = Some(Ijumptable arg tbl) ->
rs#arg = Vint n ->
list_nth_z tbl (Int.unsigned n) = Some pc' ->
RTL_corestep ge (RTL_State s f sp pc rs) m
(RTL_State s f sp pc' rs) m
| rtl_corestep_exec_Ireturn:
forall s f stk pc rs m or m',
(fn_code f)!pc = Some(Ireturn or) ->
Mem.free m stk 0 f.(fn_stacksize) = Some m' ->
RTL_corestep ge (RTL_State s f (Vptr stk Int.zero) pc rs) m
(RTL_Returnstate s (regmap_optget or Vundef rs)) m'
| rtl_corestep_exec_function_internal:
forall s f args m m' stk,
Mem.alloc m 0 f.(fn_stacksize) = (m', stk) ->
RTL_corestep ge (RTL_Callstate s (Internal f) args) m
(RTL_State s
f
(Vptr stk Int.zero)
f.(fn_entrypoint)
(init_regs args f.(fn_params)))
m'
(*no external calls | rtl_corestep_exec_function_external: forall s ef args res t m m', external_call ef ge args m t res m' -> RTL_corestep ge (Callstate s (External ef) args) m t (Returnstate s res m')*)
| rtl_corestep_exec_return:
forall res f sp pc rs s vres m,
RTL_corestep ge (RTL_Returnstate (Stackframe res f sp pc rs :: s) vres) m
(RTL_State s f sp pc (rs#res <- vres)) m.
End RELSEM.
(* New initial state *)
Definition RTL_initial_core (ge: genv) (v:val)(args: list val): option RTL_core:=
match v with
Vptr b i =>
if Int.eq_dec i Int.zero
then match Genv.find_funct_ptr ge b with
None => None
| Some f => Some (RTL_Callstate nil f args)
end
else None
| _ => None
end.
(** A final state is a [Returnstate] with an empty call stack. *)
(*LENB: in shared-memory compcert, we should allow arbitrary return values, not just integers*)
Definition RTL_halted (c: RTL_core ): option val :=
match c with
(*      RTL_Returnstate nil (Vint i) => Some (Vint i)*)
RTL_Returnstate nil v => Some v
| _ => None
end.
(* New definition of semantics *)
Definition RTL_at_external (c: RTL_core): option (external_function * signature * list val) :=
match c with
| RTL_State stack f sp pc rs => None
| RTL_Callstate stack f args =>  match f with
Internal _ => None
| External f' => Some( f', ef_sig f', args)
end
| RTL_Returnstate stack v => None
end.
Definition RTL_after_external (vret: option val)(c: RTL_core): option RTL_core :=
match c with
| RTL_State stack f sp pc rs => None
| RTL_Callstate stack f args =>
match f with
Internal _ => None
| External f' => match vret with
None => Some (RTL_Returnstate stack Vundef)
| Some v => Some (RTL_Returnstate stack v)
end
end
| RTL_Returnstate stack v => None
end.
intros. inv H; reflexivity.
Qed.
intros. destruct q; destruct q'; try destruct f; destruct retv; simpl in *; try discriminate; try reflexivity.
Qed.
Definition RTL_core_sem : CoreSemantics genv RTL_core mem.
eapply @Build_CoreSemantics with (at_external:= RTL_at_external) (after_external:= RTL_after_external)(corestep:=RTL_corestep)(halted:= RTL_halted).
apply RTL_initial_core.
eapply corestep_not_external.
eapply corestep_not_halted.
eapply external_xor_halted.
eapply after_xor_at_external.
Defined.
(************************NOW SHOW THAT WE ALSO HAVE A COOPSEM******)

Lemma rtl_coop_forward : forall g c m c' m' (CS: RTL_corestep g c m c' m'),
mem_forward m m'.