diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-12-21 17:00:43 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-12-21 17:00:43 +0000 |
commit | 1cd385f3b354a78ae8d02333f40cd065073c9b19 (patch) | |
tree | 923e490d77d414280d91918bcf5c35b93df78ab0 /cfrontend/SimplLocals.v | |
parent | 1c768ee3ff91e826f52cf08e1aaa8c4d637240f5 (diff) |
Support "default" cases in the middle of a "switch", not just at the end.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2383 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cfrontend/SimplLocals.v')
-rw-r--r-- | cfrontend/SimplLocals.v | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/cfrontend/SimplLocals.v b/cfrontend/SimplLocals.v index edcd5fe..95ff9ed 100644 --- a/cfrontend/SimplLocals.v +++ b/cfrontend/SimplLocals.v @@ -129,13 +129,12 @@ Fixpoint simpl_stmt (cenv: compilenv) (s: statement) : res statement := with simpl_lblstmt (cenv: compilenv) (ls: labeled_statements) : res labeled_statements := match ls with - | LSdefault s => - do s' <- simpl_stmt cenv s; - OK (LSdefault s') - | LScase n s ls1 => + | LSnil => + OK LSnil + | LScons c s ls1 => do s' <- simpl_stmt cenv s; do ls1' <- simpl_lblstmt cenv ls1; - OK (LScase n s' ls1') + OK (LScons c s' ls1') end. (** Function parameters that are not lifted to temporaries must be @@ -198,8 +197,8 @@ Fixpoint addr_taken_stmt (s: statement) : VSet.t := with addr_taken_lblstmt (ls: labeled_statements) : VSet.t := match ls with - | LSdefault s => addr_taken_stmt s - | LScase n s ls' => VSet.union (addr_taken_stmt s) (addr_taken_lblstmt ls') + | LSnil => VSet.empty + | LScons c s ls' => VSet.union (addr_taken_stmt s) (addr_taken_lblstmt ls') end. (** The compilation environment for a function is the set of local variables |