ortho: rename start/finish_const_value to start/finish_init_value.

3 files changed, 12 insertions, 12 deletions

diff --git a/src/ortho/gcc/ortho-lang.c b/src/ortho/gcc/ortho-lang.c
index 0c38fbfce..b4fdbe388 100644
--- a/src/ortho/gcc/ortho-lang.c
+++ b/src/ortho/gcc/ortho-lang.c
@@ -1623,17 +1623,17 @@ new_const_decl (tree *res, tree ident, enum o_storage storage, tree atype)
 }
 
 void
-start_const_value (tree *cst ATTRIBUTE_UNUSED)
+start_init_value (tree *decl ATTRIBUTE_UNUSED)
 {
 }
 
 void
-finish_const_value (tree *cst, tree val)
+finish_init_value (tree *decl, tree val)
 {
-  DECL_INITIAL (*cst) = val;
+  DECL_INITIAL (*decl) = val;
   TREE_CONSTANT (val) = 1;
-  TREE_STATIC (*cst) = 1;
-  rest_of_decl_compilation (*cst, current_function_decl == NULL_TREE, 0);
+  TREE_STATIC (*decl) = 1;
+  rest_of_decl_compilation (*decl, current_function_decl == NULL_TREE, 0);
 }
 
 void
diff --git a/src/ortho/gcc/ortho_gcc.ads b/src/ortho/gcc/ortho_gcc.ads
index 6f43be4cb..ab7e0e3d0 100644
--- a/src/ortho/gcc/ortho_gcc.ads
+++ b/src/ortho/gcc/ortho_gcc.ads
@@ -350,9 +350,9 @@ package Ortho_Gcc 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.
@@ -657,8 +657,8 @@ private
    pragma Import (C, New_Const_Decl);
    pragma Import (C, New_Var_Decl);
 
-   pragma Import (C, Start_Const_Value);
-   pragma Import (C, Finish_Const_Value);
+   pragma Import (C, Start_Init_Value);
+   pragma Import (C, Finish_Init_Value);
 
    pragma Import (C, Start_Function_Decl);
    pragma Import (C, Start_Procedure_Decl);
diff --git a/src/ortho/gcc/ortho_gcc.private.ads b/src/ortho/gcc/ortho_gcc.private.ads
index 7eacdf48e..615c8aa13 100644
--- a/src/ortho/gcc/ortho_gcc.private.ads
+++ b/src/ortho/gcc/ortho_gcc.private.ads
@@ -225,8 +225,8 @@ private
    pragma Import (C, New_Const_Decl);
    pragma Import (C, New_Var_Decl);
 
-   pragma Import (C, Start_Const_Value);
-   pragma Import (C, Finish_Const_Value);
+   pragma Import (C, Start_Init_Value);
+   pragma Import (C, Finish_Init_Value);
 
    pragma Import (C, Start_Function_Decl);
    pragma Import (C, Start_Procedure_Decl);