diff options
-rw-r--r-- | exportclight/Clightnorm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/exportclight/Clightnorm.ml b/exportclight/Clightnorm.ml index 4b01d777..a0001250 100644 --- a/exportclight/Clightnorm.ml +++ b/exportclight/Clightnorm.ml @@ -133,7 +133,7 @@ let rec norm_stmt s = add_sequence sl (Sreturn(Some e')) | Sswitch(e, ls) -> let (sl, e') = norm_expr e in - add_sequence sl (Sswitch(e, norm_lbl_stmt ls)) + add_sequence sl (Sswitch(e', norm_lbl_stmt ls)) | Slabel(lbl, s1) -> Slabel(lbl, norm_stmt s1) | Sgoto lbl -> s |