diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-07-21 06:45:24 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-07-21 06:45:24 +0200 |
commit | 341a8698ccb6b795d46b9570bac06e240c7664de (patch) | |
tree | f818881d50e3da9fe055cbf3a6ce4c2472e16aaf /src/vhdl/translate | |
parent | f440e1b0289a1f969b9190a11831e384b911db0e (diff) | |
download | ghdl-341a8698ccb6b795d46b9570bac06e240c7664de.tar.gz ghdl-341a8698ccb6b795d46b9570bac06e240c7664de.tar.bz2 ghdl-341a8698ccb6b795d46b9570bac06e240c7664de.zip |
vhdl-nodes: renaming.
Node Iir_Kind_Signal_Attribute_Declaration is now
Iir_Kind_Attribute_Implicit_Declaration
Will also handle quantities.
Diffstat (limited to 'src/vhdl/translate')
-rw-r--r-- | src/vhdl/translate/trans-chap4.adb | 8 | ||||
-rw-r--r-- | src/vhdl/translate/trans-rtis.adb | 6 |
2 files changed, 7 insertions, 7 deletions
diff --git a/src/vhdl/translate/trans-chap4.adb b/src/vhdl/translate/trans-chap4.adb index f1db4d40b..ab94b68fc 100644 --- a/src/vhdl/translate/trans-chap4.adb +++ b/src/vhdl/translate/trans-chap4.adb @@ -1933,11 +1933,11 @@ package body Trans.Chap4 is when Iir_Kind_Attribute_Specification => Chap5.Translate_Attribute_Specification (Decl); - when Iir_Kind_Signal_Attribute_Declaration => + when Iir_Kind_Attribute_Implicit_Declaration => declare Sig : Iir; begin - Sig := Get_Signal_Attribute_Chain (Decl); + Sig := Get_Attribute_Implicit_Chain (Decl); while Is_Valid (Sig) loop Chap4.Create_Implicit_Signal (Sig); Sig := Get_Attr_Chain (Sig); @@ -2709,11 +2709,11 @@ package body Trans.Chap4 is | Iir_Kind_Procedure_Body => null; - when Iir_Kind_Signal_Attribute_Declaration => + when Iir_Kind_Attribute_Implicit_Declaration => declare Sig : Iir; begin - Sig := Get_Signal_Attribute_Chain (Decl); + Sig := Get_Attribute_Implicit_Chain (Decl); while Is_Valid (Sig) loop case Iir_Kinds_Signal_Attribute (Get_Kind (Sig)) is when Iir_Kind_Stable_Attribute diff --git a/src/vhdl/translate/trans-rtis.adb b/src/vhdl/translate/trans-rtis.adb index eeddad578..80871cfd8 100644 --- a/src/vhdl/translate/trans-rtis.adb +++ b/src/vhdl/translate/trans-rtis.adb @@ -2195,7 +2195,7 @@ package body Trans.Rtis is | Iir_Kind_Interface_Constant_Declaration | Iir_Kind_Variable_Declaration | Iir_Kind_File_Declaration - | Iir_Kind_Signal_Attribute_Declaration => + | Iir_Kind_Attribute_Implicit_Declaration => null; when Iir_Kind_Object_Alias_Declaration | Iir_Kind_Attribute_Declaration => @@ -2332,12 +2332,12 @@ package body Trans.Rtis is Generate_Object (Decl, Info.Signal_Rti); Add_Rti_Node (Info.Signal_Rti); end; - when Iir_Kind_Signal_Attribute_Declaration => + when Iir_Kind_Attribute_Implicit_Declaration => declare Sig : Iir; Info : Signal_Info_Acc; begin - Sig := Get_Signal_Attribute_Chain (Decl); + Sig := Get_Attribute_Implicit_Chain (Decl); while Is_Valid (Sig) loop case Iir_Kinds_Signal_Attribute (Get_Kind (Sig)) is when Iir_Kind_Stable_Attribute |