diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-12-11 06:55:40 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-12-11 06:55:40 +0100 |
commit | 0e9f6c8979a1a05e287b183b77108f2c46903c82 (patch) | |
tree | 253b6c2aa2277d7d775b416db0cfafa208a1aaab /src/vhdl/translate/trans.ads | |
parent | 3699e4f8b6bf5a2e757bcd397202dbdebf614a02 (diff) | |
download | ghdl-0e9f6c8979a1a05e287b183b77108f2c46903c82.tar.gz ghdl-0e9f6c8979a1a05e287b183b77108f2c46903c82.tar.bz2 ghdl-0e9f6c8979a1a05e287b183b77108f2c46903c82.zip |
translate: renaming of Kind_Expr/Get_Ortho_Expr.
Diffstat (limited to 'src/vhdl/translate/trans.ads')
-rw-r--r-- | src/vhdl/translate/trans.ads | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/vhdl/translate/trans.ads b/src/vhdl/translate/trans.ads index 8998e32c3..f9ec5f494 100644 --- a/src/vhdl/translate/trans.ads +++ b/src/vhdl/translate/trans.ads @@ -716,7 +716,7 @@ package Trans is Kind_Type, Kind_Incomplete_Type, Kind_Index, - Kind_Expr, + Kind_Enum_Lit, Kind_Subprg, Kind_Operator, Kind_Call, @@ -1435,10 +1435,10 @@ package Trans is -- element (for unbounded element). Field_Bound : O_Fnode := O_Fnode_Null; - when Kind_Expr => + when Kind_Enum_Lit => -- Ortho tree which represents the expression, used for -- enumeration literals. - Expr_Node : O_Cnode; + Lit_Node : O_Cnode; when Kind_Subprg => -- True if the function can return a value stored in the secondary @@ -1852,9 +1852,7 @@ package Trans is procedure Free_Type_Info (Info : in out Type_Info_Acc); - procedure Set_Ortho_Expr (Target : Iir; Expr : O_Cnode); - - function Get_Ortho_Expr (Target : Iir) return O_Cnode; + function Get_Ortho_Literal (Target : Iir) return O_Cnode; function Get_Ortho_Type (Target : Iir; Is_Sig : Object_Kind_Type) return O_Tnode; |