Changeset 1874 for src/Clight/Csem.ma


Ignore:
Timestamp:
Apr 4, 2012, 6:48:25 PM (8 years ago)
Author:
campbell
Message:

First cut at using back-end memory model throughout.
Note the correction to BEValues.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/Clight/Csem.ma

    r1872 r1874  
    526526  | alloc_variables_cons:
    527527      ∀e,m,id,ty,vars,m1,b1,m2,e2.
    528       alloc m 0 (sizeof ty) Any = 〈m1, b1〉 →
    529       alloc_variables (add … e id b1) m1 vars e2 m2 →
     528      alloc becontentT m 0 (sizeof ty) Any = 〈m1, b1〉 →
     529      alloc_variables (add … e id (pi1 … b1)) m1 vars e2 m2 →
    530530      alloc_variables e m (〈id, ty〉 :: vars) e2 m2.
    531531
     
    11371137      fn_return f = Tvoid →
    11381138      step ge (State f (Sreturn (None ?)) k e m)
    1139            E0 (Returnstate Vundef (call_cont k) (free_list m (blocks_of_env e)))
     1139           E0 (Returnstate Vundef (call_cont k) (free_list becontentT m (blocks_of_env e)))
    11401140  | step_return_1: ∀f,a,k,e,m,v,tr.
    11411141      fn_return f ≠ Tvoid →
    11421142      eval_expr ge e m a v tr →
    11431143      step ge (State f (Sreturn (Some ? a)) k e m)
    1144            tr (Returnstate v (call_cont k) (free_list m (blocks_of_env e)))
     1144           tr (Returnstate v (call_cont k) (free_list becontentT m (blocks_of_env e)))
    11451145  | step_skip_call: ∀f,k,e,m.
    11461146      is_call_cont k →
    11471147      fn_return f = Tvoid →
    11481148      step ge (State f Sskip k e m)
    1149            E0 (Returnstate Vundef k (free_list m (blocks_of_env e)))
     1149           E0 (Returnstate Vundef k (free_list becontentT m (blocks_of_env e)))
    11501150
    11511151  | step_switch: ∀f,a,sl,k,e,m,sz,n,tr.
Note: See TracChangeset for help on using the changeset viewer.