From c3845fa138a76f1369e20bc54016094a75da4df2 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 30 Nov 2015 06:44:43 +0100 Subject: No error message for universal bounds in v93c or relaxed-rules. --- src/vhdl/sem_expr.adb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/vhdl') diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index 295601938..2325a2708 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -863,16 +863,18 @@ package body Sem_Expr is -- (prior the implicit conversion) is the type universal_integer. null; elsif Vhdl_Std = Vhdl_93c or else Flag_Relaxed_Rules then + null; + elsif Vhdl_Std /= Vhdl_93 then -- GHDL: this is not allowed, however often used: -- eg: for i in 0 to v'length + 1 loop -- eg: for i in -1 to 1 loop -- Be tolerant. Warning_Msg_Sem ("universal integer bound must be numeric literal " - & "or attribute", Res); + & "or attribute", Res); else Error_Msg_Sem ("universal integer bound must be numeric literal " - & "or attribute", Res); + & "or attribute", Res); end if; Set_Type (Res, Integer_Type_Definition); end if; -- cgit v1.2.3