diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-02-11 07:56:54 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-02-11 18:55:30 +0100 |
commit | bb7b9bd01bc0ec05da45d96de04a2feba2c6a58f (patch) | |
tree | e50ecfa7678e63c125fb4c26016e070204c0440c /src/vhdl | |
parent | 1fa657b73464e9deb1b633dd9d9a0b45935b61c4 (diff) | |
download | ghdl-bb7b9bd01bc0ec05da45d96de04a2feba2c6a58f.tar.gz ghdl-bb7b9bd01bc0ec05da45d96de04a2feba2c6a58f.tar.bz2 ghdl-bb7b9bd01bc0ec05da45d96de04a2feba2c6a58f.zip |
vhdl-sem_expr: avoid duplicate error messages for overflow in range
Diffstat (limited to 'src/vhdl')
-rw-r--r-- | src/vhdl/vhdl-sem_expr.adb | 5 |
1 files changed, 1 insertions, 4 deletions
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 |