1 files changed, 3 insertions, 0 deletions
diff --git a/errorout.ads b/errorout.ads
index fddd355..35a6531 100644
--- a/errorout.ads
+++ b/errorout.ads
@@ -121,4 +121,7 @@ package Errorout is
    --  Report an error message as type of EXPR does not match A_TYPE.
    --  Location is LOC.
    procedure Error_Not_Match (Expr: Iir; A_Type: Iir; Loc : Iir);
+
+   --  Disp interface mode MODE.
+   function Get_Mode_Name (Mode : Iir_Mode) return String;
 end Errorout;