From f5a7ce7b355b553e12365c247b68cc19b3f3123d Mon Sep 17 00:00:00 2001 From: Ondrej Ille Date: Thu, 25 Mar 2021 23:30:18 +0100 Subject: grt: Dont build path for PSL RTIs. They dont have parents, therefore Get_Path_Name crashes. --- src/grt/grt-rtis_utils.adb | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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; -- cgit v1.2.3