Improve error handling on use clauses.

1 files changed, 11 insertions, 5 deletions

diff --git a/src/vhdl/iirs_utils.adb b/src/vhdl/iirs_utils.adb
index 32e52f77f..bc4b7b7e7 100644
--- a/src/vhdl/iirs_utils.adb
+++ b/src/vhdl/iirs_utils.adb
@@ -51,11 +51,6 @@ package body Iirs_Utils is
       return Get_Kind (N) = Iir_Kind_Error;
    end Is_Error;
 
-   function Is_Any_Error (N : Iir) return Boolean is
-   begin
-      return N = Null_Iir or else Get_Kind (N) = Iir_Kind_Error;
-   end Is_Any_Error;
-
    function Is_Overflow_Literal (N : Iir) return Boolean is
    begin
       return Get_Kind (N) = Iir_Kind_Overflow_Literal;
@@ -1601,6 +1596,17 @@ package body Iirs_Utils is
       return Res;
    end Create_Error_Type;
 
+   function Create_Error_Name (Orig : Iir) return Iir
+   is
+      Res : Iir;
+   begin
+      Res := Create_Iir (Iir_Kind_Error);
+      Set_Expr_Staticness (Res, None);
+      Set_Error_Origin (Res, Orig);
+      Location_Copy (Res, Orig);
+      return Res;
+   end Create_Error_Name;
+
    --  Extract the entity from ASPECT.
    --  Note: if ASPECT is a component declaration, returns ASPECT.
    function Get_Entity_From_Entity_Aspect (Aspect : Iir) return Iir