From bb7b9bd01bc0ec05da45d96de04a2feba2c6a58f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 11 Feb 2021 07:56:54 +0100
Subject: vhdl-sem_expr: avoid duplicate error messages for overflow in range

---
 src/vhdl/vhdl-sem_expr.adb | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb
index c55377f46..02c620bf5 100644
--- a/src/vhdl/vhdl-sem_expr.adb
+++ b/src/vhdl/vhdl-sem_expr.adb
@@ -697,10 +697,7 @@ package body Vhdl.Sem_Expr is
       case Get_Kind (Expr) is
          when Iir_Kind_Range_Expression =>
             Res := Sem_Simple_Range_Expression (Expr, A_Type, Any_Dir);
-            if Res = Null_Iir then
-               return Null_Iir;
-            end if;
-            Res_Type := Get_Type (Res);
+            return Res;
 
          when Iir_Kinds_Denoting_Name
            | Iir_Kind_Attribute_Name
-- 
cgit v1.2.3