diff options
| author | Ondrej Ille <ondrej.ille@gmail.com> | 2021-03-25 23:30:18 +0100 |
|---|---|---|
| committer | tgingold <tgingold@users.noreply.github.com> | 2021-04-08 20:22:42 +0200 |
| commit | f5a7ce7b355b553e12365c247b68cc19b3f3123d (patch) | |
| tree | 128ed8bfb3a636c517a5f0d78a9ba69bbeb321cb | |
| parent | 2d3991ff1b325d556ac922c679ffaf39bcdb6815 (diff) | |
| download | ghdl-f5a7ce7b355b553e12365c247b68cc19b3f3123d.tar.gz ghdl-f5a7ce7b355b553e12365c247b68cc19b3f3123d.tar.bz2 ghdl-f5a7ce7b355b553e12365c247b68cc19b3f3123d.zip | |
grt: Dont build path for PSL RTIs. They dont have parents, therefore Get_Path_Name crashes.
| -rw-r--r-- | src/grt/grt-rtis_utils.adb | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/grt/grt-rtis_utils.adb b/src/grt/grt-rtis_utils.adb index ee1a1dd72..159779d7c 100644 --- a/src/grt/grt-rtis_utils.adb +++ b/src/grt/grt-rtis_utils.adb @@ -751,6 +751,18 @@ package body Grt.Rtis_Utils is Prepend (Rstr, Sep); Ctxt := Get_Parent_Context (Ctxt); end; + when Ghdl_Rtiks_Psl => + declare + Obj : constant Ghdl_Rtin_Object_Acc := + To_Ghdl_Rtin_Object_Acc(Ctxt.Block); + begin + -- Ghdl_Rtin_Object does not have parents, therefore we cant + -- trace back through the hierarchy. Put only assertion name + -- and exit the loop + Prepend (Rstr, Obj.Name); + exit; + end; + when others => Internal_Error ("grt.rtis_utils.get_path_name"); end case; |