diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-11 05:02:31 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-11 05:02:31 +0100 |
| commit | 976b7863df71850e8a3e1b791d2c38907db397b3 (patch) | |
| tree | 07aa12cdb07794aab950c505a0e5ebd65fd9c9d5 /src/simul/simul-vhdl_simul.adb | |
| parent | f41cba897a99c1ae635000f32289cf3faeb8d4f6 (diff) | |
| download | ghdl-976b7863df71850e8a3e1b791d2c38907db397b3.tar.gz ghdl-976b7863df71850e8a3e1b791d2c38907db397b3.tar.bz2 ghdl-976b7863df71850e8a3e1b791d2c38907db397b3.zip | |
simul: handle array element resolution
Diffstat (limited to 'src/simul/simul-vhdl_simul.adb')
| -rw-r--r-- | src/simul/simul-vhdl_simul.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/simul/simul-vhdl_simul.adb b/src/simul/simul-vhdl_simul.adb index 690b052ba..82342b599 100644 --- a/src/simul/simul-vhdl_simul.adb +++ b/src/simul/simul-vhdl_simul.adb @@ -2718,8 +2718,13 @@ package body Simul.Vhdl_Simul is and then Get_Kind (Sig_Type) in Iir_Kinds_Subtype_Definition then Resolv_Func := Get_Resolution_Indication (Sig_Type); - if Resolv_Func /= Null_Node then + if Resolv_Func /= Null_Node + and then + Get_Kind (Resolv_Func) /= Iir_Kind_Array_Element_Resolution + then Resolv_Func := Get_Named_Entity (Resolv_Func); + else + Resolv_Func := Null_Node; end if; if Resolv_Func /= Null_Node and then |