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-chap9.adb | |
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-chap9.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap9.adb | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb index eb4668f7b..45068c733 100644 --- a/src/vhdl/translate/trans-chap9.adb +++ b/src/vhdl/translate/trans-chap9.adb @@ -387,7 +387,7 @@ package body Trans.Chap9 is return New_Compare_Op (ON_Eq, Res, - New_Lit (Get_Ortho_Expr (Bit_1)), + New_Lit (Get_Ortho_Literal (Bit_1)), Get_Ortho_Type (Boolean_Type_Definition, Mode_Value)); elsif Rtype = Ieee.Std_Logic_1164.Std_Ulogic_Type then return New_Value @@ -482,7 +482,8 @@ package body Trans.Chap9 is Start_Association (Assocs, Ghdl_Psl_Cover); New_Association (Assocs, New_Obj_Value (Msg_Var)); - New_Association (Assocs, New_Lit (Get_Ortho_Expr (Severity_Level_Note))); + New_Association (Assocs, New_Lit (Get_Ortho_Literal + (Severity_Level_Note))); New_Association (Assocs, New_Address (New_Obj (Loc), Ghdl_Location_Ptr_Node)); New_Procedure_Call (Assocs); @@ -491,10 +492,10 @@ package body Trans.Chap9 is Start_Association (Assocs, Ghdl_Psl_Cover_Failed); New_Association (Assocs, New_Obj_Value (Msg_Var)); - New_Association (Assocs, - New_Lit (Get_Ortho_Expr (Severity_Level_Error))); - New_Association (Assocs, - New_Address (New_Obj (Loc), Ghdl_Location_Ptr_Node)); + New_Association (Assocs, New_Lit (Get_Ortho_Literal + (Severity_Level_Error))); + New_Association (Assocs, New_Address (New_Obj (Loc), + Ghdl_Location_Ptr_Node)); New_Procedure_Call (Assocs); Finish_If_Stmt (Blk); |