diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2020-07-21 13:17:38 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2020-07-21 13:17:38 +0200 |
commit | 4adf6e3a967055df66fb815c92350dc835bb06dc (patch) | |
tree | 4f32fbb777fcaa7d8a3e6f3d87f63eb48727ce2f | |
parent | b4c6087cd0faf3d165ca5450f7462b9fbe98796f (diff) | |
download | compcert-4adf6e3a967055df66fb815c92350dc835bb06dc.tar.gz compcert-4adf6e3a967055df66fb815c92350dc835bb06dc.zip |
Use the correct location for Slabaled in transform.
-rw-r--r-- | cparser/Transform.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cparser/Transform.ml b/cparser/Transform.ml index 6774a9b6..a57d94c4 100644 --- a/cparser/Transform.ml +++ b/cparser/Transform.ml @@ -161,8 +161,8 @@ let stmt ~expr ?(decl = fun env decl -> assert false) env s = | Scontinue -> s | Sswitch(e, s1) -> {s with sdesc = Sswitch(expr s.sloc env Val e, stm s1)} - | Slabeled(lbl, s) -> - {s with sdesc = Slabeled(lbl, stm s)} + | Slabeled(lbl, s1) -> + {s with sdesc = Slabeled(lbl, stm s1)} | Sgoto lbl -> s | Sreturn None -> s | Sreturn (Some e) -> |