diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-06-06 08:48:47 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-06-06 08:48:47 +0200 |
| commit | 245ceac7e29b0fa47316dc894db42d11fd9a535b (patch) | |
| tree | dc279939a1ad84a7bf77270a1a96689498d5810f /src | |
| parent | b653019afa04195a2ebb7b69dd28bfe184f9fb37 (diff) | |
| download | ghdl-245ceac7e29b0fa47316dc894db42d11fd9a535b.tar.gz ghdl-245ceac7e29b0fa47316dc894db42d11fd9a535b.tar.bz2 ghdl-245ceac7e29b0fa47316dc894db42d11fd9a535b.zip | |
vhdl-parse: avoid a crash with return identifier. Fox #2076
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/vhdl-parse.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb index b480d797f..9716b2018 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -2154,7 +2154,13 @@ package body Vhdl.Parse is Ret := Create_Iir (Iir_Kind_Subtype_Declaration); Location_Copy (Ret, Tm); Set_Identifier (Ret, Get_Identifier (Tm)); - Set_Return_Identifier (Subprg, Ret); + if Get_Kind (Subprg) = Iir_Kind_Interface_Function_Declaration + then + Error_Msg_Parse + ("return identifier not allowed in interface function"); + else + Set_Return_Identifier (Subprg, Ret); + end if; Free_Iir (Tm); -- Skip 'of' |