diff options
| -rw-r--r-- | translate/grt/grt-rtis_utils.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/translate/grt/grt-rtis_utils.adb b/translate/grt/grt-rtis_utils.adb index 18a5dfe..633af43 100644 --- a/translate/grt/grt-rtis_utils.adb +++ b/translate/grt/grt-rtis_utils.adb @@ -566,6 +566,12 @@ package body Grt.Rtis_Utils is Link := To_Ghdl_Entity_Link_Acc (Ctxt.Base); Ctxt := (Base => Ctxt.Base, Block => Link.Rti); + if Ctxt.Block = null then + -- Process in an entity. + -- FIXME: check. + Prepend (Rstr, Blk.Name); + return; + end if; end; when Ghdl_Rtik_Architecture => declare |