diff options
| author | gingold | 2009-08-13 04:05:06 +0000 |
|---|---|---|
| committer | gingold | 2009-08-13 04:05:06 +0000 |
| commit | 31d7e6e56ad1d907646749d1f373859451070a34 (patch) | |
| tree | e66104d109ad05d3b3ed5fed8784274ca560c8ee | |
| parent | e6c8a0c41a5157233cca21af95ed5a73462719d4 (diff) | |
| download | ghdl-31d7e6e56ad1d907646749d1f373859451070a34.tar.gz ghdl-31d7e6e56ad1d907646749d1f373859451070a34.tar.bz2 ghdl-31d7e6e56ad1d907646749d1f373859451070a34.zip | |
Handle processes declared in an entity.
| -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 |