Changeset 1874 for src/Clight/Cexec.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/Cexec.ma

    r1713 r1874  
    294294| cons h vars ⇒
    295295  let 〈id,ty〉 ≝ h in
    296   let 〈m1,b1〉 ≝ alloc m 0 (sizeof ty) Any in
     296  let 〈m1,b1〉 ≝ alloc becontentT m 0 (sizeof ty) Any in
    297297      exec_alloc_variables (add ?? en id b1) m1 vars
    298298].
     
    380380      | Kstop ⇒
    381381          match fn_return f with
    382           [ Tvoid ⇒ ret ? 〈E0, Returnstate Vundef k (free_list m (blocks_of_env e))〉
     382          [ Tvoid ⇒ ret ? 〈E0, Returnstate Vundef k (free_list becontentT m (blocks_of_env e))〉
    383383          | _ ⇒ Wrong ??? (msg NonsenseState)
    384384          ]
    385385      | Kcall _ _ _ _ ⇒
    386386          match fn_return f with
    387           [ Tvoid ⇒ ret ? 〈E0, Returnstate Vundef k (free_list m (blocks_of_env e))〉
     387          [ Tvoid ⇒ ret ? 〈E0, Returnstate Vundef k (free_list becontentT m (blocks_of_env e))〉
    388388          | _ ⇒ Wrong ??? (msg NonsenseState)
    389389          ]
     
    446446    match a_opt with
    447447    [ None ⇒ match fn_return f with
    448       [ Tvoid ⇒ ret ? 〈E0, Returnstate Vundef (call_cont k) (free_list m (blocks_of_env e))〉
     448      [ Tvoid ⇒ ret ? 〈E0, Returnstate Vundef (call_cont k) (free_list becontentT m (blocks_of_env e))〉
    449449      | _ ⇒ Wrong ??? (msg ReturnMismatch)
    450450      ]
     
    454454        | inr _ ⇒
    455455          ! 〈v,tr〉 ← exec_expr ge e m a : IO ???;
    456           ret ? 〈tr, Returnstate v (call_cont k) (free_list m (blocks_of_env e))〉
     456          ret ? 〈tr, Returnstate v (call_cont k) (free_list becontentT m (blocks_of_env e))〉
    457457        ]
    458458    ]
Note: See TracChangeset for help on using the changeset viewer.