diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-07-27 07:34:38 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-07-27 07:34:38 +0000 |
| commit | cab28a5331400fee1a0dd1c5fa7d0366fa888f5f (patch) | |
| tree | 907fff89969cd913604b11e134d3b83f6145db5c /backend/LTLin.v | |
| parent | b5325808cb1d36d4ff500d2fb754fe7a424e8329 (diff) | |
| download | compcert-cab28a5331400fee1a0dd1c5fa7d0366fa888f5f.tar.gz compcert-cab28a5331400fee1a0dd1c5fa7d0366fa888f5f.zip | |
MAJ documentation
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@702 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/LTLin.v')
| -rw-r--r-- | backend/LTLin.v | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/backend/LTLin.v b/backend/LTLin.v index 83787ce1..fae64177 100644 --- a/backend/LTLin.v +++ b/backend/LTLin.v @@ -140,14 +140,6 @@ Inductive state : Set := (m: mem), (**r memory state *) state. -(* -Definition parent_callsig (stack: list stackframe) : signature := - match stack with - | nil => mksignature nil (Some Tint) - | Stackframe sg res f sp ls pc :: stack' => sg - end. -*) - Section RELSEM. Variable ge: genv. @@ -185,7 +177,7 @@ Inductive step: state -> trace -> state -> Prop := find_function ros rs = Some f' -> sig = funsig f' -> step (State s f sp (Lcall sig ros args res :: b) rs m) - E0 (Callstate (Stackframe res f sp (postcall_regs rs) b :: s) + E0 (Callstate (Stackframe res f sp (postcall_locs rs) b :: s) f' (List.map rs args) m) | exec_Ltailcall: forall s f stk sig ros args b rs m f', @@ -198,7 +190,7 @@ Inductive step: state -> trace -> state -> Prop := rs arg = Vint sz -> Mem.alloc m 0 (Int.signed sz) = (m', blk) -> step (State s f sp (Lalloc arg res :: b) rs m) - E0 (State s f sp b (Locmap.set res (Vptr blk Int.zero) (postcall_regs rs)) m') + E0 (State s f sp b (Locmap.set res (Vptr blk Int.zero) (postcall_locs rs)) m') | exec_Llabel: forall s f sp lbl b rs m, step (State s f sp (Llabel lbl :: b) rs m) |