diff options
Diffstat (limited to 'src/vhdl/translate/ortho_front.adb')
-rw-r--r-- | src/vhdl/translate/ortho_front.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/translate/ortho_front.adb b/src/vhdl/translate/ortho_front.adb index 46f303348..2c3da3189 100644 --- a/src/vhdl/translate/ortho_front.adb +++ b/src/vhdl/translate/ortho_front.adb @@ -391,7 +391,7 @@ package body Ortho_Front is Design := Get_First_Design_Unit (New_Design_File); while not Is_Null (Design) loop Sem.Sem_Analysis_Checks_List - (Design, Flags.Warn_Delayed_Checks); + (Design, Is_Warning_Enabled (Warnid_Delayed_Checks)); Design := Get_Chain (Design); end loop; |