diff options
Diffstat (limited to 'translate/grt/grt-disp_rti.adb')
| -rw-r--r-- | translate/grt/grt-disp_rti.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/translate/grt/grt-disp_rti.adb b/translate/grt/grt-disp_rti.adb index c926775..d6f891a 100644 --- a/translate/grt/grt-disp_rti.adb +++ b/translate/grt/grt-disp_rti.adb @@ -253,8 +253,10 @@ package body Grt.Disp_Rti is Disp_Record_Value (Stream, To_Ghdl_Rtin_Type_Record_Acc (Rti), Ctxt, Obj, Is_Sig); when others => - Put (Stream, "??"); + Put (Stream, "Unknown Rti Kind : "); + Disp_Kind(Rti.Kind); end case; + Put_Line(":"); end Disp_Value; procedure Disp_Kind (Kind : Ghdl_Rtik) is |