diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-01-30 18:38:42 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-01-30 18:38:42 +0100 |
| commit | 9fc9584912d734f6fc74b9aae12c4e932428605c (patch) | |
| tree | 51e3e5c9a5ae2e04c100e78501705f318a57b949 /src | |
| parent | 87f5a8f7351e1a0ccc1ea40322673434d19582f9 (diff) | |
| download | ghdl-9fc9584912d734f6fc74b9aae12c4e932428605c.tar.gz ghdl-9fc9584912d734f6fc74b9aae12c4e932428605c.tar.bz2 ghdl-9fc9584912d734f6fc74b9aae12c4e932428605c.zip | |
translation.adb: avoid a crash on unused resolver. Fix #2333
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/translate/translation.adb | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/vhdl/translate/translation.adb b/src/vhdl/translate/translation.adb index 52bdc9df9..b7c8eab00 100644 --- a/src/vhdl/translate/translation.adb +++ b/src/vhdl/translate/translation.adb @@ -55,15 +55,13 @@ package body Translation is function Get_Resolv_Ortho_Decl (Func : Iir) return O_Dnode is - Info : Subprg_Resolv_Info_Acc; + Info : constant Subprg_Info_Acc := Get_Info (Func); begin - Info := Get_Info (Func).Subprg_Resolv; - if Info = null then + if Info = null or else Info.Subprg_Resolv = null then -- Maybe the resolver is not used. return O_Dnode_Null; - else - return Info.Resolv_Func; end if; + return Info.Subprg_Resolv.Resolv_Func; end Get_Resolv_Ortho_Decl; procedure Gen_Filename (Design_File : Iir) |