[multiple changes]

2012-06-12  Ed Schonberg  <schonberg@adacore.com>

	* sem_ch12.adb: Small adjustment.

2012-06-12  Vincent Celier  <celier@adacore.com>

	* vms_cmds.ads (Command_Type): New enumeration value Test
	* vms_conv.adb (Initialize): Add component at index Test in
	Command_List
	* vms_data.ads (Test_Switches): New global variable for the
	switches of gnattest, currently empty.

From-SVN: r188443

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 6da4ac62251ecb63b476d1f8566012a00ba279ea..ad0181a27ebecb8acd1e5b331dcdd5f4b4af017c 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,15 @@
+2012-06-12  Ed Schonberg  <schonberg@adacore.com>
+
+       * sem_ch12.adb: Small adjustment.
+
+2012-06-12  Vincent Celier  <celier@adacore.com>
+
+       * vms_cmds.ads (Command_Type): New enumeration value Test
+       * vms_conv.adb (Initialize): Add component at index Test in
+       Command_List
+       * vms_data.ads (Test_Switches): New global variable for the
+       switches of gnattest, currently empty.
+
 2012-06-12  Ed Schonberg  <schonberg@adacore.com>
 
        * sem_ch3.adb (Analyze_Subtype_Declaration): if an incomplete

diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index 4bb7cee6a1dae780e92a1a8af4967ea8f87c587c..159c6e76ca19cb48d44eabc8444428e20974f2d2 100644 (file)
--- a/gcc/ada/sem_ch12.adb
+++ b/gcc/ada/sem_ch12.adb
@@ -9457,7 +9457,7 @@ package body Sem_Ch12 is
                   Freeze_Before (Instantiation_Node, Etype (F));
 
                   if Is_Incomplete_Or_Private_Type (Etype (F))
-                    and then No (Full_View (Etype (F)))
+                    and then No (Underlying_Type (Etype (F)))
                     and then not Is_Generic_Type (Etype (F))
                   then
                      Error_Msg_NE

diff --git a/gcc/ada/vms_cmds.ads b/gcc/ada/vms_cmds.ads
index 66c401506d0d224b245af09002cfcbab903487ac..d61e3eddf311c791774e56b4dbbf96499820322c 100644 (file)
--- a/gcc/ada/vms_cmds.ads
+++ b/gcc/ada/vms_cmds.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---            Copyright (C) 2010, Free Software Foundation, Inc.            --
+--          Copyright (C) 2010-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- --
@@ -47,6 +47,7 @@ package VMS_Cmds is
       Shared,
       Stack,
       Stub,
+      Test,
       Xref,
       Undefined);
 end VMS_Cmds;

diff --git a/gcc/ada/vms_conv.adb b/gcc/ada/vms_conv.adb
index 5cde2a2e160bd4ad100b07986569e83fd3660390..a499b9dd2d62264d50386bad01421b33da2e0e82 100644 (file)
--- a/gcc/ada/vms_conv.adb
+++ b/gcc/ada/vms_conv.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1996-2011, Free Software Foundation, Inc.         --
+--          Copyright (C) 1996-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- --
@@ -546,6 +546,16 @@ package body VMS_Conv is
             Params   => new Parameter_Array'(1 => File, 2 => Optional_File),
             Defext   => "   "),
 
+         Test =>
+           (Cname    => new S'("TEST"),
+            Usage    => new S'("GNAT TEST file(s) /qualifiers"),
+            VMS_Only => False,
+            Unixcmd  => new S'("gnattest"),
+            Unixsws  => null,
+            Switches => Make_Switches'Access,
+            Params   => new Parameter_Array'(1 => Unlimited_Files),
+            Defext   => "   "),
+
          Xref =>
            (Cname    => new S'("XREF"),
             Usage    => new S'("GNAT XREF filespec[,...] /qualifiers"),

diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads
index e438f8436707a469b24aaa41da0bfe72263d095d..01525b76d4bd09cfaae1ae886a296c5a7717238c 100644 (file)
--- a/gcc/ada/vms_data.ads
+++ b/gcc/ada/vms_data.ads
@@ -7166,6 +7166,13 @@ package VMS_Data is
                        S_Sync_Warnoff  'Access,
                        S_Sync_Output   'Access);
 
+   ----------------------------
+   -- Switches for GNAT TEST --
+   ----------------------------
+
+   Test_Switches : aliased constant Switches :=
+     (1 .. 0 => null);
+
    ----------------------------
    -- Switches for GNAT XREF --
    ----------------------------