diff options
author | Tristan Gingold | 2015-05-23 08:01:30 +0200 |
---|---|---|
committer | Tristan Gingold | 2015-05-23 08:01:30 +0200 |
commit | b8a48a6144a988904867fb044fbe2cb9f7d2750a (patch) | |
tree | 1ad4dd9eb9d685e4d86e734291bdcda94b68f7a6 /src/vhdl/errorout.adb | |
parent | 6d809ee2e64d5033b62db219f86707e30babe381 (diff) | |
download | ghdl-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.adb | 16 |
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)) & ')'; |