diff options
Diffstat (limited to 'translate/grt/grt-rtis_utils.adb')
| -rw-r--r-- | translate/grt/grt-rtis_utils.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/translate/grt/grt-rtis_utils.adb b/translate/grt/grt-rtis_utils.adb index 62cd407..9754ada 100644 --- a/translate/grt/grt-rtis_utils.adb +++ b/translate/grt/grt-rtis_utils.adb @@ -94,7 +94,9 @@ package body Grt.Rtis_Utils is Obj := To_Ghdl_Rtin_Instance_Acc (Child); Get_Instance_Context (Obj, Ctxt, Nctxt); - Res := Traverse_Instance (Nctxt); + if Nctxt /= Null_Context then + Res := Traverse_Instance (Nctxt); + end if; end; end if; when Ghdl_Rtik_Package |