diff options
Diffstat (limited to 'src/grt/grt-rtis_addr.adb')
| -rw-r--r-- | src/grt/grt-rtis_addr.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/grt/grt-rtis_addr.adb b/src/grt/grt-rtis_addr.adb index 4845c1301..25b0c64a9 100644 --- a/src/grt/grt-rtis_addr.adb +++ b/src/grt/grt-rtis_addr.adb @@ -56,7 +56,8 @@ package body Grt.Rtis_Addr is begin case Ctxt.Block.Kind is when Ghdl_Rtik_Process - | Ghdl_Rtik_Block => + | Ghdl_Rtik_Block + | Ghdl_Rtiks_Psl => return (Base => Ctxt.Base - Blk.Loc, Block => Blk.Parent); when Ghdl_Rtik_Architecture => |