From b8a48a6144a988904867fb044fbe2cb9f7d2750a Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 23 May 2015 08:01:30 +0200
Subject: Preliminary work to support external names (parse, semantic)

---
 src/vhdl/errorout.adb | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'src/vhdl/errorout.adb')

diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb
index 7928b74..442aeb0 100644
--- a/src/vhdl/errorout.adb
+++ b/src/vhdl/errorout.adb
@@ -479,6 +479,22 @@ package body Errorout is
             return '''
               & Name_Table.Nam_Buffer (1 .. Name_Table.Nam_Length)
               & ''';
+         when Iir_Kind_External_Constant_Name =>
+            return "external constant name";
+         when Iir_Kind_External_Signal_Name =>
+            return "external signal name";
+         when Iir_Kind_External_Variable_Name =>
+            return "external variable name";
+
+         when Iir_Kind_Package_Pathname =>
+            return "package pathname";
+         when Iir_Kind_Absolute_Pathname =>
+            return "absolute pathname";
+         when Iir_Kind_Relative_Pathname =>
+            return "relative pathname";
+         when Iir_Kind_Pathname_Element =>
+            return "pathname element";
+
          when Iir_Kind_Entity_Aspect_Entity =>
             return "aspect " & Disp_Node (Get_Entity (Node))
               & '(' & Image_Identifier (Get_Architecture (Node)) & ')';
-- 
cgit