summaryrefslogtreecommitdiff
path: root/src/vhdl/errorout.adb
diff options
context:
space:
mode:
authorTristan Gingold2015-05-23 08:01:30 +0200
committerTristan Gingold2015-05-23 08:01:30 +0200
commitb8a48a6144a988904867fb044fbe2cb9f7d2750a (patch)
tree1ad4dd9eb9d685e4d86e734291bdcda94b68f7a6 /src/vhdl/errorout.adb
parent6d809ee2e64d5033b62db219f86707e30babe381 (diff)
downloadghdl-b8a48a6144a988904867fb044fbe2cb9f7d2750a.tar.gz
ghdl-b8a48a6144a988904867fb044fbe2cb9f7d2750a.tar.bz2
ghdl-b8a48a6144a988904867fb044fbe2cb9f7d2750a.zip
Preliminary work to support external names (parse, semantic)
Diffstat (limited to 'src/vhdl/errorout.adb')
-rw-r--r--src/vhdl/errorout.adb16
1 files changed, 16 insertions, 0 deletions
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)) & ')';