[multiple changes]

2012-06-12  Arnaud Charlet  <charlet@adacore.com>

	* xref_lib.adb (Get_Full_Type): Add support for 'G'.

2012-06-12  Tristan Gingold  <gingold@adacore.com>

	* a-exexpr-gcc.adb (Unwind_Exception): Add 4 more private fields.

2012-06-12  Fedor Rybin  <frybin@adacore.com>

	* gnat_ugn.texi: Update doc on gnattest.

2012-06-12  Robert Dewar  <dewar@adacore.com>

	* sem_ch12.adb: Add comments.

From-SVN: r188453

gcc/ada/ChangeLog

+2012-06-12  Arnaud Charlet  <charlet@adacore.com>
+
+	* xref_lib.adb (Get_Full_Type): Add support for 'G'.
+
+2012-06-12  Tristan Gingold  <gingold@adacore.com>
+
+	* a-exexpr-gcc.adb (Unwind_Exception): Add 4 more private fields.
+
+2012-06-12  Fedor Rybin  <frybin@adacore.com>
+
+	* gnat_ugn.texi: Update doc on gnattest.
+
+2012-06-12  Robert Dewar  <dewar@adacore.com>
+
+	* sem_ch12.adb: Add comments.
+
 2012-06-12  Robert Dewar  <dewar@adacore.com>
 
 	* switch-c.adb, inline.adb, usage.adb, opt.ads: Minor reformatting.

gcc/ada/a-exexpr-gcc.adb

@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2011, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2012, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -108,6 +108,14 @@ package body Exception_Propagation is
       Cleanup  : System.Address;
       Private1 : Unwind_Word;
       Private2 : Unwind_Word;
+
+      --  Usual exception structure has only 2 private fields, but the SEH
+      --  one has 6.  To avoid makeing this file more complex, we use 6 fields
+      --  on all platforms, wasting a few bytes on some.
+      Private3 : Unwind_Word;
+      Private4 : Unwind_Word;
+      Private5 : Unwind_Word;
+      Private6 : Unwind_Word;
    end record;
    pragma Convention (C, Unwind_Exception);
    --  Map the GCC struct used for exception handling
@@ -475,8 +483,7 @@ package body Exception_Propagation is
         new GNAT_GCC_Exception'
           (Header     => (Class => GNAT_Exception_Class,
                           Cleanup => GNAT_GCC_Exception_Cleanup'Address,
-                          Private1 => 0,
-                          Private2 => 0),
+                          others => 0),
            Occurrence => Excep.all);
 
       --  Propagate it

gcc/ada/sem_ch12.adb

@@ -9449,7 +9449,8 @@ package body Sem_Ch12 is
                Has_Untagged_Inc := True;
             end if;
 
-            --  Add comments for following code???
+            --  This is a temporary implementation. Most of this code has
+            --  to be moved to sem_ch8, and will be commented then ???
 
             if Is_Entity_Name (Actual)
               and then not Is_Overloaded (Actual)

gcc/ada/xref_lib.adb

@@ -538,6 +538,7 @@ package body Xref_Lib is
 
          when 'h' => return "interface";
          when 'g' => return "macro";
+         when 'G' => return "function macro";
          when 'J' => return "class";
          when 'K' => return "package";
          when 'k' => return "generic package";