Changeset 2286 for src/LIN/LIN.ma


Ignore:
Timestamp:
Aug 2, 2012, 3:18:11 PM (8 years ago)
Author:
tranquil
Message:

Big update!

  • merge of all _paolo variants
  • reorganised some depends (in particular, Register and thus back-end laguages no longer have fake ASM dependency)
  • split I8051.ma spawning new BackEndOps?.ma

compiler.ma broken at the moment, but not by these changes as far as I can tell

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/LIN/LIN.ma

    r1601 r2286  
    11include "LIN/joint_LTL_LIN.ma".
    2 include "basics/lists/list.ma".
    32
    4 definition lin_params_ : params_ ≝ mk_params_ ltl_lin_params__ unit.
     3definition LIN ≝ mk_lin_params LTL_LIN.
    54
    6 definition pre_lin_statement ≝ joint_statement lin_params_.
    7 definition lin_statement≝ λglobals.(option label) × (pre_lin_statement globals).
     5(* aid unification *)
     6unification hint 0 ≔
     7(*---------------*) ⊢
     8acc_a_reg LIN ≡ unit.
     9unification hint 0 ≔
     10(*---------------*) ⊢
     11acc_a_arg LIN ≡ unit.
     12unification hint 0 ≔
     13(*---------------*) ⊢
     14acc_b_reg LIN ≡ unit.
     15unification hint 0 ≔
     16(*---------------*) ⊢
     17acc_a_arg LIN ≡ unit.
     18unification hint 0 ≔
     19(*---------------*) ⊢
     20snd_arg LIN ≡ hdw_argument.
     21unification hint 0 ≔
     22(*---------------*) ⊢
     23ext_seq LIN ≡ ltl_lin_seq.
     24unification hint 0 ≔
     25(*---------------*) ⊢
     26pair_move LIN ≡ registers_move.
    827
    9 definition lin_params: ∀globals. params globals ≝
    10  λglobals.
    11   mk_params globals unit ltl_lin_params1 (list (lin_statement globals))
    12    (λcode. λl.
    13     find ?? (λs. let 〈l',x〉 ≝ s in
    14      match l' with [ None ⇒ None … | Some l'' ⇒ if eq_identifier … l l'' then Some … x else None ?]) code).
    15 
    16 definition lin_function ≝ λglobals. joint_function … (lin_params globals).
    17 definition lin_program ≝ joint_program lin_params.
     28definition lin_program ≝ joint_program LIN.
Note: See TracChangeset for help on using the changeset viewer.