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 /src/grt/grt-rtis_utils.adb | |
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.
Diffstat (limited to 'src/grt/grt-rtis_utils.adb')
-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; |