[Ada] Set scope of component of subtype

2018-05-29  Ed Schonberg  <schonberg@adacore.com>

gcc/ada/

	* sem_ch3.adb: Set scope of component of subtype.

From-SVN: r260880

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 4eb12c5fa8756e610a2206faf2f6bddf9bb5d845..fe5b58b1b0e2a1fa094ebe36b6447ebe11dc5598 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2018-05-29  Ed Schonberg  <schonberg@adacore.com>
+
+       * sem_ch3.adb: Set scope of component of subtype.
+
 2018-05-29  Ed Schonberg  <schonberg@adacore.com>
 
        * exp_unst.adb (Visit_Node): Exclude selected components whose prefix

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 13162e00ab43ed3c68d89a5354894d20c80abcd7..b8d250c49771851f5e5052b60b268b0719132417 100644 (file)
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -14630,9 +14630,12 @@ package body Sem_Ch3 is
          Set_Comes_From_Source (New_Compon, False);
 
          --  But it is a real entity, and a birth certificate must be properly
-         --  registered by entering it into the entity list.
+         --  registered by entering it into the entity list, and setting its
+         --  scope to the  given subtype. This turns out to be useful for the
+         --  LLVM code generator, but that scope is not used otherwise.
 
          Enter_Name (New_Compon);
+         Set_Scope (New_Compon, Subt);
 
          return New_Compon;
       end Create_Component;