From c98cd530f2e58ecff06c6065c6e7427bf727875d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 23 Jun 2019 18:13:41 +0200
Subject: synth: handle discrete choice in case statements.

---
 src/synth/synth-stmts.adb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/synth')

diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb
index 934584566..17be7396a 100644
--- a/src/synth/synth-stmts.adb
+++ b/src/synth/synth-stmts.adb
@@ -610,7 +610,11 @@ package body Synth.Stmts is
       pragma Assert (Choice_Idx = Choice_Data'Last);
 
       --  Sort by order.
-      Sort_String_Choices (Case_Info);
+      if Get_Kind (Get_Type (Expr)) in Iir_Kinds_Discrete_Type_Definition then
+         Sort_Discrete_Choices (Case_Info);
+      else
+         Sort_String_Choices (Case_Info);
+      end if;
 
       --  Create list of wire_id, sort it.
       Nbr_Wires := Count_Wires_In_Alternatives (Alts.all);
-- 
cgit v1.2.3