diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-02-21 06:52:07 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-02-21 11:47:12 +0100 |
| commit | 405df8e149b7273123ee99e51719f31913248469 (patch) | |
| tree | 9cc89ce3841957634dfe870648bc21d52a59fd61 /src/ortho/mcode/ortho_code-decls.adb | |
| parent | 122e8753c6218a0adfb8b2a7aef7dd424eb6562a (diff) | |
| download | ghdl-405df8e149b7273123ee99e51719f31913248469.tar.gz ghdl-405df8e149b7273123ee99e51719f31913248469.tar.bz2 ghdl-405df8e149b7273123ee99e51719f31913248469.zip | |
ortho: rename start/finish_const_value to start/finish_init_value.
Diffstat (limited to 'src/ortho/mcode/ortho_code-decls.adb')
| -rw-r--r-- | src/ortho/mcode/ortho_code-decls.adb | 18 |
1 files changed, 6 insertions, 12 deletions
diff --git a/src/ortho/mcode/ortho_code-decls.adb b/src/ortho/mcode/ortho_code-decls.adb index b95d4a2b8..a3a5e5eb0 100644 --- a/src/ortho/mcode/ortho_code-decls.adb +++ b/src/ortho/mcode/ortho_code-decls.adb @@ -345,6 +345,8 @@ package body Ortho_Code.Decls is procedure New_Init_Value (Decl : O_Dnode; Val : O_Cnode) is begin + pragma Assert (Get_Decl_Kind (Decl) = OD_Const + or else Get_Decl_Kind (Decl) = OD_Var); if Get_Init_Value (Decl) /= O_Cnode_Null then -- Value was already set. raise Syntax_Error; @@ -363,18 +365,10 @@ package body Ortho_Code.Decls is end if; end New_Init_Value; - procedure New_Const_Value (Cst : O_Dnode; Val : O_Cnode) is - begin - pragma Assert (Get_Decl_Kind (Cst) = OD_Const); - New_Init_Value (Cst, Val); - end New_Const_Value; - - procedure New_Var_Decl - (Res : out O_Dnode; - Ident : O_Ident; - Storage : O_Storage; - Atype : O_Tnode) - is + procedure New_Var_Decl (Res : out O_Dnode; + Ident : O_Ident; + Storage : O_Storage; + Atype : O_Tnode) is begin if Storage = O_Storage_Local then Dnodes.Append (Dnode_Common'(Kind => OD_Local, |