From 405df8e149b7273123ee99e51719f31913248469 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 21 Feb 2016 06:52:07 +0100 Subject: ortho: rename start/finish_const_value to start/finish_init_value. --- src/ortho/ortho_nodes.common.ads | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/ortho/ortho_nodes.common.ads') diff --git a/src/ortho/ortho_nodes.common.ads b/src/ortho/ortho_nodes.common.ads index f9caf32a7..a40323656 100644 --- a/src/ortho/ortho_nodes.common.ads +++ b/src/ortho/ortho_nodes.common.ads @@ -344,9 +344,9 @@ package ORTHO_NODES is Storage : O_Storage; Atype : O_Tnode); - -- Set the value of a non-external constant. - procedure Start_Const_Value (Const : in out O_Dnode); - procedure Finish_Const_Value (Const : in out O_Dnode; Val : O_Cnode); + -- Set the value of a non-external constant or variable. + procedure Start_Init_Value (Decl : in out O_Dnode); + procedure Finish_Init_Value (Decl : in out O_Dnode; Val : O_Cnode); -- Create a variable declaration. -- A variable can be local only inside a function. -- cgit v1.2.3