From 6b6397b75abb7068d4ac484119ecf7ff56868192 Mon Sep 17 00:00:00 2001 From: Xiretza Date: Thu, 3 Feb 2022 17:27:26 +0100 Subject: Add --std=19 Currently, all behaviour is the same as for --std=08, except for the standard library search path. No standard libraries exist yet, so running ghdl with --std=19 will fail. --- src/vhdl/vhdl-sem_assocs.adb | 2 +- src/vhdl/vhdl-std_package.adb | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) (limited to 'src/vhdl') 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); -- cgit v1.2.3