[Ada] Plug minor loophole for integer named number

2019-10-10  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* sem_ch3.adb (Analyze_Number_Declaration): Set
	Debug_Info_Needed in the case where the expression is an integer
	literal.

From-SVN: r276822

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 6eca0b8b7cc357b648cbf57ec142df7050c77246..1045a89632f6fcdd989300e4903b0ee87ba00daa 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,5 +1,5 @@
-2019-10-10  Yannick Moy  <moy@adacore.com>
+2019-10-10  Eric Botcazou  <ebotcazou@adacore.com>
 
-       * inline.adb (Can_Be_Inlined_In_GNATprove_Mode): Add subprograms
-       with deep parameter or result type as not candidates for
-       inlining.
\ No newline at end of file
+       * sem_ch3.adb (Analyze_Number_Declaration): Set
+       Debug_Info_Needed in the case where the expression is an integer
+       literal.
\ No newline at end of file

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index e304e72dcfa28a9e9b46eb9f1ba63bd97097f63d..6a0219244e21a584124e558b8145d8969014c7c5 100644 (file)
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -3522,6 +3522,8 @@ package body Sem_Ch3 is
          Set_Etype     (Id, Universal_Integer);
          Set_Ekind     (Id, E_Named_Integer);
          Set_Is_Frozen (Id, True);
+
+         Set_Debug_Info_Needed (Id);
          return;
       end if;