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/debug/ortho_debug.private.ads | |
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/debug/ortho_debug.private.ads')
-rw-r--r-- | src/ortho/debug/ortho_debug.private.ads | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/ortho/debug/ortho_debug.private.ads b/src/ortho/debug/ortho_debug.private.ads index 2a733526c..7a050321a 100644 --- a/src/ortho/debug/ortho_debug.private.ads +++ b/src/ortho/debug/ortho_debug.private.ads @@ -48,7 +48,7 @@ private (ON_Type_Decl, ON_Completed_Type_Decl, ON_Const_Decl, ON_Var_Decl, ON_Interface_Decl, ON_Function_Decl, ON_Function_Body, - ON_Const_Value, + ON_Init_Value, ON_Debug_Line_Decl, ON_Debug_Comment_Decl, ON_Debug_Filename_Decl); type O_Dnode_Type (<>); @@ -70,13 +70,14 @@ private null; when ON_Completed_Type_Decl => null; - when ON_Const_Decl => - Const_Value : O_Dnode; - when ON_Const_Value => - Const_Decl : O_Dnode; + when ON_Const_Decl + | ON_Var_Decl => + -- Corresponding declaration for initial value (if any). + Value_Decl : O_Dnode; + when ON_Init_Value => + -- Corresponding declaration of the object. + Init_Decl : O_Dnode; Value : O_Cnode; - when ON_Var_Decl => - null; when ON_Function_Decl => Interfaces : O_Dnode; Func_Body : O_Dnode; |