diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-28 06:36:57 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-28 06:36:57 +0200 |
commit | c24ef07771e91f11206f88d3c912941f942f4e4b (patch) | |
tree | 0e06e2872d12d830609a18368c86cf3e5ee5aac1 /src/vhdl/vhdl-nodes.ads | |
parent | 67422d11f9c5f4d8c97c10daf1a5e0d58d2b2df8 (diff) | |
download | ghdl-c24ef07771e91f11206f88d3c912941f942f4e4b.tar.gz ghdl-c24ef07771e91f11206f88d3c912941f942f4e4b.tar.bz2 ghdl-c24ef07771e91f11206f88d3c912941f942f4e4b.zip |
vhdl: get rid of Get/Set_Physical_Unit.
Use integer_literal for evaluated physical literals.
Diffstat (limited to 'src/vhdl/vhdl-nodes.ads')
-rw-r--r-- | src/vhdl/vhdl-nodes.ads | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads index 57e9e3fdc..8e20bf830 100644 --- a/src/vhdl/vhdl-nodes.ads +++ b/src/vhdl/vhdl-nodes.ads @@ -366,11 +366,8 @@ package Vhdl.Nodes is -- -- Get/Set_Literal_Origin (Field2) -- - -- The physical unit of the literal. - -- Get/Set_Physical_Unit (Field3) - -- - -- The name of the physical unit (if any). - -- Get/Set_Unit_Name (Field0) + -- The name of the physical unit. + -- Get/Set_Unit_Name (Field3) -- -- Get/Set_Type (Field1) -- @@ -7149,11 +7146,7 @@ package Vhdl.Nodes is function Get_Right (Target : Iir) return Iir; procedure Set_Right (Target : Iir; An_Iir : Iir); - -- Field: Field3 Ref - function Get_Physical_Unit (Lit : Iir) return Iir; - procedure Set_Physical_Unit (Lit : Iir; Name : Iir); - - -- Field: Field0 + -- Field: Field3 function Get_Unit_Name (Target : Iir) return Iir; procedure Set_Unit_Name (Target : Iir; Name : Iir); |