diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-03-13 21:06:11 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-03-13 21:06:11 +0100 |
| commit | bad82879f21b5daefc9928890711cf2c34a8fb82 (patch) | |
| tree | 3a552001d63f4a9e7a400e0f570c1aa24916fc94 /src/vhdl/vhdl-sem_decls.adb | |
| parent | 8d9af3c5b52ba0ac814f2a5f4cda99ea306e813a (diff) | |
| download | ghdl-bad82879f21b5daefc9928890711cf2c34a8fb82.tar.gz ghdl-bad82879f21b5daefc9928890711cf2c34a8fb82.tar.bz2 ghdl-bad82879f21b5daefc9928890711cf2c34a8fb82.zip | |
vhdl: check access type restrictions also on completion. Fix #2006
Diffstat (limited to 'src/vhdl/vhdl-sem_decls.adb')
| -rw-r--r-- | src/vhdl/vhdl-sem_decls.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_decls.adb b/src/vhdl/vhdl-sem_decls.adb index c081cba5d..8f44e0858 100644 --- a/src/vhdl/vhdl-sem_decls.adb +++ b/src/vhdl/vhdl-sem_decls.adb @@ -786,7 +786,7 @@ package body Vhdl.Sem_Decls is while Is_Valid (Ref) loop pragma Assert (Get_Kind (Ref) = Iir_Kind_Access_Type_Definition); - Set_Designated_Type (Ref, Def); + Check_Access_Type_Restrictions (Ref, Def); Ref := Get_Incomplete_Type_Ref_Chain (Ref); end loop; Set_Complete_Type_Definition (Old_Def, Def); |