[Ada] Sem_Ch13: fix uninitialized parameter static analysis warning

No functional change.

2019-08-20  Bob Duff  <duff@adacore.com>

gcc/ada/

	* sem_ch13.adb (Record_Hole_Check): Initialize After_Last.

From-SVN: r274719

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index b1640e2619c6dc0306c21a532609166b18714c6e..9c226815ad97a6aaaa3be178038645ea52b34aee 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2019-08-20  Bob Duff  <duff@adacore.com>
+
+       * sem_ch13.adb (Record_Hole_Check): Initialize After_Last.
+
 2019-08-20  Piotr Trojanek  <trojanek@adacore.com>
 
        * impunit.adb (Get_Kind_Of_Unit): Revert change for adapting

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index a3a7be728f0a4fb1602d86bf7fc68e449a4c62a2..4a07478757da3835e1ebc566e41f466bdc7449f6 100644 (file)
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -10438,6 +10438,8 @@ package body Sem_Ch13 is
             Sbit := Uint_0;
          end if;
 
+         After_Last := Uint_0;
+
          if Nkind (Decl) = N_Full_Type_Declaration then
             Record_Definition := Type_Definition (Decl);