diff options
Diffstat (limited to 'cfrontend/C2C.ml')
| -rw-r--r-- | cfrontend/C2C.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml index 0ffbd66..e1b7705 100644 --- a/cfrontend/C2C.ml +++ b/cfrontend/C2C.ml @@ -618,6 +618,9 @@ let rec flattenSwitch = function Label(Case e) :: flattenSwitch s1 | {sdesc = C.Slabeled(C.Sdefault, s1)} -> Label Default :: flattenSwitch s1 + | {sdesc = C.Slabeled(C.Slabel lbl, s1); sloc = loc} -> + Stmt {sdesc = C.Slabeled(C.Slabel lbl, Cutil.sskip); sloc = loc} + :: flattenSwitch s1 | s -> [Stmt s] |