From 992a52089e39c5975748ca364971ed61d974a168 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 9 Aug 2019 05:51:14 +0200
Subject: vhdl: handle subtype indication (with range) in discrete_range.

For #877
---
 src/vhdl/translate/trans-chap8.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/vhdl/translate/trans-chap8.adb')

diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb
index 8fbd8d105..521e639e7 100644
--- a/src/vhdl/translate/trans-chap8.adb
+++ b/src/vhdl/translate/trans-chap8.adb
@@ -1758,6 +1758,7 @@ package body Trans.Chap8 is
                H, L : Iir;
             begin
                Expr := Get_Choice_Range (Choice);
+               Expr := Get_Range_From_Discrete_Range (Expr);
                Get_Low_High_Limit (Expr, L, H);
                New_Range_Choice
                  (Blk,
-- 
cgit v1.2.3