From 405df8e149b7273123ee99e51719f31913248469 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 21 Feb 2016 06:52:07 +0100
Subject: ortho: rename start/finish_const_value to start/finish_init_value.

---
 src/ortho/llvm/ortho_llvm.adb | 14 +++++++-------
 src/ortho/llvm/ortho_llvm.ads |  6 +++---
 2 files changed, 10 insertions(+), 10 deletions(-)

(limited to 'src/ortho/llvm')

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.
-- 
cgit v1.2.3