aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/vhdl-configuration.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/vhdl/vhdl-configuration.adb')
-rw-r--r--src/vhdl/vhdl-configuration.adb5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-configuration.adb b/src/vhdl/vhdl-configuration.adb
index 573a0b435..25e29b305 100644
--- a/src/vhdl/vhdl-configuration.adb
+++ b/src/vhdl/vhdl-configuration.adb
@@ -685,7 +685,8 @@ package body Vhdl.Configuration is
return Top;
end Configure;
- procedure Check_Entity_Declaration_Top (Entity : Iir_Entity_Declaration)
+ procedure Check_Entity_Declaration_Top
+ (Entity : Iir_Entity_Declaration; Enable_Override : Boolean)
is
Has_Error : Boolean := False;
@@ -747,7 +748,7 @@ package body Vhdl.Configuration is
El := Get_Generic_Chain (Entity);
while El /= Null_Iir loop
if Get_Default_Value (El) = Null_Iir then
- if not Allow_Generic_Override (El) then
+ if not (Enable_Override and Allow_Generic_Override (El)) then
Error (El, "(%n has no default value)", +El);
end if;
end if;