diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-25 21:34:46 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-26 21:56:28 +0100 |
| commit | 03384250947e4b087db59d1671373855f73bb4ed (patch) | |
| tree | 76c47d3a986eb78c20ddd0525045f1d86025ea8c | |
| parent | 11171d290bfa5a5d517faf27dacaaaeae72cc099 (diff) | |
| download | ghdl-03384250947e4b087db59d1671373855f73bb4ed.tar.gz ghdl-03384250947e4b087db59d1671373855f73bb4ed.tar.bz2 ghdl-03384250947e4b087db59d1671373855f73bb4ed.zip | |
vhdl-sem_decl: handle subtype of interface type. Fix #2326
| -rw-r--r-- | src/vhdl/vhdl-sem_decls.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_decls.adb b/src/vhdl/vhdl-sem_decls.adb index 21c4d3542..31d6ef6fe 100644 --- a/src/vhdl/vhdl-sem_decls.adb +++ b/src/vhdl/vhdl-sem_decls.adb @@ -848,6 +848,7 @@ package body Vhdl.Sem_Decls is if not Is_Anonymous_Type_Definition (Def) and then Get_Kind (Def) /= Iir_Kind_Protected_Type_Declaration + and then Get_Kind (Def) /= Iir_Kind_Interface_Type_Definition then -- There is no added constraints and therefore the subtype -- declaration is in fact an alias of the type. Create a copy so |