diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-12 16:43:03 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-12 23:31:20 +0200 |
| commit | 074e960162d98017f14a2fe9e41c5c3b0a0a68a1 (patch) | |
| tree | 54d8c8daaca91082383d6f75752bac755a17164a /src | |
| parent | b968b5f8b3462947e4bf57b3448c3a91ac1efd1f (diff) | |
| download | ghdl-074e960162d98017f14a2fe9e41c5c3b0a0a68a1.tar.gz ghdl-074e960162d98017f14a2fe9e41c5c3b0a0a68a1.tar.bz2 ghdl-074e960162d98017f14a2fe9e41c5c3b0a0a68a1.zip | |
vhdl: avoid a crash in case of outdated package body.
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/vhdl-configuration.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-configuration.adb b/src/vhdl/vhdl-configuration.adb index 8865b0ae3..d2cdfb9ff 100644 --- a/src/vhdl/vhdl-configuration.adb +++ b/src/vhdl/vhdl-configuration.adb @@ -207,7 +207,9 @@ package body Vhdl.Configuration is Error_Msg_Elab (Lib_Unit, "body of %n was never analyzed", +Lib_Unit); elsif Get_Date (Bod) < Get_Date (Unit) then - Error_Msg_Elab (Bod, "%n is outdated", +Bod); + -- Cannot use BOD as location, as the location may not + -- exist. + Error_Msg_Elab (Lib_Unit, "%n is outdated", +Bod); Bod := Null_Iir; end if; end if; |