From 4adf6e3a967055df66fb815c92350dc835bb06dc Mon Sep 17 00:00:00 2001
From: Bernhard Schommer <bernhardschommer@gmail.com>
Date: Tue, 21 Jul 2020 13:17:38 +0200
Subject: Use the correct location for Slabaled in transform.

---
 cparser/Transform.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'cparser')

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) ->
-- 
cgit