diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-07-16 08:28:51 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-07-16 08:28:51 +0200 |
commit | df6283274a67f9d3810b8ff6a91c6a4885c5797f (patch) | |
tree | 0e7cf8484d3c2c6e5298559b5c9506bfebcd9769 /src/vhdl | |
parent | 34c4e6f26fd9b628f85b1b892ab8522f5bd58928 (diff) | |
download | ghdl-df6283274a67f9d3810b8ff6a91c6a4885c5797f.tar.gz ghdl-df6283274a67f9d3810b8ff6a91c6a4885c5797f.tar.bz2 ghdl-df6283274a67f9d3810b8ff6a91c6a4885c5797f.zip |
vhdl: add Iir_Kinds_AMS_Signal_Attribute
Diffstat (limited to 'src/vhdl')
-rw-r--r-- | src/vhdl/vhdl-elocations.adb | 2 | ||||
-rw-r--r-- | src/vhdl/vhdl-nodes.adb | 2 | ||||
-rw-r--r-- | src/vhdl/vhdl-nodes.ads | 12 | ||||
-rw-r--r-- | src/vhdl/vhdl-nodes_meta.adb | 28 |
4 files changed, 26 insertions, 18 deletions
diff --git a/src/vhdl/vhdl-elocations.adb b/src/vhdl/vhdl-elocations.adb index b428c4fab..11f4a87d2 100644 --- a/src/vhdl/vhdl-elocations.adb +++ b/src/vhdl/vhdl-elocations.adb @@ -429,8 +429,8 @@ package body Vhdl.Elocations is | Iir_Kind_Ztf_Attribute | Iir_Kind_Dot_Attribute | Iir_Kind_Integ_Attribute - | Iir_Kind_Above_Attribute | Iir_Kind_Quantity_Delayed_Attribute + | Iir_Kind_Above_Attribute | Iir_Kind_Delayed_Attribute | Iir_Kind_Stable_Attribute | Iir_Kind_Quiet_Attribute diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb index b2946d62c..0671e3f35 100644 --- a/src/vhdl/vhdl-nodes.adb +++ b/src/vhdl/vhdl-nodes.adb @@ -1215,8 +1215,8 @@ package body Vhdl.Nodes is | Iir_Kind_Rightof_Attribute | Iir_Kind_Dot_Attribute | Iir_Kind_Integ_Attribute - | Iir_Kind_Above_Attribute | Iir_Kind_Quantity_Delayed_Attribute + | Iir_Kind_Above_Attribute | Iir_Kind_Delayed_Attribute | Iir_Kind_Stable_Attribute | Iir_Kind_Quiet_Attribute diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index 4a9fc797f..9dee8320a 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -5205,8 +5205,8 @@ package Vhdl.Nodes is Iir_Kind_Ztf_Attribute, Iir_Kind_Dot_Attribute, Iir_Kind_Integ_Attribute, - Iir_Kind_Above_Attribute, Iir_Kind_Quantity_Delayed_Attribute, + Iir_Kind_Above_Attribute, Iir_Kind_Delayed_Attribute, -- signal_attribute Iir_Kind_Stable_Attribute, -- signal_attribute Iir_Kind_Quiet_Attribute, -- signal_attribute @@ -6944,8 +6944,8 @@ package Vhdl.Nodes is --Iir_Kind_Ztf_Attribute --Iir_Kind_Dot_Attribute --Iir_Kind_Integ_Attribute - --Iir_Kind_Above_Attribute --Iir_Kind_Quantity_Delayed_Attribute + --Iir_Kind_Above_Attribute --Iir_Kind_Delayed_Attribute --Iir_Kind_Stable_Attribute --Iir_Kind_Quiet_Attribute @@ -7016,6 +7016,14 @@ package Vhdl.Nodes is --Iir_Kind_Quiet_Attribute Iir_Kind_Transaction_Attribute; + -- Same as Iir_Kinds_Signal_Attribute but with 'Above. + subtype Iir_Kinds_AMS_Signal_Attribute is Iir_Kind range + Iir_Kind_Above_Attribute .. + --Iir_Kind_Delayed_Attribute + --Iir_Kind_Stable_Attribute + --Iir_Kind_Quiet_Attribute + Iir_Kind_Transaction_Attribute; + subtype Iir_Kinds_Signal_Value_Attribute is Iir_Kind range Iir_Kind_Event_Attribute .. --Iir_Kind_Active_Attribute diff --git a/src/vhdl/vhdl-nodes_meta.adb b/src/vhdl/vhdl-nodes_meta.adb index 81b66f3a3..789bdbacb 100644 --- a/src/vhdl/vhdl-nodes_meta.adb +++ b/src/vhdl/vhdl-nodes_meta.adb @@ -1751,10 +1751,10 @@ package body Vhdl.Nodes_Meta is return "dot_attribute"; when Iir_Kind_Integ_Attribute => return "integ_attribute"; - when Iir_Kind_Above_Attribute => - return "above_attribute"; when Iir_Kind_Quantity_Delayed_Attribute => return "quantity_delayed_attribute"; + when Iir_Kind_Above_Attribute => + return "above_attribute"; when Iir_Kind_Delayed_Attribute => return "delayed_attribute"; when Iir_Kind_Stable_Attribute => @@ -5099,7 +5099,7 @@ package body Vhdl.Nodes_Meta is Field_Attr_Chain, Field_Signal_Attribute_Declaration, Field_Base_Name, - -- Iir_Kind_Above_Attribute + -- Iir_Kind_Quantity_Delayed_Attribute Field_Expr_Staticness, Field_Name_Staticness, Field_Prefix, @@ -5108,7 +5108,7 @@ package body Vhdl.Nodes_Meta is Field_Signal_Attribute_Declaration, Field_Parameter, Field_Base_Name, - -- Iir_Kind_Quantity_Delayed_Attribute + -- Iir_Kind_Above_Attribute Field_Expr_Staticness, Field_Name_Staticness, Field_Prefix, @@ -5587,8 +5587,8 @@ package body Vhdl.Nodes_Meta is Iir_Kind_Ztf_Attribute => 2221, Iir_Kind_Dot_Attribute => 2228, Iir_Kind_Integ_Attribute => 2235, - Iir_Kind_Above_Attribute => 2243, - Iir_Kind_Quantity_Delayed_Attribute => 2251, + Iir_Kind_Quantity_Delayed_Attribute => 2243, + Iir_Kind_Above_Attribute => 2251, Iir_Kind_Delayed_Attribute => 2260, Iir_Kind_Stable_Attribute => 2269, Iir_Kind_Quiet_Attribute => 2278, @@ -8844,8 +8844,8 @@ package body Vhdl.Nodes_Meta is | Iir_Kind_Ztf_Attribute | Iir_Kind_Dot_Attribute | Iir_Kind_Integ_Attribute - | Iir_Kind_Above_Attribute | Iir_Kind_Quantity_Delayed_Attribute + | Iir_Kind_Above_Attribute | Iir_Kind_Delayed_Attribute | Iir_Kind_Stable_Attribute | Iir_Kind_Quiet_Attribute @@ -9056,8 +9056,8 @@ package body Vhdl.Nodes_Meta is | Iir_Kind_Ztf_Attribute | Iir_Kind_Dot_Attribute | Iir_Kind_Integ_Attribute - | Iir_Kind_Above_Attribute | Iir_Kind_Quantity_Delayed_Attribute + | Iir_Kind_Above_Attribute | Iir_Kind_Delayed_Attribute | Iir_Kind_Stable_Attribute | Iir_Kind_Quiet_Attribute @@ -11326,8 +11326,8 @@ package body Vhdl.Nodes_Meta is | Iir_Kind_Ztf_Attribute | Iir_Kind_Dot_Attribute | Iir_Kind_Integ_Attribute - | Iir_Kind_Above_Attribute | Iir_Kind_Quantity_Delayed_Attribute + | Iir_Kind_Above_Attribute | Iir_Kind_Delayed_Attribute | Iir_Kind_Stable_Attribute | Iir_Kind_Quiet_Attribute @@ -11583,8 +11583,8 @@ package body Vhdl.Nodes_Meta is | Iir_Kind_Ztf_Attribute | Iir_Kind_Dot_Attribute | Iir_Kind_Integ_Attribute - | Iir_Kind_Above_Attribute | Iir_Kind_Quantity_Delayed_Attribute + | Iir_Kind_Above_Attribute | Iir_Kind_Delayed_Attribute | Iir_Kind_Stable_Attribute | Iir_Kind_Quiet_Attribute @@ -11654,8 +11654,8 @@ package body Vhdl.Nodes_Meta is | Iir_Kind_Ztf_Attribute | Iir_Kind_Dot_Attribute | Iir_Kind_Integ_Attribute - | Iir_Kind_Above_Attribute | Iir_Kind_Quantity_Delayed_Attribute + | Iir_Kind_Above_Attribute | Iir_Kind_Delayed_Attribute | Iir_Kind_Stable_Attribute | Iir_Kind_Quiet_Attribute @@ -11786,8 +11786,8 @@ package body Vhdl.Nodes_Meta is | Iir_Kind_Zoh_Attribute | Iir_Kind_Ltf_Attribute | Iir_Kind_Ztf_Attribute - | Iir_Kind_Above_Attribute | Iir_Kind_Quantity_Delayed_Attribute + | Iir_Kind_Above_Attribute | Iir_Kind_Delayed_Attribute | Iir_Kind_Stable_Attribute | Iir_Kind_Quiet_Attribute @@ -11842,8 +11842,8 @@ package body Vhdl.Nodes_Meta is | Iir_Kind_Ztf_Attribute | Iir_Kind_Dot_Attribute | Iir_Kind_Integ_Attribute - | Iir_Kind_Above_Attribute | Iir_Kind_Quantity_Delayed_Attribute + | Iir_Kind_Above_Attribute | Iir_Kind_Delayed_Attribute | Iir_Kind_Stable_Attribute | Iir_Kind_Quiet_Attribute @@ -11859,8 +11859,8 @@ package body Vhdl.Nodes_Meta is case K is when Iir_Kind_Dot_Attribute | Iir_Kind_Integ_Attribute - | Iir_Kind_Above_Attribute | Iir_Kind_Quantity_Delayed_Attribute + | Iir_Kind_Above_Attribute | Iir_Kind_Delayed_Attribute | Iir_Kind_Stable_Attribute | Iir_Kind_Quiet_Attribute |