diff options
author | Tristan Gingold <tgingold@free.fr> | 2023-01-10 18:30:11 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2023-01-10 18:30:11 +0100 |
commit | a3f0fe3693602af086246ac57b0363578c96e171 (patch) | |
tree | 58b0cd92539ba138675ff54fb4bf84b2629b64d8 /src/vhdl/vhdl-sem_inst.adb | |
parent | 00319239e313633919ff821d2ffc81c0e5d605ff (diff) | |
download | ghdl-a3f0fe3693602af086246ac57b0363578c96e171.tar.gz ghdl-a3f0fe3693602af086246ac57b0363578c96e171.tar.bz2 ghdl-a3f0fe3693602af086246ac57b0363578c96e171.zip |
synth: add comments, minor rewrite
Diffstat (limited to 'src/vhdl/vhdl-sem_inst.adb')
-rw-r--r-- | src/vhdl/vhdl-sem_inst.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/vhdl/vhdl-sem_inst.adb b/src/vhdl/vhdl-sem_inst.adb index ba5c72acf..5394114a9 100644 --- a/src/vhdl/vhdl-sem_inst.adb +++ b/src/vhdl/vhdl-sem_inst.adb @@ -757,11 +757,12 @@ package body Vhdl.Sem_Inst is end if; when Iir_Kind_Interface_Type_Declaration => declare - Itype : Iir; + Def : Iir; begin - Itype := Instantiate_Iir (Get_Type (Inter), False); - Set_Type (Res, Itype); - Set_Interface_Type_Definition (Res, Itype); + -- Also instantiate the interface type definition. + Def := Instantiate_Iir (Get_Type (Inter), False); + Set_Type (Res, Def); + Set_Interface_Type_Definition (Res, Def); Set_Is_Ref (Res, True); end; when Iir_Kinds_Interface_Subprogram_Declaration => |