diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-01-07 20:18:57 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-01-07 20:18:57 +0100 |
commit | abd8db973bcd5c562015df0e007870c001be364c (patch) | |
tree | a7ca4199ed2a5fb49c64e76a138ce43f5e3aebd6 /src/grt/grt-rtis_utils.adb | |
parent | 99443212bf78a5d36b693abab225a160a92d097a (diff) | |
download | ghdl-abd8db973bcd5c562015df0e007870c001be364c.tar.gz ghdl-abd8db973bcd5c562015df0e007870c001be364c.tar.bz2 ghdl-abd8db973bcd5c562015df0e007870c001be364c.zip |
Adjust previous commit for 'path_name.
Diffstat (limited to 'src/grt/grt-rtis_utils.adb')
-rw-r--r-- | src/grt/grt-rtis_utils.adb | 27 |
1 files changed, 13 insertions, 14 deletions
diff --git a/src/grt/grt-rtis_utils.adb b/src/grt/grt-rtis_utils.adb index 9d7a56f2f..ca158997c 100644 --- a/src/grt/grt-rtis_utils.adb +++ b/src/grt/grt-rtis_utils.adb @@ -615,29 +615,28 @@ package body Grt.Rtis_Utils is end if; end; when Ghdl_Rtik_Process - | Ghdl_Rtik_Block - | Ghdl_Rtik_If_Generate => + | Ghdl_Rtik_Block => Prepend (Rstr, Blk.Name); Prepend (Rstr, Sep); Ctxt := Get_Parent_Context (Ctxt); when Ghdl_Rtik_Generate_Body => - if Blk.Parent.Kind = Ghdl_Rtik_For_Generate then - declare - Gen : constant Ghdl_Rtin_Generate_Acc := - To_Ghdl_Rtin_Generate_Acc (Blk.Parent); - Iter : Ghdl_Rtin_Object_Acc; - Addr : Address; - begin + declare + Gen : constant Ghdl_Rtin_Generate_Acc := + To_Ghdl_Rtin_Generate_Acc (Blk.Parent); + Iter : Ghdl_Rtin_Object_Acc; + Addr : Address; + begin + if Blk.Parent.Kind = Ghdl_Rtik_For_Generate then Prepend (Rstr, ')'); Iter := To_Ghdl_Rtin_Object_Acc (Blk.Children (0)); Addr := Loc_To_Addr (Iter.Common.Depth, Iter.Loc, Ctxt); Get_Value (Rstr, Addr, Get_Base_Type (Iter.Obj_Type)); Prepend (Rstr, '('); - Prepend (Rstr, Gen.Name); - Prepend (Rstr, Sep); - end; - end if; - Ctxt := Get_Parent_Context (Ctxt); + end if; + Prepend (Rstr, Gen.Name); + Prepend (Rstr, Sep); + Ctxt := Get_Parent_Context (Ctxt); + end; when others => Internal_Error ("grt.rtis_utils.get_path_name"); end case; |