mlib-prj.adb (Build_Library): Initialize Delete.

2005-11-23  Laurent GUERBY  <laurent@guerby.net>

        * mlib-prj.adb (Build_Library): Initialize Delete.

From-SVN: r107416

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 8afd38c1b6f47cb70d2db830803054f74626a2bf..9ce822311f974dd1c57c385688c94d0316543a2c 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2005-11-23  Laurent GUERBY  <laurent@guerby.net>
+
+        * mlib-prj.adb (Build_Library): Initialize Delete.
+
 2005-11-21  Joel Sherrill <joel.sherrill@oarcorp.com>
 
        * socket.c: Add extern int h_errno for rtems since networking header

diff --git a/gcc/ada/mlib-prj.adb b/gcc/ada/mlib-prj.adb
index 8169f6b0752f9e9162c2986626400730e126f6f6..f6e65be16f4ff44ed0d51d91d83377b1ae52c58b 100644 (file)
--- a/gcc/ada/mlib-prj.adb
+++ b/gcc/ada/mlib-prj.adb
@@ -1658,7 +1658,7 @@ package body MLib.Prj is
 
             declare
                Dir    : Dir_Type;
-               Delete : Boolean;
+               Delete : Boolean := False;
                Unit   : Unit_Data;
 
                Name : String (1 .. 200);