[Ada] Remove unused initial value in Read_Library_Info_From_Full
authorPiotr Trojanek <trojanek@adacore.com>
Tue, 19 Jan 2021 10:59:57 +0000 (11:59 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Thu, 6 May 2021 07:51:29 +0000 (03:51 -0400)
gcc/ada/

* osint.adb (Read_Library_Info_From_Full): Cleanup unused
initial value.

gcc/ada/osint.adb

index 85b631f..d47eaa5 100644 (file)
@@ -2564,7 +2564,7 @@ package body Osint is
       --  Read data from the file
 
       declare
-         Actual_Len : Integer := 0;
+         Actual_Len : Integer;
 
          Lo : constant Text_Ptr := 0;
          --  Low bound for allocated text buffer