From 1cd385f3b354a78ae8d02333f40cd065073c9b19 Mon Sep 17 00:00:00 2001 From: xleroy Date: Sat, 21 Dec 2013 17:00:43 +0000 Subject: 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 --- cfrontend/SimplExpr.v | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'cfrontend/SimplExpr.v') diff --git a/cfrontend/SimplExpr.v b/cfrontend/SimplExpr.v index 854d345..1ead0ae 100644 --- a/cfrontend/SimplExpr.v +++ b/cfrontend/SimplExpr.v @@ -488,13 +488,12 @@ Fixpoint transl_stmt (s: Csyntax.statement) : mon statement := with transl_lblstmt (ls: Csyntax.labeled_statements) : mon labeled_statements := match ls with - | Csyntax.LSdefault s => - do ts <- transl_stmt s; - ret (LSdefault ts) - | Csyntax.LScase n s ls1 => + | Csyntax.LSnil => + ret LSnil + | Csyntax.LScons c s ls1 => do ts <- transl_stmt s; do tls1 <- transl_lblstmt ls1; - ret (LScase n ts tls1) + ret (LScons c ts tls1) end. (** Translation of a function *) -- cgit v1.2.3