From e4c7e530b7552701bd26ee3569c34c65aa30752d Mon Sep 17 00:00:00 2001
From: gingold
Date: Wed, 23 Sep 2009 01:26:52 +0000
Subject: Handle anonymous subtypes.

---
 errorout.adb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/errorout.adb b/errorout.adb
index 544f56b..2ddc426 100644
--- a/errorout.adb
+++ b/errorout.adb
@@ -893,8 +893,12 @@ package body Errorout is
       procedure Append_Type (Def : Iir)
       is
          use Name_Table;
+         Decl : Iir := Get_Type_Declarator (Def);
       begin
-         Image (Get_Identifier (Get_Type_Declarator (Def)));
+         if Decl = Null_Iir then
+            Decl := Get_Type_Declarator (Get_Base_Type (Def));
+         end if;
+         Image (Get_Identifier (Decl));
          Append (Res, Name_Buffer (1 .. Name_Length));
       end Append_Type;
 
-- 
cgit