From 31d7e6e56ad1d907646749d1f373859451070a34 Mon Sep 17 00:00:00 2001
From: gingold
Date: Thu, 13 Aug 2009 04:05:06 +0000
Subject: Handle processes declared in an entity.

---
 translate/grt/grt-rtis_utils.adb | 6 ++++++
 1 file changed, 6 insertions(+)

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
-- 
cgit