From b77fd1d48bf1af9fbf5e614cff17053a7277e7e6 Mon Sep 17 00:00:00 2001 From: Xiretza Date: Sun, 27 Feb 2022 12:08:57 +0100 Subject: vhdl-sem_types: allow methods to return file and protected types in -2019 This implements LCS2016_004: http://www.eda-twiki.org/cgi-bin/view.cgi/P1076/LCS2016_004 --- src/vhdl/vhdl-sem_types.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/vhdl') diff --git a/src/vhdl/vhdl-sem_types.adb b/src/vhdl/vhdl-sem_types.adb index 8cde6ea00..bb43d1d40 100644 --- a/src/vhdl/vhdl-sem_types.adb +++ b/src/vhdl/vhdl-sem_types.adb @@ -627,7 +627,9 @@ package body Vhdl.Sem_Types is -- return type of the function must not be of an access type -- or file type; moreover, it must not have a subelement -- that is an access type of a file type. - if Get_Kind (El) = Iir_Kind_Function_Declaration then + if Vhdl_Std < Vhdl_19 + and then Get_Kind (El) = Iir_Kind_Function_Declaration + then Inter_Type := Get_Return_Type (El); if Inter_Type /= Null_Iir and then Get_Signal_Type_Flag (Inter_Type) = False -- cgit v1.2.3