diff options
Diffstat (limited to 'src/vhdl')
-rw-r--r-- | src/vhdl/vhdl-sem_assocs.adb | 2 | ||||
-rw-r--r-- | src/vhdl/vhdl-std_package.adb | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/vhdl/vhdl-sem_assocs.adb b/src/vhdl/vhdl-sem_assocs.adb index 6d953d7a2..f727b87c0 100644 --- a/src/vhdl/vhdl-sem_assocs.adb +++ b/src/vhdl/vhdl-sem_assocs.adb @@ -503,7 +503,7 @@ package body Vhdl.Sem_Assocs is if Vhdl02_Assocs_Map (Fmode, Amode) then return True; end if; - when Vhdl_08 => + when Vhdl_08 | Vhdl_19 => if Vhdl08_Assocs_Map (Fmode, Amode) then return True; end if; diff --git a/src/vhdl/vhdl-std_package.adb b/src/vhdl/vhdl-std_package.adb index 3c6852c23..40d290891 100644 --- a/src/vhdl/vhdl-std_package.adb +++ b/src/vhdl/vhdl-std_package.adb @@ -1060,7 +1060,8 @@ package body Vhdl.Std_Package is Pure := True; when Vhdl_93 | Vhdl_00 - | Vhdl_08 => + | Vhdl_08 + | Vhdl_19 => Pure := False; end case; Set_Pure_Flag (Function_Now, Pure); |