Changeset 1388 for src/ERTL


Ignore:
Timestamp:
Oct 17, 2011, 10:54:50 AM (8 years ago)
Author:
sacerdot
Message:

fetch_result implemented for ERTL. This required a different istantiation of
resultT that is not in line with the OCaml's code. Look at CHANGES for details.
RTLToERTL has been ported in an hopefully correct manner.

Location:
src/ERTL
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • src/ERTL/ERTL.ma

    r1280 r1388  
    1414  register nat unit ertl_statement_extension.
    1515definition ertl_params_: params_ ≝ graph_params_ ertl_params__.
    16 definition ertl_params0: params0 ≝ mk_params0 ertl_params__ unit nat.
     16definition ertl_params0: params0 ≝ mk_params0 ertl_params__ (list register) nat.
    1717definition ertl_params1: params1 ≝ rtl_ertl_params1 ertl_params0.
    1818definition ertl_params: ∀globals. params globals ≝ rtl_ertl_params ertl_params0.
  • src/ERTL/semantics.ma

    r1386 r1388  
    6060    (set_regs ertl_sem_params 〈empty_map …,\snd (regs … st)〉 st)).
    6161
    62 (*CSC: XXXXX, for is_final only *)
    63 axiom ertl_fetch_result:
    64  ∀globals. genv … (ertl_params globals) → state ertl_sem_params → res (list beval).
     62definition ertl_fetch_result:
     63 ∀globals. genv … (ertl_params globals) → state ertl_sem_params → res (list beval) ≝
     64 λglobals,ge,st.
     65  do fn ← graph_fetch_function … globals ge st ;
     66  let ret_val_regs ≝ joint_if_result … fn in
     67   mmap … (λreg.greg_retrieve ertl_sem_params st reg) ret_val_regs.
    6568
    6669(*CSC: XXXX, for external functions only*)
Note: See TracChangeset for help on using the changeset viewer.