From 5d252b8afe1055f752cafc9f5a89feb95cee853f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 2 Nov 2014 05:30:36 +0100
Subject: Fix uninitialized variable.

---
 translate/translation.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/translate/translation.adb b/translate/translation.adb
index e639809b7..b2b21f3cc 100644
--- a/translate/translation.adb
+++ b/translate/translation.adb
@@ -1396,7 +1396,7 @@ package body Translation is
             Object_Rti : O_Dnode := O_Dnode_Null;
             --  Function to compute the value of object (used for implicit
             --   guard signal declaration).
-            Object_Function : O_Dnode;
+            Object_Function : O_Dnode := O_Dnode_Null;
 
          when Kind_Alias =>
             Alias_Var : Var_Type;
-- 
cgit v1.2.3