2 files changed, 10 insertions, 10 deletions
diff --git a/src/ortho/llvm/ortho_llvm.adb b/src/ortho/llvm/ortho_llvm.adb
index f6e3dbefc..8106f9d7d 100644
--- a/src/ortho/llvm/ortho_llvm.adb
+++ b/src/ortho/llvm/ortho_llvm.adb
@@ -2021,22 +2021,22 @@ package body Ortho_LLVM is
    end New_Const_Decl;
 
    -----------------------
-   -- Start_Const_Value --
+   -- Start_Init_Value --
    -----------------------
 
-   procedure Start_Const_Value (Const : in out O_Dnode) is
+   procedure Start_Init_Value (Decl : in out O_Dnode) is
    begin
       null;
-   end Start_Const_Value;
+   end Start_Init_Value;
 
    ------------------------
-   -- Finish_Const_Value --
+   -- Finish_Init_Value --
    ------------------------
 
-   procedure Finish_Const_Value (Const : in out O_Dnode; Val : O_Cnode) is
+   procedure Finish_Init_Value (Decl : in out O_Dnode; Val : O_Cnode) is
    begin
-      SetInitializer (Const.LLVM, Val.LLVM);
-   end Finish_Const_Value;
+      SetInitializer (Decl.LLVM, Val.LLVM);
+   end Finish_Init_Value;
 
    ------------------
    -- New_Var_Decl --
diff --git a/src/ortho/llvm/ortho_llvm.ads b/src/ortho/llvm/ortho_llvm.ads
index 4cd0feba2..3f77a86b9 100644
--- a/src/ortho/llvm/ortho_llvm.ads
+++ b/src/ortho/llvm/ortho_llvm.ads
@@ -373,9 +373,9 @@ package Ortho_LLVM 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.